packages feed

KiCS-debugger (empty) → 0.1.0

raw patch · 180 files changed

+20054/−0 lines, 180 filesdep +KiCSdep +KiCS-prophecydep +basebuild-type:Customsetup-changed

Dependencies added: KiCS, KiCS-prophecy, base, containers, curry-base, directory, filepath, haskell-src, haskell98, mtl, readline, syb

Files

+ .curry/kics/mkstrict.hs view
@@ -0,0 +1,21 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Main (module Main) where++import Curry.RunTimeSystem+import Curry.Module.Prelude+import Curry.Module.TransformationDependencies++++-- begin included++++-- end included++main  = (Prelude.>>)(Curry.RunTimeSystem.setProgNameAndOrBased("TransformationDependencies"))(Curry.Module.Prelude.curryIOVoid(Curry.Module.TransformationDependencies.c_aux2))++
+ Curry/DebugModule/CEventOracle.hs.include view
@@ -0,0 +1,79 @@+{- Auto generated stubs for external functions and types+   Remove this comment to suppress warnings. -}+module Curry.DebugModule.CEventOracle where+ +instance DI.GenTerm (Ref dm) where+        genTerm x0 = Prelude.error "not implemented"+ +data (DM.DM dm) => Ref dm = Ref+ +strict_initRef ::+               (DM.DM dm) => dm (Curry.DebugModule.Prelude.IO dm Ref)+strict_initRef+  = hook_strict_initRef (Prelude.error "not implemented")+ +strict_finalize ::+                (DM.DM dm) =>+                  Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                    dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_finalize x0+  = hook_strict_finalize x0 (Prelude.error "not implemented")+ +strict_fresh ::+             (DM.DM dm) => Curry.DebugModule.Prelude.Unit -> dm Ref+strict_fresh x0+  = hook_strict_fresh x0 (Prelude.error "not implemented")+ +strict_replace :: (DM.DM dm, DI.GenTerm a) => Ref -> a -> dm a+strict_replace x0 x1+  = hook_strict_replace x0 x1 (Prelude.error "not implemented")+ +strict_collapse :: (DM.DM dm, DI.GenTerm a) => Ref -> a -> dm a+strict_collapse x0 x1+  = hook_strict_collapse x0 x1 (Prelude.error "not implemented")+ +strict_closeRef :: (DM.DM dm, DI.GenTerm a) => Ref -> a -> dm a+strict_closeRef x0 x1+  = hook_strict_closeRef x0 x1 (Prelude.error "not implemented")+ +strict_expand ::+              (DM.DM dm, DI.GenTerm a) =>+                Ref -> Curry.DebugModule.Prelude.List Ref -> a -> dm a+strict_expand x0 x1 x2+  = hook_strict_expand x0 x1 x2 (Prelude.error "not implemented")+ +strict_unknown :: (DM.DM dm, DI.GenTerm a) => Ref -> dm a+strict_unknown x0+  = hook_strict_unknown x0 (Prelude.error "not implemented")+ +op_DollarEMark ::+               (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+                 DM.Func dm Ref (DM.Func dm a b) -> a -> Ref -> dm b+op_DollarEMark x0 x1 x2+  = hook_op_DollarEMark x0 x1 x2 (Prelude.error "not implemented")+ +op_DollarEMarkEMark ::+                    (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+                      DM.Func dm Ref (DM.Func dm a b) -> a -> Ref -> dm b+op_DollarEMarkEMark x0 x1 x2+  = hook_op_DollarEMarkEMark x0 x1 x2+      (Prelude.error "not implemented")+ +op_DollarRhomb ::+               (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+                 DM.Func dm Ref (DM.Func dm a b) -> a -> Ref -> dm b+op_DollarRhomb x0 x1 x2+  = hook_op_DollarRhomb x0 x1 x2 (Prelude.error "not implemented")+ +op_DollarRhombRhomb ::+                    (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+                      DM.Func dm Ref (DM.Func dm a b) -> a -> Ref -> dm b+op_DollarRhombRhomb x0 x1 x2+  = hook_op_DollarRhombRhomb x0 x1 x2+      (Prelude.error "not implemented")+ +strict_apply ::+             (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+               DM.Func dm Ref (DM.Func dm a b) -> a -> Ref -> dm b+strict_apply x0 x1 x2+  = hook_strict_apply x0 x1 x2 (Prelude.error "not implemented")
+ Curry/DebugModule/Directory.hs.include view
@@ -0,0 +1,110 @@+{- Auto generated stubs for external functions and types+   Remove this comment to suppress warnings. -}+module Curry.DebugModule.Directory where+ +strict_prim_doesFileExist ::+                          (DM.DM dm) =>+                            Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                              dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Bool)+strict_prim_doesFileExist x0+  = hook_strict_prim_doesFileExist x0+      (Prelude.error "not implemented")+ +strict_prim_doesDirectoryExist ::+                               (DM.DM dm) =>+                                 Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                                   dm+                                     (Curry.DebugModule.Prelude.IO dm+                                        Curry.DebugModule.Prelude.Bool)+strict_prim_doesDirectoryExist x0+  = hook_strict_prim_doesDirectoryExist x0+      (Prelude.error "not implemented")+ +strict_prim_fileSize ::+                     (DM.DM dm) =>+                       Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                         dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Int)+strict_prim_fileSize x0+  = hook_strict_prim_fileSize x0 (Prelude.error "not implemented")+ +strict_prim_getModificationTime ::+                                (DM.DM dm) =>+                                  Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                                    dm+                                      (Curry.DebugModule.Prelude.IO dm+                                         Curry.DebugModule.Time.ClockTime)+strict_prim_getModificationTime x0+  = hook_strict_prim_getModificationTime x0+      (Prelude.error "not implemented")+ +strict_getCurrentDirectory ::+                           (DM.DM dm) =>+                             dm+                               (Curry.DebugModule.Prelude.IO dm+                                  (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_getCurrentDirectory+  = hook_strict_getCurrentDirectory (Prelude.error "not implemented")+ +strict_prim_setCurrentDirectory ::+                                (DM.DM dm) =>+                                  Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                                    dm+                                      (Curry.DebugModule.Prelude.IO dm+                                         Curry.DebugModule.Prelude.Unit)+strict_prim_setCurrentDirectory x0+  = hook_strict_prim_setCurrentDirectory x0+      (Prelude.error "not implemented")+ +strict_prim_getDirectoryContents ::+                                 (DM.DM dm) =>+                                   Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                                     dm+                                       (Curry.DebugModule.Prelude.IO dm+                                          (Curry.DebugModule.Prelude.List+                                             (Curry.DebugModule.Prelude.List+                                                Curry.DebugModule.Prelude.Char)))+strict_prim_getDirectoryContents x0+  = hook_strict_prim_getDirectoryContents x0+      (Prelude.error "not implemented")+ +strict_prim_createDirectory ::+                            (DM.DM dm) =>+                              Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                                dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_prim_createDirectory x0+  = hook_strict_prim_createDirectory x0+      (Prelude.error "not implemented")+ +strict_prim_removeFile ::+                       (DM.DM dm) =>+                         Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                           dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_prim_removeFile x0+  = hook_strict_prim_removeFile x0 (Prelude.error "not implemented")+ +strict_prim_removeDirectory ::+                            (DM.DM dm) =>+                              Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                                dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_prim_removeDirectory x0+  = hook_strict_prim_removeDirectory x0+      (Prelude.error "not implemented")+ +strict_prim_renameFile ::+                       (DM.DM dm) =>+                         Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                           Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                             dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_prim_renameFile x0 x1+  = hook_strict_prim_renameFile x0 x1+      (Prelude.error "not implemented")+ +strict_prim_renameDirectory ::+                            (DM.DM dm) =>+                              Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                                Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                                  dm+                                    (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_prim_renameDirectory x0 x1+  = hook_strict_prim_renameDirectory x0 x1+      (Prelude.error "not implemented")
+ Curry/DebugModule/Distribution.hs.include view
@@ -0,0 +1,61 @@+{- Auto generated stubs for external functions and types+   Remove this comment to suppress warnings. -}+module Curry.DebugModule.Distribution where+ +strict_curryCompiler ::+                     (DM.DM dm) =>+                       dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_curryCompiler+  = hook_strict_curryCompiler (Prelude.error "not implemented")+ +strict_curryCompilerMajorVersion ::+                                 (DM.DM dm) => dm Curry.DebugModule.Prelude.Int+strict_curryCompilerMajorVersion+  = hook_strict_curryCompilerMajorVersion+      (Prelude.error "not implemented")+ +strict_curryCompilerMinorVersion ::+                                 (DM.DM dm) => dm Curry.DebugModule.Prelude.Int+strict_curryCompilerMinorVersion+  = hook_strict_curryCompilerMinorVersion+      (Prelude.error "not implemented")+ +strict_curryRuntime ::+                    (DM.DM dm) =>+                      dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_curryRuntime+  = hook_strict_curryRuntime (Prelude.error "not implemented")+ +strict_curryRuntimeMajorVersion ::+                                (DM.DM dm) => dm Curry.DebugModule.Prelude.Int+strict_curryRuntimeMajorVersion+  = hook_strict_curryRuntimeMajorVersion+      (Prelude.error "not implemented")+ +strict_curryRuntimeMinorVersion ::+                                (DM.DM dm) => dm Curry.DebugModule.Prelude.Int+strict_curryRuntimeMinorVersion+  = hook_strict_curryRuntimeMinorVersion+      (Prelude.error "not implemented")+ +strict_getStdLibDir ::+                    (DM.DM dm) =>+                      dm+                        (Curry.DebugModule.Prelude.IO dm+                           (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_getStdLibDir+  = hook_strict_getStdLibDir (Prelude.error "not implemented")+ +strict_getFrontendCall ::+                       (DM.DM dm) =>+                         dm+                           (Curry.DebugModule.Prelude.IO dm+                              (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_getFrontendCall+  = hook_strict_getFrontendCall (Prelude.error "not implemented")+ +strict_installDir ::+                  (DM.DM dm) =>+                    dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_installDir+  = hook_strict_installDir (Prelude.error "not implemented")
+ Curry/DebugModule/Float.hs.include view
@@ -0,0 +1,140 @@+{- Auto generated stubs for external functions and types+   Remove this comment to suppress warnings. -}+module Curry.DebugModule.Float where+ +strict_prim_Float_plus ::+                       (DM.DM dm) =>+                         Curry.DebugModule.Prelude.Float ->+                           Curry.DebugModule.Prelude.Float ->+                             dm Curry.DebugModule.Prelude.Float+strict_prim_Float_plus x0 x1+  = hook_strict_prim_Float_plus x0 x1+      (Prelude.error "not implemented")+ +strict_prim_Float_minus ::+                        (DM.DM dm) =>+                          Curry.DebugModule.Prelude.Float ->+                            Curry.DebugModule.Prelude.Float ->+                              dm Curry.DebugModule.Prelude.Float+strict_prim_Float_minus x0 x1+  = hook_strict_prim_Float_minus x0 x1+      (Prelude.error "not implemented")+ +strict_prim_Float_times ::+                        (DM.DM dm) =>+                          Curry.DebugModule.Prelude.Float ->+                            Curry.DebugModule.Prelude.Float ->+                              dm Curry.DebugModule.Prelude.Float+strict_prim_Float_times x0 x1+  = hook_strict_prim_Float_times x0 x1+      (Prelude.error "not implemented")+ +strict_prim_Float_divide ::+                         (DM.DM dm) =>+                           Curry.DebugModule.Prelude.Float ->+                             Curry.DebugModule.Prelude.Float ->+                               dm Curry.DebugModule.Prelude.Float+strict_prim_Float_divide x0 x1+  = hook_strict_prim_Float_divide x0 x1+      (Prelude.error "not implemented")+ +strict_prim_Float_lt ::+                     (DM.DM dm) =>+                       Curry.DebugModule.Prelude.Float ->+                         Curry.DebugModule.Prelude.Float ->+                           dm Curry.DebugModule.Prelude.Bool+strict_prim_Float_lt x0 x1+  = hook_strict_prim_Float_lt x0 x1 (Prelude.error "not implemented")+ +strict_prim_Float_gt ::+                     (DM.DM dm) =>+                       Curry.DebugModule.Prelude.Float ->+                         Curry.DebugModule.Prelude.Float ->+                           dm Curry.DebugModule.Prelude.Bool+strict_prim_Float_gt x0 x1+  = hook_strict_prim_Float_gt x0 x1 (Prelude.error "not implemented")+ +strict_prim_Float_leq ::+                      (DM.DM dm) =>+                        Curry.DebugModule.Prelude.Float ->+                          Curry.DebugModule.Prelude.Float ->+                            dm Curry.DebugModule.Prelude.Bool+strict_prim_Float_leq x0 x1+  = hook_strict_prim_Float_leq x0 x1+      (Prelude.error "not implemented")+ +strict_prim_Float_geq ::+                      (DM.DM dm) =>+                        Curry.DebugModule.Prelude.Float ->+                          Curry.DebugModule.Prelude.Float ->+                            dm Curry.DebugModule.Prelude.Bool+strict_prim_Float_geq x0 x1+  = hook_strict_prim_Float_geq x0 x1+      (Prelude.error "not implemented")+ +strict_prim_i2f ::+                (DM.DM dm) =>+                  Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Float+strict_prim_i2f x0+  = hook_strict_prim_i2f x0 (Prelude.error "not implemented")+ +strict_prim_truncate ::+                     (DM.DM dm) =>+                       Curry.DebugModule.Prelude.Float -> dm Curry.DebugModule.Prelude.Int+strict_prim_truncate x0+  = hook_strict_prim_truncate x0 (Prelude.error "not implemented")+ +strict_prim_round ::+                  (DM.DM dm) =>+                    Curry.DebugModule.Prelude.Float -> dm Curry.DebugModule.Prelude.Int+strict_prim_round x0+  = hook_strict_prim_round x0 (Prelude.error "not implemented")+ +strict_prim_sqrt ::+                 (DM.DM dm) =>+                   Curry.DebugModule.Prelude.Float ->+                     dm Curry.DebugModule.Prelude.Float+strict_prim_sqrt x0+  = hook_strict_prim_sqrt x0 (Prelude.error "not implemented")+ +strict_prim_log ::+                (DM.DM dm) =>+                  Curry.DebugModule.Prelude.Float ->+                    dm Curry.DebugModule.Prelude.Float+strict_prim_log x0+  = hook_strict_prim_log x0 (Prelude.error "not implemented")+ +strict_prim_exp ::+                (DM.DM dm) =>+                  Curry.DebugModule.Prelude.Float ->+                    dm Curry.DebugModule.Prelude.Float+strict_prim_exp x0+  = hook_strict_prim_exp x0 (Prelude.error "not implemented")+ +strict_prim_sin ::+                (DM.DM dm) =>+                  Curry.DebugModule.Prelude.Float ->+                    dm Curry.DebugModule.Prelude.Float+strict_prim_sin x0+  = hook_strict_prim_sin x0 (Prelude.error "not implemented")+ +strict_prim_cos ::+                (DM.DM dm) =>+                  Curry.DebugModule.Prelude.Float ->+                    dm Curry.DebugModule.Prelude.Float+strict_prim_cos x0+  = hook_strict_prim_cos x0 (Prelude.error "not implemented")+ +strict_prim_tan ::+                (DM.DM dm) =>+                  Curry.DebugModule.Prelude.Float ->+                    dm Curry.DebugModule.Prelude.Float+strict_prim_tan x0+  = hook_strict_prim_tan x0 (Prelude.error "not implemented")+ +strict_prim_atan ::+                 (DM.DM dm) =>+                   Curry.DebugModule.Prelude.Float ->+                     dm Curry.DebugModule.Prelude.Float+strict_prim_atan x0+  = hook_strict_prim_atan x0 (Prelude.error "not implemented")
+ Curry/DebugModule/Global.hs.include view
@@ -0,0 +1,28 @@+{- Auto generated stubs for external functions and types+   Remove this comment to suppress warnings. -}+module Curry.DebugModule.Global where+ +instance DI.GenTerm (Global dm a) where+        genTerm x0 = Prelude.error "not implemented"+ +data (DM.DM dm, DI.GenTerm a) => Global dm a = Global a+ +strict_global ::+              (DM.DM dm, DI.GenTerm a) => a -> GlobalSpec -> dm (Global a)+strict_global x0 x1+  = hook_strict_global x0 x1 (Prelude.error "not implemented")+ +strict_prim_readGlobal ::+                       (DM.DM dm, DI.GenTerm a) =>+                         Global a -> dm (Curry.DebugModule.Prelude.IO dm a)+strict_prim_readGlobal x0+  = hook_strict_prim_readGlobal x0 (Prelude.error "not implemented")+ +strict_prim_writeGlobal ::+                        (DM.DM dm, DI.GenTerm a) =>+                          Global a ->+                            a ->+                              dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_prim_writeGlobal x0 x1+  = hook_strict_prim_writeGlobal x0 x1+      (Prelude.error "not implemented")
+ Curry/DebugModule/IO.hs.include view
@@ -0,0 +1,103 @@+{- Auto generated stubs for external functions and types+   Remove this comment to suppress warnings. -}+module Curry.DebugModule.IO where+ +instance DI.GenTerm (Handle dm) where+        genTerm x0 = Prelude.error "not implemented"+ +data (DM.DM dm) => Handle dm = Handle+ +strict_stdin :: (DM.DM dm) => dm Handle+strict_stdin = hook_strict_stdin (Prelude.error "not implemented")+ +strict_stdout :: (DM.DM dm) => dm Handle+strict_stdout+  = hook_strict_stdout (Prelude.error "not implemented")+ +strict_stderr :: (DM.DM dm) => dm Handle+strict_stderr+  = hook_strict_stderr (Prelude.error "not implemented")+ +strict_prim_openFile ::+                     (DM.DM dm) =>+                       Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                         IOMode -> dm (Curry.DebugModule.Prelude.IO dm Handle)+strict_prim_openFile x0 x1+  = hook_strict_prim_openFile x0 x1 (Prelude.error "not implemented")+ +strict_prim_hClose ::+                   (DM.DM dm) =>+                     Handle ->+                       dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_prim_hClose x0+  = hook_strict_prim_hClose x0 (Prelude.error "not implemented")+ +strict_prim_hFlush ::+                   (DM.DM dm) =>+                     Handle ->+                       dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_prim_hFlush x0+  = hook_strict_prim_hFlush x0 (Prelude.error "not implemented")+ +strict_prim_hIsEOF ::+                   (DM.DM dm) =>+                     Handle ->+                       dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Bool)+strict_prim_hIsEOF x0+  = hook_strict_prim_hIsEOF x0 (Prelude.error "not implemented")+ +strict_prim_hSeek ::+                  (DM.DM dm) =>+                    Handle ->+                      SeekMode ->+                        Curry.DebugModule.Prelude.Int ->+                          dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_prim_hSeek x0 x1 x2+  = hook_strict_prim_hSeek x0 x1 x2 (Prelude.error "not implemented")+ +strict_prim_hWaitForInput ::+                          (DM.DM dm) =>+                            Handle ->+                              Curry.DebugModule.Prelude.Int ->+                                dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Bool)+strict_prim_hWaitForInput x0 x1+  = hook_strict_prim_hWaitForInput x0 x1+      (Prelude.error "not implemented")+ +strict_prim_hWaitForInputs ::+                           (DM.DM dm) =>+                             Curry.DebugModule.Prelude.List Handle ->+                               Curry.DebugModule.Prelude.Int ->+                                 dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Int)+strict_prim_hWaitForInputs x0 x1+  = hook_strict_prim_hWaitForInputs x0 x1+      (Prelude.error "not implemented")+ +strict_prim_hGetChar ::+                     (DM.DM dm) =>+                       Handle ->+                         dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Char)+strict_prim_hGetChar x0+  = hook_strict_prim_hGetChar x0 (Prelude.error "not implemented")+ +strict_prim_hPutChar ::+                     (DM.DM dm) =>+                       Handle ->+                         Curry.DebugModule.Prelude.Char ->+                           dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_prim_hPutChar x0 x1+  = hook_strict_prim_hPutChar x0 x1 (Prelude.error "not implemented")+ +strict_prim_hIsReadable ::+                        (DM.DM dm) =>+                          Handle ->+                            dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Bool)+strict_prim_hIsReadable x0+  = hook_strict_prim_hIsReadable x0 (Prelude.error "not implemented")+ +strict_prim_hIsWritable ::+                        (DM.DM dm) =>+                          Handle ->+                            dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Bool)+strict_prim_hIsWritable x0+  = hook_strict_prim_hIsWritable x0 (Prelude.error "not implemented")
+ Curry/DebugModule/IOExts.hs.include view
@@ -0,0 +1,66 @@+{- Auto generated stubs for external functions and types+   Remove this comment to suppress warnings. -}+module Curry.DebugModule.IOExts where+ +instance DI.GenTerm (IORef dm a) where+        genTerm x0 = Prelude.error "not implemented"+ +data (DM.DM dm, DI.GenTerm a) => IORef dm a = IORef a+ +strict_prim_execCmd ::+                    (DM.DM dm) =>+                      Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                        dm+                          (Curry.DebugModule.Prelude.IO dm+                             (Curry.DebugModule.Prelude.Tuple3 Curry.DebugModule.IO.Handle+                                Curry.DebugModule.IO.Handle+                                Curry.DebugModule.IO.Handle))+strict_prim_execCmd x0+  = hook_strict_prim_execCmd x0 (Prelude.error "not implemented")+ +strict_prim_connectToCmd ::+                         (DM.DM dm) =>+                           Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                             dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.IO.Handle)+strict_prim_connectToCmd x0+  = hook_strict_prim_connectToCmd x0+      (Prelude.error "not implemented")+ +strict_prim_setAssoc ::+                     (DM.DM dm) =>+                       Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                         Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                           dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_prim_setAssoc x0 x1+  = hook_strict_prim_setAssoc x0 x1 (Prelude.error "not implemented")+ +strict_prim_getAssoc ::+                     (DM.DM dm) =>+                       Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                         dm+                           (Curry.DebugModule.Prelude.IO dm+                              (Curry.DebugModule.Prelude.Maybe+                                 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)))+strict_prim_getAssoc x0+  = hook_strict_prim_getAssoc x0 (Prelude.error "not implemented")+ +strict_newIORef ::+                (DM.DM dm, DI.GenTerm a) =>+                  a -> dm (Curry.DebugModule.Prelude.IO dm (IORef a))+strict_newIORef x0+  = hook_strict_newIORef x0 (Prelude.error "not implemented")+ +strict_prim_readIORef ::+                      (DM.DM dm, DI.GenTerm a) =>+                        IORef a -> dm (Curry.DebugModule.Prelude.IO dm a)+strict_prim_readIORef x0+  = hook_strict_prim_readIORef x0 (Prelude.error "not implemented")+ +strict_prim_writeIORef ::+                       (DM.DM dm, DI.GenTerm a) =>+                         IORef a ->+                           a ->+                             dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_prim_writeIORef x0 x1+  = hook_strict_prim_writeIORef x0 x1+      (Prelude.error "not implemented")
+ Curry/DebugModule/Interactive.hs.include view
@@ -0,0 +1,10 @@+{- Auto generated stubs for external functions and types+   Remove this comment to suppress warnings. -}+module Curry.DebugModule.Interactive where+ +strict_printTerm ::+                 (DM.DM dm, DI.GenTerm a) =>+                   a ->+                     dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_printTerm x0+  = hook_strict_printTerm x0 (Prelude.error "not implemented")
+ Curry/DebugModule/Meta.hs.include view
@@ -0,0 +1,100 @@+{- Auto generated stubs for external functions and types+   Remove this comment to suppress warnings. -}+module Curry.DebugModule.Meta where+ +instance DI.GenTerm (OrRef dm) where+        genTerm x0 = Prelude.error "not implemented"+ +data (DM.DM dm) => OrRef dm = OrRef+ +strict_prim_isFree ::+                   (DM.DM dm, DI.GenTerm a) =>+                     a ->+                       dm+                         (Curry.DebugModule.Prelude.IO dm+                            (Curry.DebugModule.Prelude.Either a a))+strict_prim_isFree x0+  = hook_strict_prim_isFree x0 (Prelude.error "not implemented")+ +strict_headNormalFormIO ::+                        (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+                          DM.Func dm a (Curry.DebugModule.Prelude.IO dm b) ->+                            a -> dm (Curry.DebugModule.Prelude.IO dm b)+strict_headNormalFormIO x0 x1+  = hook_strict_headNormalFormIO x0 x1+      (Prelude.error "not implemented")+ +strict_searchTree ::+                  (DM.DM dm, DI.GenTerm a) =>+                    a -> dm (Curry.DebugModule.Prelude.SearchTree a)+strict_searchTree x0+  = hook_strict_searchTree x0 (Prelude.error "not implemented")+ +strict_gnfIO ::+             (DM.DM dm, DI.GenTerm a) =>+               a -> dm (Curry.DebugModule.Prelude.IO dm a)+strict_gnfIO x0+  = hook_strict_gnfIO x0 (Prelude.error "not implemented")+ +strict_ghnfIO ::+              (DM.DM dm, DI.GenTerm a) =>+                a -> dm (Curry.DebugModule.Prelude.IO dm a)+strict_ghnfIO x0+  = hook_strict_ghnfIO x0 (Prelude.error "not implemented")+ +strict_nfIO ::+            (DM.DM dm, DI.GenTerm a) =>+              a -> dm (Curry.DebugModule.Prelude.IO dm a)+strict_nfIO x0+  = hook_strict_nfIO x0 (Prelude.error "not implemented")+ +strict_hnfIO ::+             (DM.DM dm, DI.GenTerm a) =>+               a -> dm (Curry.DebugModule.Prelude.IO dm a)+strict_hnfIO x0+  = hook_strict_hnfIO x0 (Prelude.error "not implemented")+ +strict_getRichSearchTree ::+                         (DM.DM dm, DI.GenTerm a) =>+                           a -> dm (Curry.DebugModule.Prelude.IO dm (RichSearchTree a))+strict_getRichSearchTree x0+  = hook_strict_getRichSearchTree x0+      (Prelude.error "not implemented")+ +strict_richSearchTree ::+                      (DM.DM dm, DI.GenTerm a) => a -> dm (RichSearchTree a)+strict_richSearchTree x0+  = hook_strict_richSearchTree x0 (Prelude.error "not implemented")+ +strict_parallelSearch ::+                      (DM.DM dm, DI.GenTerm a) =>+                        a ->+                          dm+                            (Curry.DebugModule.Prelude.IO dm+                               (Curry.DebugModule.Prelude.List a))+strict_parallelSearch x0+  = hook_strict_parallelSearch x0 (Prelude.error "not implemented")+ +strict_cover :: (DM.DM dm, DI.GenTerm a) => a -> dm a+strict_cover x0+  = hook_strict_cover x0 (Prelude.error "not implemented")+ +strict_st ::+          (DM.DM dm, DI.GenTerm a) =>+            a -> dm (Curry.DebugModule.Prelude.SearchTree a)+strict_st x0 = hook_strict_st x0 (Prelude.error "not implemented")+ +strict_richST ::+              (DM.DM dm, DI.GenTerm a) => a -> dm (RichSearchTree a)+strict_richST x0+  = hook_strict_richST x0 (Prelude.error "not implemented")+ +strict_ors ::+           (DM.DM dm, DI.GenTerm a) =>+             Curry.DebugModule.Prelude.List a -> dm a+strict_ors x0+  = hook_strict_ors x0 (Prelude.error "not implemented")+ +strict_prim_throw :: (DM.DM dm, DI.GenTerm a) => Exception -> dm a+strict_prim_throw x0+  = hook_strict_prim_throw x0 (Prelude.error "not implemented")
+ Curry/DebugModule/Prelude.hs.include view
@@ -0,0 +1,263 @@+import qualified Char+import qualified Debugger.ShowTerm as ST++instance DI.GenTerm Float where+  genTerm FloatUnderscore = DI.TermUnderscore (DI.SrcID "Prelude" 2)+  genTerm (Float f) = DI.TermFloat f+ +instance DI.GenTerm Char where+  genTerm CharUnderscore = DI.TermUnderscore (DI.SrcID "Prelude" 0)+  genTerm (Char c) = DI.TermChar c++instance DI.GenTerm (IO dm a) where+  genTerm IOUnderscore = DI.TermUnderscore (DI.SrcID "Prelude" Prelude.undefined)+  genTerm x0 = Prelude.error "not implemented"++natToHInt :: Nat -> Prelude.Int+natToHInt IHi = 1+natToHInt (O x) = 2 Prelude.* natToHInt x+natToHInt (I x) = 2 Prelude.* natToHInt x Prelude.+ 1++intToHInt :: Int -> Prelude.Int+intToHInt (Neg n) = Prelude.negate (natToHInt n)+intToHInt (Pos n) = natToHInt n+intToHInt Zero = 0++hIntToNat :: Prelude.Integral n => n -> Nat +hIntToNat 1 = IHi+hIntToNat i = case Prelude.divMod i 2 of+  (d,0) -> O (hIntToNat d)+  (d,1) -> I (hIntToNat d)++hIntToInt :: (Prelude.Integral n) => n -> Int +hIntToInt i | i Prelude.<  0 = Neg (hIntToNat (Prelude.negate i))+            | i Prelude.== 0 = Zero+            | Prelude.otherwise = Pos (hIntToNat i)++listToHList :: List a -> [a]+listToHList Nil = []+listToHList (Cons x xs) = x:listToHList xs++hListToList :: [a] -> List a+hListToList [] = Nil+hListToList (x:xs) = (Cons x (hListToList xs))++charToHChar :: Char  -> Prelude.Char+charToHChar (Char c) = c++hCharToChar :: Prelude.Char -> Char+hCharToChar c = Char c++hStrToStr :: Prelude.String -> List Char+hStrToStr str = hListToList (Prelude.map hCharToChar str)++strToHStr :: List Char -> Prelude.String+strToHStr listChar = Prelude.map charToHChar (listToHList listChar)+++data Float = Float Prelude.Float | FloatUnderscore deriving (Data.Generics.Typeable, Data.Generics.Data)+ +data Char = Char Prelude.Char | CharUnderscore deriving (Data.Generics.Typeable, Data.Generics.Data)+ +-- data (DM.DM dm) => IO a = IO (Prelude.IO a) | IOUnderscore+-- data (DM.DM dm) => IO a = IO a | IOUnderscore+-- data IO a = IO (World -> (a,World))+-- data IO a = IO (DM.Func dm (Unit) (a,Unit))+data World = World++data (DM.DM dm) => IO dm a = IO (World -> dm (a,World)) | IOUnderscore -- (dm :: * -> *)++instance Data.Generics.Typeable (IO dm a)+instance Data.Generics.Data (IO dm a)++-- simple not qualified short cuts to Prelude++return :: DM.DM dm => a -> dm a+return = Prelude.return++(.) = (Prelude..)++($) = (Prelude.$)++-- IO return for the DebugMonad+curryReturn :: DM.DM dm => a -> dm (IO dm a)+curryReturn x = return (IO (\w -> return (x,w)))++-- local declaration for ? of the DebugMonad module+(?) :: (DM.DM dm, DI.GenTerm a) => a -> a -> dm a+x ? y = x DM.? y++-- putChar :: IO ()+-- implementation just returns () representation+strict_prim_putChar ::+                    (DM.DM dm) => Char -> dm (IO dm (Unit))+strict_prim_putChar x0 = hook_strict_prim_putChar x0 (curryReturn Unit)++-- getChar :: IO Char+strict_getChar :: (DM.DM dm) => dm (IO dm Char)+strict_getChar =+     hook_strict_getChar (do c <- DM.getNextExtVal; curryReturn (Char c))++-- $! :: (a -> b) -> a -> b+op_DollarEMark ::+               (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+                 DM.Func dm a b -> a -> dm b+op_DollarEMark x0 x1+  = hook_op_DollarEMark x0 x1 (curryApply x0 x1)+ +-- $!! :: (a -> b) -> a -> b+op_DollarEMarkEMark ::+                    (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+                      DM.Func dm a b -> a -> dm b+op_DollarEMarkEMark x0 x1+  = hook_op_DollarEMarkEMark x0 x1 (curryApply x0 x1)+ +-- $# :: (a -> b) -> a -> b+op_DollarRhomb ::+               (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+                 DM.Func dm a b -> a -> dm b+op_DollarRhomb x0 x1+  = hook_op_DollarRhomb x0 x1 (curryApply x0 x1)+ +-- $## :: (a -> b) -> a -> b+op_DollarRhombRhomb ::+                    (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+                      DM.Func dm a b -> a -> dm b+op_DollarRhombRhomb x0 x1+  = hook_op_DollarRhombRhomb x0 x1 (curryApply x0 x1)+ +-- prim_error :: String -> a+strict_prim_error ::+                  (DM.DM dm, DI.GenTerm a) =>+                    List Char -> dm a+strict_prim_error x0+  = hook_strict_prim_error x0 +      (DM.errorHook (Prelude.map charToHChar (listToHList x0)))+ +-- failed :: a+strict_failed :: (DM.DM dm, DI.GenTerm a) => dm a+strict_failed = hook_strict_failed (return DM.failed)+++-- == :: a -> a -> Bool+op_EqEq ::+        (DM.DM dm, DI.GenTerm a) => a -> a -> dm Bool+op_EqEq x0 x1+  = hook_op_EqEq x0 x1 (x0 `eqeq` x1)+      +-- performs an equality check on given elements+eqeq :: (DM.DM dm, DI.GenTerm a) => a -> a -> dm Bool+eqeq x0 x1 = DM.treatCase' Prelude.False (eqeqx x0) x1 where+  eqeqx x y  | DI.genTerm x Prelude.== DI.genTerm y = return True+             | Prelude.otherwise                    = return False++ +-- prim_ord :: Char -> Int+strict_prim_ord :: (DM.DM dm) => Char -> dm (Int)+strict_prim_ord x0@(Char c)+  = hook_strict_prim_ord x0 (return (hIntToInt (Char.ord c)))+ +-- prim_chr :: Int -> Char+strict_prim_chr :: (DM.DM dm) => Int -> dm Char+strict_prim_chr x0+ = hook_strict_prim_chr x0 (return (Char (Char.chr (intToHInt x0))))+ +-- === :: a -> a -> Bool	(???)+op_EqEqEq ::+          (DM.DM dm, DI.GenTerm a) => a -> a -> dm Bool+op_EqEqEq x0 x1+  = hook_op_EqEqEq x0 x1 (x0 `eqeq` x1)+ +-- & :: Success -> Success -> Success	(TODO)+op_And ::+       (DM.DM dm) => Success -> Success -> dm Success+op_And x0 x1 = hook_op_And x0 x1 (Prelude.error "not implemented")++-- >>= :: IO a -> (a -> IO b) -> IO b+op_GtGtEq ::+          (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+            IO dm a -> DM.Func dm a (IO dm b) -> dm (IO dm b)+op_GtGtEq a1@(IO a) k+  = hook_op_GtGtEq a1 k (return (IO (\w -> do+       DM.popOracle+       (r, w') <- a w +       DM.popOracle+       IO f <- curryApply k r+       DM.popOracle+       f w')))+ +-- return :: a -> IO a+strict_return ::+              (DM.DM dm, DI.GenTerm a) => a -> dm (IO dm a)+strict_return x+ = hook_strict_return x (curryReturn x)+ +-- prim_readFile :: String -> IO String	(TODO???)+strict_prim_readFile ::+                     (DM.DM dm) =>+                       List Char -> dm (IO dm (List Char))+strict_prim_readFile x0+  = hook_strict_prim_readFile x0 (do f <- DM.getNextExtVal; curryReturn (hStrToStr f))++-- prim_writeFile :: String -> String -> IO ()+-- implementation just returns () representation+strict_prim_writeFile ::+                      (DM.DM dm) =>+                        List Char -> List Char -> dm (IO dm (Unit))+strict_prim_writeFile x0 x1+  = hook_strict_prim_writeFile x0 x1 (curryReturn Unit)+ +-- prim_appendFile :: String -> String -> IO ()+-- implementation just returns () representation+strict_prim_appendFile ::+                       (DM.DM dm) =>+                         List Char -> List Char -> dm (IO dm (Unit))+strict_prim_appendFile x0 x1+  = hook_strict_prim_appendFile x0 x1 (curryReturn Unit)+ +-- catchFail :: IO a -> IO a -> IO a (TODO)+strict_catchFail ::+                 (DM.DM dm, DI.GenTerm a) =>+                   IO dm a -> IO dm a -> dm (IO dm a)+strict_catchFail x0 x1+  = hook_strict_catchFail x0 x1 (Prelude.error "not implemented")+ +-- prim_show :: a -> String+strict_prim_show ::+                 (DM.DM dm, DI.GenTerm a) =>+                   a -> dm (List Char)+strict_prim_show x0+  = hook_strict_prim_show x0 (show x0)++show x0 = DM.treatCase' Prelude.False (return . show') x0 where+  show' x = hStrToStr hStr where+    hStr = ST.showGenTerm x+ +-- getSearchTree :: a -> IO (SearchTree a) (TODO)+strict_getSearchTree ::+                     (DM.DM dm, DI.GenTerm a) =>+                       a -> dm (IO dm (SearchTree a))+strict_getSearchTree x0+  = hook_strict_getSearchTree x0 (Prelude.error "not implemented")+ +-- apply for the DebugMonad+curryApply :: DM.DM dm => DM.Func dm a b -> a -> dm b+curryApply (DM.FuncRep _ f) x = f x++-- apply :: (a -> b) -> a -> b+strict_apply :: (DM.DM dm, DI.GenTerm a,DI.GenTerm b) => DM.Func dm a b -> a -> dm b+strict_apply f x = hook_strict_apply f x (curryApply f x)+ +-- cond :: Success -> a -> a	(TODO)+strict_cond ::+            (DM.DM dm, DI.GenTerm a) => Success -> a -> dm a+strict_cond x0 x1+  = hook_strict_cond x0 x1 (Prelude.error "not implemented")+ +-- =:<= :: a -> a -> Success	(TODO)+op_EqColonLtEq ::+               (DM.DM dm, DI.GenTerm a) =>+                 a -> a -> dm Success+op_EqColonLtEq x0 x1+  = hook_op_EqColonLtEq x0 x1 (Prelude.error "not implemented")+
+ Curry/DebugModule/RandomExternal.hs.include view
@@ -0,0 +1,34 @@+{- Auto generated stubs for external functions and types+   Remove this comment to suppress warnings. -}+module Curry.DebugModule.RandomExternal where+ +strict_prim_split ::+                  (DM.DM dm) =>+                    Curry.DebugModule.Prelude.Int ->+                      dm+                        (Curry.DebugModule.Prelude.Tuple2 Curry.DebugModule.Prelude.Int+                           Curry.DebugModule.Prelude.Int)+strict_prim_split x0+  = hook_strict_prim_split x0 (Prelude.error "not implemented")+ +strict_prim_nextInt ::+                    (DM.DM dm) =>+                      Curry.DebugModule.Prelude.Int ->+                        dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Int)+strict_prim_nextInt x0+  = hook_strict_prim_nextInt x0 (Prelude.error "not implemented")+ +strict_prim_nextIntRange ::+                         (DM.DM dm) =>+                           Curry.DebugModule.Prelude.Int ->+                             Curry.DebugModule.Prelude.Int ->+                               dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Int)+strict_prim_nextIntRange x0 x1+  = hook_strict_prim_nextIntRange x0 x1+      (Prelude.error "not implemented")+ +strict_getRandomSeed ::+                     (DM.DM dm) =>+                       dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Int)+strict_getRandomSeed+  = hook_strict_getRandomSeed (Prelude.error "not implemented")
+ Curry/DebugModule/ReadShowTerm.hs.include view
@@ -0,0 +1,43 @@+{- Auto generated stubs for external functions and types+   Remove this comment to suppress warnings. -}+module Curry.DebugModule.ReadShowTerm where+ +strict_prim_showTerm ::+                     (DM.DM dm, DI.GenTerm a) =>+                       a ->+                         dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_prim_showTerm x0+  = hook_strict_prim_showTerm x0 (Prelude.error "not implemented")+ +strict_prim_showQTerm ::+                      (DM.DM dm, DI.GenTerm a) =>+                        a ->+                          dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_prim_showQTerm x0+  = hook_strict_prim_showQTerm x0 (Prelude.error "not implemented")+ +strict_prim_readsUnqualifiedTerm ::+                                 (DM.DM dm, DI.GenTerm a) =>+                                   Curry.DebugModule.Prelude.List+                                     (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                                     ->+                                     Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char+                                       ->+                                       dm+                                         (Curry.DebugModule.Prelude.List+                                            (Curry.DebugModule.Prelude.Tuple2 a+                                               (Curry.DebugModule.Prelude.List+                                                  Curry.DebugModule.Prelude.Char)))+strict_prim_readsUnqualifiedTerm x0 x1+  = hook_strict_prim_readsUnqualifiedTerm x0 x1+      (Prelude.error "not implemented")+ +strict_prim_readsQTerm ::+                       (DM.DM dm, DI.GenTerm a) =>+                         Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                           dm+                             (Curry.DebugModule.Prelude.List+                                (Curry.DebugModule.Prelude.Tuple2 a+                                   (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)))+strict_prim_readsQTerm x0+  = hook_strict_prim_readsQTerm x0 (Prelude.error "not implemented")
+ Curry/DebugModule/Socket.hs.include view
@@ -0,0 +1,69 @@+{- Auto generated stubs for external functions and types+   Remove this comment to suppress warnings. -}+module Curry.DebugModule.Socket where+ +instance DI.GenTerm (Socket dm) where+        genTerm x0 = Prelude.error "not implemented"+ +data (DM.DM dm) => Socket dm = Socket+ +strict_prim_listenOn ::+                     (DM.DM dm) =>+                       Curry.DebugModule.Prelude.Int ->+                         dm (Curry.DebugModule.Prelude.IO dm Socket)+strict_prim_listenOn x0+  = hook_strict_prim_listenOn x0 (Prelude.error "not implemented")+ +strict_listenOnFresh ::+                     (DM.DM dm) =>+                       dm+                         (Curry.DebugModule.Prelude.IO dm+                            (Curry.DebugModule.Prelude.Tuple2 Curry.DebugModule.Prelude.Int+                               Socket))+strict_listenOnFresh+  = hook_strict_listenOnFresh (Prelude.error "not implemented")+ +strict_prim_socketListen ::+                         (DM.DM dm) =>+                           Socket ->+                             Curry.DebugModule.Prelude.Int ->+                               dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_prim_socketListen x0 x1+  = hook_strict_prim_socketListen x0 x1+      (Prelude.error "not implemented")+ +strict_prim_socketAccept ::+                         (DM.DM dm) =>+                           Socket ->+                             dm+                               (Curry.DebugModule.Prelude.IO dm+                                  (Curry.DebugModule.Prelude.Tuple2+                                     (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                                     Curry.DebugModule.IO.Handle))+strict_prim_socketAccept x0+  = hook_strict_prim_socketAccept x0+      (Prelude.error "not implemented")+ +strict_prim_waitForSocketAccept ::+                                (DM.DM dm) =>+                                  Socket ->+                                    Curry.DebugModule.Prelude.Int ->+                                      dm+                                        (Curry.DebugModule.Prelude.IO dm+                                           (Curry.DebugModule.Prelude.Maybe+                                              (Curry.DebugModule.Prelude.Tuple2+                                                 (Curry.DebugModule.Prelude.List+                                                    Curry.DebugModule.Prelude.Char)+                                                 Curry.DebugModule.IO.Handle)))+strict_prim_waitForSocketAccept x0 x1+  = hook_strict_prim_waitForSocketAccept x0 x1+      (Prelude.error "not implemented")+ +strict_prim_connectToSocket ::+                            (DM.DM dm) =>+                              Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                                Curry.DebugModule.Prelude.Int ->+                                  dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.IO.Handle)+strict_prim_connectToSocket x0 x1+  = hook_strict_prim_connectToSocket x0 x1+      (Prelude.error "not implemented")
+ Curry/DebugModule/System.hs.include view
@@ -0,0 +1,76 @@+{- Auto generated stubs for external functions and types+   Remove this comment to suppress warnings. -}+module Curry.DebugModule.System where+ +strict_getCPUTime ::+                  (DM.DM dm) =>+                    dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Int)+strict_getCPUTime+  = hook_strict_getCPUTime (Prelude.error "not implemented")+ +strict_getElapsedTime ::+                      (DM.DM dm) =>+                        dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Int)+strict_getElapsedTime+  = hook_strict_getElapsedTime (Prelude.error "not implemented")+ +strict_getArgs ::+               (DM.DM dm) =>+                 dm+                   (Curry.DebugModule.Prelude.IO dm+                      (Curry.DebugModule.Prelude.List+                         (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)))+strict_getArgs+  = hook_strict_getArgs (Prelude.error "not implemented")+ +strict_prim_getEnviron ::+                       (DM.DM dm) =>+                         Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                           dm+                             (Curry.DebugModule.Prelude.IO dm+                                (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_prim_getEnviron x0+  = hook_strict_prim_getEnviron x0 (Prelude.error "not implemented")+ +strict_getHostname ::+                   (DM.DM dm) =>+                     dm+                       (Curry.DebugModule.Prelude.IO dm+                          (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_getHostname+  = hook_strict_getHostname (Prelude.error "not implemented")+ +strict_getPID ::+              (DM.DM dm) =>+                dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Int)+strict_getPID+  = hook_strict_getPID (Prelude.error "not implemented")+ +strict_getProgName ::+                   (DM.DM dm) =>+                     dm+                       (Curry.DebugModule.Prelude.IO dm+                          (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_getProgName+  = hook_strict_getProgName (Prelude.error "not implemented")+ +strict_prim_system ::+                   (DM.DM dm) =>+                     Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                       dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Int)+strict_prim_system x0+  = hook_strict_prim_system x0 (Prelude.error "not implemented")+ +strict_prim_exitWith ::+                     (DM.DM dm, DI.GenTerm a) =>+                       Curry.DebugModule.Prelude.Int ->+                         dm (Curry.DebugModule.Prelude.IO dm a)+strict_prim_exitWith x0+  = hook_strict_prim_exitWith x0 (Prelude.error "not implemented")+ +strict_prim_sleep ::+                  (DM.DM dm) =>+                    Curry.DebugModule.Prelude.Int ->+                      dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_prim_sleep x0+  = hook_strict_prim_sleep x0 (Prelude.error "not implemented")
+ Curry/DebugModule/Time.hs.include view
@@ -0,0 +1,24 @@+{- Auto generated stubs for external functions and types+   Remove this comment to suppress warnings. -}+module Curry.DebugModule.Time where+ +strict_getClockTime ::+                    (DM.DM dm) => dm (Curry.DebugModule.Prelude.IO dm ClockTime)+strict_getClockTime+  = hook_strict_getClockTime (Prelude.error "not implemented")+ +strict_prim_toCalendarTime ::+                           (DM.DM dm) =>+                             ClockTime -> dm (Curry.DebugModule.Prelude.IO dm CalendarTime)+strict_prim_toCalendarTime x0+  = hook_strict_prim_toCalendarTime x0+      (Prelude.error "not implemented")+ +strict_prim_toUTCTime :: (DM.DM dm) => ClockTime -> dm CalendarTime+strict_prim_toUTCTime x0+  = hook_strict_prim_toUTCTime x0 (Prelude.error "not implemented")+ +strict_prim_toClockTime ::+                        (DM.DM dm) => CalendarTime -> dm ClockTime+strict_prim_toClockTime x0+  = hook_strict_prim_toClockTime x0 (Prelude.error "not implemented")
+ Curry/DebugModule/Unsafe.hs.include view
@@ -0,0 +1,119 @@+{- Auto generated stubs for external functions and types+   Remove this comment to suppress warnings. -}+module Curry.DebugModule.Unsafe where+ +strict_prim_unsafePerformIO ::+                            (DM.DM dm, DI.GenTerm a) =>+                              Curry.DebugModule.Prelude.IO dm a -> dm a+strict_prim_unsafePerformIO x0+  = hook_strict_prim_unsafePerformIO x0+      (Prelude.error "not implemented")+ +strict_spawnConstraint ::+                       (DM.DM dm, DI.GenTerm a) =>+                         Curry.DebugModule.Prelude.Success -> a -> dm a+strict_spawnConstraint x0 x1+  = hook_strict_spawnConstraint x0 x1+      (Prelude.error "not implemented")+ +strict_prim_isVar ::+                  (DM.DM dm, DI.GenTerm a) => a -> dm Curry.DebugModule.Prelude.Bool+strict_prim_isVar x0+  = hook_strict_prim_isVar x0 (Prelude.error "not implemented")+ +strict_prim_identicalVar ::+                         (DM.DM dm, DI.GenTerm a) =>+                           a -> a -> dm Curry.DebugModule.Prelude.Bool+strict_prim_identicalVar x0 x1+  = hook_strict_prim_identicalVar x0 x1+      (Prelude.error "not implemented")+ +strict_prim_showAnyTerm ::+                        (DM.DM dm, DI.GenTerm a) =>+                          a ->+                            dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_prim_showAnyTerm x0+  = hook_strict_prim_showAnyTerm x0 (Prelude.error "not implemented")+ +strict_prim_showAnyQTerm ::+                         (DM.DM dm, DI.GenTerm a) =>+                           a ->+                             dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_prim_showAnyQTerm x0+  = hook_strict_prim_showAnyQTerm x0+      (Prelude.error "not implemented")+ +strict_prim_readsAnyUnqualifiedTerm ::+                                    (DM.DM dm, DI.GenTerm a) =>+                                      Curry.DebugModule.Prelude.List+                                        (Curry.DebugModule.Prelude.List+                                           Curry.DebugModule.Prelude.Char)+                                        ->+                                        Curry.DebugModule.Prelude.List+                                          Curry.DebugModule.Prelude.Char+                                          ->+                                          dm+                                            (Curry.DebugModule.Prelude.List+                                               (Curry.DebugModule.Prelude.Tuple2 a+                                                  (Curry.DebugModule.Prelude.List+                                                     Curry.DebugModule.Prelude.Char)))+strict_prim_readsAnyUnqualifiedTerm x0 x1+  = hook_strict_prim_readsAnyUnqualifiedTerm x0 x1+      (Prelude.error "not implemented")+ +strict_prim_readsAnyQTerm ::+                          (DM.DM dm, DI.GenTerm a) =>+                            Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                              dm+                                (Curry.DebugModule.Prelude.List+                                   (Curry.DebugModule.Prelude.Tuple2 a+                                      (Curry.DebugModule.Prelude.List+                                         Curry.DebugModule.Prelude.Char)))+strict_prim_readsAnyQTerm x0+  = hook_strict_prim_readsAnyQTerm x0+      (Prelude.error "not implemented")+ +strict_showAnyExpression ::+                         (DM.DM dm, DI.GenTerm a) =>+                           a ->+                             dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_showAnyExpression x0+  = hook_strict_showAnyExpression x0+      (Prelude.error "not implemented")+ +strict_showAnyQExpression ::+                          (DM.DM dm, DI.GenTerm a) =>+                            a ->+                              dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_showAnyQExpression x0+  = hook_strict_showAnyQExpression x0+      (Prelude.error "not implemented")+ +strict_try ::+           (DM.DM dm, DI.GenTerm a) =>+             a ->+               dm+                 (Curry.DebugModule.Prelude.Either a+                    (Curry.DebugModule.Prelude.Tuple2 Curry.DebugModule.Meta.OrRef+                       (Curry.DebugModule.Prelude.List a)))+strict_try x0+  = hook_strict_try x0 (Prelude.error "not implemented")+ +strict_orsWithOrRef ::+                    (DM.DM dm, DI.GenTerm a) =>+                      Curry.DebugModule.Meta.OrRef ->+                        Curry.DebugModule.Prelude.List a -> dm a+strict_orsWithOrRef x0 x1+  = hook_strict_orsWithOrRef x0 x1 (Prelude.error "not implemented")+ +strict_generateChoice ::+                      (DM.DM dm, DI.GenTerm a) =>+                        Curry.DebugModule.Prelude.List a -> dm a+strict_generateChoice x0+  = hook_strict_generateChoice x0 (Prelude.error "not implemented")+ +strict_nrOfChoices ::+                   (DM.DM dm) =>+                     dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Int)+strict_nrOfChoices+  = hook_strict_nrOfChoices (Prelude.error "not implemented")
+ Curry/Files/KiCSDebugPath.hs view
@@ -0,0 +1,18 @@+module Curry.Files.KiCSDebugPath +  (getMkstrict+  ,debugVersion+  ,module Curry.Files.ProphecyPath+  ) where++import Data.Version+import System.FilePath+import Paths_KiCS_debugger++import Curry.Files.ProphecyPath++debugVersion = showVersion version++getMkstrict = do+  execDir <- getBinDir+  return (execDir </> "mkstrict")+
+ Curry/Module/OracleAbstractCurry.fcy view
@@ -0,0 +1,1 @@+Prog "OracleAbstractCurry" ["CEventOracle","Oracle","IOExts","AbstractCurry","Directory","Distribution","FileGoodies","Prelude","ReadShowTerm","OracleDirectory","OracleDistribution","OracleFileGoodies","OraclePrelude","OracleReadShowTerm"] [] [Func ("OracleAbstractCurry","readCurry") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurry","readCurryWithParseOptions") [Var 2,Comb FuncCall ("OracleDistribution","setQuiet") [Comb ConsCall ("Prelude","True") [],Comb FuncCall ("OracleDistribution","defaultParams") [Var 1],Var 3],Var 4]]))),Func ("OracleAbstractCurry","readUntypedCurry") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurry","readUntypedCurryWithParseOptions") [Var 2,Comb FuncCall ("OracleDistribution","setQuiet") [Comb ConsCall ("Prelude","True") [],Comb FuncCall ("OracleDistribution","defaultParams") [Var 1],Var 3],Var 4]]))),Func ("OracleAbstractCurry","readCurryWithParseOptions") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Comb FuncCall ("OraclePrelude","++") [Var 2,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","[]") []]]]]]],Var 1],Var 4],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurry","readCurryWithParseOptions._#lambda2") [Var 3,Var 2]],Var 5]]))),Func ("OracleAbstractCurry","readCurryWithParseOptions._#lambda2") 4 Private (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Comb FuncCall ("OraclePrelude","++") [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","[]") []]]]]]]],Var 1],Var 5],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurry","readCurryWithParseOptions._#lambda2._#lambda3") [Var 4,Var 2,Var 3]],Var 6]]))),Func ("OracleAbstractCurry","readCurryWithParseOptions._#lambda2._#lambda3") 5 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []])))))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleAbstractCurry","_case_3") [Var 2,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","||") [Var 2,Var 5,Var 1],Var 6],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","findFileInLoadPath") [Comb FuncCall ("OraclePrelude","++") [Var 4,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","[]") []]]]],Var 7],Var 8],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurry","readCurryWithParseOptions._#lambda2._#lambda3._#lambda4") []],Var 9],Var 10]]))),Func ("OracleAbstractCurry","readCurryWithParseOptions._#lambda2._#lambda3._#lambda4") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurry","readAbstractCurryFile") [Var 2,Var 1]])),Func ("OracleAbstractCurry","readUntypedCurryWithParseOptions") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Comb FuncCall ("OraclePrelude","++") [Var 2,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","[]") []]]]]]],Var 1],Var 4],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurry","readUntypedCurryWithParseOptions._#lambda5") [Var 3,Var 2]],Var 5]]))),Func ("OracleAbstractCurry","readUntypedCurryWithParseOptions._#lambda5") 4 Private (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Comb FuncCall ("OraclePrelude","++") [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","[]") []]]]]]]],Var 1],Var 5],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurry","readUntypedCurryWithParseOptions._#lambda5._#lambda6") [Var 4,Var 2,Var 3]],Var 6]]))),Func ("OracleAbstractCurry","readUntypedCurryWithParseOptions._#lambda5._#lambda6") 5 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []])))))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleAbstractCurry","_case_2") [Var 2,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","||") [Var 2,Var 5,Var 1],Var 6],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","findFileInLoadPath") [Comb FuncCall ("OraclePrelude","++") [Var 4,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","[]") []]]]]],Var 7],Var 8],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurry","readUntypedCurryWithParseOptions._#lambda5._#lambda6._#lambda7") []],Var 9],Var 10]]))),Func ("OracleAbstractCurry","readUntypedCurryWithParseOptions._#lambda5._#lambda6._#lambda7") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurry","readAbstractCurryFile") [Var 2,Var 1]])),Func ("OracleAbstractCurry","abstractCurryFileName") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleDistribution","inCurrySubdir") [Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFileGoodies","stripSuffix") [Var 1],Var 2,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","[]") []]]]],Var 4],Var 5]]))),Func ("OracleAbstractCurry","untypedAbstractCurryFileName") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleDistribution","inCurrySubdir") [Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFileGoodies","stripSuffix") [Var 1],Var 2,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","[]") []]]]]],Var 4],Var 5]]))),Func ("OracleAbstractCurry","readAbstractCurryFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurry","readAbstractCurryFile._#lambda9") [Var 2]],Var 3]]))),Func ("OracleAbstractCurry","readAbstractCurryFile.readExistingACY.21") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurry","readAbstractCurryFile.readExistingACY.21._#lambda8") []],Var 3]]))),Func ("OracleAbstractCurry","readAbstractCurryFile.readExistingACY.21._#lambda8") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 1]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OracleReadShowTerm","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 2,Var 1],Var 3]]))),Func ("OracleAbstractCurry","readAbstractCurryFile._#lambda9") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 2])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurry","_case_1") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurry","readAbstractCurryFile._#lambda9._#lambda10") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 3]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurry","_case_0") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleAbstractCurry","writeAbstractCurryFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("AbstractCurry","CurryProg") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","writeFile") [Var 2,Comb FuncCall ("OracleReadShowTerm","showTerm") [Var 3,Var 1],Var 4]]))),Func ("OracleAbstractCurry","_case_0") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurry","readAbstractCurryFile.readExistingACY.21") [Var 3,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 2,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","[]") []]]]]]]]]]]]]]]]],Var 1],Var 5],Var 6]]))]])),Func ("OracleAbstractCurry","_case_1") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurry","readAbstractCurryFile.readExistingACY.21") [Var 2,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleDistribution","inCurrySubdir") [Var 2,Var 1])] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Var 4,Var 5],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurry","readAbstractCurryFile._#lambda9._#lambda10") [Var 2,Var 4]],Var 6]]))]))]])),Func ("OracleAbstractCurry","_case_2") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","callFrontendWithParams") [Comb ConsCall ("Distribution","UACY") [],Var 3,Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","done") [Var 1]])]])),Func ("OracleAbstractCurry","_case_3") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","callFrontendWithParams") [Comb ConsCall ("Distribution","ACY") [],Var 3,Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","done") [Var 1]])]]))] []
+ Curry/Module/OracleAbstractCurry.fint view
@@ -0,0 +1,1 @@+Prog "OracleAbstractCurry" ["CEventOracle","Oracle","IOExts","AbstractCurry","Directory","Distribution","FileGoodies","Prelude","ReadShowTerm","OracleDirectory","OracleDistribution","OracleFileGoodies","OraclePrelude","OracleReadShowTerm"] [] [Func ("OracleAbstractCurry","readCurry") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurry","readCurryWithParseOptions") [Var 2,Comb FuncCall ("OracleDistribution","setQuiet") [Comb ConsCall ("Prelude","True") [],Comb FuncCall ("OracleDistribution","defaultParams") [Var 1],Var 3],Var 4]]))),Func ("OracleAbstractCurry","readUntypedCurry") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurry","readUntypedCurryWithParseOptions") [Var 2,Comb FuncCall ("OracleDistribution","setQuiet") [Comb ConsCall ("Prelude","True") [],Comb FuncCall ("OracleDistribution","defaultParams") [Var 1],Var 3],Var 4]]))),Func ("OracleAbstractCurry","readCurryWithParseOptions") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Comb FuncCall ("OraclePrelude","++") [Var 2,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","[]") []]]]]]],Var 1],Var 4],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurry","readCurryWithParseOptions._#lambda2") [Var 3,Var 2]],Var 5]]))),Func ("OracleAbstractCurry","readCurryWithParseOptions._#lambda2") 4 Private (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Comb FuncCall ("OraclePrelude","++") [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","[]") []]]]]]]],Var 1],Var 5],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurry","readCurryWithParseOptions._#lambda2._#lambda3") [Var 4,Var 2,Var 3]],Var 6]]))),Func ("OracleAbstractCurry","readCurryWithParseOptions._#lambda2._#lambda3") 5 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []])))))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleAbstractCurry","_case_3") [Var 2,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","||") [Var 2,Var 5,Var 1],Var 6],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","findFileInLoadPath") [Comb FuncCall ("OraclePrelude","++") [Var 4,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","[]") []]]]],Var 7],Var 8],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurry","readCurryWithParseOptions._#lambda2._#lambda3._#lambda4") []],Var 9],Var 10]]))),Func ("OracleAbstractCurry","readCurryWithParseOptions._#lambda2._#lambda3._#lambda4") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurry","readAbstractCurryFile") [Var 2,Var 1]])),Func ("OracleAbstractCurry","readUntypedCurryWithParseOptions") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Comb FuncCall ("OraclePrelude","++") [Var 2,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","[]") []]]]]]],Var 1],Var 4],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurry","readUntypedCurryWithParseOptions._#lambda5") [Var 3,Var 2]],Var 5]]))),Func ("OracleAbstractCurry","readUntypedCurryWithParseOptions._#lambda5") 4 Private (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Comb FuncCall ("OraclePrelude","++") [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","[]") []]]]]]]],Var 1],Var 5],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurry","readUntypedCurryWithParseOptions._#lambda5._#lambda6") [Var 4,Var 2,Var 3]],Var 6]]))),Func ("OracleAbstractCurry","readUntypedCurryWithParseOptions._#lambda5._#lambda6") 5 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []])))))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleAbstractCurry","_case_2") [Var 2,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","||") [Var 2,Var 5,Var 1],Var 6],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","findFileInLoadPath") [Comb FuncCall ("OraclePrelude","++") [Var 4,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","[]") []]]]]],Var 7],Var 8],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurry","readUntypedCurryWithParseOptions._#lambda5._#lambda6._#lambda7") []],Var 9],Var 10]]))),Func ("OracleAbstractCurry","readUntypedCurryWithParseOptions._#lambda5._#lambda6._#lambda7") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurry","readAbstractCurryFile") [Var 2,Var 1]])),Func ("OracleAbstractCurry","abstractCurryFileName") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleDistribution","inCurrySubdir") [Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFileGoodies","stripSuffix") [Var 1],Var 2,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","[]") []]]]],Var 4],Var 5]]))),Func ("OracleAbstractCurry","untypedAbstractCurryFileName") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleDistribution","inCurrySubdir") [Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFileGoodies","stripSuffix") [Var 1],Var 2,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","[]") []]]]]],Var 4],Var 5]]))),Func ("OracleAbstractCurry","readAbstractCurryFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("AbstractCurry","CurryProg") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurry","readAbstractCurryFile._#lambda9") [Var 2]],Var 3]]))),Func ("OracleAbstractCurry","readAbstractCurryFile.readExistingACY.21") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurry","readAbstractCurryFile.readExistingACY.21._#lambda8") []],Var 3]]))),Func ("OracleAbstractCurry","readAbstractCurryFile.readExistingACY.21._#lambda8") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 1]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OracleReadShowTerm","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 2,Var 1],Var 3]]))),Func ("OracleAbstractCurry","readAbstractCurryFile._#lambda9") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 2])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurry","_case_1") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurry","readAbstractCurryFile._#lambda9._#lambda10") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 3]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurry","_case_0") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleAbstractCurry","writeAbstractCurryFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("AbstractCurry","CurryProg") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","writeFile") [Var 2,Comb FuncCall ("OracleReadShowTerm","showTerm") [Var 3,Var 1],Var 4]]))),Func ("OracleAbstractCurry","_case_0") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurry","readAbstractCurryFile.readExistingACY.21") [Var 3,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 2,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","[]") []]]]]]]]]]]]]]]]],Var 1],Var 5],Var 6]]))]])),Func ("OracleAbstractCurry","_case_1") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurry","readAbstractCurryFile.readExistingACY.21") [Var 2,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleDistribution","inCurrySubdir") [Var 2,Var 1])] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Var 4,Var 5],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurry","readAbstractCurryFile._#lambda9._#lambda10") [Var 2,Var 4]],Var 6]]))]))]])),Func ("OracleAbstractCurry","_case_2") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","callFrontendWithParams") [Comb ConsCall ("Distribution","UACY") [],Var 3,Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","done") [Var 1]])]])),Func ("OracleAbstractCurry","_case_3") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","callFrontendWithParams") [Comb ConsCall ("Distribution","ACY") [],Var 3,Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","done") [Var 1]])]]))] []
+ Curry/Module/OracleAbstractCurryPrinter.fcy view
@@ -0,0 +1,1 @@+Prog "OracleAbstractCurryPrinter" ["CEventOracle","Oracle","IOExts","AbstractCurryPrinter","AbstractCurry","Char","FiniteMap","List","Maybe","Prelude","Sort","Read","OracleAbstractCurry","OracleChar","OracleFiniteMap","OracleList","OracleMaybe","OraclePrelude","OracleSort","OracleRead"] [TypeSyn ("OracleAbstractCurryPrinter","NameFM") Private [] (TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []]),TypeSyn ("OracleAbstractCurryPrinter","Options") Private [] (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])] [Func ("OracleAbstractCurryPrinter","showProg") 2 Public (FuncType (TCons ("AbstractCurry","CurryProg") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_289") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","defaultOptions") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleFiniteMap","emptyFM") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleAbstractCurryPrinter","lessString") []],Var 1],Comb ConsCall ("Prelude","[]") []]])),Func ("OracleAbstractCurryPrinter","showExports") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []]) (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CFuncDecl") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showExports.isPublicType.9") []],Var 2,Var 1])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleList","partition") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showExports.allPublicCons.9") []],Var 4,Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleAbstractCurryPrinter","showExports._#selFP3#withCons") [Var 5,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleAbstractCurryPrinter","showExports._#selFP4#withoutCons") [Var 5,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","++") []],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 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showExports.getTypeName.9") []],Var 11],Var 6,Var 12],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showExports.getTypeName.9") []],Var 7,Var 13],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showExports.getFuncName.9") []],Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showExports.isPublicFunc.9") []],Var 3,Var 14],Var 15],Var 16],Var 17],Var 18],Var 19]]))]))]))]))]))),Func ("OracleAbstractCurryPrinter","showExports.isPublicType.9") 2 Private (FuncType (TCons ("AbstractCurry","CTypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_287") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showExports.isPublicFunc.9") 2 Private (FuncType (TCons ("AbstractCurry","CFuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_286") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showExports.getTypeName.9") 2 Private (FuncType (TCons ("AbstractCurry","CTypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_285") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showExports.allPublicCons.9") 2 Private (FuncType (TCons ("AbstractCurry","CTypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_282") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showExports.allPublicCons.9.isPublicCons.49") 2 Private (FuncType (TCons ("AbstractCurry","CConsDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_281") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showExports.getFuncName.9") 2 Private (FuncType (TCons ("AbstractCurry","CFuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_280") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showExports._#selFP3#withCons") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []],TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_277") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showExports._#selFP4#withoutCons") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []],TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_276") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showImports") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","prefixInter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showImport") []],Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],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 2,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 3],Comb FuncCall ("OracleAbstractCurryPrinter","_case_275") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,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 4],Var 5],Var 6]]))),Func ("OracleAbstractCurryPrinter","showImport") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_274") [Var 2,Comb FuncCall ("OraclePrelude","/=") [Var 2,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],Var 3]]))),Func ("OracleAbstractCurryPrinter","showOpDecls") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","COpDecl") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","prefixInter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showOpDecl") []],Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","_case_273") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 3],Var 4],Var 5]]))),Func ("OracleAbstractCurryPrinter","showOpDecl") 2 Private (FuncType (TCons ("AbstractCurry","COpDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_272") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showFixity") 2 Private (FuncType (TCons ("AbstractCurry","CFixity") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_269") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showTypeDecls") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","prefixInter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showTypeDecl") []],Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]],Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","_case_268") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 3],Var 4],Var 5]]))),Func ("OracleAbstractCurryPrinter","showTypeDecl") 2 Public (FuncType (TCons ("AbstractCurry","CTypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_267") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showConsDecl") 2 Private (FuncType (TCons ("AbstractCurry","CConsDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_264") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showTypeExpr") 3 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("AbstractCurry","CTypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_262") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showTypeVar") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_257") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showIdentifier") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","not") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","elem") []],Comb ConsCall ("Prelude",":") [Lit (Charc '<'),Comb ConsCall ("Prelude",":") [Lit (Charc '>'),Comb ConsCall ("Prelude","[]") []]]]],Var 1]]]])),Func ("OracleAbstractCurryPrinter","isCFuncType") 2 Private (FuncType (TCons ("AbstractCurry","CTypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_255") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showFuncDecl") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("AbstractCurry","CFuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showFuncDeclOpt") [Comb FuncCall ("OracleAbstractCurryPrinter","defaultOptions") [Var 1]]]])),Func ("OracleAbstractCurryPrinter","showFuncDeclOpt") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CFuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_254") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showCmtFunc") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("AbstractCurry","CFuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_253") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleAbstractCurryPrinter","showCmtFunc.insertName.139") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_245") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","funcComment") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","unlines") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [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 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","lines") []],Var 1],Var 2]]))),Func ("OracleAbstractCurryPrinter","showLocalFuncDecl") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("AbstractCurry","CFuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showFuncDeclOpt") [Var 2]]])),Func ("OracleAbstractCurryPrinter","showRule") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CRule") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_244") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showEvalAnnot") 2 Private (FuncType (TCons ("AbstractCurry","CEvalAnnot") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_242") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showCrhsList") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("AbstractCurry","CExpr") [],TCons ("AbstractCurry","CExpr") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_241") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showCrhs") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","(,)") [TCons ("AbstractCurry","CExpr") [],TCons ("AbstractCurry","CExpr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_237") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showLocalDecl") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CLocalDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_236") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showExpr") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showExprOpt") [Comb FuncCall ("OracleAbstractCurryPrinter","defaultOptions") [Var 1]]]])),Func ("OracleAbstractCurryPrinter","showExprOpt") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_234") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showSymbol") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","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 ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_231") [Var 3,Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showLambdaOrSection") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CPattern") []]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_226") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showLambda") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CPattern") []]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showPattern") []],Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 4,Var 5],Var 6],Var 7],Var 8]]))),Func ("OracleAbstractCurryPrinter","showStatement") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CStatement") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_199") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showPattern") 2 Public (FuncType (TCons ("AbstractCurry","CPattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_196") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showPreludeCons") 2 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(3,Var 2)] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleAbstractCurryPrinter","showPreludeCons._#selFP6#name") [Var 3,Var 1])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleAbstractCurryPrinter","showPreludeCons._#selFP7#pattlist") [Var 3,Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_189") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Var 7],Var 8]]))]))]))])),Func ("OracleAbstractCurryPrinter","showPreludeCons._#selFP6#name") 2 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_186") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showPreludeCons._#selFP7#pattlist") 2 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("AbstractCurry","CPattern") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_184") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showPatternList") 2 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_182") [Var 2,Comb FuncCall ("OracleAbstractCurryPrinter","isClosedStringPattern") [Var 2,Var 1],Var 3]]))),Func ("OracleAbstractCurryPrinter","showPatListElems") 2 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_178") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","isClosedPatternList") 2 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_151") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","isClosedStringPattern") 2 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_124") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","isCharPattern") 2 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_97") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","isAsPattern") 2 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_95") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showAsPatternList") 2 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_94") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showBranchExpr") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CBranchExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_92") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showLiteral") 2 Private (FuncType (TCons ("AbstractCurry","CLiteral") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_91") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showCCharc") 2 Private (FuncType (TCons ("AbstractCurry","CLiteral") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_90") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showBlock") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [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 ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","/=") [Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","lines") [Var 2,Var 1],Var 3],Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 5]]))),Func ("OracleAbstractCurryPrinter","showTypeCons") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeExpr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_84") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleAbstractCurryPrinter","showPreludeTypeCons") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeExpr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_81") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]],Var 1],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","head") [Var 3,Var 4],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","[]") []],Var 5],Var 6],Var 7]]))),Func ("OracleAbstractCurryPrinter","showApplication") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_77") [Var 2,Var 3,Comb FuncCall ("OracleAbstractCurryPrinter","applicationHead") [Var 3,Var 1],Var 4]]))),Func ("OracleAbstractCurryPrinter","applicationHead") 2 Private (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("AbstractCurry","CExpr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_76") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showSymbolApplication") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_75") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showListApplication") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_70") [Var 2,Var 3,Comb FuncCall ("OracleAbstractCurryPrinter","isStringList") [Var 3,Var 1],Var 4]]))),Func ("OracleAbstractCurryPrinter","showCharListApplication") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_67") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showConsListApplication") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_63") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showSimpleListApplication") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_60") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showInfixApplication") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_56") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleAbstractCurryPrinter","showITEApplication") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_54") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showTupleApplication") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showTupleApplication.p_showTuple.386") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 4],Var 5]]))),Func ("OracleAbstractCurryPrinter","showTupleApplication.p_showTuple.386") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_50") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showSimpleApplication") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_48") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showBoxedExpr") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_47") [Var 2,Var 3,Comb FuncCall ("OracleAbstractCurryPrinter","isSimpleExpr") [Var 3,Var 1],Var 4]]))),Func ("OracleAbstractCurryPrinter","prefixMap") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [Var 4]],Var 1],Comb FuncCall ("OraclePrelude","map") [Var 2,Var 3,Var 5],Var 6]]))),Func ("OracleAbstractCurryPrinter","prefixInter") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","concat") []],Comb FuncCall ("OracleList","intersperse") [Var 4,Comb FuncCall ("OraclePrelude","map") [Var 2,Var 3,Var 1],Var 5],Var 6]]))),Func ("OracleAbstractCurryPrinter","combineMap") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_45") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","dropTags") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_44") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","isInfixOpName") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Bool") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","all") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","elem") []],Comb FuncCall ("OracleAbstractCurryPrinter","infixIDs") [Var 1]]],Var 2]]))),Func ("OracleAbstractCurryPrinter","isStringList") 2 Private (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_41") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","isClosedList") 2 Private (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_36") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","isSimpleExpr") 2 Private (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_31") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","isAtom") 2 Private (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_12") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","isUntyped") 2 Private (FuncType (TCons ("AbstractCurry","CTypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_10") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","isTuple") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_7") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","isTuple.p1_isTuple.492") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_6") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","infixIDs") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleAbstractCurryPrinter","maybeShowBrackets") 3 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","_case_4") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","++") [Var 3,Comb FuncCall ("OracleAbstractCurryPrinter","_case_3") [Var 2,Var 4],Var 5],Var 6]]))),Func ("OracleAbstractCurryPrinter","nameFM") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CFuncDecl") []]) (TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleAbstractCurryPrinter","addName") []],Comb FuncCall ("OracleFiniteMap","emptyFM") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleAbstractCurryPrinter","lessString") []],Var 1]]]])),Func ("OracleAbstractCurryPrinter","addName") 3 Private (FuncType (TCons ("AbstractCurry","CFuncDecl") []) (FuncType (TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_2") [Var 3,Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","lessString") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","==") [Comb ConsCall ("Prelude","LT") [],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSort","cmpString") [Var 1],Var 2,Var 4],Var 3,Var 5],Var 6]]))),Func ("OracleAbstractCurryPrinter","_case_2") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CFunc") [4,5,6,7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_1") [Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CmtFunc") [11,12,13,14,15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_0") [Var 3,Var 12,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_0") 3 Private (TVar (-42)) (Rule [3,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude","(,)") [17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","addToFM") [Var 3,Var 18,Comb ConsCall ("Prelude","()") [],Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_1") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","addToFM") [Var 3,Var 10,Comb ConsCall ("Prelude","()") [],Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleAbstractCurryPrinter","_case_4") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleAbstractCurryPrinter","_case_6") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_5") [Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_5") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc ')'),Var 1]]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc ','),Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","isTuple.p1_isTuple.492") [Comb ConsCall ("Prelude",":") [Var 5,Var 6],Var 7],Var 8]]))]])),Func ("OracleAbstractCurryPrinter","_case_7") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '('),Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","isTuple.p1_isTuple.492") [Var 4,Var 5],Var 6]]))]])),Func ("OracleAbstractCurryPrinter","_case_10") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("AbstractCurry","CTCons") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_9") [Var 4,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CTVar") [9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CFuncType") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_9") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_8") [Var 5,Var 6,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_8") 4 Private (TVar (-42)) (Rule [5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 5,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 FuncCall ("OraclePrelude","==") [Var 6,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","[]") []]]]]]]],Var 9],Var 10]])),Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_12") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("AbstractCurry","CVar") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("AbstractCurry","CLit") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("AbstractCurry","CSymbol") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_11") [Var 5,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLambda") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLetDecl") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CDoExpr") [14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CListComp") [15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CCase") [17,18]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_11") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","(,)") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","not") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 7,Var 8],Var 9]]))]])),Func ("OracleAbstractCurryPrinter","_case_31") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("AbstractCurry","CVar") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("AbstractCurry","CLit") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("AbstractCurry","CSymbol") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_30") [Var 5,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [8,9]) (Let [(51,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 51,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_29") [Var 8,Comb FuncCall ("OracleAbstractCurryPrinter","applicationHead") [Var 8,Var 1],Var 51]])),Branch (Pattern ("AbstractCurry","CLambda") [42,43]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLetDecl") [44,45]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CDoExpr") [46]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CListComp") [47,48]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CCase") [49,50]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_29") 3 Private (TVar (-42)) (Rule [8,42,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 42) [Branch (Pattern ("AbstractCurry","CSymbol") [10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_28") [Var 10,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [29]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLit") [30]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CApply") [31,32]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLambda") [33,34]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLetDecl") [35,36]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CDoExpr") [37]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CListComp") [38,39]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CCase") [40,41]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_28") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","(,)") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_27") [Var 12,Var 11,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_27") 3 Private (TVar (-42)) (Rule [12,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude",":") [13,14]) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_26") [Var 12,Var 13,Var 14,Comb FuncCall ("OraclePrelude","==") [Var 13,Lit (Charc 'P'),Var 1],Var 15]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_26") 5 Private (TVar (-42)) (Rule [12,13,14,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 15) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_25") [Var 12,Var 14,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_25") 3 Private (TVar (-42)) (Rule [12,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_24") [Var 12,Var 15,Var 16,Comb FuncCall ("OraclePrelude","==") [Var 15,Lit (Charc 'r'),Var 1],Var 17]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_24") 5 Private (TVar (-42)) (Rule [12,15,16,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_23") [Var 12,Var 16,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_23") 3 Private (TVar (-42)) (Rule [12,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_22") [Var 12,Var 17,Var 18,Comb FuncCall ("OraclePrelude","==") [Var 17,Lit (Charc 'e'),Var 1],Var 19]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_22") 5 Private (TVar (-42)) (Rule [12,17,18,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 19) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_21") [Var 12,Var 18,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_21") 3 Private (TVar (-42)) (Rule [12,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_20") [Var 12,Var 19,Var 20,Comb FuncCall ("OraclePrelude","==") [Var 19,Lit (Charc 'l'),Var 1],Var 21]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_20") 5 Private (TVar (-42)) (Rule [12,19,20,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 21) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_19") [Var 12,Var 20,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_19") 3 Private (TVar (-42)) (Rule [12,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 20) [Branch (Pattern ("Prelude",":") [21,22]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_18") [Var 12,Var 21,Var 22,Comb FuncCall ("OraclePrelude","==") [Var 21,Lit (Charc 'u'),Var 1],Var 23]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_18") 5 Private (TVar (-42)) (Rule [12,21,22,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_17") [Var 12,Var 22,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_17") 3 Private (TVar (-42)) (Rule [12,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 22) [Branch (Pattern ("Prelude",":") [23,24]) (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_16") [Var 12,Var 23,Var 24,Comb FuncCall ("OraclePrelude","==") [Var 23,Lit (Charc 'd'),Var 1],Var 25]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_16") 5 Private (TVar (-42)) (Rule [12,23,24,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 25) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_15") [Var 12,Var 24,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_15") 3 Private (TVar (-42)) (Rule [12,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_14") [Var 12,Var 25,Var 26,Comb FuncCall ("OraclePrelude","==") [Var 25,Lit (Charc 'e'),Var 1],Var 27]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_14") 5 Private (TVar (-42)) (Rule [12,25,26,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 27) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_13") [Var 12,Var 26,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_13") 3 Private (TVar (-42)) (Rule [12,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 26) [Branch (Pattern ("Prelude","[]") []) (Let [(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 12,Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Var 1],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 12,Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]],Var 29],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 12,Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []]],Var 30],Comb FuncCall ("OracleAbstractCurryPrinter","isTuple") [Var 12,Var 31],Var 32],Var 33],Var 34]])),Branch (Pattern ("Prelude",":") [27,28]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_30") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","(,)") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","not") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 7,Var 8],Var 9]]))]])),Func ("OracleAbstractCurryPrinter","_case_36") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("AbstractCurry","CApply") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_35") [Var 4,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [35]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_32") [Var 35,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [38]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLit") [39]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLambda") [40,41]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLetDecl") [42,43]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CDoExpr") [44]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CListComp") [45,46]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CCase") [47,48]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_32") 2 Private (TVar (-42)) (Rule [35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 35) [Branch (Pattern ("Prelude","(,)") [36,37]) (Let [(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 36,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 FuncCall ("OraclePrelude","==") [Var 37,Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]],Var 38],Var 39]]))]])),Func ("OracleAbstractCurryPrinter","_case_35") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("AbstractCurry","CApply") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_34") [Var 4,Var 5,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [23]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLit") [24]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CSymbol") [25]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLambda") [26,27]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLetDecl") [28,29]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CDoExpr") [30]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CListComp") [31,32]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CCase") [33,34]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_34") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("AbstractCurry","CSymbol") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_33") [Var 4,Var 7,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLit") [11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CApply") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLambda") [14,15]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLetDecl") [16,17]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CDoExpr") [18]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CListComp") [19,20]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CCase") [21,22]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_33") 3 Private (TVar (-42)) (Rule [4,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","(,)") [8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [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","[]") []]]]]]]],Var 1],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 9,Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Var 10],Comb FuncCall ("OracleAbstractCurryPrinter","isClosedList") [Var 4,Var 11],Var 12],Var 13]]))]])),Func ("OracleAbstractCurryPrinter","_case_41") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CSymbol") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_40") [Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CApply") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_39") [Var 8,Var 7,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_39") 3 Private (TVar (-42)) (Rule [8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("AbstractCurry","CApply") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_38") [Var 8,Var 10,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [28]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLit") [29]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CSymbol") [30]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLambda") [31,32]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLetDecl") [33,34]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CDoExpr") [35]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CListComp") [36,37]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CCase") [38,39]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_38") 3 Private (TVar (-42)) (Rule [8,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("AbstractCurry","CLit") [11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_37") [Var 8,Var 11,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [15]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CSymbol") [16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CApply") [17,18]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLambda") [19,20]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLetDecl") [21,22]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CDoExpr") [23]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CListComp") [24,25]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CCase") [26,27]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_37") 3 Private (TVar (-42)) (Rule [8,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("AbstractCurry","CCharc") [12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","isStringList") [Var 8,Var 1]]),Branch (Pattern ("AbstractCurry","CIntc") [13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CFloatc") [14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_40") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [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","[]") []]]]]]]],Var 1],Comb FuncCall ("OraclePrelude","==") [Var 5,Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]],Var 6],Var 7]]))]])),Func ("OracleAbstractCurryPrinter","_case_44") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_43") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '"'),Var 1],Var 5]]))]])),Func ("OracleAbstractCurryPrinter","_case_43") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","dropTags") []],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","tail") []],Comb FuncCall ("OraclePrelude","dropWhile") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Lit (Charc '"')]],Var 4,Var 1],Var 6],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_42") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '>'),Var 1],Var 8]]))]])),Func ("OracleAbstractCurryPrinter","_case_42") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","dropTags") [Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_45") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","prefixMap") [Var 2,Var 6,Var 4,Var 7],Var 8]]))]])),Func ("OracleAbstractCurryPrinter","_case_47") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 3,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_46") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 5]]))]])),Func ("OracleAbstractCurryPrinter","_case_46") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 5],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_48") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("AbstractCurry","CApply") [4,5]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSimpleApplication") [Var 2,Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 5,Var 18],Var 19],Var 20]])),Branch (Pattern ("AbstractCurry","CVar") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CLit") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 3,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_50") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CApply") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_49") [Var 2,Var 5,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_49") 4 Private (TVar (-42)) (Rule [2,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("AbstractCurry","CSymbol") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 5,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showTupleApplication.p_showTuple.386") [Var 2,Comb ConsCall ("AbstractCurry","CApply") [Var 7,Var 8],Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 5,Var 9],Var 10],Var 11]]))]])),Func ("OracleAbstractCurryPrinter","_case_54") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CApply") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_53") [Var 2,Var 5,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_53") 4 Private (TVar (-42)) (Rule [2,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("AbstractCurry","CApply") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_52") [Var 2,Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_52") 6 Private (TVar (-42)) (Rule [2,4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("AbstractCurry","CApply") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_51") [Var 2,Var 4,Var 5,Var 7,Var 9,Var 8,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_51") 7 Private (TVar (-42)) (Rule [2,4,5,7,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("AbstractCurry","CSymbol") [10]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 9,Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 7,Var 13],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 5,Var 14],Var 15],Var 16],Var 17],Var 18],Var 19]])),Branch (Pattern ("AbstractCurry","CApply") [11,12]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showITEApplication") [Var 2,Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 5,Var 20],Var 21],Var 22],Var 23]]))]])),Func ("OracleAbstractCurryPrinter","_case_56") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("AbstractCurry","CApply") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_55") [Var 2,Var 3,Var 6,Var 5,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_55") 5 Private (TVar (-42)) (Rule [2,3,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("AbstractCurry","CApply") [7,8]) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 8,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSymbol") [Var 2,Var 3,Var 21],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 6,Var 22],Var 23],Var 24],Var 25],Var 26]])),Branch (Pattern ("AbstractCurry","CVar") [9]) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSymbol") [Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 6,Var 27],Var 28],Var 29],Var 30]])),Branch (Pattern ("AbstractCurry","CLit") [10]) (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSymbol") [Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 6,Var 31],Var 32],Var 33],Var 34]])),Branch (Pattern ("AbstractCurry","CSymbol") [11]) (Let [(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSymbol") [Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 6,Var 35],Var 36],Var 37],Var 38]])),Branch (Pattern ("AbstractCurry","CLambda") [12,13]) (Let [(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSymbol") [Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 6,Var 39],Var 40],Var 41],Var 42]])),Branch (Pattern ("AbstractCurry","CLetDecl") [14,15]) (Let [(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(44,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(45,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(46,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude",":") [Var 44,Comb ConsCall ("Prelude",":") [Var 45,Comb ConsCall ("Prelude",":") [Var 46,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSymbol") [Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 6,Var 43],Var 44],Var 45],Var 46]])),Branch (Pattern ("AbstractCurry","CDoExpr") [16]) (Let [(47,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(48,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(49,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(50,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 47,Comb ConsCall ("Prelude",":") [Var 48,Comb ConsCall ("Prelude",":") [Var 49,Comb ConsCall ("Prelude",":") [Var 50,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSymbol") [Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 6,Var 47],Var 48],Var 49],Var 50]])),Branch (Pattern ("AbstractCurry","CListComp") [17,18]) (Let [(51,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(52,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(53,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(54,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 51,Comb ConsCall ("Prelude",":") [Var 52,Comb ConsCall ("Prelude",":") [Var 53,Comb ConsCall ("Prelude",":") [Var 54,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSymbol") [Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 6,Var 51],Var 52],Var 53],Var 54]])),Branch (Pattern ("AbstractCurry","CCase") [19,20]) (Let [(55,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(56,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(57,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(58,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 55,Comb ConsCall ("Prelude",":") [Var 56,Comb ConsCall ("Prelude",":") [Var 57,Comb ConsCall ("Prelude",":") [Var 58,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSymbol") [Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 6,Var 55],Var 56],Var 57],Var 58]]))]])),Func ("OracleAbstractCurryPrinter","_case_60") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CApply") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_59") [Var 2,Var 5,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_59") 4 Private (TVar (-42)) (Rule [2,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("AbstractCurry","CApply") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_58") [Var 2,Var 7,Var 5,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_57") [Var 2,Var 5,Var 22,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_57") 4 Private (TVar (-42)) (Rule [2,5,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude","(,)") [23,24]) (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 5,Var 1],Var 24,Var 25]]))]])),Func ("OracleAbstractCurryPrinter","_case_58") 4 Private (TVar (-42)) (Rule [2,7,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("AbstractCurry","CSymbol") [8]) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]]],Var 22]])),Branch (Pattern ("AbstractCurry","CVar") [9]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 5,Var 23],Var 24],Var 25]])),Branch (Pattern ("AbstractCurry","CLit") [10]) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 5,Var 26],Var 27],Var 28]])),Branch (Pattern ("AbstractCurry","CApply") [11,12]) (Let [(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 5,Var 29],Var 30],Var 31]])),Branch (Pattern ("AbstractCurry","CLambda") [13,14]) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 5,Var 32],Var 33],Var 34]])),Branch (Pattern ("AbstractCurry","CLetDecl") [15,16]) (Let [(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 5,Var 35],Var 36],Var 37]])),Branch (Pattern ("AbstractCurry","CDoExpr") [17]) (Let [(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 5,Var 38],Var 39],Var 40]])),Branch (Pattern ("AbstractCurry","CListComp") [18,19]) (Let [(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 5,Var 41],Var 42],Var 43]])),Branch (Pattern ("AbstractCurry","CCase") [20,21]) (Let [(44,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(45,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(46,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 44,Comb ConsCall ("Prelude",":") [Var 45,Comb ConsCall ("Prelude",":") [Var 46,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 5,Var 44],Var 45],Var 46]]))]])),Func ("OracleAbstractCurryPrinter","_case_63") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CApply") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_62") [Var 2,Var 5,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_62") 4 Private (TVar (-42)) (Rule [2,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("AbstractCurry","CApply") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_61") [Var 2,Var 7,Var 5,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_61") 4 Private (TVar (-42)) (Rule [2,7,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("AbstractCurry","CSymbol") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [9]) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showConsListApplication") [Var 2,Var 5,Var 22],Var 23],Var 24]])),Branch (Pattern ("AbstractCurry","CLit") [10]) (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showConsListApplication") [Var 2,Var 5,Var 25],Var 26],Var 27]])),Branch (Pattern ("AbstractCurry","CApply") [11,12]) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showConsListApplication") [Var 2,Var 5,Var 28],Var 29],Var 30]])),Branch (Pattern ("AbstractCurry","CLambda") [13,14]) (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showConsListApplication") [Var 2,Var 5,Var 31],Var 32],Var 33]])),Branch (Pattern ("AbstractCurry","CLetDecl") [15,16]) (Let [(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showConsListApplication") [Var 2,Var 5,Var 34],Var 35],Var 36]])),Branch (Pattern ("AbstractCurry","CDoExpr") [17]) (Let [(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showConsListApplication") [Var 2,Var 5,Var 37],Var 38],Var 39]])),Branch (Pattern ("AbstractCurry","CListComp") [18,19]) (Let [(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showConsListApplication") [Var 2,Var 5,Var 40],Var 41],Var 42]])),Branch (Pattern ("AbstractCurry","CCase") [20,21]) (Let [(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(44,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(45,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude",":") [Var 44,Comb ConsCall ("Prelude",":") [Var 45,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showConsListApplication") [Var 2,Var 5,Var 43],Var 44],Var 45]]))]])),Func ("OracleAbstractCurryPrinter","_case_67") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CApply") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_66") [Var 2,Var 5,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_66") 4 Private (TVar (-42)) (Rule [2,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("AbstractCurry","CApply") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_65") [Var 2,Var 5,Var 7,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_65") 4 Private (TVar (-42)) (Rule [2,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("AbstractCurry","CLit") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_64") [Var 2,Var 8,Var 5,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_64") 4 Private (TVar (-42)) (Rule [2,8,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("AbstractCurry","CSymbol") [9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showCCharc") [Var 8,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [10]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showCCharc") [Var 8,Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","showCharListApplication") [Var 2,Var 5,Var 23],Var 24]])),Branch (Pattern ("AbstractCurry","CLit") [11]) (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showCCharc") [Var 8,Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","showCharListApplication") [Var 2,Var 5,Var 25],Var 26]])),Branch (Pattern ("AbstractCurry","CApply") [12,13]) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showCCharc") [Var 8,Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","showCharListApplication") [Var 2,Var 5,Var 27],Var 28]])),Branch (Pattern ("AbstractCurry","CLambda") [14,15]) (Let [(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showCCharc") [Var 8,Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","showCharListApplication") [Var 2,Var 5,Var 29],Var 30]])),Branch (Pattern ("AbstractCurry","CLetDecl") [16,17]) (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showCCharc") [Var 8,Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","showCharListApplication") [Var 2,Var 5,Var 31],Var 32]])),Branch (Pattern ("AbstractCurry","CDoExpr") [18]) (Let [(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showCCharc") [Var 8,Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","showCharListApplication") [Var 2,Var 5,Var 33],Var 34]])),Branch (Pattern ("AbstractCurry","CListComp") [19,20]) (Let [(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showCCharc") [Var 8,Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","showCharListApplication") [Var 2,Var 5,Var 35],Var 36]])),Branch (Pattern ("AbstractCurry","CCase") [21,22]) (Let [(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showCCharc") [Var 8,Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","showCharListApplication") [Var 2,Var 5,Var 37],Var 38]]))]])),Func ("OracleAbstractCurryPrinter","_case_70") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showCharListApplication") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []],Var 5],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_69") [Var 2,Var 3,Comb FuncCall ("OracleAbstractCurryPrinter","isClosedList") [Var 3,Var 1],Var 7]]))]])),Func ("OracleAbstractCurryPrinter","_case_69") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showConsListApplication") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []],Var 5],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_68") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 7]]))]])),Func ("OracleAbstractCurryPrinter","_case_68") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSimpleListApplication") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 5],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_75") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_74") [Var 2,Var 4,Var 5,Var 6,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 5,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 FuncCall ("OraclePrelude","==") [Var 6,Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Var 7],Var 8],Var 9]]))]])),Func ("OracleAbstractCurryPrinter","_case_74") 6 Private (TVar (-42)) (Rule [2,4,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showListApplication") [Var 2,Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_73") [Var 2,Var 4,Var 5,Var 6,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 5,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 FuncCall ("OraclePrelude","==") [Var 6,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","[]") []]]]]]]]]]]]],Var 8],Var 9],Var 10]]))]])),Func ("OracleAbstractCurryPrinter","_case_73") 6 Private (TVar (-42)) (Rule [2,4,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showITEApplication") [Var 2,Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_72") [Var 2,Var 4,Var 6,Comb FuncCall ("OracleAbstractCurryPrinter","isTuple") [Var 6,Var 1],Var 8]]))]])),Func ("OracleAbstractCurryPrinter","_case_72") 5 Private (TVar (-42)) (Rule [2,4,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showTupleApplication") [Var 2,Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_71") [Var 2,Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 8]]))]])),Func ("OracleAbstractCurryPrinter","_case_71") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showSimpleApplication") [Var 2,Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_76") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("AbstractCurry","CApply") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","applicationHead") [Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CLit") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CSymbol") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CLambda") [8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CLetDecl") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CDoExpr") [12]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CListComp") [13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CCase") [15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]])),Func ("OracleAbstractCurryPrinter","_case_77") 4 Private (TVar (-42)) (Rule [2,3,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 18) [Branch (Pattern ("AbstractCurry","CSymbol") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showSymbolApplication") [Var 2,Var 4,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showSimpleApplication") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CLit") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showSimpleApplication") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showSimpleApplication") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showSimpleApplication") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showSimpleApplication") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showSimpleApplication") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showSimpleApplication") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showSimpleApplication") [Var 2,Var 3,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_81") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_80") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]],Var 1],Var 5]]))]])),Func ("OracleAbstractCurryPrinter","_case_80") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","head") [Var 3,Var 1],Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_79") [Var 2,Var 3,Comb FuncCall ("OracleAbstractCurryPrinter","isTuple") [Var 2,Var 1],Var 8]]))]])),Func ("OracleAbstractCurryPrinter","_case_79") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") []]],Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 5],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_78") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 7]]))]])),Func ("OracleAbstractCurryPrinter","_case_78") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OracleAbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","True") []]],Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 1],Var 5]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_84") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_83") [Var 2,Var 3,Var 5,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 2,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],Var 7]]))]])),Func ("OracleAbstractCurryPrinter","_case_83") 6 Private (TVar (-42)) (Rule [2,3,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showPreludeTypeCons") [Var 3,Comb ConsCall ("Prelude",":") [Var 5,Var 6],Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_82") [Var 3,Var 5,Var 6,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 8]]))]])),Func ("OracleAbstractCurryPrinter","_case_82") 5 Private (TVar (-42)) (Rule [3,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 3,Comb FuncCall ("OracleAbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","True") []]],Comb ConsCall ("Prelude",":") [Var 5,Var 6],Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 1],Var 8]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_90") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CCharc") [3]) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_89") [Var 3,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '\n'),Var 1],Var 4]]))]])),Func ("OracleAbstractCurryPrinter","_case_89") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_88") [Var 3,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '\r'),Var 1],Var 5]]))]])),Func ("OracleAbstractCurryPrinter","_case_88") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_87") [Var 3,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '\\'),Var 1],Var 5]]))]])),Func ("OracleAbstractCurryPrinter","_case_87") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_86") [Var 3,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '"'),Var 1],Var 5]]))]])),Func ("OracleAbstractCurryPrinter","_case_86") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_85") [Var 3,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 5]]))]])),Func ("OracleAbstractCurryPrinter","_case_85") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_91") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CIntc") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CFloatc") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","show") [Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCharc") [5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\''),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showCCharc") [Comb ConsCall ("AbstractCurry","CCharc") [Var 5],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '\''),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7]]))]])),Func ("OracleAbstractCurryPrinter","_case_92") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CBranch") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showPattern") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 5,Var 6],Var 7],Var 8]]))]])),Func ("OracleAbstractCurryPrinter","_case_94") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CPAs") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_93") [Var 4,Var 3,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_93") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 6,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '@'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showPatListElems") [Var 4,Var 1],Var 7],Var 8],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 9],Var 10],Var 11],Var 12]]))]])),Func ("OracleAbstractCurryPrinter","_case_95") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("AbstractCurry","CPAs") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("AbstractCurry","CPVar") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CPLit") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CPComb") [7,8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CPFuncComb") [9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_97") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("AbstractCurry","CPLit") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_96") [Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CPVar") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CPComb") [8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CPAs") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CPFuncComb") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_96") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("AbstractCurry","CCharc") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("AbstractCurry","CIntc") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CFloatc") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_124") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CPComb") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_123") [Var 4,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CPVar") [29]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_123") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_122") [Var 4,Var 6,Var 5,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_122") 4 Private (TVar (-42)) (Rule [4,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_121") [Var 4,Var 6,Var 8,Var 7,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_121") 5 Private (TVar (-42)) (Rule [4,6,8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (LPattern (Charc 'P')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_120") [Var 4,Var 6,Var 8,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_120") 4 Private (TVar (-42)) (Rule [4,6,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_119") [Var 4,Var 6,Var 10,Var 9,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_119") 5 Private (TVar (-42)) (Rule [4,6,10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_118") [Var 4,Var 6,Var 10,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_118") 4 Private (TVar (-42)) (Rule [4,6,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_117") [Var 4,Var 6,Var 12,Var 11,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_117") 5 Private (TVar (-42)) (Rule [4,6,12,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_116") [Var 4,Var 6,Var 12,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_116") 4 Private (TVar (-42)) (Rule [4,6,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_115") [Var 4,Var 6,Var 14,Var 13,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_115") 5 Private (TVar (-42)) (Rule [4,6,14,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_114") [Var 4,Var 6,Var 14,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_114") 4 Private (TVar (-42)) (Rule [4,6,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_113") [Var 4,Var 6,Var 16,Var 15,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_113") 5 Private (TVar (-42)) (Rule [4,6,16,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_112") [Var 4,Var 6,Var 16,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_112") 4 Private (TVar (-42)) (Rule [4,6,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_111") [Var 4,Var 6,Var 18,Var 17,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_111") 5 Private (TVar (-42)) (Rule [4,6,18,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_110") [Var 4,Var 6,Var 18,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_110") 4 Private (TVar (-42)) (Rule [4,6,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_109") [Var 4,Var 6,Var 20,Var 19,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_109") 5 Private (TVar (-42)) (Rule [4,6,20,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_108") [Var 4,Var 6,Var 20,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_108") 4 Private (TVar (-42)) (Rule [4,6,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_107") [Var 4,Var 6,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_107") 3 Private (TVar (-42)) (Rule [4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude",":") [21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_106") [Var 4,Var 22,Var 21,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_106") 4 Private (TVar (-42)) (Rule [4,22,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (LPattern (Charc ':')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_105") [Var 4,Var 22,Var 1]]),Branch (LPattern (Charc '[')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_101") [Var 4,Var 22,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_101") 3 Private (TVar (-42)) (Rule [4,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude",":") [27,28]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_100") [Var 4,Var 28,Var 27,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_100") 4 Private (TVar (-42)) (Rule [4,28,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (LPattern (Charc ']')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_99") [Var 4,Var 28,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_99") 3 Private (TVar (-42)) (Rule [4,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_98") [Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_98") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])]])),Func ("OracleAbstractCurryPrinter","_case_105") 3 Private (TVar (-42)) (Rule [4,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_104") [Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_104") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [23,24]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_103") [Var 23,Var 24,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_103") 3 Private (TVar (-42)) (Rule [23,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_102") [Var 23,Var 25,Var 26,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_102") 4 Private (TVar (-42)) (Rule [23,25,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (Pattern ("Prelude","[]") []) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleAbstractCurryPrinter","isCharPattern") [Var 23,Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","isClosedStringPattern") [Var 25,Var 27],Var 28]]))]])),Func ("OracleAbstractCurryPrinter","_case_151") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CPComb") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_150") [Var 4,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CPVar") [29]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CPAs") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","isClosedPatternList") [Var 31,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_150") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_149") [Var 4,Var 6,Var 5,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_149") 4 Private (TVar (-42)) (Rule [4,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_148") [Var 4,Var 6,Var 8,Var 7,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_148") 5 Private (TVar (-42)) (Rule [4,6,8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (LPattern (Charc 'P')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_147") [Var 4,Var 6,Var 8,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_147") 4 Private (TVar (-42)) (Rule [4,6,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_146") [Var 4,Var 6,Var 10,Var 9,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_146") 5 Private (TVar (-42)) (Rule [4,6,10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_145") [Var 4,Var 6,Var 10,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_145") 4 Private (TVar (-42)) (Rule [4,6,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_144") [Var 4,Var 6,Var 12,Var 11,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_144") 5 Private (TVar (-42)) (Rule [4,6,12,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_143") [Var 4,Var 6,Var 12,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_143") 4 Private (TVar (-42)) (Rule [4,6,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_142") [Var 4,Var 6,Var 14,Var 13,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_142") 5 Private (TVar (-42)) (Rule [4,6,14,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_141") [Var 4,Var 6,Var 14,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_141") 4 Private (TVar (-42)) (Rule [4,6,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_140") [Var 4,Var 6,Var 16,Var 15,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_140") 5 Private (TVar (-42)) (Rule [4,6,16,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_139") [Var 4,Var 6,Var 16,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_139") 4 Private (TVar (-42)) (Rule [4,6,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_138") [Var 4,Var 6,Var 18,Var 17,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_138") 5 Private (TVar (-42)) (Rule [4,6,18,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_137") [Var 4,Var 6,Var 18,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_137") 4 Private (TVar (-42)) (Rule [4,6,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_136") [Var 4,Var 6,Var 20,Var 19,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_136") 5 Private (TVar (-42)) (Rule [4,6,20,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_135") [Var 4,Var 6,Var 20,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_135") 4 Private (TVar (-42)) (Rule [4,6,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_134") [Var 4,Var 6,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_134") 3 Private (TVar (-42)) (Rule [4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude",":") [21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_133") [Var 4,Var 22,Var 21,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_133") 4 Private (TVar (-42)) (Rule [4,22,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (LPattern (Charc ':')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_132") [Var 4,Var 22,Var 1]]),Branch (LPattern (Charc '[')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_128") [Var 4,Var 22,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_128") 3 Private (TVar (-42)) (Rule [4,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude",":") [27,28]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_127") [Var 4,Var 28,Var 27,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_127") 4 Private (TVar (-42)) (Rule [4,28,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (LPattern (Charc ']')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_126") [Var 4,Var 28,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_126") 3 Private (TVar (-42)) (Rule [4,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_125") [Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_125") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])]])),Func ("OracleAbstractCurryPrinter","_case_132") 3 Private (TVar (-42)) (Rule [4,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_131") [Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_131") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [23,24]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_130") [Var 24,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_130") 2 Private (TVar (-42)) (Rule [24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_129") [Var 25,Var 26,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_129") 3 Private (TVar (-42)) (Rule [25,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","isClosedPatternList") [Var 25,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_178") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CPComb") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_177") [Var 4,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CPVar") [29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAbstractCurryPrinter","showPattern") [Comb ConsCall ("AbstractCurry","CPVar") [Var 29],Var 1],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("AbstractCurry","CPAs") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAbstractCurryPrinter","showPattern") [Comb ConsCall ("AbstractCurry","CPAs") [Var 30,Var 31],Var 1],Comb ConsCall ("Prelude","[]") []]])]])),Func ("OracleAbstractCurryPrinter","_case_177") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_176") [Var 4,Var 6,Var 5,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_176") 4 Private (TVar (-42)) (Rule [4,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_175") [Var 4,Var 6,Var 8,Var 7,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_175") 5 Private (TVar (-42)) (Rule [4,6,8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (LPattern (Charc 'P')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_174") [Var 4,Var 6,Var 8,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_174") 4 Private (TVar (-42)) (Rule [4,6,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_173") [Var 4,Var 6,Var 10,Var 9,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_173") 5 Private (TVar (-42)) (Rule [4,6,10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_172") [Var 4,Var 6,Var 10,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_172") 4 Private (TVar (-42)) (Rule [4,6,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_171") [Var 4,Var 6,Var 12,Var 11,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_171") 5 Private (TVar (-42)) (Rule [4,6,12,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_170") [Var 4,Var 6,Var 12,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_170") 4 Private (TVar (-42)) (Rule [4,6,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_169") [Var 4,Var 6,Var 14,Var 13,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_169") 5 Private (TVar (-42)) (Rule [4,6,14,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_168") [Var 4,Var 6,Var 14,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_168") 4 Private (TVar (-42)) (Rule [4,6,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_167") [Var 4,Var 6,Var 16,Var 15,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_167") 5 Private (TVar (-42)) (Rule [4,6,16,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_166") [Var 4,Var 6,Var 16,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_166") 4 Private (TVar (-42)) (Rule [4,6,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_165") [Var 4,Var 6,Var 18,Var 17,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_165") 5 Private (TVar (-42)) (Rule [4,6,18,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_164") [Var 4,Var 6,Var 18,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_164") 4 Private (TVar (-42)) (Rule [4,6,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_163") [Var 4,Var 6,Var 20,Var 19,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_163") 5 Private (TVar (-42)) (Rule [4,6,20,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_162") [Var 4,Var 6,Var 20,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_162") 4 Private (TVar (-42)) (Rule [4,6,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_161") [Var 4,Var 6,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_161") 3 Private (TVar (-42)) (Rule [4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude",":") [21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_160") [Var 4,Var 22,Var 21,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_160") 4 Private (TVar (-42)) (Rule [4,22,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (LPattern (Charc ':')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_159") [Var 4,Var 22,Var 1]]),Branch (LPattern (Charc '[')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_155") [Var 4,Var 22,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_155") 3 Private (TVar (-42)) (Rule [4,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude",":") [27,28]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_154") [Var 4,Var 28,Var 27,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_154") 4 Private (TVar (-42)) (Rule [4,28,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (LPattern (Charc ']')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_153") [Var 4,Var 28,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_153") 3 Private (TVar (-42)) (Rule [4,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_152") [Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_152") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleAbstractCurryPrinter","_case_159") 3 Private (TVar (-42)) (Rule [4,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_158") [Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_158") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [23,24]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_157") [Var 23,Var 24,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_157") 3 Private (TVar (-42)) (Rule [23,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_156") [Var 23,Var 25,Var 26,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_156") 4 Private (TVar (-42)) (Rule [23,25,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (Pattern ("Prelude","[]") []) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAbstractCurryPrinter","showPattern") [Var 23,Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","showPatListElems") [Var 25,Var 27]]]))]])),Func ("OracleAbstractCurryPrinter","_case_182") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Lit (Charc '\'')]],Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleAbstractCurryPrinter","showPatListElems") [Var 2,Var 1],Var 4],Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []],Var 6]]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_181") [Var 2,Comb FuncCall ("OracleAbstractCurryPrinter","isClosedPatternList") [Var 2,Var 1],Var 7]]))]])),Func ("OracleAbstractCurryPrinter","_case_181") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showPatListElems") [Var 2,Var 1],Var 4],Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_180") [Var 2,Comb FuncCall ("OracleAbstractCurryPrinter","isAsPattern") [Var 2,Var 1],Var 8]]))]])),Func ("OracleAbstractCurryPrinter","_case_180") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showAsPatternList") [Var 2,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_179") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 4]]))]])),Func ("OracleAbstractCurryPrinter","_case_179") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showPatListElems") [Var 2,Var 1],Var 4],Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_184") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CPComb") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_183") [Var 4,Var 3,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_183") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleAbstractCurryPrinter","_case_186") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CPComb") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_185") [Var 3,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_185") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleAbstractCurryPrinter","_case_189") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showPatternList") [Var 2,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_188") [Var 4,Var 5,Comb FuncCall ("OracleAbstractCurryPrinter","isTuple") [Var 4,Var 1],Var 7]]))]])),Func ("OracleAbstractCurryPrinter","_case_188") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showPattern") []],Var 5,Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 7],Var 8]])),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_187") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 9]]))]])),Func ("OracleAbstractCurryPrinter","_case_187") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 4,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showPattern") []],Var 5,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 7],Var 8],Var 9]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_196") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CPVar") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_195") [Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CPLit") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLiteral") [Var 6,Var 1]]),Branch (Pattern ("AbstractCurry","CPComb") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_194") [Var 8,Var 7,Var 1]]),Branch (Pattern ("AbstractCurry","CPAs") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_190") [Var 14,Var 13,Var 1]]),Branch (Pattern ("AbstractCurry","CPFuncComb") [17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showPattern") [Comb ConsCall ("AbstractCurry","CPComb") [Var 17,Var 18],Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_190") 3 Private (TVar (-42)) (Rule [14,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude","(,)") [15,16]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","showIdentifier") [Var 1],Var 16,Var 17],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '@'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showPattern") [Var 14,Var 18],Var 19],Var 20]]))]])),Func ("OracleAbstractCurryPrinter","_case_194") 3 Private (TVar (-42)) (Rule [8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude","(,)") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_193") [Var 9,Var 10,Var 8,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_193") 4 Private (TVar (-42)) (Rule [9,10,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 10]),Branch (Pattern ("Prelude",":") [11,12]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_192") [Var 9,Var 10,Var 11,Var 12,Comb FuncCall ("OraclePrelude","==") [Var 9,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],Var 13]]))]])),Func ("OracleAbstractCurryPrinter","_case_192") 6 Private (TVar (-42)) (Rule [9,10,11,12,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showPreludeCons") [Comb ConsCall ("AbstractCurry","CPComb") [Comb ConsCall ("Prelude","(,)") [Var 9,Var 10],Comb ConsCall ("Prelude",":") [Var 11,Var 12]],Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_191") [Var 10,Var 11,Var 12,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 14]]))]])),Func ("OracleAbstractCurryPrinter","_case_191") 5 Private (TVar (-42)) (Rule [10,11,12,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 10,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showPattern") []],Comb ConsCall ("Prelude",":") [Var 11,Var 12],Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 14],Var 15],Var 16]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_195") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","showIdentifier") [Var 1],Var 5,Var 6]]))]])),Func ("OracleAbstractCurryPrinter","_case_199") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CSExpr") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CSPat") [5,6]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showPattern") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 6,Var 8],Var 9],Var 10]])),Branch (Pattern ("AbstractCurry","CSLet") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_198") [Var 2,Var 7,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_198") 3 Private (TVar (-42)) (Rule [2,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_197") [Var 2,Var 7,Var 8,Var 9,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showBlock") [Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showLocalDecl") [Var 2]],Var 7,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 10],Var 11]]))]])),Func ("OracleAbstractCurryPrinter","_case_197") 5 Private (TVar (-42)) (Rule [2,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","[]") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showLocalDecl") [Var 2,Var 8,Var 1],Var 12]])),Branch (Pattern ("Prelude",":") [10,11]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showBlock") [Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showLocalDecl") [Var 2]],Var 7,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 13],Var 14]]))]])),Func ("OracleAbstractCurryPrinter","_case_226") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_225") [Var 2,Var 3,Var 4,Var 6,Var 5,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_225") 6 Private (TVar (-42)) (Rule [2,3,4,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("AbstractCurry","CPVar") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_224") [Var 2,Var 3,Var 4,Var 7,Var 6,Var 1]]),Branch (Pattern ("AbstractCurry","CPLit") [180]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CPComb") [181,182]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CPAs") [183,184]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CPFuncComb") [185,186]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_224") 6 Private (TVar (-42)) (Rule [2,3,4,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_223") [Var 2,Var 3,Var 7,Var 4,Var 1]]),Branch (Pattern ("Prelude",":") [178,179]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_223") 5 Private (TVar (-42)) (Rule [2,3,7,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("AbstractCurry","CApply") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_222") [Var 2,Var 3,Var 4,Var 7,Var 9,Var 8,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [166]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLit") [167]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [168]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [169,170]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [171,172]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [173]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [174,175]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [176,177]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_222") 7 Private (TVar (-42)) (Rule [2,3,4,7,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("AbstractCurry","CApply") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_221") [Var 2,Var 3,Var 4,Var 7,Var 9,Var 11,Var 10,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [154]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLit") [155]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [156]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [157,158]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [159,160]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [161]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [162,163]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [164,165]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_221") 8 Private (TVar (-42)) (Rule [2,3,4,7,9,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("AbstractCurry","CSymbol") [12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_220") [Var 2,Var 3,Var 4,Var 7,Var 9,Var 11,Var 12,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [141]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLit") [142]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [143,144]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [145,146]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [147,148]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [149]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [150,151]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [152,153]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_220") 8 Private (TVar (-42)) (Rule [2,3,4,7,9,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","(,)") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_219") [Var 2,Var 3,Var 4,Var 7,Var 11,Var 14,Var 9,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_219") 8 Private (TVar (-42)) (Rule [2,3,4,7,11,14,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("AbstractCurry","CVar") [15]) (Let [(127,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(128,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(129,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(130,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(131,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(132,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 127,Comb ConsCall ("Prelude",":") [Var 128,Comb ConsCall ("Prelude",":") [Var 129,Comb ConsCall ("Prelude",":") [Var 130,Comb ConsCall ("Prelude",":") [Var 131,Comb ConsCall ("Prelude",":") [Var 132,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_218") [Var 2,Var 3,Var 4,Var 7,Var 11,Var 14,Var 15,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 14,Var 127],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleAbstractCurryPrinter","isAtom") [Var 11,Var 128],Comb FuncCall ("OraclePrelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 15],Var 11,Var 129],Var 130],Var 131],Var 132]])),Branch (Pattern ("AbstractCurry","CLit") [16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_215") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 16,Var 11,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_213") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 31,Var 11,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [46,47]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_211") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 46,Var 47,Var 11,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [62,63]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_209") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 62,Var 63,Var 11,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [78,79]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_207") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 78,Var 79,Var 11,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [94]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_205") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 94,Var 11,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [109,110]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_203") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 109,Var 110,Var 11,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [125,126]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_201") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 125,Var 126,Var 11,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_201") 9 Private (TVar (-42)) (Rule [2,3,4,7,14,125,126,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("AbstractCurry","CVar") [127]) (Let [(141,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(142,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(143,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(144,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(145,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(146,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(147,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(148,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 141,Comb ConsCall ("Prelude",":") [Var 142,Comb ConsCall ("Prelude",":") [Var 143,Comb ConsCall ("Prelude",":") [Var 144,Comb ConsCall ("Prelude",":") [Var 145,Comb ConsCall ("Prelude",":") [Var 146,Comb ConsCall ("Prelude",":") [Var 147,Comb ConsCall ("Prelude",":") [Var 148,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_200") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 125,Var 126,Var 127,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 14,Var 141],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 7,Var 127,Var 142],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleAbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CCase") [Var 125,Var 126],Var 143],Comb FuncCall ("OraclePrelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 127],Comb ConsCall ("AbstractCurry","CCase") [Var 125,Var 126],Var 144],Var 145],Var 146],Var 147],Var 148]])),Branch (Pattern ("AbstractCurry","CLit") [128]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [129]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [130,131]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [132,133]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [134,135]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [136]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [137,138]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [139,140]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_200") 10 Private (TVar (-42)) (Rule [2,3,4,7,14,125,126,127,128,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 128) [Branch (Pattern ("Prelude","True") []) (Let [(129,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(130,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(131,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(132,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 129,Comb ConsCall ("Prelude",":") [Var 130,Comb ConsCall ("Prelude",":") [Var 131,Comb ConsCall ("Prelude",":") [Var 132,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 14,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Comb ConsCall ("AbstractCurry","CCase") [Var 125,Var 126],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 129],Var 130],Var 131],Var 132]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_203") 9 Private (TVar (-42)) (Rule [2,3,4,7,14,109,110,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("AbstractCurry","CVar") [111]) (Let [(125,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(126,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(127,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(128,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(129,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(130,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(131,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(132,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 125,Comb ConsCall ("Prelude",":") [Var 126,Comb ConsCall ("Prelude",":") [Var 127,Comb ConsCall ("Prelude",":") [Var 128,Comb ConsCall ("Prelude",":") [Var 129,Comb ConsCall ("Prelude",":") [Var 130,Comb ConsCall ("Prelude",":") [Var 131,Comb ConsCall ("Prelude",":") [Var 132,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_202") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 109,Var 110,Var 111,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 14,Var 125],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 7,Var 111,Var 126],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleAbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CListComp") [Var 109,Var 110],Var 127],Comb FuncCall ("OraclePrelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 111],Comb ConsCall ("AbstractCurry","CListComp") [Var 109,Var 110],Var 128],Var 129],Var 130],Var 131],Var 132]])),Branch (Pattern ("AbstractCurry","CLit") [112]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [113]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [114,115]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [116,117]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [118,119]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [120]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [121,122]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [123,124]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_202") 10 Private (TVar (-42)) (Rule [2,3,4,7,14,109,110,111,112,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 112) [Branch (Pattern ("Prelude","True") []) (Let [(113,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(114,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(115,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(116,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 113,Comb ConsCall ("Prelude",":") [Var 114,Comb ConsCall ("Prelude",":") [Var 115,Comb ConsCall ("Prelude",":") [Var 116,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 14,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Comb ConsCall ("AbstractCurry","CListComp") [Var 109,Var 110],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 113],Var 114],Var 115],Var 116]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_205") 8 Private (TVar (-42)) (Rule [2,3,4,7,14,94,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("AbstractCurry","CVar") [95]) (Let [(109,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(110,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(111,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(112,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(113,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(114,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(115,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(116,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 109,Comb ConsCall ("Prelude",":") [Var 110,Comb ConsCall ("Prelude",":") [Var 111,Comb ConsCall ("Prelude",":") [Var 112,Comb ConsCall ("Prelude",":") [Var 113,Comb ConsCall ("Prelude",":") [Var 114,Comb ConsCall ("Prelude",":") [Var 115,Comb ConsCall ("Prelude",":") [Var 116,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_204") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 94,Var 95,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 14,Var 109],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 7,Var 95,Var 110],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleAbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CDoExpr") [Var 94],Var 111],Comb FuncCall ("OraclePrelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 95],Comb ConsCall ("AbstractCurry","CDoExpr") [Var 94],Var 112],Var 113],Var 114],Var 115],Var 116]])),Branch (Pattern ("AbstractCurry","CLit") [96]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [97]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [98,99]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [100,101]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [102,103]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [104]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [105,106]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [107,108]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_204") 9 Private (TVar (-42)) (Rule [2,3,4,7,14,94,95,96,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 96) [Branch (Pattern ("Prelude","True") []) (Let [(97,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(98,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(99,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(100,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 97,Comb ConsCall ("Prelude",":") [Var 98,Comb ConsCall ("Prelude",":") [Var 99,Comb ConsCall ("Prelude",":") [Var 100,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 14,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Comb ConsCall ("AbstractCurry","CDoExpr") [Var 94],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 97],Var 98],Var 99],Var 100]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_207") 9 Private (TVar (-42)) (Rule [2,3,4,7,14,78,79,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("AbstractCurry","CVar") [80]) (Let [(94,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(95,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(96,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(97,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(98,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(99,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(100,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(101,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 94,Comb ConsCall ("Prelude",":") [Var 95,Comb ConsCall ("Prelude",":") [Var 96,Comb ConsCall ("Prelude",":") [Var 97,Comb ConsCall ("Prelude",":") [Var 98,Comb ConsCall ("Prelude",":") [Var 99,Comb ConsCall ("Prelude",":") [Var 100,Comb ConsCall ("Prelude",":") [Var 101,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_206") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 78,Var 79,Var 80,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 14,Var 94],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 7,Var 80,Var 95],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleAbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CLetDecl") [Var 78,Var 79],Var 96],Comb FuncCall ("OraclePrelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 80],Comb ConsCall ("AbstractCurry","CLetDecl") [Var 78,Var 79],Var 97],Var 98],Var 99],Var 100],Var 101]])),Branch (Pattern ("AbstractCurry","CLit") [81]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [82]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [83,84]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [85,86]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [87,88]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [89]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [90,91]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [92,93]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_206") 10 Private (TVar (-42)) (Rule [2,3,4,7,14,78,79,80,81,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 81) [Branch (Pattern ("Prelude","True") []) (Let [(82,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(83,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(84,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(85,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 82,Comb ConsCall ("Prelude",":") [Var 83,Comb ConsCall ("Prelude",":") [Var 84,Comb ConsCall ("Prelude",":") [Var 85,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 14,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Comb ConsCall ("AbstractCurry","CLetDecl") [Var 78,Var 79],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 82],Var 83],Var 84],Var 85]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_209") 9 Private (TVar (-42)) (Rule [2,3,4,7,14,62,63,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("AbstractCurry","CVar") [64]) (Let [(78,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(79,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(80,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(81,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(82,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(83,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(84,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(85,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 78,Comb ConsCall ("Prelude",":") [Var 79,Comb ConsCall ("Prelude",":") [Var 80,Comb ConsCall ("Prelude",":") [Var 81,Comb ConsCall ("Prelude",":") [Var 82,Comb ConsCall ("Prelude",":") [Var 83,Comb ConsCall ("Prelude",":") [Var 84,Comb ConsCall ("Prelude",":") [Var 85,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_208") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 62,Var 63,Var 64,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 14,Var 78],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 7,Var 64,Var 79],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleAbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CLambda") [Var 62,Var 63],Var 80],Comb FuncCall ("OraclePrelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 64],Comb ConsCall ("AbstractCurry","CLambda") [Var 62,Var 63],Var 81],Var 82],Var 83],Var 84],Var 85]])),Branch (Pattern ("AbstractCurry","CLit") [65]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [66]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [67,68]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [69,70]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [71,72]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [73]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [74,75]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [76,77]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_208") 10 Private (TVar (-42)) (Rule [2,3,4,7,14,62,63,64,65,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 65) [Branch (Pattern ("Prelude","True") []) (Let [(66,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(67,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(68,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(69,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 66,Comb ConsCall ("Prelude",":") [Var 67,Comb ConsCall ("Prelude",":") [Var 68,Comb ConsCall ("Prelude",":") [Var 69,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 14,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Comb ConsCall ("AbstractCurry","CLambda") [Var 62,Var 63],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 66],Var 67],Var 68],Var 69]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_211") 9 Private (TVar (-42)) (Rule [2,3,4,7,14,46,47,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("AbstractCurry","CVar") [48]) (Let [(62,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(63,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(64,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(65,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(66,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(67,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(68,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(69,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 62,Comb ConsCall ("Prelude",":") [Var 63,Comb ConsCall ("Prelude",":") [Var 64,Comb ConsCall ("Prelude",":") [Var 65,Comb ConsCall ("Prelude",":") [Var 66,Comb ConsCall ("Prelude",":") [Var 67,Comb ConsCall ("Prelude",":") [Var 68,Comb ConsCall ("Prelude",":") [Var 69,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_210") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 46,Var 47,Var 48,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 14,Var 62],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 7,Var 48,Var 63],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleAbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CApply") [Var 46,Var 47],Var 64],Comb FuncCall ("OraclePrelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 48],Comb ConsCall ("AbstractCurry","CApply") [Var 46,Var 47],Var 65],Var 66],Var 67],Var 68],Var 69]])),Branch (Pattern ("AbstractCurry","CLit") [49]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [50]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [51,52]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [53,54]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [55,56]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [57]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [58,59]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [60,61]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_210") 10 Private (TVar (-42)) (Rule [2,3,4,7,14,46,47,48,49,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 49) [Branch (Pattern ("Prelude","True") []) (Let [(50,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(51,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(52,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(53,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 50,Comb ConsCall ("Prelude",":") [Var 51,Comb ConsCall ("Prelude",":") [Var 52,Comb ConsCall ("Prelude",":") [Var 53,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 14,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Comb ConsCall ("AbstractCurry","CApply") [Var 46,Var 47],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 50],Var 51],Var 52],Var 53]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_213") 8 Private (TVar (-42)) (Rule [2,3,4,7,14,31,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("AbstractCurry","CVar") [32]) (Let [(46,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(47,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(48,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(49,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(50,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(51,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(52,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(53,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 46,Comb ConsCall ("Prelude",":") [Var 47,Comb ConsCall ("Prelude",":") [Var 48,Comb ConsCall ("Prelude",":") [Var 49,Comb ConsCall ("Prelude",":") [Var 50,Comb ConsCall ("Prelude",":") [Var 51,Comb ConsCall ("Prelude",":") [Var 52,Comb ConsCall ("Prelude",":") [Var 53,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_212") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 31,Var 32,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 14,Var 46],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 7,Var 32,Var 47],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleAbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CSymbol") [Var 31],Var 48],Comb FuncCall ("OraclePrelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 32],Comb ConsCall ("AbstractCurry","CSymbol") [Var 31],Var 49],Var 50],Var 51],Var 52],Var 53]])),Branch (Pattern ("AbstractCurry","CLit") [33]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [34]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [35,36]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [37,38]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [39,40]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [41]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [42,43]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [44,45]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_212") 9 Private (TVar (-42)) (Rule [2,3,4,7,14,31,32,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 33) [Branch (Pattern ("Prelude","True") []) (Let [(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 14,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Comb ConsCall ("AbstractCurry","CSymbol") [Var 31],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 34],Var 35],Var 36],Var 37]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_215") 8 Private (TVar (-42)) (Rule [2,3,4,7,14,16,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("AbstractCurry","CVar") [17]) (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_214") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 16,Var 17,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 14,Var 31],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 7,Var 17,Var 32],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleAbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CLit") [Var 16],Var 33],Comb FuncCall ("OraclePrelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 17],Comb ConsCall ("AbstractCurry","CLit") [Var 16],Var 34],Var 35],Var 36],Var 37],Var 38]])),Branch (Pattern ("AbstractCurry","CLit") [18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [26]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [27,28]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [29,30]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_214") 9 Private (TVar (-42)) (Rule [2,3,4,7,14,16,17,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 18) [Branch (Pattern ("Prelude","True") []) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 14,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Comb ConsCall ("AbstractCurry","CLit") [Var 16],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 19],Var 20],Var 21],Var 22]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_218") 9 Private (TVar (-42)) (Rule [2,3,4,7,11,14,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude","True") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_217") [Var 2,Var 3,Var 4,Var 7,Var 11,Var 14,Var 15,Comb FuncCall ("OraclePrelude","==") [Var 7,Var 15,Var 1],Var 17]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_217") 9 Private (TVar (-42)) (Rule [2,3,4,7,11,14,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude","True") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 11,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 14,Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 17],Var 18],Var 19],Var 20]])),Branch (Pattern ("Prelude","False") []) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_216") [Var 2,Var 3,Var 4,Var 7,Var 11,Var 14,Var 15,Comb FuncCall ("OraclePrelude","==") [Var 11,Comb ConsCall ("AbstractCurry","CVar") [Var 7],Var 1],Var 21]]))]])),Func ("OracleAbstractCurryPrinter","_case_216") 9 Private (TVar (-42)) (Rule [2,3,4,7,11,14,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude","True") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 14,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Comb ConsCall ("AbstractCurry","CVar") [Var 15],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 17],Var 18],Var 19],Var 20]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_231") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_230") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_230") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_229") [Var 4,Var 5,Var 6,Var 7,Comb FuncCall ("OraclePrelude","==") [Var 5,Var 6,Var 1],Var 8]]))]])),Func ("OracleAbstractCurryPrinter","_case_229") 6 Private (TVar (-42)) (Rule [4,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_228") [Var 4,Var 6,Var 7,Comb FuncCall ("OracleMaybe","isJust") [Comb FuncCall ("OracleFiniteMap","lookupFM") [Var 4,Var 7,Var 1],Var 9],Var 10]]))]])),Func ("OracleAbstractCurryPrinter","_case_228") 5 Private (TVar (-42)) (Rule [4,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 6,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []],Var 7,Var 1],Var 9]])),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_227") [Var 7,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 10]]))]])),Func ("OracleAbstractCurryPrinter","_case_227") 3 Private (TVar (-42)) (Rule [7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_234") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CVar") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_233") [Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLit") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLiteral") [Var 7,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [8]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_232") [Var 2,Var 8,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Comb FuncCall ("OraclePrelude","snd") [Var 8,Var 20],Var 21],Var 22]])),Branch (Pattern ("AbstractCurry","CApply") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showApplication") [Var 2,Comb ConsCall ("AbstractCurry","CApply") [Var 9,Var 10],Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambdaOrSection") [Var 2,Var 11,Var 12,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [13,14]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showBlock") [Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showLocalDecl") [Var 2]],Var 13,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 14,Var 23],Var 24],Var 25],Var 26],Var 27]])),Branch (Pattern ("AbstractCurry","CDoExpr") [15]) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showBlock") [Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showStatement") [Var 2]],Var 15,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 28],Var 29]])),Branch (Pattern ("AbstractCurry","CListComp") [16,17]) (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 16,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '|'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showStatement") [Var 2]],Var 17,Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Var 30],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []],Var 31],Var 32],Var 33],Var 34]])),Branch (Pattern ("AbstractCurry","CCase") [18,19]) (Let [(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 18,Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showBlock") [Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showBranchExpr") [Var 2]],Var 19,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 35],Var 36],Var 37],Var 38],Var 39]]))]])),Func ("OracleAbstractCurryPrinter","_case_232") 4 Private (TVar (-42)) (Rule [2,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSymbol") [Var 2,Var 8,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showSymbol") [Var 2,Var 8,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_233") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","showIdentifier") [Var 1],Var 6,Var 7]]))]])),Func ("OracleAbstractCurryPrinter","_case_236") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CLocalFunc") [4]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","showLocalFuncDecl") [Var 2,Var 1],Var 4,Var 9]])),Branch (Pattern ("AbstractCurry","CLocalPat") [5,6,7]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showPattern") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 6,Var 10],Comb FuncCall ("OracleAbstractCurryPrinter","_case_235") [Var 2,Var 7,Comb FuncCall ("OraclePrelude","null") [Var 7,Var 11],Var 12],Var 13],Var 14],Var 15]])),Branch (Pattern ("AbstractCurry","CLocalVar") [8]) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showPattern") [Comb ConsCall ("AbstractCurry","CPVar") [Var 8],Var 1],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","[]") []]]]]],Var 16]]))]])),Func ("OracleAbstractCurryPrinter","_case_235") 4 Private (TVar (-42)) (Rule [2,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showBlock") [Comb FuncCall ("OracleAbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showLocalDecl") [Var 2]],Var 7,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 9],Var 10]]))]])),Func ("OracleAbstractCurryPrinter","_case_237") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '|'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 5,Var 6],Var 7],Var 8],Var 9]]))]])),Func ("OracleAbstractCurryPrinter","_case_241") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_240") [Var 2,Var 5,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_240") 4 Private (TVar (-42)) (Rule [2,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_239") [Var 2,Var 5,Var 6,Var 7,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 5,Comb ConsCall ("Prelude","[]") [],Var 1],Comb FuncCall ("OraclePrelude","==") [Var 6,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","[]") []]]]]]]]]],Var 8],Var 9],Var 10]]))]])),Func ("OracleAbstractCurryPrinter","_case_239") 6 Private (TVar (-42)) (Rule [2,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 7,Var 1],Var 9]])),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_238") [Var 2,Var 5,Var 6,Var 7,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 10]]))]])),Func ("OracleAbstractCurryPrinter","_case_238") 6 Private (TVar (-42)) (Rule [2,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBlock") [Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showCrhs") [Var 2]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 6,Var 7],Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 9],Var 10]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_242") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CFlex") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleAbstractCurryPrinter","_case_244") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CRule") [4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showPattern") []],Var 4,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showCrhsList") [Var 2,Var 5,Var 7],Comb FuncCall ("OracleAbstractCurryPrinter","_case_243") [Var 2,Var 6,Comb FuncCall ("OraclePrelude","null") [Var 6,Var 8],Var 9],Var 10],Var 11]]))]])),Func ("OracleAbstractCurryPrinter","_case_243") 4 Private (TVar (-42)) (Rule [2,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showBlock") [Comb FuncCall ("OracleAbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showLocalDecl") [Var 2]],Var 6,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 8],Var 9]]))]])),Func ("OracleAbstractCurryPrinter","_case_245") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 4,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 2,Var 5,Var 1],Var 6],Var 7]]))]])),Func ("OracleAbstractCurryPrinter","_case_253") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("AbstractCurry","CFunc") [5,6,7,8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_252") [Var 2,Var 3,Var 8,Var 9,Var 5,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_252") 6 Private (TVar (-42)) (Rule [2,3,8,9,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","(,)") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_251") [Var 2,Var 3,Var 8,Var 11,Var 9,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_251") 6 Private (TVar (-42)) (Rule [2,3,8,11,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("AbstractCurry","CRules") [12,13]) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]],Let [(14,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 11,Var 19])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Let [(15,Comb FuncCall ("OracleAbstractCurryPrinter","_case_247") [Var 11,Var 14,Var 20])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]]]]],Let [(16,Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","concat") []],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showCmtFunc.insertName.139") [Var 11]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","span") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Lit (Charc ' ')]]]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","tail") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showRule") [Var 2]],Var 21],Var 22],Var 23],Var 13,Var 24],Var 25],Var 26])] (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","funcComment") [Var 27],Var 3,Var 28],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","_case_250") [Var 12,Var 15,Comb FuncCall ("OraclePrelude","==") [Var 12,Comb ConsCall ("AbstractCurry","CFlex") [],Var 29],Var 30],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","_case_249") [Var 8,Var 15,Comb FuncCall ("OracleAbstractCurryPrinter","isUntyped") [Var 8,Var 31],Var 32],Comb FuncCall ("OracleAbstractCurryPrinter","_case_248") [Var 2,Var 11,Var 13,Var 16,Var 14,Var 33],Var 34],Var 35],Var 36]]))]))]))])),Branch (Pattern ("AbstractCurry","CExternal") [17]) (Let [(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude","[]") []]]],Let [(18,Comb FuncCall ("OracleAbstractCurryPrinter","_case_246") [Var 11,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 11,Var 37],Var 38])] (Let [(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(44,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(45,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(46,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(47,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude",":") [Var 44,Comb ConsCall ("Prelude",":") [Var 45,Comb ConsCall ("Prelude",":") [Var 46,Comb ConsCall ("Prelude",":") [Var 47,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","funcComment") [Var 39],Var 3,Var 40],Comb FuncCall ("OraclePrelude","++") [Var 18,Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") [],Var 8,Var 41],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 18,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","[]") []]]]]]]]]],Var 42],Var 43],Var 44],Var 45],Var 46],Var 47]]))]))]])),Func ("OracleAbstractCurryPrinter","_case_246") 3 Private (TVar (-42)) (Rule [11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 11,Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 13]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 11])]])),Func ("OracleAbstractCurryPrinter","_case_247") 3 Private (TVar (-42)) (Rule [11,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 11,Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 15]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 11])]])),Func ("OracleAbstractCurryPrinter","_case_248") 6 Private (TVar (-42)) (Rule [2,11,13,16,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 16]),Branch (Pattern ("Prelude","False") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 11,Comb FuncCall ("OracleAbstractCurryPrinter","prefixInter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showRule") [Var 2]],Var 13,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 11,Var 1],Var 17],Var 18]]))]])),Func ("OracleAbstractCurryPrinter","_case_249") 4 Private (TVar (-42)) (Rule [8,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Var 15,Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") [],Var 8,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 17],Var 18],Var 19]]))]])),Func ("OracleAbstractCurryPrinter","_case_250") 4 Private (TVar (-42)) (Rule [12,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Var 15,Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showEvalAnnot") [Var 12,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 17],Var 18],Var 19]]))]])),Func ("OracleAbstractCurryPrinter","_case_254") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CmtFunc") [4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showCmtFunc") [Var 2,Var 4,Comb ConsCall ("AbstractCurry","CFunc") [Var 5,Var 6,Var 7,Var 8,Var 9],Var 1]]),Branch (Pattern ("AbstractCurry","CFunc") [10,11,12,13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showCmtFunc") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 3,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_255") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("AbstractCurry","CFuncType") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("AbstractCurry","CTVar") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CTCons") [6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_257") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_256") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc 'a'),Var 1],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("OraclePrelude","null") [Var 4,Var 5],Var 6],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","all") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleChar","isDigit") []],Var 7],Var 4,Var 8],Var 9],Var 10],Var 11]]))]])),Func ("OracleAbstractCurryPrinter","_case_256") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc '_'),Var 4]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Var 4]])]])),Func ("OracleAbstractCurryPrinter","_case_262") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CTVar") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_261") [Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CFuncType") [7,8]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleAbstractCurryPrinter","maybeShowBrackets") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showTypeExpr") [Comb FuncCall ("OracleAbstractCurryPrinter","isCFuncType") [Var 7,Var 1],Var 7,Var 11],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") [],Var 8,Var 12],Var 13],Var 14],Var 15]])),Branch (Pattern ("AbstractCurry","CTCons") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_260") [Var 2,Var 10,Var 9,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_260") 4 Private (TVar (-42)) (Rule [2,10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude","(,)") [11,12]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_259") [Var 2,Var 10,Var 11,Var 12,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 11,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 FuncCall ("OraclePrelude","==") [Var 12,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","[]") []]]]]]]],Var 13],Var 14],Var 15]]))]])),Func ("OracleAbstractCurryPrinter","_case_259") 6 Private (TVar (-42)) (Rule [2,10,11,12,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_258") [Var 2,Var 10,Var 11,Var 12,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 14]]))]])),Func ("OracleAbstractCurryPrinter","_case_258") 6 Private (TVar (-42)) (Rule [2,10,11,12,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleAbstractCurryPrinter","maybeShowBrackets") [Comb FuncCall ("OraclePrelude","&&") [Var 2,Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("OraclePrelude","null") [Var 10,Var 1],Var 14],Var 15],Comb FuncCall ("OracleAbstractCurryPrinter","showTypeCons") [Var 11,Var 12,Var 10,Var 16],Var 17]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_261") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","showTypeVar") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","showIdentifier") [Var 1],Var 6,Var 7],Var 8]]))]])),Func ("OracleAbstractCurryPrinter","_case_264") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CCons") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_263") [Var 6,Var 3,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_263") 3 Private (TVar (-42)) (Rule [6,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 8,Comb FuncCall ("OracleAbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","True") []]],Var 6,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 1],Var 9]]))]])),Func ("OracleAbstractCurryPrinter","_case_267") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CTypeSyn") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_266") [Var 5,Var 6,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CType") [9,10,11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_265") [Var 11,Var 12,Var 9,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_265") 4 Private (TVar (-42)) (Rule [11,12,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude","(,)") [13,14]) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 14,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") []]],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("AbstractCurry","CTVar") []],Var 11,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 15],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBlock") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showConsDecl") []],Var 12,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc '|'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Var 16],Var 17],Var 18],Var 19],Var 20],Var 21],Var 22]]))]])),Func ("OracleAbstractCurryPrinter","_case_266") 4 Private (TVar (-42)) (Rule [5,6,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 8,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") []]],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("AbstractCurry","CTVar") []],Var 5,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 9],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleAbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") [],Var 6,Var 10],Var 11],Var 12],Var 13],Var 14]]))]])),Func ("OracleAbstractCurryPrinter","_case_268") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]])]])),Func ("OracleAbstractCurryPrinter","_case_269") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CInfixOp") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleAbstractCurryPrinter","_case_272") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","COp") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_271") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_271") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showFixity") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 8],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_270") [Var 7,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 9],Var 7,Var 10],Var 11],Var 12],Var 13],Var 14],Var 15]]))]])),Func ("OracleAbstractCurryPrinter","_case_270") 3 Private (TVar (-42)) (Rule [7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '`'),Comb FuncCall ("OraclePrelude","++") [Var 7,Comb ConsCall ("Prelude",":") [Lit (Charc '`'),Comb ConsCall ("Prelude","[]") []],Var 1]]])]])),Func ("OracleAbstractCurryPrinter","_case_273") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]])]])),Func ("OracleAbstractCurryPrinter","_case_274") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","++") [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 2,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleAbstractCurryPrinter","_case_275") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]])]])),Func ("OracleAbstractCurryPrinter","_case_276") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleAbstractCurryPrinter","_case_277") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleAbstractCurryPrinter","_case_280") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CFunc") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_279") [Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CmtFunc") [10,11,12,13,14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_278") [Var 11,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_278") 2 Private (TVar (-42)) (Rule [11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude","(,)") [16,17]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 17])]])),Func ("OracleAbstractCurryPrinter","_case_279") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleAbstractCurryPrinter","_case_281") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CCons") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 5,Comb ConsCall ("AbstractCurry","Public") [],Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_282") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CType") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","length") [Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showExports.allPublicCons.9.isPublicCons.49") []],Var 6,Var 1],Var 7],Comb FuncCall ("OraclePrelude","length") [Var 6,Var 8],Var 9]]))]])),Func ("OracleAbstractCurryPrinter","_case_285") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CType") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_284") [Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CTypeSyn") [9,10,11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_283") [Var 9,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_283") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude","(,)") [13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 14])]])),Func ("OracleAbstractCurryPrinter","_case_284") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [7,8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleAbstractCurryPrinter","_case_286") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CFunc") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 5,Comb ConsCall ("AbstractCurry","Public") [],Var 1]]),Branch (Pattern ("AbstractCurry","CmtFunc") [8,9,10,11,12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 11,Comb ConsCall ("AbstractCurry","Public") [],Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_287") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CType") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 4,Comb ConsCall ("AbstractCurry","Public") [],Var 1]]),Branch (Pattern ("AbstractCurry","CTypeSyn") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 8,Comb ConsCall ("AbstractCurry","Public") [],Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_289") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CurryProg") [3,4,5,6,7]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleAbstractCurryPrinter","showExports") [Var 5,Var 6,Var 1])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","_case_288") [Var 8,Comb FuncCall ("OraclePrelude","==") [Var 8,Comb ConsCall ("Prelude","[]") [],Var 9],Var 10],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showImports") [Var 4,Var 11],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showOpDecls") [Var 7,Var 12],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showTypeDecls") [Var 5,Var 13],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","prefixInter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showFuncDeclOpt") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","nameFM") [Var 14],Var 6,Var 15],Var 3]]],Var 6,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]],Var 16],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 17],Var 18],Var 19],Var 20],Var 21],Var 22],Var 23],Var 24]]))]))]])),Func ("OracleAbstractCurryPrinter","_case_288") 3 Private (TVar (-42)) (Rule [8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 8,Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 10]]))]]))] []
+ Curry/Module/OracleAbstractCurryPrinter.fint view
@@ -0,0 +1,1 @@+Prog "OracleAbstractCurryPrinter" ["CEventOracle","Oracle","IOExts","AbstractCurryPrinter","AbstractCurry","Char","FiniteMap","List","Maybe","Prelude","Sort","Read","OracleAbstractCurry","OracleChar","OracleFiniteMap","OracleList","OracleMaybe","OraclePrelude","OracleSort","OracleRead"] [TypeSyn ("OracleAbstractCurryPrinter","NameFM") Private [] (TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []]),TypeSyn ("OracleAbstractCurryPrinter","Options") Private [] (TCons ("Prelude","(,)") [TCons ("FiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])] [Func ("OracleAbstractCurryPrinter","showProg") 2 Public (FuncType (TCons ("AbstractCurry","CurryProg") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_289") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","defaultOptions") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleFiniteMap","emptyFM") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleAbstractCurryPrinter","lessString") []],Var 1],Comb ConsCall ("Prelude","[]") []]])),Func ("OracleAbstractCurryPrinter","showExports") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []]) (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CFuncDecl") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showExports.isPublicType.9") []],Var 2,Var 1])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleList","partition") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showExports.allPublicCons.9") []],Var 4,Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleAbstractCurryPrinter","showExports._#selFP3#withCons") [Var 5,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleAbstractCurryPrinter","showExports._#selFP4#withoutCons") [Var 5,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","++") []],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 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showExports.getTypeName.9") []],Var 11],Var 6,Var 12],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showExports.getTypeName.9") []],Var 7,Var 13],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showExports.getFuncName.9") []],Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showExports.isPublicFunc.9") []],Var 3,Var 14],Var 15],Var 16],Var 17],Var 18],Var 19]]))]))]))]))]))),Func ("OracleAbstractCurryPrinter","showExports.isPublicType.9") 2 Private (FuncType (TCons ("AbstractCurry","CTypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_287") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showExports.isPublicFunc.9") 2 Private (FuncType (TCons ("AbstractCurry","CFuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_286") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showExports.getTypeName.9") 2 Private (FuncType (TCons ("AbstractCurry","CTypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_285") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showExports.allPublicCons.9") 2 Private (FuncType (TCons ("AbstractCurry","CTypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_282") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showExports.allPublicCons.9.isPublicCons.49") 2 Private (FuncType (TCons ("AbstractCurry","CConsDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_281") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showExports.getFuncName.9") 2 Private (FuncType (TCons ("AbstractCurry","CFuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_280") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showExports._#selFP3#withCons") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []],TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_277") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showExports._#selFP4#withoutCons") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []],TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_276") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showImports") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","prefixInter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showImport") []],Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],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 2,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 3],Comb FuncCall ("OracleAbstractCurryPrinter","_case_275") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,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 4],Var 5],Var 6]]))),Func ("OracleAbstractCurryPrinter","showImport") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_274") [Var 2,Comb FuncCall ("OraclePrelude","/=") [Var 2,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],Var 3]]))),Func ("OracleAbstractCurryPrinter","showOpDecls") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","COpDecl") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","prefixInter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showOpDecl") []],Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","_case_273") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 3],Var 4],Var 5]]))),Func ("OracleAbstractCurryPrinter","showOpDecl") 2 Private (FuncType (TCons ("AbstractCurry","COpDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_272") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showFixity") 2 Private (FuncType (TCons ("AbstractCurry","CFixity") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_269") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showTypeDecls") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeDecl") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","prefixInter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showTypeDecl") []],Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]],Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","_case_268") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 3],Var 4],Var 5]]))),Func ("OracleAbstractCurryPrinter","showTypeDecl") 2 Public (FuncType (TCons ("AbstractCurry","CTypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_267") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showConsDecl") 2 Private (FuncType (TCons ("AbstractCurry","CConsDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_264") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showTypeExpr") 3 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("AbstractCurry","CTypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_262") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showTypeVar") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_257") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showIdentifier") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","not") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","elem") []],Comb ConsCall ("Prelude",":") [Lit (Charc '<'),Comb ConsCall ("Prelude",":") [Lit (Charc '>'),Comb ConsCall ("Prelude","[]") []]]]],Var 1]]]])),Func ("OracleAbstractCurryPrinter","isCFuncType") 2 Private (FuncType (TCons ("AbstractCurry","CTypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_255") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showFuncDecl") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("AbstractCurry","CFuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showFuncDeclOpt") [Comb FuncCall ("OracleAbstractCurryPrinter","defaultOptions") [Var 1]]]])),Func ("OracleAbstractCurryPrinter","showFuncDeclOpt") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CFuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_254") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showCmtFunc") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("AbstractCurry","CFuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_253") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleAbstractCurryPrinter","showCmtFunc.insertName.139") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_245") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","funcComment") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","unlines") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [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 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","lines") []],Var 1],Var 2]]))),Func ("OracleAbstractCurryPrinter","showLocalFuncDecl") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("AbstractCurry","CFuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showFuncDeclOpt") [Var 2]]])),Func ("OracleAbstractCurryPrinter","showRule") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CRule") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_244") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showEvalAnnot") 2 Private (FuncType (TCons ("AbstractCurry","CEvalAnnot") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_242") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showCrhsList") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("AbstractCurry","CExpr") [],TCons ("AbstractCurry","CExpr") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_241") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showCrhs") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","(,)") [TCons ("AbstractCurry","CExpr") [],TCons ("AbstractCurry","CExpr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_237") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showLocalDecl") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CLocalDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_236") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showExpr") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("AbstractCurry","CExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showExprOpt") [Comb FuncCall ("OracleAbstractCurryPrinter","defaultOptions") [Var 1]]]])),Func ("OracleAbstractCurryPrinter","showExprOpt") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_234") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showSymbol") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","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 ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_231") [Var 3,Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showLambdaOrSection") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CPattern") []]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_226") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showLambda") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CPattern") []]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showPattern") []],Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 4,Var 5],Var 6],Var 7],Var 8]]))),Func ("OracleAbstractCurryPrinter","showStatement") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CStatement") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_199") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showPattern") 2 Public (FuncType (TCons ("AbstractCurry","CPattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_196") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showPreludeCons") 2 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(3,Var 2)] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleAbstractCurryPrinter","showPreludeCons._#selFP6#name") [Var 3,Var 1])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleAbstractCurryPrinter","showPreludeCons._#selFP7#pattlist") [Var 3,Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_189") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Var 7],Var 8]]))]))]))])),Func ("OracleAbstractCurryPrinter","showPreludeCons._#selFP6#name") 2 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_186") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showPreludeCons._#selFP7#pattlist") 2 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("AbstractCurry","CPattern") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_184") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showPatternList") 2 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_182") [Var 2,Comb FuncCall ("OracleAbstractCurryPrinter","isClosedStringPattern") [Var 2,Var 1],Var 3]]))),Func ("OracleAbstractCurryPrinter","showPatListElems") 2 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_178") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","isClosedPatternList") 2 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_151") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","isClosedStringPattern") 2 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_124") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","isCharPattern") 2 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_97") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","isAsPattern") 2 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_95") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showAsPatternList") 2 Private (FuncType (TCons ("AbstractCurry","CPattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_94") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showBranchExpr") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CBranchExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_92") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showLiteral") 2 Private (FuncType (TCons ("AbstractCurry","CLiteral") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_91") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showCCharc") 2 Private (FuncType (TCons ("AbstractCurry","CLiteral") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_90") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showBlock") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [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 ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","/=") [Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","lines") [Var 2,Var 1],Var 3],Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 5]]))),Func ("OracleAbstractCurryPrinter","showTypeCons") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeExpr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_84") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleAbstractCurryPrinter","showPreludeTypeCons") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CTypeExpr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_81") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]],Var 1],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","head") [Var 3,Var 4],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","[]") []],Var 5],Var 6],Var 7]]))),Func ("OracleAbstractCurryPrinter","showApplication") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_77") [Var 2,Var 3,Comb FuncCall ("OracleAbstractCurryPrinter","applicationHead") [Var 3,Var 1],Var 4]]))),Func ("OracleAbstractCurryPrinter","applicationHead") 2 Private (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("AbstractCurry","CExpr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_76") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","showSymbolApplication") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_75") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showListApplication") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_70") [Var 2,Var 3,Comb FuncCall ("OracleAbstractCurryPrinter","isStringList") [Var 3,Var 1],Var 4]]))),Func ("OracleAbstractCurryPrinter","showCharListApplication") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_67") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showConsListApplication") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_63") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showSimpleListApplication") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_60") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showInfixApplication") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_56") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleAbstractCurryPrinter","showITEApplication") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_54") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showTupleApplication") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showTupleApplication.p_showTuple.386") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 4],Var 5]]))),Func ("OracleAbstractCurryPrinter","showTupleApplication.p_showTuple.386") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_50") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showSimpleApplication") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_48") [Var 2,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","showBoxedExpr") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_47") [Var 2,Var 3,Comb FuncCall ("OracleAbstractCurryPrinter","isSimpleExpr") [Var 3,Var 1],Var 4]]))),Func ("OracleAbstractCurryPrinter","prefixMap") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [Var 4]],Var 1],Comb FuncCall ("OraclePrelude","map") [Var 2,Var 3,Var 5],Var 6]]))),Func ("OracleAbstractCurryPrinter","prefixInter") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","concat") []],Comb FuncCall ("OracleList","intersperse") [Var 4,Comb FuncCall ("OraclePrelude","map") [Var 2,Var 3,Var 1],Var 5],Var 6]]))),Func ("OracleAbstractCurryPrinter","combineMap") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_45") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleAbstractCurryPrinter","dropTags") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_44") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","isInfixOpName") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Bool") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","all") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","elem") []],Comb FuncCall ("OracleAbstractCurryPrinter","infixIDs") [Var 1]]],Var 2]]))),Func ("OracleAbstractCurryPrinter","isStringList") 2 Private (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_41") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","isClosedList") 2 Private (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_36") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","isSimpleExpr") 2 Private (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_31") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","isAtom") 2 Private (FuncType (TCons ("AbstractCurry","CExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_12") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","isUntyped") 2 Private (FuncType (TCons ("AbstractCurry","CTypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_10") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","isTuple") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_7") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","isTuple.p1_isTuple.492") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_6") [Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","infixIDs") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleAbstractCurryPrinter","maybeShowBrackets") 3 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","_case_4") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","++") [Var 3,Comb FuncCall ("OracleAbstractCurryPrinter","_case_3") [Var 2,Var 4],Var 5],Var 6]]))),Func ("OracleAbstractCurryPrinter","nameFM") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("AbstractCurry","CFuncDecl") []]) (TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleAbstractCurryPrinter","addName") []],Comb FuncCall ("OracleFiniteMap","emptyFM") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleAbstractCurryPrinter","lessString") []],Var 1]]]])),Func ("OracleAbstractCurryPrinter","addName") 3 Private (FuncType (TCons ("AbstractCurry","CFuncDecl") []) (FuncType (TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","()") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_2") [Var 3,Var 2,Var 1]])),Func ("OracleAbstractCurryPrinter","lessString") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","==") [Comb ConsCall ("Prelude","LT") [],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSort","cmpString") [Var 1],Var 2,Var 4],Var 3,Var 5],Var 6]]))),Func ("OracleAbstractCurryPrinter","_case_2") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CFunc") [4,5,6,7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_1") [Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CmtFunc") [11,12,13,14,15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_0") [Var 3,Var 12,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_0") 3 Private (TVar (-42)) (Rule [3,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude","(,)") [17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","addToFM") [Var 3,Var 18,Comb ConsCall ("Prelude","()") [],Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_1") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","addToFM") [Var 3,Var 10,Comb ConsCall ("Prelude","()") [],Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleAbstractCurryPrinter","_case_4") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleAbstractCurryPrinter","_case_6") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_5") [Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_5") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc ')'),Var 1]]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc ','),Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","isTuple.p1_isTuple.492") [Comb ConsCall ("Prelude",":") [Var 5,Var 6],Var 7],Var 8]]))]])),Func ("OracleAbstractCurryPrinter","_case_7") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '('),Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","isTuple.p1_isTuple.492") [Var 4,Var 5],Var 6]]))]])),Func ("OracleAbstractCurryPrinter","_case_10") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("AbstractCurry","CTCons") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_9") [Var 4,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CTVar") [9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CFuncType") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_9") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_8") [Var 5,Var 6,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_8") 4 Private (TVar (-42)) (Rule [5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 5,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 FuncCall ("OraclePrelude","==") [Var 6,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","[]") []]]]]]]],Var 9],Var 10]])),Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_12") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("AbstractCurry","CVar") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("AbstractCurry","CLit") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("AbstractCurry","CSymbol") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_11") [Var 5,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLambda") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLetDecl") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CDoExpr") [14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CListComp") [15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CCase") [17,18]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_11") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","(,)") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","not") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 7,Var 8],Var 9]]))]])),Func ("OracleAbstractCurryPrinter","_case_31") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("AbstractCurry","CVar") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("AbstractCurry","CLit") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("AbstractCurry","CSymbol") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_30") [Var 5,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [8,9]) (Let [(51,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 51,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_29") [Var 8,Comb FuncCall ("OracleAbstractCurryPrinter","applicationHead") [Var 8,Var 1],Var 51]])),Branch (Pattern ("AbstractCurry","CLambda") [42,43]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLetDecl") [44,45]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CDoExpr") [46]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CListComp") [47,48]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CCase") [49,50]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_29") 3 Private (TVar (-42)) (Rule [8,42,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 42) [Branch (Pattern ("AbstractCurry","CSymbol") [10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_28") [Var 10,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [29]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLit") [30]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CApply") [31,32]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLambda") [33,34]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLetDecl") [35,36]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CDoExpr") [37]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CListComp") [38,39]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CCase") [40,41]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_28") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","(,)") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_27") [Var 12,Var 11,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_27") 3 Private (TVar (-42)) (Rule [12,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude",":") [13,14]) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_26") [Var 12,Var 13,Var 14,Comb FuncCall ("OraclePrelude","==") [Var 13,Lit (Charc 'P'),Var 1],Var 15]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_26") 5 Private (TVar (-42)) (Rule [12,13,14,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 15) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_25") [Var 12,Var 14,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_25") 3 Private (TVar (-42)) (Rule [12,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_24") [Var 12,Var 15,Var 16,Comb FuncCall ("OraclePrelude","==") [Var 15,Lit (Charc 'r'),Var 1],Var 17]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_24") 5 Private (TVar (-42)) (Rule [12,15,16,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_23") [Var 12,Var 16,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_23") 3 Private (TVar (-42)) (Rule [12,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_22") [Var 12,Var 17,Var 18,Comb FuncCall ("OraclePrelude","==") [Var 17,Lit (Charc 'e'),Var 1],Var 19]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_22") 5 Private (TVar (-42)) (Rule [12,17,18,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 19) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_21") [Var 12,Var 18,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_21") 3 Private (TVar (-42)) (Rule [12,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_20") [Var 12,Var 19,Var 20,Comb FuncCall ("OraclePrelude","==") [Var 19,Lit (Charc 'l'),Var 1],Var 21]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_20") 5 Private (TVar (-42)) (Rule [12,19,20,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 21) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_19") [Var 12,Var 20,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_19") 3 Private (TVar (-42)) (Rule [12,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 20) [Branch (Pattern ("Prelude",":") [21,22]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_18") [Var 12,Var 21,Var 22,Comb FuncCall ("OraclePrelude","==") [Var 21,Lit (Charc 'u'),Var 1],Var 23]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_18") 5 Private (TVar (-42)) (Rule [12,21,22,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_17") [Var 12,Var 22,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_17") 3 Private (TVar (-42)) (Rule [12,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 22) [Branch (Pattern ("Prelude",":") [23,24]) (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_16") [Var 12,Var 23,Var 24,Comb FuncCall ("OraclePrelude","==") [Var 23,Lit (Charc 'd'),Var 1],Var 25]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_16") 5 Private (TVar (-42)) (Rule [12,23,24,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 25) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_15") [Var 12,Var 24,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_15") 3 Private (TVar (-42)) (Rule [12,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_14") [Var 12,Var 25,Var 26,Comb FuncCall ("OraclePrelude","==") [Var 25,Lit (Charc 'e'),Var 1],Var 27]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_14") 5 Private (TVar (-42)) (Rule [12,25,26,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 27) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_13") [Var 12,Var 26,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_13") 3 Private (TVar (-42)) (Rule [12,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 26) [Branch (Pattern ("Prelude","[]") []) (Let [(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 12,Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Var 1],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 12,Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]],Var 29],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 12,Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []]],Var 30],Comb FuncCall ("OracleAbstractCurryPrinter","isTuple") [Var 12,Var 31],Var 32],Var 33],Var 34]])),Branch (Pattern ("Prelude",":") [27,28]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_30") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","(,)") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","not") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 7,Var 8],Var 9]]))]])),Func ("OracleAbstractCurryPrinter","_case_36") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("AbstractCurry","CApply") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_35") [Var 4,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [35]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_32") [Var 35,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [38]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLit") [39]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLambda") [40,41]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLetDecl") [42,43]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CDoExpr") [44]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CListComp") [45,46]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CCase") [47,48]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_32") 2 Private (TVar (-42)) (Rule [35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 35) [Branch (Pattern ("Prelude","(,)") [36,37]) (Let [(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 36,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 FuncCall ("OraclePrelude","==") [Var 37,Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]],Var 38],Var 39]]))]])),Func ("OracleAbstractCurryPrinter","_case_35") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("AbstractCurry","CApply") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_34") [Var 4,Var 5,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [23]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLit") [24]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CSymbol") [25]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLambda") [26,27]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLetDecl") [28,29]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CDoExpr") [30]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CListComp") [31,32]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CCase") [33,34]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_34") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("AbstractCurry","CSymbol") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_33") [Var 4,Var 7,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLit") [11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CApply") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLambda") [14,15]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLetDecl") [16,17]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CDoExpr") [18]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CListComp") [19,20]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CCase") [21,22]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_33") 3 Private (TVar (-42)) (Rule [4,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","(,)") [8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [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","[]") []]]]]]]],Var 1],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 9,Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Var 10],Comb FuncCall ("OracleAbstractCurryPrinter","isClosedList") [Var 4,Var 11],Var 12],Var 13]]))]])),Func ("OracleAbstractCurryPrinter","_case_41") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CSymbol") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_40") [Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CApply") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_39") [Var 8,Var 7,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_39") 3 Private (TVar (-42)) (Rule [8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("AbstractCurry","CApply") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_38") [Var 8,Var 10,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [28]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLit") [29]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CSymbol") [30]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLambda") [31,32]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLetDecl") [33,34]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CDoExpr") [35]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CListComp") [36,37]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CCase") [38,39]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_38") 3 Private (TVar (-42)) (Rule [8,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("AbstractCurry","CLit") [11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_37") [Var 8,Var 11,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [15]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CSymbol") [16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CApply") [17,18]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLambda") [19,20]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CLetDecl") [21,22]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CDoExpr") [23]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CListComp") [24,25]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CCase") [26,27]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_37") 3 Private (TVar (-42)) (Rule [8,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("AbstractCurry","CCharc") [12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","isStringList") [Var 8,Var 1]]),Branch (Pattern ("AbstractCurry","CIntc") [13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CFloatc") [14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_40") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [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","[]") []]]]]]]],Var 1],Comb FuncCall ("OraclePrelude","==") [Var 5,Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]],Var 6],Var 7]]))]])),Func ("OracleAbstractCurryPrinter","_case_44") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_43") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '"'),Var 1],Var 5]]))]])),Func ("OracleAbstractCurryPrinter","_case_43") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","dropTags") []],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","tail") []],Comb FuncCall ("OraclePrelude","dropWhile") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Lit (Charc '"')]],Var 4,Var 1],Var 6],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_42") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '>'),Var 1],Var 8]]))]])),Func ("OracleAbstractCurryPrinter","_case_42") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","dropTags") [Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_45") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","prefixMap") [Var 2,Var 6,Var 4,Var 7],Var 8]]))]])),Func ("OracleAbstractCurryPrinter","_case_47") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 3,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_46") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 5]]))]])),Func ("OracleAbstractCurryPrinter","_case_46") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 5],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_48") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("AbstractCurry","CApply") [4,5]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSimpleApplication") [Var 2,Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 5,Var 18],Var 19],Var 20]])),Branch (Pattern ("AbstractCurry","CVar") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CLit") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 3,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_50") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CApply") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_49") [Var 2,Var 5,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_49") 4 Private (TVar (-42)) (Rule [2,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("AbstractCurry","CSymbol") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 5,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showTupleApplication.p_showTuple.386") [Var 2,Comb ConsCall ("AbstractCurry","CApply") [Var 7,Var 8],Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 5,Var 9],Var 10],Var 11]]))]])),Func ("OracleAbstractCurryPrinter","_case_54") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CApply") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_53") [Var 2,Var 5,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_53") 4 Private (TVar (-42)) (Rule [2,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("AbstractCurry","CApply") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_52") [Var 2,Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_52") 6 Private (TVar (-42)) (Rule [2,4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("AbstractCurry","CApply") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_51") [Var 2,Var 4,Var 5,Var 7,Var 9,Var 8,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_51") 7 Private (TVar (-42)) (Rule [2,4,5,7,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("AbstractCurry","CSymbol") [10]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 9,Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 7,Var 13],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 5,Var 14],Var 15],Var 16],Var 17],Var 18],Var 19]])),Branch (Pattern ("AbstractCurry","CApply") [11,12]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showITEApplication") [Var 2,Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 5,Var 20],Var 21],Var 22],Var 23]]))]])),Func ("OracleAbstractCurryPrinter","_case_56") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("AbstractCurry","CApply") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_55") [Var 2,Var 3,Var 6,Var 5,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_55") 5 Private (TVar (-42)) (Rule [2,3,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("AbstractCurry","CApply") [7,8]) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 8,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSymbol") [Var 2,Var 3,Var 21],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 6,Var 22],Var 23],Var 24],Var 25],Var 26]])),Branch (Pattern ("AbstractCurry","CVar") [9]) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSymbol") [Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 6,Var 27],Var 28],Var 29],Var 30]])),Branch (Pattern ("AbstractCurry","CLit") [10]) (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSymbol") [Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 6,Var 31],Var 32],Var 33],Var 34]])),Branch (Pattern ("AbstractCurry","CSymbol") [11]) (Let [(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSymbol") [Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 6,Var 35],Var 36],Var 37],Var 38]])),Branch (Pattern ("AbstractCurry","CLambda") [12,13]) (Let [(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSymbol") [Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 6,Var 39],Var 40],Var 41],Var 42]])),Branch (Pattern ("AbstractCurry","CLetDecl") [14,15]) (Let [(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(44,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(45,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(46,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude",":") [Var 44,Comb ConsCall ("Prelude",":") [Var 45,Comb ConsCall ("Prelude",":") [Var 46,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSymbol") [Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 6,Var 43],Var 44],Var 45],Var 46]])),Branch (Pattern ("AbstractCurry","CDoExpr") [16]) (Let [(47,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(48,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(49,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(50,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 47,Comb ConsCall ("Prelude",":") [Var 48,Comb ConsCall ("Prelude",":") [Var 49,Comb ConsCall ("Prelude",":") [Var 50,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSymbol") [Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 6,Var 47],Var 48],Var 49],Var 50]])),Branch (Pattern ("AbstractCurry","CListComp") [17,18]) (Let [(51,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(52,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(53,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(54,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 51,Comb ConsCall ("Prelude",":") [Var 52,Comb ConsCall ("Prelude",":") [Var 53,Comb ConsCall ("Prelude",":") [Var 54,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSymbol") [Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 6,Var 51],Var 52],Var 53],Var 54]])),Branch (Pattern ("AbstractCurry","CCase") [19,20]) (Let [(55,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(56,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(57,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(58,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 55,Comb ConsCall ("Prelude",":") [Var 56,Comb ConsCall ("Prelude",":") [Var 57,Comb ConsCall ("Prelude",":") [Var 58,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSymbol") [Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 6,Var 55],Var 56],Var 57],Var 58]]))]])),Func ("OracleAbstractCurryPrinter","_case_60") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CApply") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_59") [Var 2,Var 5,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_59") 4 Private (TVar (-42)) (Rule [2,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("AbstractCurry","CApply") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_58") [Var 2,Var 7,Var 5,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_57") [Var 2,Var 5,Var 22,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_57") 4 Private (TVar (-42)) (Rule [2,5,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude","(,)") [23,24]) (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 5,Var 1],Var 24,Var 25]]))]])),Func ("OracleAbstractCurryPrinter","_case_58") 4 Private (TVar (-42)) (Rule [2,7,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("AbstractCurry","CSymbol") [8]) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]]],Var 22]])),Branch (Pattern ("AbstractCurry","CVar") [9]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 5,Var 23],Var 24],Var 25]])),Branch (Pattern ("AbstractCurry","CLit") [10]) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 5,Var 26],Var 27],Var 28]])),Branch (Pattern ("AbstractCurry","CApply") [11,12]) (Let [(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 5,Var 29],Var 30],Var 31]])),Branch (Pattern ("AbstractCurry","CLambda") [13,14]) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 5,Var 32],Var 33],Var 34]])),Branch (Pattern ("AbstractCurry","CLetDecl") [15,16]) (Let [(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 5,Var 35],Var 36],Var 37]])),Branch (Pattern ("AbstractCurry","CDoExpr") [17]) (Let [(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 5,Var 38],Var 39],Var 40]])),Branch (Pattern ("AbstractCurry","CListComp") [18,19]) (Let [(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 5,Var 41],Var 42],Var 43]])),Branch (Pattern ("AbstractCurry","CCase") [20,21]) (Let [(44,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(45,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(46,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 44,Comb ConsCall ("Prelude",":") [Var 45,Comb ConsCall ("Prelude",":") [Var 46,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 5,Var 44],Var 45],Var 46]]))]])),Func ("OracleAbstractCurryPrinter","_case_63") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CApply") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_62") [Var 2,Var 5,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_62") 4 Private (TVar (-42)) (Rule [2,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("AbstractCurry","CApply") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_61") [Var 2,Var 7,Var 5,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_61") 4 Private (TVar (-42)) (Rule [2,7,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("AbstractCurry","CSymbol") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [9]) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showConsListApplication") [Var 2,Var 5,Var 22],Var 23],Var 24]])),Branch (Pattern ("AbstractCurry","CLit") [10]) (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showConsListApplication") [Var 2,Var 5,Var 25],Var 26],Var 27]])),Branch (Pattern ("AbstractCurry","CApply") [11,12]) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showConsListApplication") [Var 2,Var 5,Var 28],Var 29],Var 30]])),Branch (Pattern ("AbstractCurry","CLambda") [13,14]) (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showConsListApplication") [Var 2,Var 5,Var 31],Var 32],Var 33]])),Branch (Pattern ("AbstractCurry","CLetDecl") [15,16]) (Let [(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showConsListApplication") [Var 2,Var 5,Var 34],Var 35],Var 36]])),Branch (Pattern ("AbstractCurry","CDoExpr") [17]) (Let [(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showConsListApplication") [Var 2,Var 5,Var 37],Var 38],Var 39]])),Branch (Pattern ("AbstractCurry","CListComp") [18,19]) (Let [(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showConsListApplication") [Var 2,Var 5,Var 40],Var 41],Var 42]])),Branch (Pattern ("AbstractCurry","CCase") [20,21]) (Let [(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(44,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(45,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude",":") [Var 44,Comb ConsCall ("Prelude",":") [Var 45,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showConsListApplication") [Var 2,Var 5,Var 43],Var 44],Var 45]]))]])),Func ("OracleAbstractCurryPrinter","_case_67") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CApply") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_66") [Var 2,Var 5,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_66") 4 Private (TVar (-42)) (Rule [2,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("AbstractCurry","CApply") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_65") [Var 2,Var 5,Var 7,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_65") 4 Private (TVar (-42)) (Rule [2,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("AbstractCurry","CLit") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_64") [Var 2,Var 8,Var 5,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_64") 4 Private (TVar (-42)) (Rule [2,8,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("AbstractCurry","CSymbol") [9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showCCharc") [Var 8,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [10]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showCCharc") [Var 8,Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","showCharListApplication") [Var 2,Var 5,Var 23],Var 24]])),Branch (Pattern ("AbstractCurry","CLit") [11]) (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showCCharc") [Var 8,Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","showCharListApplication") [Var 2,Var 5,Var 25],Var 26]])),Branch (Pattern ("AbstractCurry","CApply") [12,13]) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showCCharc") [Var 8,Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","showCharListApplication") [Var 2,Var 5,Var 27],Var 28]])),Branch (Pattern ("AbstractCurry","CLambda") [14,15]) (Let [(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showCCharc") [Var 8,Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","showCharListApplication") [Var 2,Var 5,Var 29],Var 30]])),Branch (Pattern ("AbstractCurry","CLetDecl") [16,17]) (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showCCharc") [Var 8,Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","showCharListApplication") [Var 2,Var 5,Var 31],Var 32]])),Branch (Pattern ("AbstractCurry","CDoExpr") [18]) (Let [(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showCCharc") [Var 8,Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","showCharListApplication") [Var 2,Var 5,Var 33],Var 34]])),Branch (Pattern ("AbstractCurry","CListComp") [19,20]) (Let [(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showCCharc") [Var 8,Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","showCharListApplication") [Var 2,Var 5,Var 35],Var 36]])),Branch (Pattern ("AbstractCurry","CCase") [21,22]) (Let [(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showCCharc") [Var 8,Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","showCharListApplication") [Var 2,Var 5,Var 37],Var 38]]))]])),Func ("OracleAbstractCurryPrinter","_case_70") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showCharListApplication") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []],Var 5],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_69") [Var 2,Var 3,Comb FuncCall ("OracleAbstractCurryPrinter","isClosedList") [Var 3,Var 1],Var 7]]))]])),Func ("OracleAbstractCurryPrinter","_case_69") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showConsListApplication") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []],Var 5],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_68") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 7]]))]])),Func ("OracleAbstractCurryPrinter","_case_68") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSimpleListApplication") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 5],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_75") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_74") [Var 2,Var 4,Var 5,Var 6,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 5,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 FuncCall ("OraclePrelude","==") [Var 6,Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Var 7],Var 8],Var 9]]))]])),Func ("OracleAbstractCurryPrinter","_case_74") 6 Private (TVar (-42)) (Rule [2,4,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showListApplication") [Var 2,Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_73") [Var 2,Var 4,Var 5,Var 6,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 5,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 FuncCall ("OraclePrelude","==") [Var 6,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","[]") []]]]]]]]]]]]],Var 8],Var 9],Var 10]]))]])),Func ("OracleAbstractCurryPrinter","_case_73") 6 Private (TVar (-42)) (Rule [2,4,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showITEApplication") [Var 2,Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_72") [Var 2,Var 4,Var 6,Comb FuncCall ("OracleAbstractCurryPrinter","isTuple") [Var 6,Var 1],Var 8]]))]])),Func ("OracleAbstractCurryPrinter","_case_72") 5 Private (TVar (-42)) (Rule [2,4,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showTupleApplication") [Var 2,Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_71") [Var 2,Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 8]]))]])),Func ("OracleAbstractCurryPrinter","_case_71") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showSimpleApplication") [Var 2,Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_76") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("AbstractCurry","CApply") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","applicationHead") [Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CLit") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CSymbol") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CLambda") [8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CLetDecl") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CDoExpr") [12]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CListComp") [13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("AbstractCurry","CCase") [15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]])),Func ("OracleAbstractCurryPrinter","_case_77") 4 Private (TVar (-42)) (Rule [2,3,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 18) [Branch (Pattern ("AbstractCurry","CSymbol") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showSymbolApplication") [Var 2,Var 4,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showSimpleApplication") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CLit") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showSimpleApplication") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showSimpleApplication") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showSimpleApplication") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showSimpleApplication") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showSimpleApplication") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showSimpleApplication") [Var 2,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showSimpleApplication") [Var 2,Var 3,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_81") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_80") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]],Var 1],Var 5]]))]])),Func ("OracleAbstractCurryPrinter","_case_80") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","head") [Var 3,Var 1],Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_79") [Var 2,Var 3,Comb FuncCall ("OracleAbstractCurryPrinter","isTuple") [Var 2,Var 1],Var 8]]))]])),Func ("OracleAbstractCurryPrinter","_case_79") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") []]],Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 5],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_78") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 7]]))]])),Func ("OracleAbstractCurryPrinter","_case_78") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OracleAbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","True") []]],Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 1],Var 5]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_84") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_83") [Var 2,Var 3,Var 5,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 2,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],Var 7]]))]])),Func ("OracleAbstractCurryPrinter","_case_83") 6 Private (TVar (-42)) (Rule [2,3,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showPreludeTypeCons") [Var 3,Comb ConsCall ("Prelude",":") [Var 5,Var 6],Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_82") [Var 3,Var 5,Var 6,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 8]]))]])),Func ("OracleAbstractCurryPrinter","_case_82") 5 Private (TVar (-42)) (Rule [3,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 3,Comb FuncCall ("OracleAbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","True") []]],Comb ConsCall ("Prelude",":") [Var 5,Var 6],Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 1],Var 8]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_90") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CCharc") [3]) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_89") [Var 3,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '\n'),Var 1],Var 4]]))]])),Func ("OracleAbstractCurryPrinter","_case_89") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_88") [Var 3,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '\r'),Var 1],Var 5]]))]])),Func ("OracleAbstractCurryPrinter","_case_88") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_87") [Var 3,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '\\'),Var 1],Var 5]]))]])),Func ("OracleAbstractCurryPrinter","_case_87") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_86") [Var 3,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '"'),Var 1],Var 5]]))]])),Func ("OracleAbstractCurryPrinter","_case_86") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_85") [Var 3,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 5]]))]])),Func ("OracleAbstractCurryPrinter","_case_85") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_91") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CIntc") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CFloatc") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","show") [Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCharc") [5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\''),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showCCharc") [Comb ConsCall ("AbstractCurry","CCharc") [Var 5],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '\''),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7]]))]])),Func ("OracleAbstractCurryPrinter","_case_92") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CBranch") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showPattern") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 5,Var 6],Var 7],Var 8]]))]])),Func ("OracleAbstractCurryPrinter","_case_94") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CPAs") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_93") [Var 4,Var 3,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_93") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 6,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '@'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showPatListElems") [Var 4,Var 1],Var 7],Var 8],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 9],Var 10],Var 11],Var 12]]))]])),Func ("OracleAbstractCurryPrinter","_case_95") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("AbstractCurry","CPAs") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("AbstractCurry","CPVar") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CPLit") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CPComb") [7,8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CPFuncComb") [9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_97") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("AbstractCurry","CPLit") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_96") [Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CPVar") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CPComb") [8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CPAs") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CPFuncComb") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_96") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("AbstractCurry","CCharc") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("AbstractCurry","CIntc") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CFloatc") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_124") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CPComb") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_123") [Var 4,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CPVar") [29]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_123") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_122") [Var 4,Var 6,Var 5,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_122") 4 Private (TVar (-42)) (Rule [4,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_121") [Var 4,Var 6,Var 8,Var 7,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_121") 5 Private (TVar (-42)) (Rule [4,6,8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (LPattern (Charc 'P')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_120") [Var 4,Var 6,Var 8,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_120") 4 Private (TVar (-42)) (Rule [4,6,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_119") [Var 4,Var 6,Var 10,Var 9,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_119") 5 Private (TVar (-42)) (Rule [4,6,10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_118") [Var 4,Var 6,Var 10,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_118") 4 Private (TVar (-42)) (Rule [4,6,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_117") [Var 4,Var 6,Var 12,Var 11,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_117") 5 Private (TVar (-42)) (Rule [4,6,12,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_116") [Var 4,Var 6,Var 12,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_116") 4 Private (TVar (-42)) (Rule [4,6,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_115") [Var 4,Var 6,Var 14,Var 13,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_115") 5 Private (TVar (-42)) (Rule [4,6,14,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_114") [Var 4,Var 6,Var 14,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_114") 4 Private (TVar (-42)) (Rule [4,6,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_113") [Var 4,Var 6,Var 16,Var 15,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_113") 5 Private (TVar (-42)) (Rule [4,6,16,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_112") [Var 4,Var 6,Var 16,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_112") 4 Private (TVar (-42)) (Rule [4,6,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_111") [Var 4,Var 6,Var 18,Var 17,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_111") 5 Private (TVar (-42)) (Rule [4,6,18,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_110") [Var 4,Var 6,Var 18,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_110") 4 Private (TVar (-42)) (Rule [4,6,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_109") [Var 4,Var 6,Var 20,Var 19,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_109") 5 Private (TVar (-42)) (Rule [4,6,20,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_108") [Var 4,Var 6,Var 20,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_108") 4 Private (TVar (-42)) (Rule [4,6,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_107") [Var 4,Var 6,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_107") 3 Private (TVar (-42)) (Rule [4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude",":") [21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_106") [Var 4,Var 22,Var 21,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_106") 4 Private (TVar (-42)) (Rule [4,22,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (LPattern (Charc ':')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_105") [Var 4,Var 22,Var 1]]),Branch (LPattern (Charc '[')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_101") [Var 4,Var 22,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_101") 3 Private (TVar (-42)) (Rule [4,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude",":") [27,28]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_100") [Var 4,Var 28,Var 27,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_100") 4 Private (TVar (-42)) (Rule [4,28,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (LPattern (Charc ']')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_99") [Var 4,Var 28,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_99") 3 Private (TVar (-42)) (Rule [4,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_98") [Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_98") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])]])),Func ("OracleAbstractCurryPrinter","_case_105") 3 Private (TVar (-42)) (Rule [4,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_104") [Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_104") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [23,24]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_103") [Var 23,Var 24,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_103") 3 Private (TVar (-42)) (Rule [23,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_102") [Var 23,Var 25,Var 26,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_102") 4 Private (TVar (-42)) (Rule [23,25,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (Pattern ("Prelude","[]") []) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleAbstractCurryPrinter","isCharPattern") [Var 23,Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","isClosedStringPattern") [Var 25,Var 27],Var 28]]))]])),Func ("OracleAbstractCurryPrinter","_case_151") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CPComb") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_150") [Var 4,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CPVar") [29]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CPAs") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","isClosedPatternList") [Var 31,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_150") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_149") [Var 4,Var 6,Var 5,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_149") 4 Private (TVar (-42)) (Rule [4,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_148") [Var 4,Var 6,Var 8,Var 7,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_148") 5 Private (TVar (-42)) (Rule [4,6,8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (LPattern (Charc 'P')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_147") [Var 4,Var 6,Var 8,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_147") 4 Private (TVar (-42)) (Rule [4,6,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_146") [Var 4,Var 6,Var 10,Var 9,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_146") 5 Private (TVar (-42)) (Rule [4,6,10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_145") [Var 4,Var 6,Var 10,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_145") 4 Private (TVar (-42)) (Rule [4,6,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_144") [Var 4,Var 6,Var 12,Var 11,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_144") 5 Private (TVar (-42)) (Rule [4,6,12,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_143") [Var 4,Var 6,Var 12,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_143") 4 Private (TVar (-42)) (Rule [4,6,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_142") [Var 4,Var 6,Var 14,Var 13,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_142") 5 Private (TVar (-42)) (Rule [4,6,14,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_141") [Var 4,Var 6,Var 14,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_141") 4 Private (TVar (-42)) (Rule [4,6,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_140") [Var 4,Var 6,Var 16,Var 15,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_140") 5 Private (TVar (-42)) (Rule [4,6,16,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_139") [Var 4,Var 6,Var 16,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_139") 4 Private (TVar (-42)) (Rule [4,6,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_138") [Var 4,Var 6,Var 18,Var 17,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_138") 5 Private (TVar (-42)) (Rule [4,6,18,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_137") [Var 4,Var 6,Var 18,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_137") 4 Private (TVar (-42)) (Rule [4,6,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_136") [Var 4,Var 6,Var 20,Var 19,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_136") 5 Private (TVar (-42)) (Rule [4,6,20,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_135") [Var 4,Var 6,Var 20,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_135") 4 Private (TVar (-42)) (Rule [4,6,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_134") [Var 4,Var 6,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_134") 3 Private (TVar (-42)) (Rule [4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude",":") [21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_133") [Var 4,Var 22,Var 21,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_133") 4 Private (TVar (-42)) (Rule [4,22,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (LPattern (Charc ':')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_132") [Var 4,Var 22,Var 1]]),Branch (LPattern (Charc '[')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_128") [Var 4,Var 22,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_128") 3 Private (TVar (-42)) (Rule [4,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude",":") [27,28]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_127") [Var 4,Var 28,Var 27,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_127") 4 Private (TVar (-42)) (Rule [4,28,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (LPattern (Charc ']')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_126") [Var 4,Var 28,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_126") 3 Private (TVar (-42)) (Rule [4,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_125") [Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_125") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])]])),Func ("OracleAbstractCurryPrinter","_case_132") 3 Private (TVar (-42)) (Rule [4,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_131") [Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_131") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [23,24]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_130") [Var 24,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_130") 2 Private (TVar (-42)) (Rule [24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_129") [Var 25,Var 26,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_129") 3 Private (TVar (-42)) (Rule [25,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","isClosedPatternList") [Var 25,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_178") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CPComb") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_177") [Var 4,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CPVar") [29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAbstractCurryPrinter","showPattern") [Comb ConsCall ("AbstractCurry","CPVar") [Var 29],Var 1],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("AbstractCurry","CPAs") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAbstractCurryPrinter","showPattern") [Comb ConsCall ("AbstractCurry","CPAs") [Var 30,Var 31],Var 1],Comb ConsCall ("Prelude","[]") []]])]])),Func ("OracleAbstractCurryPrinter","_case_177") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_176") [Var 4,Var 6,Var 5,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_176") 4 Private (TVar (-42)) (Rule [4,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_175") [Var 4,Var 6,Var 8,Var 7,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_175") 5 Private (TVar (-42)) (Rule [4,6,8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (LPattern (Charc 'P')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_174") [Var 4,Var 6,Var 8,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_174") 4 Private (TVar (-42)) (Rule [4,6,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_173") [Var 4,Var 6,Var 10,Var 9,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_173") 5 Private (TVar (-42)) (Rule [4,6,10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_172") [Var 4,Var 6,Var 10,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_172") 4 Private (TVar (-42)) (Rule [4,6,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_171") [Var 4,Var 6,Var 12,Var 11,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_171") 5 Private (TVar (-42)) (Rule [4,6,12,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_170") [Var 4,Var 6,Var 12,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_170") 4 Private (TVar (-42)) (Rule [4,6,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_169") [Var 4,Var 6,Var 14,Var 13,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_169") 5 Private (TVar (-42)) (Rule [4,6,14,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_168") [Var 4,Var 6,Var 14,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_168") 4 Private (TVar (-42)) (Rule [4,6,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_167") [Var 4,Var 6,Var 16,Var 15,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_167") 5 Private (TVar (-42)) (Rule [4,6,16,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_166") [Var 4,Var 6,Var 16,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_166") 4 Private (TVar (-42)) (Rule [4,6,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_165") [Var 4,Var 6,Var 18,Var 17,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_165") 5 Private (TVar (-42)) (Rule [4,6,18,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_164") [Var 4,Var 6,Var 18,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_164") 4 Private (TVar (-42)) (Rule [4,6,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_163") [Var 4,Var 6,Var 20,Var 19,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_163") 5 Private (TVar (-42)) (Rule [4,6,20,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_162") [Var 4,Var 6,Var 20,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_162") 4 Private (TVar (-42)) (Rule [4,6,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_161") [Var 4,Var 6,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_161") 3 Private (TVar (-42)) (Rule [4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude",":") [21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_160") [Var 4,Var 22,Var 21,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_160") 4 Private (TVar (-42)) (Rule [4,22,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (LPattern (Charc ':')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_159") [Var 4,Var 22,Var 1]]),Branch (LPattern (Charc '[')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_155") [Var 4,Var 22,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_155") 3 Private (TVar (-42)) (Rule [4,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude",":") [27,28]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_154") [Var 4,Var 28,Var 27,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_154") 4 Private (TVar (-42)) (Rule [4,28,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (LPattern (Charc ']')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_153") [Var 4,Var 28,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_153") 3 Private (TVar (-42)) (Rule [4,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_152") [Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_152") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleAbstractCurryPrinter","_case_159") 3 Private (TVar (-42)) (Rule [4,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_158") [Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_158") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [23,24]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_157") [Var 23,Var 24,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_157") 3 Private (TVar (-42)) (Rule [23,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_156") [Var 23,Var 25,Var 26,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_156") 4 Private (TVar (-42)) (Rule [23,25,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (Pattern ("Prelude","[]") []) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAbstractCurryPrinter","showPattern") [Var 23,Var 1],Comb FuncCall ("OracleAbstractCurryPrinter","showPatListElems") [Var 25,Var 27]]]))]])),Func ("OracleAbstractCurryPrinter","_case_182") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Lit (Charc '\'')]],Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleAbstractCurryPrinter","showPatListElems") [Var 2,Var 1],Var 4],Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []],Var 6]]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_181") [Var 2,Comb FuncCall ("OracleAbstractCurryPrinter","isClosedPatternList") [Var 2,Var 1],Var 7]]))]])),Func ("OracleAbstractCurryPrinter","_case_181") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showPatListElems") [Var 2,Var 1],Var 4],Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_180") [Var 2,Comb FuncCall ("OracleAbstractCurryPrinter","isAsPattern") [Var 2,Var 1],Var 8]]))]])),Func ("OracleAbstractCurryPrinter","_case_180") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showAsPatternList") [Var 2,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_179") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 4]]))]])),Func ("OracleAbstractCurryPrinter","_case_179") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showPatListElems") [Var 2,Var 1],Var 4],Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_184") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CPComb") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_183") [Var 4,Var 3,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_183") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleAbstractCurryPrinter","_case_186") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CPComb") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_185") [Var 3,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_185") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleAbstractCurryPrinter","_case_189") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showPatternList") [Var 2,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_188") [Var 4,Var 5,Comb FuncCall ("OracleAbstractCurryPrinter","isTuple") [Var 4,Var 1],Var 7]]))]])),Func ("OracleAbstractCurryPrinter","_case_188") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showPattern") []],Var 5,Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 7],Var 8]])),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_187") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 9]]))]])),Func ("OracleAbstractCurryPrinter","_case_187") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 4,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showPattern") []],Var 5,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 7],Var 8],Var 9]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_196") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CPVar") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_195") [Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CPLit") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLiteral") [Var 6,Var 1]]),Branch (Pattern ("AbstractCurry","CPComb") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_194") [Var 8,Var 7,Var 1]]),Branch (Pattern ("AbstractCurry","CPAs") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_190") [Var 14,Var 13,Var 1]]),Branch (Pattern ("AbstractCurry","CPFuncComb") [17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showPattern") [Comb ConsCall ("AbstractCurry","CPComb") [Var 17,Var 18],Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_190") 3 Private (TVar (-42)) (Rule [14,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude","(,)") [15,16]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","showIdentifier") [Var 1],Var 16,Var 17],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '@'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showPattern") [Var 14,Var 18],Var 19],Var 20]]))]])),Func ("OracleAbstractCurryPrinter","_case_194") 3 Private (TVar (-42)) (Rule [8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude","(,)") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_193") [Var 9,Var 10,Var 8,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_193") 4 Private (TVar (-42)) (Rule [9,10,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 10]),Branch (Pattern ("Prelude",":") [11,12]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_192") [Var 9,Var 10,Var 11,Var 12,Comb FuncCall ("OraclePrelude","==") [Var 9,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],Var 13]]))]])),Func ("OracleAbstractCurryPrinter","_case_192") 6 Private (TVar (-42)) (Rule [9,10,11,12,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showPreludeCons") [Comb ConsCall ("AbstractCurry","CPComb") [Comb ConsCall ("Prelude","(,)") [Var 9,Var 10],Comb ConsCall ("Prelude",":") [Var 11,Var 12]],Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_191") [Var 10,Var 11,Var 12,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 14]]))]])),Func ("OracleAbstractCurryPrinter","_case_191") 5 Private (TVar (-42)) (Rule [10,11,12,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 10,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showPattern") []],Comb ConsCall ("Prelude",":") [Var 11,Var 12],Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 14],Var 15],Var 16]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_195") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","showIdentifier") [Var 1],Var 5,Var 6]]))]])),Func ("OracleAbstractCurryPrinter","_case_199") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CSExpr") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CSPat") [5,6]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showPattern") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 6,Var 8],Var 9],Var 10]])),Branch (Pattern ("AbstractCurry","CSLet") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_198") [Var 2,Var 7,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_198") 3 Private (TVar (-42)) (Rule [2,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_197") [Var 2,Var 7,Var 8,Var 9,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showBlock") [Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showLocalDecl") [Var 2]],Var 7,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 10],Var 11]]))]])),Func ("OracleAbstractCurryPrinter","_case_197") 5 Private (TVar (-42)) (Rule [2,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","[]") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showLocalDecl") [Var 2,Var 8,Var 1],Var 12]])),Branch (Pattern ("Prelude",":") [10,11]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showBlock") [Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showLocalDecl") [Var 2]],Var 7,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 13],Var 14]]))]])),Func ("OracleAbstractCurryPrinter","_case_226") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_225") [Var 2,Var 3,Var 4,Var 6,Var 5,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_225") 6 Private (TVar (-42)) (Rule [2,3,4,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("AbstractCurry","CPVar") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_224") [Var 2,Var 3,Var 4,Var 7,Var 6,Var 1]]),Branch (Pattern ("AbstractCurry","CPLit") [180]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CPComb") [181,182]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CPAs") [183,184]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CPFuncComb") [185,186]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_224") 6 Private (TVar (-42)) (Rule [2,3,4,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_223") [Var 2,Var 3,Var 7,Var 4,Var 1]]),Branch (Pattern ("Prelude",":") [178,179]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_223") 5 Private (TVar (-42)) (Rule [2,3,7,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("AbstractCurry","CApply") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_222") [Var 2,Var 3,Var 4,Var 7,Var 9,Var 8,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [166]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLit") [167]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [168]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [169,170]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [171,172]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [173]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [174,175]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [176,177]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_222") 7 Private (TVar (-42)) (Rule [2,3,4,7,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("AbstractCurry","CApply") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_221") [Var 2,Var 3,Var 4,Var 7,Var 9,Var 11,Var 10,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [154]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLit") [155]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [156]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [157,158]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [159,160]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [161]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [162,163]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [164,165]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_221") 8 Private (TVar (-42)) (Rule [2,3,4,7,9,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("AbstractCurry","CSymbol") [12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_220") [Var 2,Var 3,Var 4,Var 7,Var 9,Var 11,Var 12,Var 1]]),Branch (Pattern ("AbstractCurry","CVar") [141]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLit") [142]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [143,144]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [145,146]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [147,148]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [149]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [150,151]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [152,153]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_220") 8 Private (TVar (-42)) (Rule [2,3,4,7,9,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","(,)") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_219") [Var 2,Var 3,Var 4,Var 7,Var 11,Var 14,Var 9,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_219") 8 Private (TVar (-42)) (Rule [2,3,4,7,11,14,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("AbstractCurry","CVar") [15]) (Let [(127,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(128,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(129,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(130,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(131,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(132,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 127,Comb ConsCall ("Prelude",":") [Var 128,Comb ConsCall ("Prelude",":") [Var 129,Comb ConsCall ("Prelude",":") [Var 130,Comb ConsCall ("Prelude",":") [Var 131,Comb ConsCall ("Prelude",":") [Var 132,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_218") [Var 2,Var 3,Var 4,Var 7,Var 11,Var 14,Var 15,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 14,Var 127],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleAbstractCurryPrinter","isAtom") [Var 11,Var 128],Comb FuncCall ("OraclePrelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 15],Var 11,Var 129],Var 130],Var 131],Var 132]])),Branch (Pattern ("AbstractCurry","CLit") [16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_215") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 16,Var 11,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_213") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 31,Var 11,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [46,47]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_211") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 46,Var 47,Var 11,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [62,63]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_209") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 62,Var 63,Var 11,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [78,79]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_207") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 78,Var 79,Var 11,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [94]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_205") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 94,Var 11,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [109,110]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_203") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 109,Var 110,Var 11,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [125,126]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_201") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 125,Var 126,Var 11,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_201") 9 Private (TVar (-42)) (Rule [2,3,4,7,14,125,126,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("AbstractCurry","CVar") [127]) (Let [(141,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(142,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(143,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(144,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(145,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(146,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(147,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(148,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 141,Comb ConsCall ("Prelude",":") [Var 142,Comb ConsCall ("Prelude",":") [Var 143,Comb ConsCall ("Prelude",":") [Var 144,Comb ConsCall ("Prelude",":") [Var 145,Comb ConsCall ("Prelude",":") [Var 146,Comb ConsCall ("Prelude",":") [Var 147,Comb ConsCall ("Prelude",":") [Var 148,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_200") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 125,Var 126,Var 127,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 14,Var 141],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 7,Var 127,Var 142],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleAbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CCase") [Var 125,Var 126],Var 143],Comb FuncCall ("OraclePrelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 127],Comb ConsCall ("AbstractCurry","CCase") [Var 125,Var 126],Var 144],Var 145],Var 146],Var 147],Var 148]])),Branch (Pattern ("AbstractCurry","CLit") [128]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [129]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [130,131]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [132,133]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [134,135]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [136]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [137,138]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [139,140]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_200") 10 Private (TVar (-42)) (Rule [2,3,4,7,14,125,126,127,128,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 128) [Branch (Pattern ("Prelude","True") []) (Let [(129,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(130,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(131,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(132,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 129,Comb ConsCall ("Prelude",":") [Var 130,Comb ConsCall ("Prelude",":") [Var 131,Comb ConsCall ("Prelude",":") [Var 132,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 14,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Comb ConsCall ("AbstractCurry","CCase") [Var 125,Var 126],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 129],Var 130],Var 131],Var 132]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_203") 9 Private (TVar (-42)) (Rule [2,3,4,7,14,109,110,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("AbstractCurry","CVar") [111]) (Let [(125,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(126,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(127,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(128,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(129,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(130,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(131,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(132,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 125,Comb ConsCall ("Prelude",":") [Var 126,Comb ConsCall ("Prelude",":") [Var 127,Comb ConsCall ("Prelude",":") [Var 128,Comb ConsCall ("Prelude",":") [Var 129,Comb ConsCall ("Prelude",":") [Var 130,Comb ConsCall ("Prelude",":") [Var 131,Comb ConsCall ("Prelude",":") [Var 132,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_202") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 109,Var 110,Var 111,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 14,Var 125],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 7,Var 111,Var 126],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleAbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CListComp") [Var 109,Var 110],Var 127],Comb FuncCall ("OraclePrelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 111],Comb ConsCall ("AbstractCurry","CListComp") [Var 109,Var 110],Var 128],Var 129],Var 130],Var 131],Var 132]])),Branch (Pattern ("AbstractCurry","CLit") [112]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [113]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [114,115]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [116,117]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [118,119]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [120]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [121,122]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [123,124]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_202") 10 Private (TVar (-42)) (Rule [2,3,4,7,14,109,110,111,112,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 112) [Branch (Pattern ("Prelude","True") []) (Let [(113,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(114,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(115,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(116,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 113,Comb ConsCall ("Prelude",":") [Var 114,Comb ConsCall ("Prelude",":") [Var 115,Comb ConsCall ("Prelude",":") [Var 116,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 14,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Comb ConsCall ("AbstractCurry","CListComp") [Var 109,Var 110],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 113],Var 114],Var 115],Var 116]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_205") 8 Private (TVar (-42)) (Rule [2,3,4,7,14,94,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("AbstractCurry","CVar") [95]) (Let [(109,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(110,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(111,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(112,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(113,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(114,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(115,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(116,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 109,Comb ConsCall ("Prelude",":") [Var 110,Comb ConsCall ("Prelude",":") [Var 111,Comb ConsCall ("Prelude",":") [Var 112,Comb ConsCall ("Prelude",":") [Var 113,Comb ConsCall ("Prelude",":") [Var 114,Comb ConsCall ("Prelude",":") [Var 115,Comb ConsCall ("Prelude",":") [Var 116,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_204") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 94,Var 95,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 14,Var 109],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 7,Var 95,Var 110],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleAbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CDoExpr") [Var 94],Var 111],Comb FuncCall ("OraclePrelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 95],Comb ConsCall ("AbstractCurry","CDoExpr") [Var 94],Var 112],Var 113],Var 114],Var 115],Var 116]])),Branch (Pattern ("AbstractCurry","CLit") [96]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [97]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [98,99]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [100,101]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [102,103]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [104]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [105,106]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [107,108]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_204") 9 Private (TVar (-42)) (Rule [2,3,4,7,14,94,95,96,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 96) [Branch (Pattern ("Prelude","True") []) (Let [(97,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(98,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(99,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(100,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 97,Comb ConsCall ("Prelude",":") [Var 98,Comb ConsCall ("Prelude",":") [Var 99,Comb ConsCall ("Prelude",":") [Var 100,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 14,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Comb ConsCall ("AbstractCurry","CDoExpr") [Var 94],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 97],Var 98],Var 99],Var 100]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_207") 9 Private (TVar (-42)) (Rule [2,3,4,7,14,78,79,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("AbstractCurry","CVar") [80]) (Let [(94,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(95,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(96,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(97,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(98,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(99,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(100,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(101,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 94,Comb ConsCall ("Prelude",":") [Var 95,Comb ConsCall ("Prelude",":") [Var 96,Comb ConsCall ("Prelude",":") [Var 97,Comb ConsCall ("Prelude",":") [Var 98,Comb ConsCall ("Prelude",":") [Var 99,Comb ConsCall ("Prelude",":") [Var 100,Comb ConsCall ("Prelude",":") [Var 101,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_206") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 78,Var 79,Var 80,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 14,Var 94],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 7,Var 80,Var 95],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleAbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CLetDecl") [Var 78,Var 79],Var 96],Comb FuncCall ("OraclePrelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 80],Comb ConsCall ("AbstractCurry","CLetDecl") [Var 78,Var 79],Var 97],Var 98],Var 99],Var 100],Var 101]])),Branch (Pattern ("AbstractCurry","CLit") [81]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [82]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [83,84]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [85,86]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [87,88]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [89]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [90,91]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [92,93]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_206") 10 Private (TVar (-42)) (Rule [2,3,4,7,14,78,79,80,81,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 81) [Branch (Pattern ("Prelude","True") []) (Let [(82,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(83,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(84,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(85,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 82,Comb ConsCall ("Prelude",":") [Var 83,Comb ConsCall ("Prelude",":") [Var 84,Comb ConsCall ("Prelude",":") [Var 85,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 14,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Comb ConsCall ("AbstractCurry","CLetDecl") [Var 78,Var 79],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 82],Var 83],Var 84],Var 85]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_209") 9 Private (TVar (-42)) (Rule [2,3,4,7,14,62,63,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("AbstractCurry","CVar") [64]) (Let [(78,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(79,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(80,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(81,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(82,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(83,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(84,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(85,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 78,Comb ConsCall ("Prelude",":") [Var 79,Comb ConsCall ("Prelude",":") [Var 80,Comb ConsCall ("Prelude",":") [Var 81,Comb ConsCall ("Prelude",":") [Var 82,Comb ConsCall ("Prelude",":") [Var 83,Comb ConsCall ("Prelude",":") [Var 84,Comb ConsCall ("Prelude",":") [Var 85,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_208") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 62,Var 63,Var 64,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 14,Var 78],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 7,Var 64,Var 79],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleAbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CLambda") [Var 62,Var 63],Var 80],Comb FuncCall ("OraclePrelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 64],Comb ConsCall ("AbstractCurry","CLambda") [Var 62,Var 63],Var 81],Var 82],Var 83],Var 84],Var 85]])),Branch (Pattern ("AbstractCurry","CLit") [65]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [66]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [67,68]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [69,70]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [71,72]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [73]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [74,75]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [76,77]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_208") 10 Private (TVar (-42)) (Rule [2,3,4,7,14,62,63,64,65,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 65) [Branch (Pattern ("Prelude","True") []) (Let [(66,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(67,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(68,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(69,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 66,Comb ConsCall ("Prelude",":") [Var 67,Comb ConsCall ("Prelude",":") [Var 68,Comb ConsCall ("Prelude",":") [Var 69,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 14,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Comb ConsCall ("AbstractCurry","CLambda") [Var 62,Var 63],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 66],Var 67],Var 68],Var 69]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_211") 9 Private (TVar (-42)) (Rule [2,3,4,7,14,46,47,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("AbstractCurry","CVar") [48]) (Let [(62,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(63,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(64,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(65,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(66,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(67,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(68,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(69,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 62,Comb ConsCall ("Prelude",":") [Var 63,Comb ConsCall ("Prelude",":") [Var 64,Comb ConsCall ("Prelude",":") [Var 65,Comb ConsCall ("Prelude",":") [Var 66,Comb ConsCall ("Prelude",":") [Var 67,Comb ConsCall ("Prelude",":") [Var 68,Comb ConsCall ("Prelude",":") [Var 69,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_210") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 46,Var 47,Var 48,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 14,Var 62],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 7,Var 48,Var 63],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleAbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CApply") [Var 46,Var 47],Var 64],Comb FuncCall ("OraclePrelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 48],Comb ConsCall ("AbstractCurry","CApply") [Var 46,Var 47],Var 65],Var 66],Var 67],Var 68],Var 69]])),Branch (Pattern ("AbstractCurry","CLit") [49]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [50]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [51,52]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [53,54]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [55,56]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [57]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [58,59]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [60,61]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_210") 10 Private (TVar (-42)) (Rule [2,3,4,7,14,46,47,48,49,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 49) [Branch (Pattern ("Prelude","True") []) (Let [(50,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(51,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(52,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(53,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 50,Comb ConsCall ("Prelude",":") [Var 51,Comb ConsCall ("Prelude",":") [Var 52,Comb ConsCall ("Prelude",":") [Var 53,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 14,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Comb ConsCall ("AbstractCurry","CApply") [Var 46,Var 47],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 50],Var 51],Var 52],Var 53]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_213") 8 Private (TVar (-42)) (Rule [2,3,4,7,14,31,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("AbstractCurry","CVar") [32]) (Let [(46,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(47,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(48,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(49,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(50,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(51,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(52,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(53,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 46,Comb ConsCall ("Prelude",":") [Var 47,Comb ConsCall ("Prelude",":") [Var 48,Comb ConsCall ("Prelude",":") [Var 49,Comb ConsCall ("Prelude",":") [Var 50,Comb ConsCall ("Prelude",":") [Var 51,Comb ConsCall ("Prelude",":") [Var 52,Comb ConsCall ("Prelude",":") [Var 53,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_212") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 31,Var 32,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 14,Var 46],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 7,Var 32,Var 47],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleAbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CSymbol") [Var 31],Var 48],Comb FuncCall ("OraclePrelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 32],Comb ConsCall ("AbstractCurry","CSymbol") [Var 31],Var 49],Var 50],Var 51],Var 52],Var 53]])),Branch (Pattern ("AbstractCurry","CLit") [33]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [34]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [35,36]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [37,38]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [39,40]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [41]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [42,43]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [44,45]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_212") 9 Private (TVar (-42)) (Rule [2,3,4,7,14,31,32,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 33) [Branch (Pattern ("Prelude","True") []) (Let [(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 14,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Comb ConsCall ("AbstractCurry","CSymbol") [Var 31],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 34],Var 35],Var 36],Var 37]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_215") 8 Private (TVar (-42)) (Rule [2,3,4,7,14,16,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("AbstractCurry","CVar") [17]) (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_214") [Var 2,Var 3,Var 4,Var 7,Var 14,Var 16,Var 17,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 14,Var 31],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 7,Var 17,Var 32],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleAbstractCurryPrinter","isAtom") [Comb ConsCall ("AbstractCurry","CLit") [Var 16],Var 33],Comb FuncCall ("OraclePrelude","/=") [Comb ConsCall ("AbstractCurry","CVar") [Var 17],Comb ConsCall ("AbstractCurry","CLit") [Var 16],Var 34],Var 35],Var 36],Var 37],Var 38]])),Branch (Pattern ("AbstractCurry","CLit") [18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CApply") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CDoExpr") [26]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CListComp") [27,28]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CCase") [29,30]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_214") 9 Private (TVar (-42)) (Rule [2,3,4,7,14,16,17,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 18) [Branch (Pattern ("Prelude","True") []) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 14,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Comb ConsCall ("AbstractCurry","CLit") [Var 16],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 19],Var 20],Var 21],Var 22]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_218") 9 Private (TVar (-42)) (Rule [2,3,4,7,11,14,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude","True") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_217") [Var 2,Var 3,Var 4,Var 7,Var 11,Var 14,Var 15,Comb FuncCall ("OraclePrelude","==") [Var 7,Var 15,Var 1],Var 17]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_217") 9 Private (TVar (-42)) (Rule [2,3,4,7,11,14,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude","True") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 11,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 14,Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 17],Var 18],Var 19],Var 20]])),Branch (Pattern ("Prelude","False") []) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_216") [Var 2,Var 3,Var 4,Var 7,Var 11,Var 14,Var 15,Comb FuncCall ("OraclePrelude","==") [Var 11,Comb ConsCall ("AbstractCurry","CVar") [Var 7],Var 1],Var 21]]))]])),Func ("OracleAbstractCurryPrinter","_case_216") 9 Private (TVar (-42)) (Rule [2,3,4,7,11,14,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude","True") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 14,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Comb ConsCall ("AbstractCurry","CVar") [Var 15],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 17],Var 18],Var 19],Var 20]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambda") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_231") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_230") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_230") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_229") [Var 4,Var 5,Var 6,Var 7,Comb FuncCall ("OraclePrelude","==") [Var 5,Var 6,Var 1],Var 8]]))]])),Func ("OracleAbstractCurryPrinter","_case_229") 6 Private (TVar (-42)) (Rule [4,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_228") [Var 4,Var 6,Var 7,Comb FuncCall ("OracleMaybe","isJust") [Comb FuncCall ("OracleFiniteMap","lookupFM") [Var 4,Var 7,Var 1],Var 9],Var 10]]))]])),Func ("OracleAbstractCurryPrinter","_case_228") 5 Private (TVar (-42)) (Rule [4,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 6,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []],Var 7,Var 1],Var 9]])),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_227") [Var 7,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 10]]))]])),Func ("OracleAbstractCurryPrinter","_case_227") 3 Private (TVar (-42)) (Rule [7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_234") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CVar") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_233") [Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CLit") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLiteral") [Var 7,Var 1]]),Branch (Pattern ("AbstractCurry","CSymbol") [8]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_232") [Var 2,Var 8,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Comb FuncCall ("OraclePrelude","snd") [Var 8,Var 20],Var 21],Var 22]])),Branch (Pattern ("AbstractCurry","CApply") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showApplication") [Var 2,Comb ConsCall ("AbstractCurry","CApply") [Var 9,Var 10],Var 1]]),Branch (Pattern ("AbstractCurry","CLambda") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showLambdaOrSection") [Var 2,Var 11,Var 12,Var 1]]),Branch (Pattern ("AbstractCurry","CLetDecl") [13,14]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showBlock") [Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showLocalDecl") [Var 2]],Var 13,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 14,Var 23],Var 24],Var 25],Var 26],Var 27]])),Branch (Pattern ("AbstractCurry","CDoExpr") [15]) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showBlock") [Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showStatement") [Var 2]],Var 15,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 28],Var 29]])),Branch (Pattern ("AbstractCurry","CListComp") [16,17]) (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 16,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '|'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showStatement") [Var 2]],Var 17,Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Var 30],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []],Var 31],Var 32],Var 33],Var 34]])),Branch (Pattern ("AbstractCurry","CCase") [18,19]) (Let [(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showBoxedExpr") [Var 2,Var 18,Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showBlock") [Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showBranchExpr") [Var 2]],Var 19,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 35],Var 36],Var 37],Var 38],Var 39]]))]])),Func ("OracleAbstractCurryPrinter","_case_232") 4 Private (TVar (-42)) (Rule [2,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showSymbol") [Var 2,Var 8,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showSymbol") [Var 2,Var 8,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_233") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","showIdentifier") [Var 1],Var 6,Var 7]]))]])),Func ("OracleAbstractCurryPrinter","_case_236") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CLocalFunc") [4]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","showLocalFuncDecl") [Var 2,Var 1],Var 4,Var 9]])),Branch (Pattern ("AbstractCurry","CLocalPat") [5,6,7]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showPattern") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 6,Var 10],Comb FuncCall ("OracleAbstractCurryPrinter","_case_235") [Var 2,Var 7,Comb FuncCall ("OraclePrelude","null") [Var 7,Var 11],Var 12],Var 13],Var 14],Var 15]])),Branch (Pattern ("AbstractCurry","CLocalVar") [8]) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showPattern") [Comb ConsCall ("AbstractCurry","CPVar") [Var 8],Var 1],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","[]") []]]]]],Var 16]]))]])),Func ("OracleAbstractCurryPrinter","_case_235") 4 Private (TVar (-42)) (Rule [2,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showBlock") [Comb FuncCall ("OracleAbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showLocalDecl") [Var 2]],Var 7,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 9],Var 10]]))]])),Func ("OracleAbstractCurryPrinter","_case_237") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '|'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 5,Var 6],Var 7],Var 8],Var 9]]))]])),Func ("OracleAbstractCurryPrinter","_case_241") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_240") [Var 2,Var 5,Var 4,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_240") 4 Private (TVar (-42)) (Rule [2,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_239") [Var 2,Var 5,Var 6,Var 7,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 5,Comb ConsCall ("Prelude","[]") [],Var 1],Comb FuncCall ("OraclePrelude","==") [Var 6,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","[]") []]]]]]]]]],Var 8],Var 9],Var 10]]))]])),Func ("OracleAbstractCurryPrinter","_case_239") 6 Private (TVar (-42)) (Rule [2,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleAbstractCurryPrinter","showExprOpt") [Var 2,Var 7,Var 1],Var 9]])),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_238") [Var 2,Var 5,Var 6,Var 7,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 10]]))]])),Func ("OracleAbstractCurryPrinter","_case_238") 6 Private (TVar (-42)) (Rule [2,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBlock") [Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showCrhs") [Var 2]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 6,Var 7],Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 9],Var 10]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_242") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CFlex") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleAbstractCurryPrinter","_case_244") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CRule") [4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showPattern") []],Var 4,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showCrhsList") [Var 2,Var 5,Var 7],Comb FuncCall ("OracleAbstractCurryPrinter","_case_243") [Var 2,Var 6,Comb FuncCall ("OraclePrelude","null") [Var 6,Var 8],Var 9],Var 10],Var 11]]))]])),Func ("OracleAbstractCurryPrinter","_case_243") 4 Private (TVar (-42)) (Rule [2,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showBlock") [Comb FuncCall ("OracleAbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showLocalDecl") [Var 2]],Var 6,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 8],Var 9]]))]])),Func ("OracleAbstractCurryPrinter","_case_245") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 4,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 2,Var 5,Var 1],Var 6],Var 7]]))]])),Func ("OracleAbstractCurryPrinter","_case_253") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("AbstractCurry","CFunc") [5,6,7,8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_252") [Var 2,Var 3,Var 8,Var 9,Var 5,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_252") 6 Private (TVar (-42)) (Rule [2,3,8,9,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","(,)") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_251") [Var 2,Var 3,Var 8,Var 11,Var 9,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_251") 6 Private (TVar (-42)) (Rule [2,3,8,11,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("AbstractCurry","CRules") [12,13]) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]],Let [(14,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 11,Var 19])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Let [(15,Comb FuncCall ("OracleAbstractCurryPrinter","_case_247") [Var 11,Var 14,Var 20])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]]]]],Let [(16,Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","concat") []],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showCmtFunc.insertName.139") [Var 11]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","span") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Lit (Charc ' ')]]]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","tail") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showRule") [Var 2]],Var 21],Var 22],Var 23],Var 13,Var 24],Var 25],Var 26])] (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","funcComment") [Var 27],Var 3,Var 28],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","_case_250") [Var 12,Var 15,Comb FuncCall ("OraclePrelude","==") [Var 12,Comb ConsCall ("AbstractCurry","CFlex") [],Var 29],Var 30],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","_case_249") [Var 8,Var 15,Comb FuncCall ("OracleAbstractCurryPrinter","isUntyped") [Var 8,Var 31],Var 32],Comb FuncCall ("OracleAbstractCurryPrinter","_case_248") [Var 2,Var 11,Var 13,Var 16,Var 14,Var 33],Var 34],Var 35],Var 36]]))]))]))])),Branch (Pattern ("AbstractCurry","CExternal") [17]) (Let [(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude","[]") []]]],Let [(18,Comb FuncCall ("OracleAbstractCurryPrinter","_case_246") [Var 11,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 1],Var 11,Var 37],Var 38])] (Let [(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(44,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(45,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(46,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(47,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude",":") [Var 44,Comb ConsCall ("Prelude",":") [Var 45,Comb ConsCall ("Prelude",":") [Var 46,Comb ConsCall ("Prelude",":") [Var 47,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","funcComment") [Var 39],Var 3,Var 40],Comb FuncCall ("OraclePrelude","++") [Var 18,Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") [],Var 8,Var 41],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 18,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","[]") []]]]]]]]]],Var 42],Var 43],Var 44],Var 45],Var 46],Var 47]]))]))]])),Func ("OracleAbstractCurryPrinter","_case_246") 3 Private (TVar (-42)) (Rule [11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 11,Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 13]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 11])]])),Func ("OracleAbstractCurryPrinter","_case_247") 3 Private (TVar (-42)) (Rule [11,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 11,Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 15]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 11])]])),Func ("OracleAbstractCurryPrinter","_case_248") 6 Private (TVar (-42)) (Rule [2,11,13,16,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 16]),Branch (Pattern ("Prelude","False") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 11,Comb FuncCall ("OracleAbstractCurryPrinter","prefixInter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showRule") [Var 2]],Var 13,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 11,Var 1],Var 17],Var 18]]))]])),Func ("OracleAbstractCurryPrinter","_case_249") 4 Private (TVar (-42)) (Rule [8,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Var 15,Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") [],Var 8,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 17],Var 18],Var 19]]))]])),Func ("OracleAbstractCurryPrinter","_case_250") 4 Private (TVar (-42)) (Rule [12,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Var 15,Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showEvalAnnot") [Var 12,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 17],Var 18],Var 19]]))]])),Func ("OracleAbstractCurryPrinter","_case_254") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CmtFunc") [4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showCmtFunc") [Var 2,Var 4,Comb ConsCall ("AbstractCurry","CFunc") [Var 5,Var 6,Var 7,Var 8,Var 9],Var 1]]),Branch (Pattern ("AbstractCurry","CFunc") [10,11,12,13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","showCmtFunc") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 3,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_255") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("AbstractCurry","CFuncType") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("AbstractCurry","CTVar") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("AbstractCurry","CTCons") [6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleAbstractCurryPrinter","_case_257") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_256") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc 'a'),Var 1],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("OraclePrelude","null") [Var 4,Var 5],Var 6],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","all") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleChar","isDigit") []],Var 7],Var 4,Var 8],Var 9],Var 10],Var 11]]))]])),Func ("OracleAbstractCurryPrinter","_case_256") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc '_'),Var 4]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Var 4]])]])),Func ("OracleAbstractCurryPrinter","_case_262") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("AbstractCurry","CTVar") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_261") [Var 4,Var 1]]),Branch (Pattern ("AbstractCurry","CFuncType") [7,8]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleAbstractCurryPrinter","maybeShowBrackets") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showTypeExpr") [Comb FuncCall ("OracleAbstractCurryPrinter","isCFuncType") [Var 7,Var 1],Var 7,Var 11],Comb FuncCall ("OraclePrelude","++") [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 ("OracleAbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") [],Var 8,Var 12],Var 13],Var 14],Var 15]])),Branch (Pattern ("AbstractCurry","CTCons") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_260") [Var 2,Var 10,Var 9,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_260") 4 Private (TVar (-42)) (Rule [2,10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude","(,)") [11,12]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleAbstractCurryPrinter","_case_259") [Var 2,Var 10,Var 11,Var 12,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 11,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 FuncCall ("OraclePrelude","==") [Var 12,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","[]") []]]]]]]],Var 13],Var 14],Var 15]]))]])),Func ("OracleAbstractCurryPrinter","_case_259") 6 Private (TVar (-42)) (Rule [2,10,11,12,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_258") [Var 2,Var 10,Var 11,Var 12,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 14]]))]])),Func ("OracleAbstractCurryPrinter","_case_258") 6 Private (TVar (-42)) (Rule [2,10,11,12,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleAbstractCurryPrinter","maybeShowBrackets") [Comb FuncCall ("OraclePrelude","&&") [Var 2,Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("OraclePrelude","null") [Var 10,Var 1],Var 14],Var 15],Comb FuncCall ("OracleAbstractCurryPrinter","showTypeCons") [Var 11,Var 12,Var 10,Var 16],Var 17]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_261") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","showTypeVar") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","showIdentifier") [Var 1],Var 6,Var 7],Var 8]]))]])),Func ("OracleAbstractCurryPrinter","_case_264") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CCons") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_263") [Var 6,Var 3,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_263") 3 Private (TVar (-42)) (Rule [6,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 8,Comb FuncCall ("OracleAbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","True") []]],Var 6,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 1],Var 9]]))]])),Func ("OracleAbstractCurryPrinter","_case_267") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CTypeSyn") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_266") [Var 5,Var 6,Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CType") [9,10,11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_265") [Var 11,Var 12,Var 9,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_265") 4 Private (TVar (-42)) (Rule [11,12,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude","(,)") [13,14]) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 14,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") []]],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("AbstractCurry","CTVar") []],Var 11,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 15],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","showBlock") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAbstractCurryPrinter","combineMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showConsDecl") []],Var 12,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc '|'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Var 16],Var 17],Var 18],Var 19],Var 20],Var 21],Var 22]]))]])),Func ("OracleAbstractCurryPrinter","_case_266") 4 Private (TVar (-42)) (Rule [5,6,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 8,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","prefixMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") []]],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("AbstractCurry","CTVar") []],Var 5,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 9],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleAbstractCurryPrinter","showTypeExpr") [Comb ConsCall ("Prelude","False") [],Var 6,Var 10],Var 11],Var 12],Var 13],Var 14]]))]])),Func ("OracleAbstractCurryPrinter","_case_268") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]])]])),Func ("OracleAbstractCurryPrinter","_case_269") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CInfixOp") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleAbstractCurryPrinter","_case_272") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","COp") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_271") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_271") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showFixity") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 8],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAbstractCurryPrinter","_case_270") [Var 7,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","isInfixOpName") [Var 9],Var 7,Var 10],Var 11],Var 12],Var 13],Var 14],Var 15]]))]])),Func ("OracleAbstractCurryPrinter","_case_270") 3 Private (TVar (-42)) (Rule [7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '`'),Comb FuncCall ("OraclePrelude","++") [Var 7,Comb ConsCall ("Prelude",":") [Lit (Charc '`'),Comb ConsCall ("Prelude","[]") []],Var 1]]])]])),Func ("OracleAbstractCurryPrinter","_case_273") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]])]])),Func ("OracleAbstractCurryPrinter","_case_274") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","++") [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 2,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleAbstractCurryPrinter","_case_275") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]])]])),Func ("OracleAbstractCurryPrinter","_case_276") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleAbstractCurryPrinter","_case_277") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleAbstractCurryPrinter","_case_280") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CFunc") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_279") [Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CmtFunc") [10,11,12,13,14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_278") [Var 11,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_278") 2 Private (TVar (-42)) (Rule [11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude","(,)") [16,17]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 17])]])),Func ("OracleAbstractCurryPrinter","_case_279") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleAbstractCurryPrinter","_case_281") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CCons") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 5,Comb ConsCall ("AbstractCurry","Public") [],Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_282") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CType") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","length") [Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showExports.allPublicCons.9.isPublicCons.49") []],Var 6,Var 1],Var 7],Comb FuncCall ("OraclePrelude","length") [Var 6,Var 8],Var 9]]))]])),Func ("OracleAbstractCurryPrinter","_case_285") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CType") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_284") [Var 3,Var 1]]),Branch (Pattern ("AbstractCurry","CTypeSyn") [9,10,11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAbstractCurryPrinter","_case_283") [Var 9,Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_283") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude","(,)") [13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 14])]])),Func ("OracleAbstractCurryPrinter","_case_284") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [7,8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleAbstractCurryPrinter","_case_286") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CFunc") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 5,Comb ConsCall ("AbstractCurry","Public") [],Var 1]]),Branch (Pattern ("AbstractCurry","CmtFunc") [8,9,10,11,12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 11,Comb ConsCall ("AbstractCurry","Public") [],Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_287") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CType") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 4,Comb ConsCall ("AbstractCurry","Public") [],Var 1]]),Branch (Pattern ("AbstractCurry","CTypeSyn") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 8,Comb ConsCall ("AbstractCurry","Public") [],Var 1]])]])),Func ("OracleAbstractCurryPrinter","_case_289") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("AbstractCurry","CurryProg") [3,4,5,6,7]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleAbstractCurryPrinter","showExports") [Var 5,Var 6,Var 1])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","_case_288") [Var 8,Comb FuncCall ("OraclePrelude","==") [Var 8,Comb ConsCall ("Prelude","[]") [],Var 9],Var 10],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showImports") [Var 4,Var 11],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showOpDecls") [Var 7,Var 12],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","showTypeDecls") [Var 5,Var 13],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleAbstractCurryPrinter","prefixInter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAbstractCurryPrinter","showFuncDeclOpt") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAbstractCurryPrinter","nameFM") [Var 14],Var 6,Var 15],Var 3]]],Var 6,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]],Var 16],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 17],Var 18],Var 19],Var 20],Var 21],Var 22],Var 23],Var 24]]))]))]])),Func ("OracleAbstractCurryPrinter","_case_288") 3 Private (TVar (-42)) (Rule [8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 8,Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 10]]))]]))] []
+ Curry/Module/OracleAnsiCodes.fcy view
@@ -0,0 +1,1 @@+Prog "OracleAnsiCodes" ["CEventOracle","Oracle","IOExts","AnsiCodes","Char","List","Prelude","OracleChar","OracleList","OraclePrelude"] [] [Func ("OracleAnsiCodes","esc") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 27),Var 1]])),Func ("OracleAnsiCodes","cmd") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","esc") [Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude","[]") []],Var 2,Var 3]]]))),Func ("OracleAnsiCodes","cursorPos") 3 Public (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleAnsiCodes","cmd") [Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ';'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc 'H'),Comb ConsCall ("Prelude","[]") []],Var 5],Var 6],Var 7],Var 8]]))),Func ("OracleAnsiCodes","cursorHome") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAnsiCodes","cmd") [Comb ConsCall ("Prelude",":") [Lit (Charc 'H'),Comb ConsCall ("Prelude","[]") []],Var 1]])),Func ("OracleAnsiCodes","moveCursor") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAnsiCodes","cmd") [Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Var 2,Var 4],Var 5]]))),Func ("OracleAnsiCodes","cursorUp") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","moveCursor") [Comb ConsCall ("Prelude",":") [Lit (Charc 'A'),Comb ConsCall ("Prelude","[]") []]]]])),Func ("OracleAnsiCodes","cursorDown") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","moveCursor") [Comb ConsCall ("Prelude",":") [Lit (Charc 'B'),Comb ConsCall ("Prelude","[]") []]]]])),Func ("OracleAnsiCodes","cursorFwd") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","moveCursor") [Comb ConsCall ("Prelude",":") [Lit (Charc 'C'),Comb ConsCall ("Prelude","[]") []]]]])),Func ("OracleAnsiCodes","cursorBack") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","moveCursor") [Comb ConsCall ("Prelude",":") [Lit (Charc 'D'),Comb ConsCall ("Prelude","[]") []]]]])),Func ("OracleAnsiCodes","saveCursor") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAnsiCodes","cmd") [Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude","[]") []],Var 1]])),Func ("OracleAnsiCodes","restoreCursor") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAnsiCodes","cmd") [Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude","[]") []],Var 1]])),Func ("OracleAnsiCodes","clear") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAnsiCodes","cmd") [Comb ConsCall ("Prelude",":") [Lit (Charc '2'),Comb ConsCall ("Prelude",":") [Lit (Charc 'J'),Comb ConsCall ("Prelude","[]") []]],Var 1]])),Func ("OracleAnsiCodes","eraseLine") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAnsiCodes","cmd") [Comb ConsCall ("Prelude",":") [Lit (Charc 'K'),Comb ConsCall ("Prelude","[]") []],Var 1]])),Func ("OracleAnsiCodes","mode") 3 Private (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleAnsiCodes","cmd") [Comb ConsCall ("Prelude",":") [Lit (Charc '0'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude","[]") []]],Var 1])] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OracleAnsiCodes","cmd") [Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 2,Var 5],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 3,Comb FuncCall ("OracleAnsiCodes","_case_4") [Var 3,Var 4,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAnsiCodes","isSuffixOf") [Var 4,Var 6],Var 3,Var 7],Var 8],Var 9],Var 10],Var 11],Var 12]]))]))),Func ("OracleAnsiCodes","isSuffixOf") 2 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Bool") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleList","isPrefixOf") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","reverse") [Var 1],Var 2,Var 3]]],Comb FuncCall ("OraclePrelude","reverse") [Var 4],Var 5]]))),Func ("OracleAnsiCodes","bold") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 1)]]])),Func ("OracleAnsiCodes","underline") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 4)]]])),Func ("OracleAnsiCodes","revColors") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 7)]]])),Func ("OracleAnsiCodes","concealed") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 8)]]])),Func ("OracleAnsiCodes","black") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 30)]]])),Func ("OracleAnsiCodes","red") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 31)]]])),Func ("OracleAnsiCodes","green") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 32)]]])),Func ("OracleAnsiCodes","yellow") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 33)]]])),Func ("OracleAnsiCodes","blue") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 34)]]])),Func ("OracleAnsiCodes","magenta") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 35)]]])),Func ("OracleAnsiCodes","cyan") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 36)]]])),Func ("OracleAnsiCodes","white") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 37)]]])),Func ("OracleAnsiCodes","bgBlack") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 40)]]])),Func ("OracleAnsiCodes","bgRed") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 41)]]])),Func ("OracleAnsiCodes","bgGreen") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 42)]]])),Func ("OracleAnsiCodes","bgYellow") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 43)]]])),Func ("OracleAnsiCodes","bgBlue") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 44)]]])),Func ("OracleAnsiCodes","bgMagenta") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 45)]]])),Func ("OracleAnsiCodes","bgCyan") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 46)]]])),Func ("OracleAnsiCodes","bgWhite") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 47)]]])),Func ("OracleAnsiCodes","ansiLength") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAnsiCodes","ansiLength.aux.95") [Var 2,Comb FuncCall ("OraclePrelude","length") [Var 2,Var 1],Var 3]]))),Func ("OracleAnsiCodes","ansiLength.aux.95") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAnsiCodes","_case_3") [Var 3,Var 2,Var 1]])),Func ("OracleAnsiCodes","_case_3") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleAnsiCodes","_case_2") [Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 4,Comb FuncCall ("OracleAnsiCodes","esc") [Var 1],Var 6],Comb FuncCall ("OracleChar","isDigit") [Comb FuncCall ("OraclePrelude","!!") [Var 5,Lit (Intc 2),Var 7],Var 8],Var 9],Var 10]]))]])),Func ("OracleAnsiCodes","_case_2") 5 Private (TVar (-42)) (Rule [3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleAnsiCodes","ansiLength.aux.95") [Comb FuncCall ("OraclePrelude","tail") [Comb FuncCall ("OraclePrelude","tail") [Comb FuncCall ("OraclePrelude","tail") [Comb FuncCall ("OraclePrelude","tail") [Var 5,Var 1],Var 7],Var 8],Var 9],Comb FuncCall ("OraclePrelude","-") [Var 3,Lit (Intc 5),Var 10],Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAnsiCodes","_case_1") [Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Comb FuncCall ("OracleAnsiCodes","esc") [Var 1],Var 12],Var 13]]))]])),Func ("OracleAnsiCodes","_case_1") 5 Private (TVar (-42)) (Rule [3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleAnsiCodes","ansiLength.aux.95") [Comb FuncCall ("OraclePrelude","tail") [Comb FuncCall ("OraclePrelude","tail") [Comb FuncCall ("OraclePrelude","tail") [Var 5,Var 1],Var 7],Var 8],Comb FuncCall ("OraclePrelude","-") [Var 3,Lit (Intc 4),Var 9],Var 10]])),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAnsiCodes","_case_0") [Var 3,Var 5,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 11]]))]])),Func ("OracleAnsiCodes","_case_0") 4 Private (TVar (-42)) (Rule [3,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAnsiCodes","ansiLength.aux.95") [Var 5,Var 3,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAnsiCodes","_case_4") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]]))] []
+ Curry/Module/OracleAnsiCodes.fint view
@@ -0,0 +1,1 @@+Prog "OracleAnsiCodes" ["CEventOracle","Oracle","IOExts","AnsiCodes","Char","List","Prelude","OracleChar","OracleList","OraclePrelude"] [] [Func ("OracleAnsiCodes","esc") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 27),Var 1]])),Func ("OracleAnsiCodes","cmd") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","esc") [Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude","[]") []],Var 2,Var 3]]]))),Func ("OracleAnsiCodes","cursorPos") 3 Public (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleAnsiCodes","cmd") [Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ';'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc 'H'),Comb ConsCall ("Prelude","[]") []],Var 5],Var 6],Var 7],Var 8]]))),Func ("OracleAnsiCodes","cursorHome") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAnsiCodes","cmd") [Comb ConsCall ("Prelude",":") [Lit (Charc 'H'),Comb ConsCall ("Prelude","[]") []],Var 1]])),Func ("OracleAnsiCodes","moveCursor") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAnsiCodes","cmd") [Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Var 2,Var 4],Var 5]]))),Func ("OracleAnsiCodes","cursorUp") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","moveCursor") [Comb ConsCall ("Prelude",":") [Lit (Charc 'A'),Comb ConsCall ("Prelude","[]") []]]]])),Func ("OracleAnsiCodes","cursorDown") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","moveCursor") [Comb ConsCall ("Prelude",":") [Lit (Charc 'B'),Comb ConsCall ("Prelude","[]") []]]]])),Func ("OracleAnsiCodes","cursorFwd") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","moveCursor") [Comb ConsCall ("Prelude",":") [Lit (Charc 'C'),Comb ConsCall ("Prelude","[]") []]]]])),Func ("OracleAnsiCodes","cursorBack") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","moveCursor") [Comb ConsCall ("Prelude",":") [Lit (Charc 'D'),Comb ConsCall ("Prelude","[]") []]]]])),Func ("OracleAnsiCodes","saveCursor") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAnsiCodes","cmd") [Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude","[]") []],Var 1]])),Func ("OracleAnsiCodes","restoreCursor") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAnsiCodes","cmd") [Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude","[]") []],Var 1]])),Func ("OracleAnsiCodes","clear") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAnsiCodes","cmd") [Comb ConsCall ("Prelude",":") [Lit (Charc '2'),Comb ConsCall ("Prelude",":") [Lit (Charc 'J'),Comb ConsCall ("Prelude","[]") []]],Var 1]])),Func ("OracleAnsiCodes","eraseLine") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAnsiCodes","cmd") [Comb ConsCall ("Prelude",":") [Lit (Charc 'K'),Comb ConsCall ("Prelude","[]") []],Var 1]])),Func ("OracleAnsiCodes","mode") 3 Private (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleAnsiCodes","cmd") [Comb ConsCall ("Prelude",":") [Lit (Charc '0'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude","[]") []]],Var 1])] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OracleAnsiCodes","cmd") [Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 2,Var 5],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 3,Comb FuncCall ("OracleAnsiCodes","_case_4") [Var 3,Var 4,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleAnsiCodes","isSuffixOf") [Var 4,Var 6],Var 3,Var 7],Var 8],Var 9],Var 10],Var 11],Var 12]]))]))),Func ("OracleAnsiCodes","isSuffixOf") 2 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Bool") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleList","isPrefixOf") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","reverse") [Var 1],Var 2,Var 3]]],Comb FuncCall ("OraclePrelude","reverse") [Var 4],Var 5]]))),Func ("OracleAnsiCodes","bold") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 1)]]])),Func ("OracleAnsiCodes","underline") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 4)]]])),Func ("OracleAnsiCodes","revColors") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 7)]]])),Func ("OracleAnsiCodes","concealed") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 8)]]])),Func ("OracleAnsiCodes","black") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 30)]]])),Func ("OracleAnsiCodes","red") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 31)]]])),Func ("OracleAnsiCodes","green") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 32)]]])),Func ("OracleAnsiCodes","yellow") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 33)]]])),Func ("OracleAnsiCodes","blue") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 34)]]])),Func ("OracleAnsiCodes","magenta") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 35)]]])),Func ("OracleAnsiCodes","cyan") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 36)]]])),Func ("OracleAnsiCodes","white") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 37)]]])),Func ("OracleAnsiCodes","bgBlack") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 40)]]])),Func ("OracleAnsiCodes","bgRed") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 41)]]])),Func ("OracleAnsiCodes","bgGreen") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 42)]]])),Func ("OracleAnsiCodes","bgYellow") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 43)]]])),Func ("OracleAnsiCodes","bgBlue") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 44)]]])),Func ("OracleAnsiCodes","bgMagenta") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 45)]]])),Func ("OracleAnsiCodes","bgCyan") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 46)]]])),Func ("OracleAnsiCodes","bgWhite") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAnsiCodes","mode") [Lit (Intc 47)]]])),Func ("OracleAnsiCodes","ansiLength") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAnsiCodes","ansiLength.aux.95") [Var 2,Comb FuncCall ("OraclePrelude","length") [Var 2,Var 1],Var 3]]))),Func ("OracleAnsiCodes","ansiLength.aux.95") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAnsiCodes","_case_3") [Var 3,Var 2,Var 1]])),Func ("OracleAnsiCodes","_case_3") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleAnsiCodes","_case_2") [Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 4,Comb FuncCall ("OracleAnsiCodes","esc") [Var 1],Var 6],Comb FuncCall ("OracleChar","isDigit") [Comb FuncCall ("OraclePrelude","!!") [Var 5,Lit (Intc 2),Var 7],Var 8],Var 9],Var 10]]))]])),Func ("OracleAnsiCodes","_case_2") 5 Private (TVar (-42)) (Rule [3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleAnsiCodes","ansiLength.aux.95") [Comb FuncCall ("OraclePrelude","tail") [Comb FuncCall ("OraclePrelude","tail") [Comb FuncCall ("OraclePrelude","tail") [Comb FuncCall ("OraclePrelude","tail") [Var 5,Var 1],Var 7],Var 8],Var 9],Comb FuncCall ("OraclePrelude","-") [Var 3,Lit (Intc 5),Var 10],Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleAnsiCodes","_case_1") [Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Comb FuncCall ("OracleAnsiCodes","esc") [Var 1],Var 12],Var 13]]))]])),Func ("OracleAnsiCodes","_case_1") 5 Private (TVar (-42)) (Rule [3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleAnsiCodes","ansiLength.aux.95") [Comb FuncCall ("OraclePrelude","tail") [Comb FuncCall ("OraclePrelude","tail") [Comb FuncCall ("OraclePrelude","tail") [Var 5,Var 1],Var 7],Var 8],Comb FuncCall ("OraclePrelude","-") [Var 3,Lit (Intc 4),Var 9],Var 10]])),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAnsiCodes","_case_0") [Var 3,Var 5,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 11]]))]])),Func ("OracleAnsiCodes","_case_0") 4 Private (TVar (-42)) (Rule [3,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAnsiCodes","ansiLength.aux.95") [Var 5,Var 3,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleAnsiCodes","_case_4") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]]))] []
+ Curry/Module/OracleArray.fcy view
@@ -0,0 +1,1 @@+Prog "OracleArray" ["CEventOracle","Oracle","IOExts","Array","Integer","Prelude","OracleInteger","OraclePrelude"] [Type ("OracleArray","Array") Public [0] [Cons ("OracleArray","Array") 2 Private [FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 0)),TCons ("Array","Entry") [TVar 0]]]] [Func ("OracleArray","emptyErrorArray") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleArray","Array") [TVar 0])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","emptyDefaultArray") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleArray","errorArray") []],Var 1]])),Func ("OracleArray","errorArray") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'x'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],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 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'z'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]],Var 3],Var 4],Var 5]]))),Func ("OracleArray","emptyDefaultArray") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 0))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleArray","Array") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OracleArray","Array") [Var 2,Comb ConsCall ("Array","Empty") []]])),Func ("OracleArray","//") 3 Public (FuncType (TCons ("OracleArray","Array") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleArray","Array") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_33") [Var 3,Var 2,Var 1]])),Func ("OracleArray","//._#lambda2") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 72))) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 72]) (FuncType (TCons ("Array","Entry") [TVar 72]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Array","Entry") [TVar 72]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_32") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleArray","update") 4 Public (FuncType (TCons ("OracleArray","Array") [TVar 0]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleArray","Array") [TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_31") [Var 3,Var 4,Var 2,Var 1]])),Func ("OracleArray","applyAt") 4 Public (FuncType (TCons ("OracleArray","Array") [TVar 0]) (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleArray","Array") [TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_30") [Var 3,Var 4,Var 2,Var 1]])),Func ("OracleArray","at") 5 Private (FuncType (TVar 0) (FuncType (TCons ("Array","Entry") [TVar 0]) (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Array","Entry") [TVar 0])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_29") [Var 2,Var 4,Var 5,Var 3,Var 1]])),Func ("OracleArray","!") 3 Public (FuncType (TCons ("OracleArray","Array") [TVar 0]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_22") [Var 3,Var 2,Var 1]])),Func ("OracleArray","from") 4 Private (FuncType (TVar 0) (FuncType (TCons ("Array","Entry") [TVar 0]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_21") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleArray","split") 2 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_17") [Var 2,Var 1]])),Func ("OracleArray","split._#selFP3#xs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 126],TCons ("Prelude","[]") [TVar 126]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 126]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_15") [Var 2,Var 1]])),Func ("OracleArray","split._#selFP4#ys") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 126],TCons ("Prelude","[]") [TVar 126]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 126]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_14") [Var 2,Var 1]])),Func ("OracleArray","listToDefaultArray") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 0))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("OracleArray","Array") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("OracleArray","Array") [Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleArray","listToArray") []],Var 1]])),Func ("OracleArray","listToErrorArray") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("OracleArray","Array") [TVar 0])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","listToDefaultArray") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleArray","errorArray") []],Var 1]])),Func ("OracleArray","listToArray") 2 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Array","Entry") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_13") [Var 2,Var 1]])),Func ("OracleArray","listToArray._#selFP6#ys") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 137],TCons ("Prelude","[]") [TVar 137]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 137]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_12") [Var 2,Var 1]])),Func ("OracleArray","listToArray._#selFP7#zs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 137],TCons ("Prelude","[]") [TVar 137]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 137]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_11") [Var 2,Var 1]])),Func ("OracleArray","combine") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 2))))) (FuncType (TCons ("OracleArray","Array") [TVar 0]) (FuncType (TCons ("OracleArray","Array") [TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleArray","Array") [TVar 2]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_10") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleArray","combine._#lambda3") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 252))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 255))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 252) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 255) (TVar 263))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 263)))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 4,Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 6],Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 7],Var 8]]))),Func ("OracleArray","comb") 8 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 2))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 0))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 1))) (FuncType (TCons ("Array","Entry") [TVar 0]) (FuncType (TCons ("Array","Entry") [TVar 1]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Array","Entry") [TVar 2]))))))))) (Rule [2,3,4,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_8") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 5,Var 1]])),Func ("OracleArray","combineSimilar") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (TCons ("OracleArray","Array") [TVar 0]) (FuncType (TCons ("OracleArray","Array") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleArray","Array") [TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_5") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleArray","combSim") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (TCons ("Array","Entry") [TVar 0]) (FuncType (TCons ("Array","Entry") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Array","Entry") [TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_3") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleArray","foldArray") 4 Public (FuncType (TVar 0) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))))) (FuncType (TCons ("OracleArray","Array") [TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_1") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleArray","foldEntries") 4 Private (FuncType (TVar 0) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))))) (FuncType (TCons ("Array","Entry") [TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_0") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleArray","arrayToList") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleArray","Array") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleArray","foldArray") [Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleArray","arrayToList._#lambda4") []]]]])),Func ("OracleArray","arrayToList._#lambda4") 4 Private (FuncType (TVar 345) (FuncType (TCons ("Prelude","[]") [TVar 345]) (FuncType (TCons ("Prelude","[]") [TVar 345]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 345]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb FuncCall ("OraclePrelude","++") [Var 3,Var 4,Var 1]]])),Func ("OracleArray","_case_0") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Array","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Array","Entry") [5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 1],Comb FuncCall ("OracleArray","foldEntries") [Var 2,Var 3,Var 6,Var 8],Var 9],Comb FuncCall ("OracleArray","foldEntries") [Var 2,Var 3,Var 7,Var 10],Var 11]]))]])),Func ("OracleArray","_case_1") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("OracleArray","Array") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","foldEntries") [Var 2,Var 3,Var 6,Var 1]])]])),Func ("OracleArray","_case_3") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Array","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Array","Entry") [5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_2") [Var 2,Var 3,Var 5,Var 6,Var 7,Var 4,Var 1]])]])),Func ("OracleArray","_case_2") 7 Private (TVar (-42)) (Rule [2,3,5,6,7,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Array","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Array","Entry") [8,9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Array","Entry") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 8,Var 11],Comb FuncCall ("OracleArray","combSim") [Var 2,Var 6,Var 9,Var 12],Comb FuncCall ("OracleArray","combSim") [Var 2,Var 7,Var 10,Var 13]]]))]])),Func ("OracleArray","_case_5") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleArray","Array") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_4") [Var 2,Var 5,Var 6,Var 4,Var 1]])]])),Func ("OracleArray","_case_4") 5 Private (TVar (-42)) (Rule [2,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("OracleArray","Array") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleArray","Array") [Var 5,Comb FuncCall ("OracleArray","combSim") [Var 2,Var 6,Var 8,Var 1]]])]])),Func ("OracleArray","_case_8") 8 Private (TVar (-42)) (Rule [2,3,4,6,7,8,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Array","Empty") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_7") [Var 2,Var 3,Var 4,Var 7,Var 8,Var 6,Var 1]]),Branch (Pattern ("Array","Entry") [12,13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_6") [Var 2,Var 3,Var 4,Var 7,Var 8,Var 12,Var 13,Var 14,Var 6,Var 1]])]])),Func ("OracleArray","_case_6") 10 Private (TVar (-42)) (Rule [2,3,4,7,8,12,13,14,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Array","Empty") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb ConsCall ("Array","Entry") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 12,Var 1],Comb FuncCall ("Oracle","apply") [Var 4,Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","+") [Var 7,Var 8,Var 18],Lit (Intc 1),Var 19],Var 20],Var 21],Comb FuncCall ("OracleArray","comb") [Var 2,Var 3,Var 4,Var 13,Comb ConsCall ("Array","Empty") [],Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Var 7,Var 22],Var 8,Var 23],Comb FuncCall ("OracleArray","comb") [Var 2,Var 3,Var 4,Var 14,Comb ConsCall ("Array","Empty") [],Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Var 7,Var 24],Comb FuncCall ("OraclePrelude","+") [Var 8,Var 7,Var 25],Var 26]]])),Branch (Pattern ("Array","Entry") [15,16,17]) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude","[]") []]]]]]],Comb ConsCall ("Array","Entry") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 12,Var 1],Var 15,Var 27],Comb FuncCall ("OracleArray","comb") [Var 2,Var 3,Var 4,Var 13,Var 16,Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Var 7,Var 28],Var 8,Var 29],Comb FuncCall ("OracleArray","comb") [Var 2,Var 3,Var 4,Var 14,Var 17,Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Var 7,Var 30],Comb FuncCall ("OraclePrelude","+") [Var 8,Var 7,Var 31],Var 32]]]))]])),Func ("OracleArray","_case_7") 7 Private (TVar (-42)) (Rule [2,3,4,7,8,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Array","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Array","Empty") []]),Branch (Pattern ("Array","Entry") [9,10,11]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb ConsCall ("Array","Entry") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Comb FuncCall ("Oracle","apply") [Var 3,Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","+") [Var 7,Var 8,Var 1],Lit (Intc 1),Var 12],Var 13],Var 14],Var 9,Var 15],Comb FuncCall ("OracleArray","comb") [Var 2,Var 3,Var 4,Comb ConsCall ("Array","Empty") [],Var 10,Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Var 7,Var 16],Var 8,Var 17],Comb FuncCall ("OracleArray","comb") [Var 2,Var 3,Var 4,Comb ConsCall ("Array","Empty") [],Var 11,Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Var 7,Var 18],Comb FuncCall ("OraclePrelude","+") [Var 8,Var 7,Var 19],Var 20]]]))]])),Func ("OracleArray","_case_10") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleArray","Array") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_9") [Var 2,Var 5,Var 6,Var 4,Var 1]])]])),Func ("OracleArray","_case_9") 5 Private (TVar (-42)) (Rule [2,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("OracleArray","Array") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleArray","Array") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleArray","combine._#lambda3") [Var 5,Var 7,Var 2]],Comb FuncCall ("OracleArray","comb") [Var 2,Var 5,Var 7,Var 6,Var 8,Lit (Intc 0),Lit (Intc 1),Var 1]]])]])),Func ("OracleArray","_case_11") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleArray","_case_12") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleArray","_case_13") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Array","Empty") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleArray","split") [Var 4,Var 1])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleArray","listToArray._#selFP6#ys") [Var 5,Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleArray","listToArray._#selFP7#zs") [Var 5,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Array","Entry") [Var 3,Comb FuncCall ("OracleArray","listToArray") [Var 6,Var 10],Comb FuncCall ("OracleArray","listToArray") [Var 7,Var 11]]]))]))]))]))]])),Func ("OracleArray","_case_14") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleArray","_case_15") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleArray","_case_17") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_16") [Var 3,Var 4,Var 1]])]])),Func ("OracleArray","_case_16") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleArray","split") [Var 6,Var 1])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleArray","split._#selFP3#xs") [Var 7,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleArray","split._#selFP4#ys") [Var 7,Var 11])] (Comb FuncCall ("CEventOracle","collapse") [Var 12,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 3,Var 8],Comb ConsCall ("Prelude",":") [Var 5,Var 9]]])]))]))]))]])),Func ("OracleArray","_case_21") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Array","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Array","Entry") [5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","_case_20") [Var 2,Var 4,Var 5,Var 6,Var 7,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Intc 0),Var 1],Var 8]]))]])),Func ("OracleArray","_case_20") 7 Private (TVar (-42)) (Rule [2,4,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","_case_19") [Var 2,Var 4,Var 6,Var 7,Comb FuncCall ("OracleInteger","odd") [Var 4,Var 1],Var 9]]))]])),Func ("OracleArray","_case_19") 6 Private (TVar (-42)) (Rule [2,4,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","from") [Var 2,Var 6,Comb FuncCall ("OraclePrelude","div") [Var 4,Lit (Intc 2),Var 1],Var 9]])),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","_case_18") [Var 2,Var 4,Var 7,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 10]]))]])),Func ("OracleArray","_case_18") 5 Private (TVar (-42)) (Rule [2,4,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleArray","from") [Var 2,Var 7,Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","div") [Var 4,Lit (Intc 2),Var 1],Lit (Intc 1),Var 9],Var 10]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleArray","_case_22") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleArray","Array") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","from") [Comb FuncCall ("Oracle","apply") [Var 4,Var 3,Var 1],Var 5,Var 3,Var 6]]))]])),Func ("OracleArray","_case_29") 5 Private (TVar (-42)) (Rule [2,4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Array","Empty") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","_case_28") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Intc 0),Var 1],Var 9]])),Branch (Pattern ("Array","Entry") [6,7,8]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","_case_25") [Var 2,Var 4,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Intc 0),Var 1],Var 10]]))]])),Func ("OracleArray","_case_25") 8 Private (TVar (-42)) (Rule [2,4,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Array","Entry") [Comb FuncCall ("Oracle","apply") [Var 5,Var 6,Var 1],Var 7,Var 8]]),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","_case_24") [Var 2,Var 4,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OracleInteger","odd") [Var 4,Var 1],Var 10]]))]])),Func ("OracleArray","_case_24") 8 Private (TVar (-42)) (Rule [2,4,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Array","Entry") [Var 6,Comb FuncCall ("OracleArray","at") [Var 2,Var 7,Comb FuncCall ("OraclePrelude","div") [Var 4,Lit (Intc 2),Var 1],Var 5,Var 10],Var 8]])),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","_case_23") [Var 2,Var 4,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 11]]))]])),Func ("OracleArray","_case_23") 8 Private (TVar (-42)) (Rule [2,4,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Array","Entry") [Var 6,Var 7,Comb FuncCall ("OracleArray","at") [Var 2,Var 8,Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","div") [Var 4,Lit (Intc 2),Var 1],Lit (Intc 1),Var 10],Var 5,Var 11]]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleArray","_case_28") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Array","Entry") [Comb FuncCall ("Oracle","apply") [Var 5,Var 2,Var 1],Comb ConsCall ("Array","Empty") [],Comb ConsCall ("Array","Empty") []]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","_case_27") [Var 2,Var 4,Var 5,Comb FuncCall ("OracleInteger","odd") [Var 4,Var 1],Var 7]]))]])),Func ("OracleArray","_case_27") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Array","Entry") [Var 2,Comb FuncCall ("OracleArray","at") [Var 2,Comb ConsCall ("Array","Empty") [],Comb FuncCall ("OraclePrelude","div") [Var 4,Lit (Intc 2),Var 1],Var 5,Var 7],Comb ConsCall ("Array","Empty") []]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","_case_26") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 8]]))]])),Func ("OracleArray","_case_26") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Array","Entry") [Var 2,Comb ConsCall ("Array","Empty") [],Comb FuncCall ("OracleArray","at") [Var 2,Comb ConsCall ("Array","Empty") [],Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","div") [Var 4,Lit (Intc 2),Var 1],Lit (Intc 1),Var 7],Var 5,Var 8]]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleArray","_case_30") 4 Private (TVar (-42)) (Rule [3,4,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleArray","Array") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("OracleArray","Array") [Var 5,Comb FuncCall ("OracleArray","at") [Comb FuncCall ("Oracle","apply") [Var 5,Var 3,Var 1],Var 6,Var 3,Var 4,Var 7]]]))]])),Func ("OracleArray","_case_31") 4 Private (TVar (-42)) (Rule [3,4,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleArray","Array") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("OracleArray","Array") [Var 5,Comb FuncCall ("OracleArray","at") [Comb FuncCall ("Oracle","apply") [Var 5,Var 3,Var 1],Var 6,Var 3,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","const") [Var 4]],Var 7]]]))]])),Func ("OracleArray","_case_32") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","at") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 4,Var 5,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","const") [Var 6]],Var 7]]))]])),Func ("OracleArray","_case_33") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleArray","Array") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleArray","Array") [Var 4,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleArray","//._#lambda2") [Var 4]],Var 5,Var 3,Var 1]]])]]))] [Op ("OracleArray","!") InfixlOp 9,Op ("OracleArray","//") InfixlOp 9]
+ Curry/Module/OracleArray.fint view
@@ -0,0 +1,1 @@+Prog "OracleArray" ["CEventOracle","Oracle","IOExts","Array","Integer","Prelude","OracleInteger","OraclePrelude"] [Type ("OracleArray","Array") Public [0] [Cons ("OracleArray","Array") 2 Private [FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 0)),TCons ("Array","Entry") [TVar 0]]]] [Func ("OracleArray","emptyErrorArray") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleArray","Array") [TVar 0])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","emptyDefaultArray") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleArray","errorArray") []],Var 1]])),Func ("OracleArray","errorArray") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'x'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],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 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'z'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]],Var 3],Var 4],Var 5]]))),Func ("OracleArray","emptyDefaultArray") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 0))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleArray","Array") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OracleArray","Array") [Var 2,Comb ConsCall ("Array","Empty") []]])),Func ("OracleArray","//") 3 Public (FuncType (TCons ("OracleArray","Array") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleArray","Array") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_33") [Var 3,Var 2,Var 1]])),Func ("OracleArray","//._#lambda2") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 72))) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 72]) (FuncType (TCons ("Array","Entry") [TVar 72]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Array","Entry") [TVar 72]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_32") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleArray","update") 4 Public (FuncType (TCons ("OracleArray","Array") [TVar 0]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleArray","Array") [TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_31") [Var 3,Var 4,Var 2,Var 1]])),Func ("OracleArray","applyAt") 4 Public (FuncType (TCons ("OracleArray","Array") [TVar 0]) (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleArray","Array") [TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_30") [Var 3,Var 4,Var 2,Var 1]])),Func ("OracleArray","at") 5 Private (FuncType (TVar 0) (FuncType (TCons ("Array","Entry") [TVar 0]) (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Array","Entry") [TVar 0])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_29") [Var 2,Var 4,Var 5,Var 3,Var 1]])),Func ("OracleArray","!") 3 Public (FuncType (TCons ("OracleArray","Array") [TVar 0]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_22") [Var 3,Var 2,Var 1]])),Func ("OracleArray","from") 4 Private (FuncType (TVar 0) (FuncType (TCons ("Array","Entry") [TVar 0]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_21") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleArray","split") 2 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_17") [Var 2,Var 1]])),Func ("OracleArray","split._#selFP3#xs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 126],TCons ("Prelude","[]") [TVar 126]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 126]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_15") [Var 2,Var 1]])),Func ("OracleArray","split._#selFP4#ys") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 126],TCons ("Prelude","[]") [TVar 126]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 126]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_14") [Var 2,Var 1]])),Func ("OracleArray","listToDefaultArray") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 0))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("OracleArray","Array") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("OracleArray","Array") [Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleArray","listToArray") []],Var 1]])),Func ("OracleArray","listToErrorArray") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("OracleArray","Array") [TVar 0])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","listToDefaultArray") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleArray","errorArray") []],Var 1]])),Func ("OracleArray","listToArray") 2 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Array","Entry") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_13") [Var 2,Var 1]])),Func ("OracleArray","listToArray._#selFP6#ys") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 137],TCons ("Prelude","[]") [TVar 137]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 137]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_12") [Var 2,Var 1]])),Func ("OracleArray","listToArray._#selFP7#zs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 137],TCons ("Prelude","[]") [TVar 137]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 137]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_11") [Var 2,Var 1]])),Func ("OracleArray","combine") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 2))))) (FuncType (TCons ("OracleArray","Array") [TVar 0]) (FuncType (TCons ("OracleArray","Array") [TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleArray","Array") [TVar 2]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_10") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleArray","combine._#lambda3") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 252))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 255))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 252) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 255) (TVar 263))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 263)))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 4,Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 6],Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 7],Var 8]]))),Func ("OracleArray","comb") 8 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 2))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 0))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 1))) (FuncType (TCons ("Array","Entry") [TVar 0]) (FuncType (TCons ("Array","Entry") [TVar 1]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Array","Entry") [TVar 2]))))))))) (Rule [2,3,4,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_8") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 5,Var 1]])),Func ("OracleArray","combineSimilar") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (TCons ("OracleArray","Array") [TVar 0]) (FuncType (TCons ("OracleArray","Array") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleArray","Array") [TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_5") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleArray","combSim") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (TCons ("Array","Entry") [TVar 0]) (FuncType (TCons ("Array","Entry") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Array","Entry") [TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_3") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleArray","foldArray") 4 Public (FuncType (TVar 0) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))))) (FuncType (TCons ("OracleArray","Array") [TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_1") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleArray","foldEntries") 4 Private (FuncType (TVar 0) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))))) (FuncType (TCons ("Array","Entry") [TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_0") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleArray","arrayToList") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleArray","Array") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleArray","foldArray") [Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleArray","arrayToList._#lambda4") []]]]])),Func ("OracleArray","arrayToList._#lambda4") 4 Private (FuncType (TVar 345) (FuncType (TCons ("Prelude","[]") [TVar 345]) (FuncType (TCons ("Prelude","[]") [TVar 345]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 345]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb FuncCall ("OraclePrelude","++") [Var 3,Var 4,Var 1]]])),Func ("OracleArray","_case_0") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Array","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Array","Entry") [5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 1],Comb FuncCall ("OracleArray","foldEntries") [Var 2,Var 3,Var 6,Var 8],Var 9],Comb FuncCall ("OracleArray","foldEntries") [Var 2,Var 3,Var 7,Var 10],Var 11]]))]])),Func ("OracleArray","_case_1") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("OracleArray","Array") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","foldEntries") [Var 2,Var 3,Var 6,Var 1]])]])),Func ("OracleArray","_case_3") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Array","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Array","Entry") [5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_2") [Var 2,Var 3,Var 5,Var 6,Var 7,Var 4,Var 1]])]])),Func ("OracleArray","_case_2") 7 Private (TVar (-42)) (Rule [2,3,5,6,7,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Array","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Array","Entry") [8,9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Array","Entry") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 8,Var 11],Comb FuncCall ("OracleArray","combSim") [Var 2,Var 6,Var 9,Var 12],Comb FuncCall ("OracleArray","combSim") [Var 2,Var 7,Var 10,Var 13]]]))]])),Func ("OracleArray","_case_5") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleArray","Array") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_4") [Var 2,Var 5,Var 6,Var 4,Var 1]])]])),Func ("OracleArray","_case_4") 5 Private (TVar (-42)) (Rule [2,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("OracleArray","Array") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleArray","Array") [Var 5,Comb FuncCall ("OracleArray","combSim") [Var 2,Var 6,Var 8,Var 1]]])]])),Func ("OracleArray","_case_8") 8 Private (TVar (-42)) (Rule [2,3,4,6,7,8,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Array","Empty") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_7") [Var 2,Var 3,Var 4,Var 7,Var 8,Var 6,Var 1]]),Branch (Pattern ("Array","Entry") [12,13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_6") [Var 2,Var 3,Var 4,Var 7,Var 8,Var 12,Var 13,Var 14,Var 6,Var 1]])]])),Func ("OracleArray","_case_6") 10 Private (TVar (-42)) (Rule [2,3,4,7,8,12,13,14,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Array","Empty") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb ConsCall ("Array","Entry") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 12,Var 1],Comb FuncCall ("Oracle","apply") [Var 4,Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","+") [Var 7,Var 8,Var 18],Lit (Intc 1),Var 19],Var 20],Var 21],Comb FuncCall ("OracleArray","comb") [Var 2,Var 3,Var 4,Var 13,Comb ConsCall ("Array","Empty") [],Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Var 7,Var 22],Var 8,Var 23],Comb FuncCall ("OracleArray","comb") [Var 2,Var 3,Var 4,Var 14,Comb ConsCall ("Array","Empty") [],Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Var 7,Var 24],Comb FuncCall ("OraclePrelude","+") [Var 8,Var 7,Var 25],Var 26]]])),Branch (Pattern ("Array","Entry") [15,16,17]) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude","[]") []]]]]]],Comb ConsCall ("Array","Entry") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 12,Var 1],Var 15,Var 27],Comb FuncCall ("OracleArray","comb") [Var 2,Var 3,Var 4,Var 13,Var 16,Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Var 7,Var 28],Var 8,Var 29],Comb FuncCall ("OracleArray","comb") [Var 2,Var 3,Var 4,Var 14,Var 17,Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Var 7,Var 30],Comb FuncCall ("OraclePrelude","+") [Var 8,Var 7,Var 31],Var 32]]]))]])),Func ("OracleArray","_case_7") 7 Private (TVar (-42)) (Rule [2,3,4,7,8,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Array","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Array","Empty") []]),Branch (Pattern ("Array","Entry") [9,10,11]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb ConsCall ("Array","Entry") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Comb FuncCall ("Oracle","apply") [Var 3,Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","+") [Var 7,Var 8,Var 1],Lit (Intc 1),Var 12],Var 13],Var 14],Var 9,Var 15],Comb FuncCall ("OracleArray","comb") [Var 2,Var 3,Var 4,Comb ConsCall ("Array","Empty") [],Var 10,Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Var 7,Var 16],Var 8,Var 17],Comb FuncCall ("OracleArray","comb") [Var 2,Var 3,Var 4,Comb ConsCall ("Array","Empty") [],Var 11,Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Var 7,Var 18],Comb FuncCall ("OraclePrelude","+") [Var 8,Var 7,Var 19],Var 20]]]))]])),Func ("OracleArray","_case_10") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleArray","Array") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_9") [Var 2,Var 5,Var 6,Var 4,Var 1]])]])),Func ("OracleArray","_case_9") 5 Private (TVar (-42)) (Rule [2,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("OracleArray","Array") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleArray","Array") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleArray","combine._#lambda3") [Var 5,Var 7,Var 2]],Comb FuncCall ("OracleArray","comb") [Var 2,Var 5,Var 7,Var 6,Var 8,Lit (Intc 0),Lit (Intc 1),Var 1]]])]])),Func ("OracleArray","_case_11") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleArray","_case_12") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleArray","_case_13") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Array","Empty") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleArray","split") [Var 4,Var 1])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleArray","listToArray._#selFP6#ys") [Var 5,Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleArray","listToArray._#selFP7#zs") [Var 5,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Array","Entry") [Var 3,Comb FuncCall ("OracleArray","listToArray") [Var 6,Var 10],Comb FuncCall ("OracleArray","listToArray") [Var 7,Var 11]]]))]))]))]))]])),Func ("OracleArray","_case_14") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleArray","_case_15") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleArray","_case_17") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleArray","_case_16") [Var 3,Var 4,Var 1]])]])),Func ("OracleArray","_case_16") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleArray","split") [Var 6,Var 1])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleArray","split._#selFP3#xs") [Var 7,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleArray","split._#selFP4#ys") [Var 7,Var 11])] (Comb FuncCall ("CEventOracle","collapse") [Var 12,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 3,Var 8],Comb ConsCall ("Prelude",":") [Var 5,Var 9]]])]))]))]))]])),Func ("OracleArray","_case_21") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Array","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Array","Entry") [5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","_case_20") [Var 2,Var 4,Var 5,Var 6,Var 7,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Intc 0),Var 1],Var 8]]))]])),Func ("OracleArray","_case_20") 7 Private (TVar (-42)) (Rule [2,4,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","_case_19") [Var 2,Var 4,Var 6,Var 7,Comb FuncCall ("OracleInteger","odd") [Var 4,Var 1],Var 9]]))]])),Func ("OracleArray","_case_19") 6 Private (TVar (-42)) (Rule [2,4,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","from") [Var 2,Var 6,Comb FuncCall ("OraclePrelude","div") [Var 4,Lit (Intc 2),Var 1],Var 9]])),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","_case_18") [Var 2,Var 4,Var 7,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 10]]))]])),Func ("OracleArray","_case_18") 5 Private (TVar (-42)) (Rule [2,4,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleArray","from") [Var 2,Var 7,Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","div") [Var 4,Lit (Intc 2),Var 1],Lit (Intc 1),Var 9],Var 10]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleArray","_case_22") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleArray","Array") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","from") [Comb FuncCall ("Oracle","apply") [Var 4,Var 3,Var 1],Var 5,Var 3,Var 6]]))]])),Func ("OracleArray","_case_29") 5 Private (TVar (-42)) (Rule [2,4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Array","Empty") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","_case_28") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Intc 0),Var 1],Var 9]])),Branch (Pattern ("Array","Entry") [6,7,8]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","_case_25") [Var 2,Var 4,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Intc 0),Var 1],Var 10]]))]])),Func ("OracleArray","_case_25") 8 Private (TVar (-42)) (Rule [2,4,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Array","Entry") [Comb FuncCall ("Oracle","apply") [Var 5,Var 6,Var 1],Var 7,Var 8]]),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","_case_24") [Var 2,Var 4,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OracleInteger","odd") [Var 4,Var 1],Var 10]]))]])),Func ("OracleArray","_case_24") 8 Private (TVar (-42)) (Rule [2,4,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Array","Entry") [Var 6,Comb FuncCall ("OracleArray","at") [Var 2,Var 7,Comb FuncCall ("OraclePrelude","div") [Var 4,Lit (Intc 2),Var 1],Var 5,Var 10],Var 8]])),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","_case_23") [Var 2,Var 4,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 11]]))]])),Func ("OracleArray","_case_23") 8 Private (TVar (-42)) (Rule [2,4,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Array","Entry") [Var 6,Var 7,Comb FuncCall ("OracleArray","at") [Var 2,Var 8,Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","div") [Var 4,Lit (Intc 2),Var 1],Lit (Intc 1),Var 10],Var 5,Var 11]]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleArray","_case_28") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Array","Entry") [Comb FuncCall ("Oracle","apply") [Var 5,Var 2,Var 1],Comb ConsCall ("Array","Empty") [],Comb ConsCall ("Array","Empty") []]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","_case_27") [Var 2,Var 4,Var 5,Comb FuncCall ("OracleInteger","odd") [Var 4,Var 1],Var 7]]))]])),Func ("OracleArray","_case_27") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Array","Entry") [Var 2,Comb FuncCall ("OracleArray","at") [Var 2,Comb ConsCall ("Array","Empty") [],Comb FuncCall ("OraclePrelude","div") [Var 4,Lit (Intc 2),Var 1],Var 5,Var 7],Comb ConsCall ("Array","Empty") []]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","_case_26") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 8]]))]])),Func ("OracleArray","_case_26") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Array","Entry") [Var 2,Comb ConsCall ("Array","Empty") [],Comb FuncCall ("OracleArray","at") [Var 2,Comb ConsCall ("Array","Empty") [],Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","div") [Var 4,Lit (Intc 2),Var 1],Lit (Intc 1),Var 7],Var 5,Var 8]]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleArray","_case_30") 4 Private (TVar (-42)) (Rule [3,4,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleArray","Array") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("OracleArray","Array") [Var 5,Comb FuncCall ("OracleArray","at") [Comb FuncCall ("Oracle","apply") [Var 5,Var 3,Var 1],Var 6,Var 3,Var 4,Var 7]]]))]])),Func ("OracleArray","_case_31") 4 Private (TVar (-42)) (Rule [3,4,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleArray","Array") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("OracleArray","Array") [Var 5,Comb FuncCall ("OracleArray","at") [Comb FuncCall ("Oracle","apply") [Var 5,Var 3,Var 1],Var 6,Var 3,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","const") [Var 4]],Var 7]]]))]])),Func ("OracleArray","_case_32") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleArray","at") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 4,Var 5,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","const") [Var 6]],Var 7]]))]])),Func ("OracleArray","_case_33") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleArray","Array") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleArray","Array") [Var 4,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleArray","//._#lambda2") [Var 4]],Var 5,Var 3,Var 1]]])]]))] [Op ("OracleArray","!") InfixlOp 9,Op ("OracleArray","//") InfixlOp 9]
+ Curry/Module/OracleAssertion.fcy view
@@ -0,0 +1,1 @@+Prog "OracleAssertion" ["CEventOracle","Oracle","IOExts","Assertion","IO","List","Prelude","OracleIO","OracleList","OraclePrelude"] [Type ("OracleAssertion","Assertion") Public [0] [Cons ("OracleAssertion","AssertTrue") 2 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []],Cons ("OracleAssertion","AssertEqual") 3 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TVar 0,TVar 0],Cons ("OracleAssertion","AssertValues") 3 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TVar 0,TCons ("Prelude","[]") [TVar 0]],Cons ("OracleAssertion","AssertSolutions") 3 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Success") [])),TCons ("Prelude","[]") [TVar 0]],Cons ("OracleAssertion","AssertIO") 3 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0])),TVar 0],Cons ("OracleAssertion","AssertEqualIO") 3 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0])),FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))]]] [Func ("OracleAssertion","seqStrActions") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle",">>=") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAssertion","seqStrActions._#lambda2") [Var 3]],Var 1]])),Func ("OracleAssertion","seqStrActions._#lambda2") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAssertion","_case_11") [Var 2,Var 3,Var 1]])),Func ("OracleAssertion","seqStrActions._#lambda2._#lambda3") 4 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAssertion","_case_10") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleAssertion","checkAssertion") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))) (FuncType (TCons ("OracleAssertion","Assertion") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAssertion","_case_9") [Var 2,Var 3,Var 1]])),Func ("OracleAssertion","checkAssertTrue") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAssertion","_case_8") [Var 2,Var 3,Var 1]])),Func ("OracleAssertion","checkAssertEqual") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(5,Var 3)] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAssertion","_case_7") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 5,Var 4,Var 1],Var 6]]))])),Func ("OracleAssertion","checkAssertValues") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","getSearchTree") [Var 3,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAssertion","checkAssertValues._#lambda4") [Var 2,Var 4]],Var 5]]))),Func ("OracleAssertion","checkAssertValues._#lambda4") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TVar 42]) (FuncType (TCons ("Prelude","SearchTree") [TVar 42]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))))) (Rule [2,3,4,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OraclePrelude","allValuesB") [Var 4,Var 1])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleAssertion","_case_6") [Var 2,Var 3,Var 5,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","null") [Comb FuncCall ("OracleList","\\\\") [Var 5,Var 3,Var 6],Var 7],Comb FuncCall ("OraclePrelude","null") [Comb FuncCall ("OracleList","\\\\") [Var 3,Var 5,Var 8],Var 9],Var 10],Var 11]]))]))),Func ("OracleAssertion","checkAssertSolutions") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Success") []))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))))) (Rule [2,3,4,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","getSearchTree") [Let [(5,Comb FuncCall ("Oracle","unknown") [Var 1])] (Comb ConsCall ("Prelude","(,)") [Var 5,Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 6]]),Var 7],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAssertion","checkAssertSolutions._#lambda5") [Var 2,Var 4]],Var 8]]))),Func ("OracleAssertion","checkAssertSolutions._#lambda5") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TVar 73]) (FuncType (TCons ("Prelude","SearchTree") [TCons ("Prelude","(,)") [TVar 73,TCons ("Prelude","Success") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))))) (Rule [2,3,4,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Let [(5,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","fst") []],Comb FuncCall ("OraclePrelude","allValuesB") [Var 4,Var 1],Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleAssertion","_case_5") [Var 2,Var 3,Var 5,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","null") [Comb FuncCall ("OracleList","\\\\") [Var 5,Var 3,Var 7],Var 8],Comb FuncCall ("OraclePrelude","null") [Comb FuncCall ("OracleList","\\\\") [Var 3,Var 5,Var 9],Var 10],Var 11],Var 12]]))]))),Func ("OracleAssertion","checkAssertIO") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle",">>=") [Var 3,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAssertion","checkAssertIO._#lambda6") [Var 2,Var 4]],Var 1]])),Func ("OracleAssertion","checkAssertIO._#lambda6") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TVar 104) (FuncType (TVar 104) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAssertion","_case_4") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 4,Var 3,Var 1],Var 5]]))),Func ("OracleAssertion","checkAssertEqualIO") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle",">>=") [Var 3,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAssertion","checkAssertEqualIO._#lambda7") [Var 4,Var 2]],Var 1]])),Func ("OracleAssertion","checkAssertEqualIO._#lambda7") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 127]))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TVar 127) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle",">>=") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAssertion","checkAssertEqualIO._#lambda7._#lambda8") [Var 3,Var 4]],Var 1]])),Func ("OracleAssertion","checkAssertEqualIO._#lambda7._#lambda8") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TVar 127) (FuncType (TVar 127) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAssertion","_case_3") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Var 4,Var 1],Var 5]]))),Func ("OracleAssertion","writeAssertResult") 2 Public (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAssertion","_case_2") [Var 2,Var 1]])),Func ("OracleAssertion","doSend") 3 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleIO","hPutStrLn") [Var 2,Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Var 4]]))),Func ("OracleAssertion","showTestMod") 3 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAssertion","doSend") [Var 2,Comb ConsCall ("Assertion","TestModule") [Var 3],Var 1]])),Func ("OracleAssertion","showTestCase") 3 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAssertion","_case_0") [Var 2,Var 3,Var 1]])),Func ("OracleAssertion","showTestEnd") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAssertion","doSend") [Var 2,Comb ConsCall ("Assertion","TestFinished") [],Var 1]])),Func ("OracleAssertion","showTestCompileError") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAssertion","doSend") [Var 2,Comb ConsCall ("Assertion","TestCompileError") [],Var 1]])),Func ("OracleAssertion","_case_0") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleAssertion","doSend") [Var 2,Comb ConsCall ("Assertion","TestCase") [Var 4,Var 5],Var 1],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Var 4,Var 5],Var 6],Var 7]]))]])),Func ("OracleAssertion","_case_2") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAssertion","_case_1") [Var 3,Var 4,Var 1]])]])),Func ("OracleAssertion","_case_1") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","putStrLn") [Comb FuncCall ("OraclePrelude","++") [Var 3,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",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),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",":") [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 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1],Var 5]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","putStrLn") [Comb FuncCall ("OraclePrelude","++") [Var 3,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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),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 '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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1],Var 6]]))]])),Func ("OracleAssertion","_case_3") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc 'K'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 6],Comb ConsCall ("Prelude","True") []],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'I'),Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'q'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 'u'),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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '1'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 'u'),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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '2'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 8],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]],Var 9],Var 10],Var 11],Var 12],Var 13],Var 14],Var 15],Var 16],Comb ConsCall ("Prelude","False") []],Var 17]]))]])),Func ("OracleAssertion","_case_4") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc 'K'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 6],Comb ConsCall ("Prelude","True") []],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'I'),Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 'u'),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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 8],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]],Var 9],Var 10],Var 11],Var 12],Var 13],Var 14],Var 15],Var 16],Comb ConsCall ("Prelude","False") []],Var 17]]))]])),Func ("OracleAssertion","_case_5") 5 Private (TVar (-42)) (Rule [2,3,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc 'K'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 7],Comb ConsCall ("Prelude","True") []],Var 8]])),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 'u'),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 'v'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'v'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 9],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11],Var 12],Var 13],Var 14],Var 15],Var 16],Var 17],Comb ConsCall ("Prelude","False") []],Var 18]]))]])),Func ("OracleAssertion","_case_6") 5 Private (TVar (-42)) (Rule [2,3,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc 'K'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 7],Comb ConsCall ("Prelude","True") []],Var 8]])),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'v'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 'u'),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 'v'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'v'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 9],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11],Var 12],Var 13],Var 14],Var 15],Var 16],Var 17],Comb ConsCall ("Prelude","False") []],Var 18]]))]])),Func ("OracleAssertion","_case_7") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc 'K'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 7],Comb ConsCall ("Prelude","True") []],Var 8]])),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'q'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 'u'),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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 9],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11],Var 12],Var 13],Var 14],Var 15],Var 16],Var 17],Comb ConsCall ("Prelude","False") []],Var 18]]))]])),Func ("OracleAssertion","_case_8") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc 'K'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 4],Comb ConsCall ("Prelude","True") []],Var 5]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1],Var 6],Comb ConsCall ("Prelude","False") []],Var 7]]))]])),Func ("OracleAssertion","_case_9") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleAssertion","AssertTrue") [4,5]) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","catchFail") [Comb FuncCall ("OracleAssertion","checkAssertTrue") [Var 4,Var 5,Var 1],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 4,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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),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 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]],Var 21],Var 22],Comb ConsCall ("Prelude","False") []],Var 23],Var 24],Var 2,Var 25]])),Branch (Pattern ("OracleAssertion","AssertEqual") [6,7,8]) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","catchFail") [Comb FuncCall ("OracleAssertion","checkAssertEqual") [Var 6,Var 7,Var 8,Var 1],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 6,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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),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 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]],Var 26],Var 27],Comb ConsCall ("Prelude","False") []],Var 28],Var 29],Var 2,Var 30]])),Branch (Pattern ("OracleAssertion","AssertValues") [9,10,11]) (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","catchFail") [Comb FuncCall ("OracleAssertion","checkAssertValues") [Var 9,Var 10,Var 11,Var 1],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 9,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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),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 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]],Var 31],Var 32],Comb ConsCall ("Prelude","False") []],Var 33],Var 34],Var 2,Var 35]])),Branch (Pattern ("OracleAssertion","AssertSolutions") [12,13,14]) (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","catchFail") [Comb FuncCall ("OracleAssertion","checkAssertSolutions") [Var 12,Var 13,Var 14,Var 1],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 12,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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),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 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]],Var 36],Var 37],Comb ConsCall ("Prelude","False") []],Var 38],Var 39],Var 2,Var 40]])),Branch (Pattern ("OracleAssertion","AssertIO") [15,16,17]) (Let [(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(44,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(45,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude",":") [Var 44,Comb ConsCall ("Prelude",":") [Var 45,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","catchFail") [Comb FuncCall ("OracleAssertion","checkAssertIO") [Var 15,Var 16,Var 17,Var 1],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 15,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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),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 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]],Var 41],Var 42],Comb ConsCall ("Prelude","False") []],Var 43],Var 44],Var 2,Var 45]])),Branch (Pattern ("OracleAssertion","AssertEqualIO") [18,19,20]) (Let [(46,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(47,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(48,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(49,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(50,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 46,Comb ConsCall ("Prelude",":") [Var 47,Comb ConsCall ("Prelude",":") [Var 48,Comb ConsCall ("Prelude",":") [Var 49,Comb ConsCall ("Prelude",":") [Var 50,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","catchFail") [Comb FuncCall ("OracleAssertion","checkAssertEqualIO") [Var 18,Var 19,Var 20,Var 1],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 18,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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),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 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]],Var 46],Var 47],Comb ConsCall ("Prelude","False") []],Var 48],Var 49],Var 2,Var 50]]))]])),Func ("OracleAssertion","_case_10") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [Var 3,Var 5,Var 1],Comb FuncCall ("OraclePrelude","&&") [Var 2,Var 6,Var 7]],Var 8]]))]])),Func ("OracleAssertion","_case_11") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle",">>=") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAssertion","seqStrActions._#lambda2._#lambda3") [Var 5,Var 4]],Var 1]])]]))] [Op ("OracleAssertion","seqStrActions") InfixlOp 1]
+ Curry/Module/OracleAssertion.fint view
@@ -0,0 +1,1 @@+Prog "OracleAssertion" ["CEventOracle","Oracle","IOExts","Assertion","IO","List","Prelude","OracleIO","OracleList","OraclePrelude"] [Type ("OracleAssertion","Assertion") Public [0] [Cons ("OracleAssertion","AssertTrue") 2 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []],Cons ("OracleAssertion","AssertEqual") 3 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TVar 0,TVar 0],Cons ("OracleAssertion","AssertValues") 3 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TVar 0,TCons ("Prelude","[]") [TVar 0]],Cons ("OracleAssertion","AssertSolutions") 3 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Success") [])),TCons ("Prelude","[]") [TVar 0]],Cons ("OracleAssertion","AssertIO") 3 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0])),TVar 0],Cons ("OracleAssertion","AssertEqualIO") 3 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0])),FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))]]] [Func ("OracleAssertion","seqStrActions") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle",">>=") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAssertion","seqStrActions._#lambda2") [Var 3]],Var 1]])),Func ("OracleAssertion","seqStrActions._#lambda2") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAssertion","_case_11") [Var 2,Var 3,Var 1]])),Func ("OracleAssertion","seqStrActions._#lambda2._#lambda3") 4 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAssertion","_case_10") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleAssertion","checkAssertion") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))) (FuncType (TCons ("OracleAssertion","Assertion") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAssertion","_case_9") [Var 2,Var 3,Var 1]])),Func ("OracleAssertion","checkAssertTrue") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAssertion","_case_8") [Var 2,Var 3,Var 1]])),Func ("OracleAssertion","checkAssertEqual") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(5,Var 3)] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAssertion","_case_7") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 5,Var 4,Var 1],Var 6]]))])),Func ("OracleAssertion","checkAssertValues") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","getSearchTree") [Var 3,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAssertion","checkAssertValues._#lambda4") [Var 2,Var 4]],Var 5]]))),Func ("OracleAssertion","checkAssertValues._#lambda4") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TVar 42]) (FuncType (TCons ("Prelude","SearchTree") [TVar 42]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))))) (Rule [2,3,4,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OraclePrelude","allValuesB") [Var 4,Var 1])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleAssertion","_case_6") [Var 2,Var 3,Var 5,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","null") [Comb FuncCall ("OracleList","\\\\") [Var 5,Var 3,Var 6],Var 7],Comb FuncCall ("OraclePrelude","null") [Comb FuncCall ("OracleList","\\\\") [Var 3,Var 5,Var 8],Var 9],Var 10],Var 11]]))]))),Func ("OracleAssertion","checkAssertSolutions") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Success") []))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))))) (Rule [2,3,4,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","getSearchTree") [Let [(5,Comb FuncCall ("Oracle","unknown") [Var 1])] (Comb ConsCall ("Prelude","(,)") [Var 5,Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 6]]),Var 7],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAssertion","checkAssertSolutions._#lambda5") [Var 2,Var 4]],Var 8]]))),Func ("OracleAssertion","checkAssertSolutions._#lambda5") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TVar 73]) (FuncType (TCons ("Prelude","SearchTree") [TCons ("Prelude","(,)") [TVar 73,TCons ("Prelude","Success") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))))) (Rule [2,3,4,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Let [(5,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","fst") []],Comb FuncCall ("OraclePrelude","allValuesB") [Var 4,Var 1],Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleAssertion","_case_5") [Var 2,Var 3,Var 5,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","null") [Comb FuncCall ("OracleList","\\\\") [Var 5,Var 3,Var 7],Var 8],Comb FuncCall ("OraclePrelude","null") [Comb FuncCall ("OracleList","\\\\") [Var 3,Var 5,Var 9],Var 10],Var 11],Var 12]]))]))),Func ("OracleAssertion","checkAssertIO") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle",">>=") [Var 3,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAssertion","checkAssertIO._#lambda6") [Var 2,Var 4]],Var 1]])),Func ("OracleAssertion","checkAssertIO._#lambda6") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TVar 104) (FuncType (TVar 104) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAssertion","_case_4") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 4,Var 3,Var 1],Var 5]]))),Func ("OracleAssertion","checkAssertEqualIO") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle",">>=") [Var 3,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAssertion","checkAssertEqualIO._#lambda7") [Var 4,Var 2]],Var 1]])),Func ("OracleAssertion","checkAssertEqualIO._#lambda7") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 127]))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TVar 127) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle",">>=") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAssertion","checkAssertEqualIO._#lambda7._#lambda8") [Var 3,Var 4]],Var 1]])),Func ("OracleAssertion","checkAssertEqualIO._#lambda7._#lambda8") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TVar 127) (FuncType (TVar 127) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleAssertion","_case_3") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Var 4,Var 1],Var 5]]))),Func ("OracleAssertion","writeAssertResult") 2 Public (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAssertion","_case_2") [Var 2,Var 1]])),Func ("OracleAssertion","doSend") 3 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleIO","hPutStrLn") [Var 2,Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Var 4]]))),Func ("OracleAssertion","showTestMod") 3 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAssertion","doSend") [Var 2,Comb ConsCall ("Assertion","TestModule") [Var 3],Var 1]])),Func ("OracleAssertion","showTestCase") 3 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Bool") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAssertion","_case_0") [Var 2,Var 3,Var 1]])),Func ("OracleAssertion","showTestEnd") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAssertion","doSend") [Var 2,Comb ConsCall ("Assertion","TestFinished") [],Var 1]])),Func ("OracleAssertion","showTestCompileError") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAssertion","doSend") [Var 2,Comb ConsCall ("Assertion","TestCompileError") [],Var 1]])),Func ("OracleAssertion","_case_0") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleAssertion","doSend") [Var 2,Comb ConsCall ("Assertion","TestCase") [Var 4,Var 5],Var 1],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Var 4,Var 5],Var 6],Var 7]]))]])),Func ("OracleAssertion","_case_2") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleAssertion","_case_1") [Var 3,Var 4,Var 1]])]])),Func ("OracleAssertion","_case_1") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","putStrLn") [Comb FuncCall ("OraclePrelude","++") [Var 3,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",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),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",":") [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 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1],Var 5]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","putStrLn") [Comb FuncCall ("OraclePrelude","++") [Var 3,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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),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 '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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1],Var 6]]))]])),Func ("OracleAssertion","_case_3") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc 'K'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 6],Comb ConsCall ("Prelude","True") []],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'I'),Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'q'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 'u'),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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '1'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 'u'),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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '2'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 8],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]],Var 9],Var 10],Var 11],Var 12],Var 13],Var 14],Var 15],Var 16],Comb ConsCall ("Prelude","False") []],Var 17]]))]])),Func ("OracleAssertion","_case_4") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc 'K'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 6],Comb ConsCall ("Prelude","True") []],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'I'),Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 'u'),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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 8],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]],Var 9],Var 10],Var 11],Var 12],Var 13],Var 14],Var 15],Var 16],Comb ConsCall ("Prelude","False") []],Var 17]]))]])),Func ("OracleAssertion","_case_5") 5 Private (TVar (-42)) (Rule [2,3,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc 'K'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 7],Comb ConsCall ("Prelude","True") []],Var 8]])),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 'u'),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 'v'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'v'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 9],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11],Var 12],Var 13],Var 14],Var 15],Var 16],Var 17],Comb ConsCall ("Prelude","False") []],Var 18]]))]])),Func ("OracleAssertion","_case_6") 5 Private (TVar (-42)) (Rule [2,3,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc 'K'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 7],Comb ConsCall ("Prelude","True") []],Var 8]])),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'v'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 'u'),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 'v'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'v'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 9],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11],Var 12],Var 13],Var 14],Var 15],Var 16],Var 17],Comb ConsCall ("Prelude","False") []],Var 18]]))]])),Func ("OracleAssertion","_case_7") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc 'K'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 7],Comb ConsCall ("Prelude","True") []],Var 8]])),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'q'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 'u'),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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 9],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11],Var 12],Var 13],Var 14],Var 15],Var 16],Var 17],Comb ConsCall ("Prelude","False") []],Var 18]]))]])),Func ("OracleAssertion","_case_8") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc 'K'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 4],Comb ConsCall ("Prelude","True") []],Var 5]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1],Var 6],Comb ConsCall ("Prelude","False") []],Var 7]]))]])),Func ("OracleAssertion","_case_9") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleAssertion","AssertTrue") [4,5]) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","catchFail") [Comb FuncCall ("OracleAssertion","checkAssertTrue") [Var 4,Var 5,Var 1],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 4,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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),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 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]],Var 21],Var 22],Comb ConsCall ("Prelude","False") []],Var 23],Var 24],Var 2,Var 25]])),Branch (Pattern ("OracleAssertion","AssertEqual") [6,7,8]) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","catchFail") [Comb FuncCall ("OracleAssertion","checkAssertEqual") [Var 6,Var 7,Var 8,Var 1],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 6,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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),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 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]],Var 26],Var 27],Comb ConsCall ("Prelude","False") []],Var 28],Var 29],Var 2,Var 30]])),Branch (Pattern ("OracleAssertion","AssertValues") [9,10,11]) (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","catchFail") [Comb FuncCall ("OracleAssertion","checkAssertValues") [Var 9,Var 10,Var 11,Var 1],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 9,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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),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 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]],Var 31],Var 32],Comb ConsCall ("Prelude","False") []],Var 33],Var 34],Var 2,Var 35]])),Branch (Pattern ("OracleAssertion","AssertSolutions") [12,13,14]) (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","catchFail") [Comb FuncCall ("OracleAssertion","checkAssertSolutions") [Var 12,Var 13,Var 14,Var 1],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 12,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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),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 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]],Var 36],Var 37],Comb ConsCall ("Prelude","False") []],Var 38],Var 39],Var 2,Var 40]])),Branch (Pattern ("OracleAssertion","AssertIO") [15,16,17]) (Let [(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(44,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(45,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude",":") [Var 44,Comb ConsCall ("Prelude",":") [Var 45,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","catchFail") [Comb FuncCall ("OracleAssertion","checkAssertIO") [Var 15,Var 16,Var 17,Var 1],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 15,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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),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 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]],Var 41],Var 42],Comb ConsCall ("Prelude","False") []],Var 43],Var 44],Var 2,Var 45]])),Branch (Pattern ("OracleAssertion","AssertEqualIO") [18,19,20]) (Let [(46,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(47,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(48,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(49,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(50,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 46,Comb ConsCall ("Prelude",":") [Var 47,Comb ConsCall ("Prelude",":") [Var 48,Comb ConsCall ("Prelude",":") [Var 49,Comb ConsCall ("Prelude",":") [Var 50,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","catchFail") [Comb FuncCall ("OracleAssertion","checkAssertEqualIO") [Var 18,Var 19,Var 20,Var 1],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 18,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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),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 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]],Var 46],Var 47],Comb ConsCall ("Prelude","False") []],Var 48],Var 49],Var 2,Var 50]]))]])),Func ("OracleAssertion","_case_10") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","++") [Var 3,Var 5,Var 1],Comb FuncCall ("OraclePrelude","&&") [Var 2,Var 6,Var 7]],Var 8]]))]])),Func ("OracleAssertion","_case_11") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle",">>=") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleAssertion","seqStrActions._#lambda2._#lambda3") [Var 5,Var 4]],Var 1]])]]))] [Op ("OracleAssertion","seqStrActions") InfixlOp 1]
+ Curry/Module/OracleCSV.fcy view
@@ -0,0 +1,1 @@+Prog "OracleCSV" ["CEventOracle","Oracle","IOExts","CSV","List","Prelude","OracleList","OraclePrelude"] [] [Func ("OracleCSV","writeCSVFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","writeFile") [Var 2,Comb FuncCall ("OracleCSV","showCSV") [Var 3,Var 1],Var 4]]))),Func ("OracleCSV","showCSV") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCSV","showCSVLine") []],Var 1],Var 2,Var 3]]))),Func ("OracleCSV","showCSVLine") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCSV","showCSVLine.convert.7") []],Var 2,Var 1],Var 3],Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 5]]))),Func ("OracleCSV","showCSVLine.convert.7") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCSV","_case_16") [Var 2,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","any") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCSV","showCSVLine.convert.7._#lambda2") []],Var 1],Var 2,Var 3],Var 4]]))),Func ("OracleCSV","showCSVLine.convert.7._#lambda2") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 2,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude",":") [Lit (Charc ';'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []]]]],Var 3]]))),Func ("OracleCSV","showCSVLine.convert.7._#lambda3") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCSV","_case_15") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '"'),Var 1],Var 3]]))),Func ("OracleCSV","readCSVFile") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCSV","readCSVFileWithDelims") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []]]]])),Func ("OracleCSV","readCSVFileWithDelims") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 3,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCSV","readCSVFileWithDelims._#lambda4") [Var 2]],Var 4]]))),Func ("OracleCSV","readCSVFileWithDelims._#lambda4") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OracleCSV","readCSVWithDelims") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OracleCSV","readCSV") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCSV","readCSVWithDelims") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []]]]])),Func ("OracleCSV","readCSVWithDelims") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCSV","components") [Var 2]],Comb FuncCall ("OraclePrelude","lines") [Var 3,Var 1],Var 4]]))),Func ("OracleCSV","components") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCSV","_case_14") [Var 2,Var 3,Var 1]])),Func ("OracleCSV","components.breakString.25") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCSV","_case_11") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleCSV","components.breakString.25._#selFP3#b") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCSV","_case_5") [Var 2,Var 1]])),Func ("OracleCSV","components.breakString.25._#selFP4#bs") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCSV","_case_4") [Var 2,Var 1]])),Func ("OracleCSV","components.breakString.25._#selFP6#b") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCSV","_case_3") [Var 2,Var 1]])),Func ("OracleCSV","components.breakString.25._#selFP7#bs") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCSV","_case_2") [Var 2,Var 1]])),Func ("OracleCSV","components._#selFP9#e") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCSV","_case_1") [Var 2,Var 1]])),Func ("OracleCSV","components._#selFP10#s") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCSV","_case_0") [Var 2,Var 1]])),Func ("OracleCSV","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleCSV","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCSV","_case_2") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleCSV","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCSV","_case_4") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleCSV","_case_5") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCSV","_case_11") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCSV","_case_10") [Var 2,Var 3,Var 5,Var 6,Var 1]])]])),Func ("OracleCSV","_case_10") 5 Private (TVar (-42)) (Rule [2,3,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude","[]") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCSV","_case_9") [Var 2,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 5,Lit (Charc '"'),Var 1],Var 9]])),Branch (Pattern ("Prelude",":") [7,8]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCSV","_case_8") [Var 2,Var 3,Var 5,Var 7,Var 8,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 5,Lit (Charc '"'),Var 1],Comb FuncCall ("OraclePrelude","==") [Var 7,Lit (Charc '"'),Var 10],Var 11],Var 12]]))]])),Func ("OracleCSV","_case_8") 7 Private (TVar (-42)) (Rule [2,3,5,7,8,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleCSV","components.breakString.25") [Var 2,Var 3,Var 8,Var 1])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleCSV","components.breakString.25._#selFP3#b") [Var 9,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleCSV","components.breakString.25._#selFP4#bs") [Var 9,Var 14])] (Comb FuncCall ("CEventOracle","collapse") [Var 15,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 5,Var 10],Var 11]])]))]))])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleCSV","_case_7") [Var 2,Var 3,Var 5,Var 7,Var 8,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 5,Lit (Charc '"'),Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 7,Var 16],Var 3,Var 17],Var 18],Var 19]]))]])),Func ("OracleCSV","_case_7") 7 Private (TVar (-42)) (Rule [2,3,5,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("OracleCSV","components") [Var 3,Var 8,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCSV","_case_6") [Var 2,Var 3,Var 5,Var 7,Var 8,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 10]]))]])),Func ("OracleCSV","_case_6") 7 Private (TVar (-42)) (Rule [2,3,5,7,8,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 15) [Branch (Pattern ("Prelude","True") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(12,Comb FuncCall ("OracleCSV","components.breakString.25") [Var 2,Var 3,Comb ConsCall ("Prelude",":") [Var 7,Var 8],Var 1])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OracleCSV","components.breakString.25._#selFP6#b") [Var 12,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(14,Comb FuncCall ("OracleCSV","components.breakString.25._#selFP7#bs") [Var 12,Var 17])] (Comb FuncCall ("CEventOracle","collapse") [Var 18,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 5,Var 13],Var 14]])]))]))])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleCSV","_case_9") 4 Private (TVar (-42)) (Rule [2,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]])),Func ("OracleCSV","_case_14") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePrelude","error") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),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 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),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 'C'),Comb ConsCall ("Prelude",":") [Lit (Charc 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'V'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc '!'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCSV","_case_13") [Var 2,Var 4,Var 5,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc '"'),Var 7],Var 8]]))]))]])),Func ("OracleCSV","_case_13") 6 Private (TVar (-42)) (Rule [2,4,5,6,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCSV","components.breakString.25") [Var 6,Var 2,Var 5,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Let [(7,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","break") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","elem") []],Var 2]],Var 1],Comb ConsCall ("Prelude",":") [Var 4,Var 5],Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleCSV","components._#selFP9#e") [Var 7,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleCSV","components._#selFP10#s") [Var 7,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 8,Comb FuncCall ("OracleCSV","_case_12") [Var 2,Var 9,Comb FuncCall ("OraclePrelude","null") [Var 9,Var 14],Var 15]]]))]))]))]))]])),Func ("OracleCSV","_case_12") 4 Private (TVar (-42)) (Rule [2,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCSV","components") [Var 2,Comb FuncCall ("OraclePrelude","tail") [Var 9,Var 1],Var 11]]))]])),Func ("OracleCSV","_case_15") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []]])]])),Func ("OracleCSV","_case_16") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCSV","showCSVLine.convert.7._#lambda3") []],Var 1],Var 2,Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []],Var 5]]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]]))] []
+ Curry/Module/OracleCSV.fint view
@@ -0,0 +1,1 @@+Prog "OracleCSV" ["CEventOracle","Oracle","IOExts","CSV","List","Prelude","OracleList","OraclePrelude"] [] [Func ("OracleCSV","writeCSVFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","writeFile") [Var 2,Comb FuncCall ("OracleCSV","showCSV") [Var 3,Var 1],Var 4]]))),Func ("OracleCSV","showCSV") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCSV","showCSVLine") []],Var 1],Var 2,Var 3]]))),Func ("OracleCSV","showCSVLine") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCSV","showCSVLine.convert.7") []],Var 2,Var 1],Var 3],Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 5]]))),Func ("OracleCSV","showCSVLine.convert.7") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCSV","_case_16") [Var 2,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","any") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCSV","showCSVLine.convert.7._#lambda2") []],Var 1],Var 2,Var 3],Var 4]]))),Func ("OracleCSV","showCSVLine.convert.7._#lambda2") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 2,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude",":") [Lit (Charc ';'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []]]]],Var 3]]))),Func ("OracleCSV","showCSVLine.convert.7._#lambda3") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCSV","_case_15") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '"'),Var 1],Var 3]]))),Func ("OracleCSV","readCSVFile") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCSV","readCSVFileWithDelims") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []]]]])),Func ("OracleCSV","readCSVFileWithDelims") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 3,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCSV","readCSVFileWithDelims._#lambda4") [Var 2]],Var 4]]))),Func ("OracleCSV","readCSVFileWithDelims._#lambda4") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OracleCSV","readCSVWithDelims") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OracleCSV","readCSV") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCSV","readCSVWithDelims") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []]]]])),Func ("OracleCSV","readCSVWithDelims") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCSV","components") [Var 2]],Comb FuncCall ("OraclePrelude","lines") [Var 3,Var 1],Var 4]]))),Func ("OracleCSV","components") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCSV","_case_14") [Var 2,Var 3,Var 1]])),Func ("OracleCSV","components.breakString.25") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCSV","_case_11") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleCSV","components.breakString.25._#selFP3#b") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCSV","_case_5") [Var 2,Var 1]])),Func ("OracleCSV","components.breakString.25._#selFP4#bs") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCSV","_case_4") [Var 2,Var 1]])),Func ("OracleCSV","components.breakString.25._#selFP6#b") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCSV","_case_3") [Var 2,Var 1]])),Func ("OracleCSV","components.breakString.25._#selFP7#bs") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCSV","_case_2") [Var 2,Var 1]])),Func ("OracleCSV","components._#selFP9#e") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCSV","_case_1") [Var 2,Var 1]])),Func ("OracleCSV","components._#selFP10#s") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCSV","_case_0") [Var 2,Var 1]])),Func ("OracleCSV","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleCSV","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCSV","_case_2") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleCSV","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCSV","_case_4") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleCSV","_case_5") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCSV","_case_11") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCSV","_case_10") [Var 2,Var 3,Var 5,Var 6,Var 1]])]])),Func ("OracleCSV","_case_10") 5 Private (TVar (-42)) (Rule [2,3,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude","[]") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCSV","_case_9") [Var 2,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 5,Lit (Charc '"'),Var 1],Var 9]])),Branch (Pattern ("Prelude",":") [7,8]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCSV","_case_8") [Var 2,Var 3,Var 5,Var 7,Var 8,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 5,Lit (Charc '"'),Var 1],Comb FuncCall ("OraclePrelude","==") [Var 7,Lit (Charc '"'),Var 10],Var 11],Var 12]]))]])),Func ("OracleCSV","_case_8") 7 Private (TVar (-42)) (Rule [2,3,5,7,8,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleCSV","components.breakString.25") [Var 2,Var 3,Var 8,Var 1])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleCSV","components.breakString.25._#selFP3#b") [Var 9,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleCSV","components.breakString.25._#selFP4#bs") [Var 9,Var 14])] (Comb FuncCall ("CEventOracle","collapse") [Var 15,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 5,Var 10],Var 11]])]))]))])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleCSV","_case_7") [Var 2,Var 3,Var 5,Var 7,Var 8,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 5,Lit (Charc '"'),Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 7,Var 16],Var 3,Var 17],Var 18],Var 19]]))]])),Func ("OracleCSV","_case_7") 7 Private (TVar (-42)) (Rule [2,3,5,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("OracleCSV","components") [Var 3,Var 8,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCSV","_case_6") [Var 2,Var 3,Var 5,Var 7,Var 8,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 10]]))]])),Func ("OracleCSV","_case_6") 7 Private (TVar (-42)) (Rule [2,3,5,7,8,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 15) [Branch (Pattern ("Prelude","True") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(12,Comb FuncCall ("OracleCSV","components.breakString.25") [Var 2,Var 3,Comb ConsCall ("Prelude",":") [Var 7,Var 8],Var 1])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OracleCSV","components.breakString.25._#selFP6#b") [Var 12,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(14,Comb FuncCall ("OracleCSV","components.breakString.25._#selFP7#bs") [Var 12,Var 17])] (Comb FuncCall ("CEventOracle","collapse") [Var 18,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 5,Var 13],Var 14]])]))]))])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleCSV","_case_9") 4 Private (TVar (-42)) (Rule [2,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]])),Func ("OracleCSV","_case_14") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePrelude","error") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),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 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),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 'C'),Comb ConsCall ("Prelude",":") [Lit (Charc 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'V'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc '!'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCSV","_case_13") [Var 2,Var 4,Var 5,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc '"'),Var 7],Var 8]]))]))]])),Func ("OracleCSV","_case_13") 6 Private (TVar (-42)) (Rule [2,4,5,6,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCSV","components.breakString.25") [Var 6,Var 2,Var 5,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Let [(7,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","break") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","elem") []],Var 2]],Var 1],Comb ConsCall ("Prelude",":") [Var 4,Var 5],Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleCSV","components._#selFP9#e") [Var 7,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleCSV","components._#selFP10#s") [Var 7,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 8,Comb FuncCall ("OracleCSV","_case_12") [Var 2,Var 9,Comb FuncCall ("OraclePrelude","null") [Var 9,Var 14],Var 15]]]))]))]))]))]])),Func ("OracleCSV","_case_12") 4 Private (TVar (-42)) (Rule [2,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCSV","components") [Var 2,Comb FuncCall ("OraclePrelude","tail") [Var 9,Var 1],Var 11]]))]])),Func ("OracleCSV","_case_15") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []]])]])),Func ("OracleCSV","_case_16") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCSV","showCSVLine.convert.7._#lambda3") []],Var 1],Var 2,Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []],Var 5]]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]]))] []
+ Curry/Module/OracleChar.fcy view
@@ -0,0 +1,1 @@+Prog "OracleChar" ["CEventOracle","Oracle","IOExts","Char","Prelude","OraclePrelude"] [] [Func ("OracleChar","isUpper") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'A'),Var 3],Var 4],Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 5],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'Z'),Var 6],Var 7],Var 8]]))),Func ("OracleChar","isLower") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'a'),Var 3],Var 4],Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 5],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'z'),Var 6],Var 7],Var 8]]))),Func ("OracleChar","isAlpha") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OracleChar","isUpper") [Var 2,Var 1],Comb FuncCall ("OracleChar","isLower") [Var 2,Var 3],Var 4]]))),Func ("OracleChar","isDigit") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Lit (Charc '0'),Var 1],Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 3],Var 4],Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 5],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc '9'),Var 6],Var 7],Var 8]]))),Func ("OracleChar","isAlphaNum") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OracleChar","isAlpha") [Var 2,Var 1],Comb FuncCall ("OracleChar","isDigit") [Var 2,Var 3],Var 4]]))),Func ("OracleChar","isOctDigit") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc '0'),Var 3],Var 4],Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 5],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc '7'),Var 6],Var 7],Var 8]]))),Func ("OracleChar","isHexDigit") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OracleChar","isDigit") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 3],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'A'),Var 4],Var 5],Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 6],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'F'),Var 7],Var 8],Var 9],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 10],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'a'),Var 11],Var 12],Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 13],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'f'),Var 14],Var 15],Var 16],Var 17],Var 18]]))),Func ("OracleChar","isSpace") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc ' '),Var 1],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '\t'),Var 3],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '\n'),Var 4],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '\r'),Var 5],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 6],Lit (Intc 12),Var 7],Var 8],Var 9],Var 10],Var 11]]))),Func ("OracleChar","toUpper") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleChar","_case_10") [Var 2,Comb FuncCall ("OracleChar","isLower") [Var 2,Var 1],Var 3]]))),Func ("OracleChar","toLower") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleChar","_case_8") [Var 2,Comb FuncCall ("OracleChar","isUpper") [Var 2,Var 1],Var 3]]))),Func ("OracleChar","digitToInt") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleChar","_case_6") [Var 2,Comb FuncCall ("OracleChar","isDigit") [Var 2,Var 1],Var 3]]))),Func ("OracleChar","intToDigit") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleChar","_case_2") [Var 2,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Var 2,Lit (Intc 0),Var 1],Comb FuncCall ("OraclePrelude","<=") [Var 2,Lit (Intc 9),Var 3],Var 4],Var 5]]))),Func ("OracleChar","_case_2") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","ord") [Lit (Charc '0'),Var 1],Var 2,Var 4],Var 5]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleChar","_case_1") [Var 2,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Var 2,Lit (Intc 10),Var 1],Comb FuncCall ("OraclePrelude","<=") [Var 2,Lit (Intc 15),Var 6],Var 7],Var 8]]))]])),Func ("OracleChar","_case_1") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'A'),Var 1],Var 2,Var 4],Lit (Intc 10),Var 5],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleChar","_case_0") [Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 7]]))]])),Func ("OracleChar","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","error") [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 '.'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'T'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'D'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),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",":") [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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'v'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleChar","_case_6") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc '0'),Var 4],Var 5]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OracleChar","_case_5") [Var 2,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'A'),Var 6],Var 7],Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 8],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'F'),Var 9],Var 10],Var 11],Var 12]]))]])),Func ("OracleChar","_case_5") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'A'),Var 4],Var 5],Lit (Intc 10),Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OracleChar","_case_4") [Var 2,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'a'),Var 7],Var 8],Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 9],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'f'),Var 10],Var 11],Var 12],Var 13]]))]])),Func ("OracleChar","_case_4") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'a'),Var 4],Var 5],Lit (Intc 10),Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleChar","_case_3") [Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 7]]))]])),Func ("OracleChar","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","error") [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 '.'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'T'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'I'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),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",":") [Lit (Charc 'i'),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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleChar","_case_8") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'A'),Var 4],Var 5],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'a'),Var 6],Var 7],Var 8]])),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleChar","_case_7") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 9]]))]])),Func ("OracleChar","_case_7") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleChar","_case_10") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'a'),Var 4],Var 5],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'A'),Var 6],Var 7],Var 8]])),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleChar","_case_9") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 9]]))]])),Func ("OracleChar","_case_9") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]]))] []
+ Curry/Module/OracleChar.fint view
@@ -0,0 +1,1 @@+Prog "OracleChar" ["CEventOracle","Oracle","IOExts","Char","Prelude","OraclePrelude"] [] [Func ("OracleChar","isUpper") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'A'),Var 3],Var 4],Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 5],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'Z'),Var 6],Var 7],Var 8]]))),Func ("OracleChar","isLower") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'a'),Var 3],Var 4],Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 5],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'z'),Var 6],Var 7],Var 8]]))),Func ("OracleChar","isAlpha") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OracleChar","isUpper") [Var 2,Var 1],Comb FuncCall ("OracleChar","isLower") [Var 2,Var 3],Var 4]]))),Func ("OracleChar","isDigit") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Lit (Charc '0'),Var 1],Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 3],Var 4],Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 5],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc '9'),Var 6],Var 7],Var 8]]))),Func ("OracleChar","isAlphaNum") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OracleChar","isAlpha") [Var 2,Var 1],Comb FuncCall ("OracleChar","isDigit") [Var 2,Var 3],Var 4]]))),Func ("OracleChar","isOctDigit") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc '0'),Var 3],Var 4],Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 5],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc '7'),Var 6],Var 7],Var 8]]))),Func ("OracleChar","isHexDigit") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OracleChar","isDigit") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 3],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'A'),Var 4],Var 5],Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 6],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'F'),Var 7],Var 8],Var 9],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 10],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'a'),Var 11],Var 12],Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 13],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'f'),Var 14],Var 15],Var 16],Var 17],Var 18]]))),Func ("OracleChar","isSpace") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc ' '),Var 1],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '\t'),Var 3],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '\n'),Var 4],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '\r'),Var 5],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 6],Lit (Intc 12),Var 7],Var 8],Var 9],Var 10],Var 11]]))),Func ("OracleChar","toUpper") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleChar","_case_10") [Var 2,Comb FuncCall ("OracleChar","isLower") [Var 2,Var 1],Var 3]]))),Func ("OracleChar","toLower") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleChar","_case_8") [Var 2,Comb FuncCall ("OracleChar","isUpper") [Var 2,Var 1],Var 3]]))),Func ("OracleChar","digitToInt") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleChar","_case_6") [Var 2,Comb FuncCall ("OracleChar","isDigit") [Var 2,Var 1],Var 3]]))),Func ("OracleChar","intToDigit") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleChar","_case_2") [Var 2,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Var 2,Lit (Intc 0),Var 1],Comb FuncCall ("OraclePrelude","<=") [Var 2,Lit (Intc 9),Var 3],Var 4],Var 5]]))),Func ("OracleChar","_case_2") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","ord") [Lit (Charc '0'),Var 1],Var 2,Var 4],Var 5]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleChar","_case_1") [Var 2,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Var 2,Lit (Intc 10),Var 1],Comb FuncCall ("OraclePrelude","<=") [Var 2,Lit (Intc 15),Var 6],Var 7],Var 8]]))]])),Func ("OracleChar","_case_1") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'A'),Var 1],Var 2,Var 4],Lit (Intc 10),Var 5],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleChar","_case_0") [Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 7]]))]])),Func ("OracleChar","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","error") [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 '.'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'T'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'D'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),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",":") [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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'v'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleChar","_case_6") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc '0'),Var 4],Var 5]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OracleChar","_case_5") [Var 2,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'A'),Var 6],Var 7],Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 8],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'F'),Var 9],Var 10],Var 11],Var 12]]))]])),Func ("OracleChar","_case_5") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'A'),Var 4],Var 5],Lit (Intc 10),Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OracleChar","_case_4") [Var 2,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'a'),Var 7],Var 8],Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 9],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'f'),Var 10],Var 11],Var 12],Var 13]]))]])),Func ("OracleChar","_case_4") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'a'),Var 4],Var 5],Lit (Intc 10),Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleChar","_case_3") [Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 7]]))]])),Func ("OracleChar","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","error") [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 '.'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'T'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'I'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),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",":") [Lit (Charc 'i'),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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleChar","_case_8") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'A'),Var 4],Var 5],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'a'),Var 6],Var 7],Var 8]])),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleChar","_case_7") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 9]]))]])),Func ("OracleChar","_case_7") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleChar","_case_10") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'a'),Var 4],Var 5],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'A'),Var 6],Var 7],Var 8]])),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleChar","_case_9") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 9]]))]])),Func ("OracleChar","_case_9") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]]))] []
+ Curry/Module/OracleCompactFlatCurry.fcy view
@@ -0,0 +1,1 @@+Prog "OracleCompactFlatCurry" ["CEventOracle","Oracle","IOExts","CompactFlatCurry","Directory","Distribution","FileGoodies","FlatCurry","List","Maybe","Prelude","RedBlackTree","SetRBT","Sort","TableRBT","Time","XML","OracleDirectory","OracleDistribution","OracleFileGoodies","OracleFlatCurry","OracleList","OracleMaybe","OraclePrelude","OracleRedBlackTree","OracleSetRBT","OracleSort","OracleTableRBT","OracleTime","OracleXML"] [] [Func ("OracleCompactFlatCurry","isMainOption") 2 Private (FuncType (TCons ("CompactFlatCurry","Option") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_182") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","getMainFuncFromOptions") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_181") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","getRequiredFromOptions") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleCompactFlatCurry","getRequiredFromOptions._#lambda6") []],Comb ConsCall ("Prelude","[]") [],Var 2,Var 1],Var 3]]))),Func ("OracleCompactFlatCurry","getRequiredFromOptions._#lambda6") 3 Private (FuncType (TCons ("CompactFlatCurry","Option") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_179") [Var 3,Var 2,Var 1]])),Func ("OracleCompactFlatCurry","addImport2Options") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("CompactFlatCurry","Import") []],Comb FuncCall ("OracleList","nub") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","addImport2Options.alwaysReqMod.21") []],Var 1],Comb FuncCall ("OracleCompactFlatCurry","getRequiredFromOptions") [Var 2,Var 3],Var 4],Var 5],Var 6],Var 7]]))),Func ("OracleCompactFlatCurry","addImport2Options.alwaysReqMod.21") 2 Private (FuncType (TCons ("CompactFlatCurry","RequiredSpec") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_178") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","requires") 3 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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("CompactFlatCurry","RequiredSpec") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("CompactFlatCurry","Requires") [Var 2,Var 3]])),Func ("OracleCompactFlatCurry","alwaysRequired") 2 Public (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("CompactFlatCurry","RequiredSpec") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("CompactFlatCurry","AlwaysReq") [Var 2]])),Func ("OracleCompactFlatCurry","defaultRequired") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []])) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","alwaysRequired") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 1],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","[]") []]]]]]],Var 2],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","alwaysRequired") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 3],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","[]") []]]]]]]],Var 4],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","alwaysRequired") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 5],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","[]") []]]]]],Var 6],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","alwaysRequired") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 7],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","[]") []]]]]]]]],Var 8],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 9],Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 10],Comb ConsCall ("Prelude",":") [Lit (Charc '&'),Comb ConsCall ("Prelude",":") [Lit (Charc '&'),Comb ConsCall ("Prelude","[]") []]]],Var 11],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 12],Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 13],Comb ConsCall ("Prelude",":") [Lit (Charc '&'),Comb ConsCall ("Prelude","[]") []]],Var 14],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 15],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 ("OracleCompactFlatCurry","prelude") [Var 16],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","[]") []]]]]]],Var 17],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 18],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 ("OracleCompactFlatCurry","prelude") [Var 19],Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude","[]") []]]]],Var 20],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 21],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 ("OracleCompactFlatCurry","prelude") [Var 22],Comb ConsCall ("Prelude",":") [Lit (Charc '&'),Comb ConsCall ("Prelude",":") [Lit (Charc '>'),Comb ConsCall ("Prelude","[]") []]]],Var 23],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 24],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 ("OracleCompactFlatCurry","prelude") [Var 25],Comb ConsCall ("Prelude",":") [Lit (Charc '&'),Comb ConsCall ("Prelude","[]") []]],Var 26],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 27],Comb ConsCall ("Prelude",":") [Lit (Charc '$'),Comb ConsCall ("Prelude",":") [Lit (Charc '#'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 28],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","[]") []]]]]]]]]]]]]]],Var 29],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 30],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 ("OracleCompactFlatCurry","prelude") [Var 31],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","[]") []]]]]]]]]]]]]]]]]]]]]]],Var 32],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","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","[]") []]]]]]]]]]]]]]]]],Var 33],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","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","[]") []]]]]]]]]]]]]]]]],Var 34],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","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","[]") []]]]]]]]]]]]]]]]],Var 35],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","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","[]") []]]]]]]]]]]]]]],Var 36],Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]))),Func ("OracleCompactFlatCurry","prelude") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [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","[]") []]]]]]]]])),Func ("OracleCompactFlatCurry","getRequiredInModule") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","getRequiredInModule.getImpReq.38") [Var 3]],Var 1],Var 2,Var 4]]))),Func ("OracleCompactFlatCurry","getRequiredInModule.getImpReq.38") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CompactFlatCurry","RequiredSpec") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_176") [Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","getImplicitlyRequired") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","getImplicitlyRequired.getImpReq.46") [Var 3]],Var 1],Var 2,Var 4]]))),Func ("OracleCompactFlatCurry","getImplicitlyRequired.getImpReq.46") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CompactFlatCurry","RequiredSpec") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_173") [Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","defaultRequiredTypes") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 2],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 ("OracleCompactFlatCurry","prelude") [Var 3],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 ("OracleCompactFlatCurry","prelude") [Var 4],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 ("OracleCompactFlatCurry","prelude") [Var 5],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 ("OracleCompactFlatCurry","prelude") [Var 6],Comb ConsCall ("Prelude",":") [Lit (Charc 'I'),Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude","[]") []]]]]]]]))),Func ("OracleCompactFlatCurry","generateCompactFlatCurryFile") 4 Public (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCompactFlatCurry","computeCompactFlatCurry") [Var 2,Var 3,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","generateCompactFlatCurryFile._#lambda8") [Var 4]],Var 5]]))),Func ("OracleCompactFlatCurry","generateCompactFlatCurryFile._#lambda8") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleFlatCurry","writeFCY") [Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","done") [Var 4],Var 5]]))),Func ("OracleCompactFlatCurry","computeCompactFlatCurry") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleCompactFlatCurry","addImport2Options") [Var 2,Var 1])] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleCompactFlatCurry","_case_171") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Comb ConsCall ("CompactFlatCurry","Exports") [],Var 5],Var 4,Var 6],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","any") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","isMainOption") []],Var 7],Var 4,Var 8],Var 9],Var 10]]))]))),Func ("OracleCompactFlatCurry","computeCompactFlatCurry._#lambda9") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCompactFlatCurry","makeCompactFlatCurry") [Var 3,Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","computeCompactFlatCurry._#lambda9._#lambda10") []],Var 4]]))),Func ("OracleCompactFlatCurry","computeCompactFlatCurry._#lambda9._#lambda10") 2 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","putStrLn") [Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Comb FuncCall ("OraclePrelude","length") [Comb FuncCall ("OracleCompactFlatCurry","moduleFuns") [Var 2,Var 1],Var 3],Var 4],Var 5],Var 6],Comb FuncCall ("OraclePrelude","return") [Var 2,Var 7],Var 8]]))),Func ("OracleCompactFlatCurry","makeCompactFlatCurry") 3 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCompactFlatCurry","requiredInCompactProg") [Var 2,Var 3,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","makeCompactFlatCurry._#lambda11") [Var 2,Var 3]],Var 4]]))),Func ("OracleCompactFlatCurry","makeCompactFlatCurry._#lambda11") 4 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 ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_170") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleCompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12") 3 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []],TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_169") [Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12._#lambda13") 3 Private (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("FlatCurry","TypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","elemRBT") [Comb FuncCall ("OracleCompactFlatCurry","tconsName") [Var 3,Var 1],Var 4],Var 2,Var 5]]))),Func ("OracleCompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12._#lambda14") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("FlatCurry","OpDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_168") [Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","requiredDatatypes") 3 Private (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Let [(4,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","newTypeConsOfTDecl") [Var 2]],Var 1],Var 3,Var 5])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCompactFlatCurry","_case_167") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","null") [Var 4,Var 6],Var 7]]))]))),Func ("OracleCompactFlatCurry","newTypeConsOfTDecl") 3 Private (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("FlatCurry","TypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_166") [Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","newTypeConsOfTDecl._#lambda15") 3 Private (FuncType (TCons ("OracleRedBlackTree","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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","elemRBT") [Var 3,Var 1],Var 2,Var 4],Var 5]]))),Func ("OracleCompactFlatCurry","newTypeConsOfTDecl._#lambda16") 3 Private (FuncType (TCons ("OracleRedBlackTree","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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","elemRBT") [Var 3,Var 1],Var 2,Var 4],Var 5]]))),Func ("OracleCompactFlatCurry","newTypeConsOfTDecl._#lambda17") 2 Private (FuncType (TCons ("FlatCurry","ConsDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_163") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","extendTConsWithConsType") 4 Private (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_162") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleCompactFlatCurry","extendTConsWithConsType._#lambda18") 3 Private (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("FlatCurry","ConsDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","elemRBT") [Comb FuncCall ("OracleCompactFlatCurry","consName") [Var 3,Var 1],Var 4],Var 2,Var 5]]))),Func ("OracleCompactFlatCurry","extendFuncTable") 3 Private (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","FuncDecl") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","FuncDecl") []]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleCompactFlatCurry","extendFuncTable._#lambda19") []],Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","extendFuncTable._#lambda19") 3 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","FuncDecl") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","FuncDecl") []]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleTableRBT","updateRBT") [Comb FuncCall ("OracleCompactFlatCurry","functionName") [Var 2,Var 1],Var 2,Var 4],Var 3,Var 5]]))),Func ("OracleCompactFlatCurry","requiredInCompactProg") 3 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]])))))) (Rule [2,3,1] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Let [(4,Comb FuncCall ("OracleList","nub") [Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleCompactFlatCurry","requiredInCompactProg._#lambda22") []],Comb ConsCall ("Prelude","[]") [],Var 3,Var 1],Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleCompactFlatCurry","moduleName") [Var 2,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleCompactFlatCurry","requiredInCompactProg._#lambda26") []],Comb ConsCall ("Prelude","[]") [],Var 3,Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]],Let [(7,Comb FuncCall ("OracleCompactFlatCurry","exportedFuncNames") [Comb FuncCall ("OracleCompactFlatCurry","moduleFuns") [Var 2,Var 12],Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]]]],Let [(8,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 14],Var 5,Var 15],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","emptySetRBT") [Var 16],Comb FuncCall ("OracleSort","leqString") [Var 17],Var 18],Var 19])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCompactFlatCurry","_case_159") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("OraclePrelude","null") [Var 6,Var 20],Var 21],Var 22]]))]))]))]))]))]))),Func ("OracleCompactFlatCurry","requiredInCompactProg._#lambda22") 3 Private (FuncType (TCons ("CompactFlatCurry","Option") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_154") [Var 3,Var 2,Var 1]])),Func ("OracleCompactFlatCurry","requiredInCompactProg._#lambda26") 3 Private (FuncType (TCons ("CompactFlatCurry","Option") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_153") [Var 3,Var 2,Var 1]])),Func ("OracleCompactFlatCurry","requiredInCompactProg.add2mainmodset.118") 3 Private (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 1],Var 2,Var 3,Var 4]]))),Func ("OracleCompactFlatCurry","requiredInCompactProg._#lambda28") 6 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 ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]]))))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,,)") [Comb FuncCall ("OraclePrelude","concat") [Var 3,Var 1],Comb FuncCall ("OracleCompactFlatCurry","requiredInCompactProg.add2mainmodset.118") [Var 5,Var 2,Var 7],Comb ConsCall ("Prelude",":") [Var 4,Var 6]],Var 8]]))),Func ("OracleCompactFlatCurry","requiredInCompactProg._#lambda29") 6 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 ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]]))))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,,)") [Comb FuncCall ("OracleList","nub") [Var 3,Var 1],Comb FuncCall ("OracleCompactFlatCurry","requiredInCompactProg.add2mainmodset.118") [Var 5,Var 2,Var 7],Comb ConsCall ("Prelude",":") [Var 4,Var 6]],Var 8]]))),Func ("OracleCompactFlatCurry","requiredInCompactProg._#lambda30") 7 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 ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]])))))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 5,Var 2],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCompactFlatCurry","requiredInCompactProg.add2mainmodset.118") [Var 6,Var 3,Var 1],Comb ConsCall ("Prelude",":") [Var 4,Var 7]],Var 8]]))),Func ("OracleCompactFlatCurry","requiredInCompactProg._#lambda31") 5 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]])))))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,,)") [Comb FuncCall ("OracleList","nub") [Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","exportedFuncNames") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","moduleFuns") []],Var 1],Var 6],Var 5,Var 7],Var 8],Var 9],Comb FuncCall ("OracleCompactFlatCurry","requiredInCompactProg.add2mainmodset.118") [Var 4,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","moduleName") []],Var 5,Var 10],Var 11],Comb ConsCall ("Prelude",":") [Var 3,Var 5]],Var 12]]))),Func ("OracleCompactFlatCurry","exportedFuncNames") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","exportedFuncNames._#lambda32") []],Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","exportedFuncNames._#lambda33") []],Var 2,Var 1],Var 3]]))),Func ("OracleCompactFlatCurry","exportedFuncNames._#lambda32") 2 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_152") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","exportedFuncNames._#lambda33") 2 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_151") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","getCalledFuncs") 9 Private (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []]) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","FuncDecl") []]]) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("OracleRedBlackTree","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") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []],TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]])))))))))))) (Rule [2,3,4,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_150") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9,Var 1]])),Func ("OracleCompactFlatCurry","getCalledFuncs._#lambda34") 12 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","FuncDecl") []]]) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("OracleRedBlackTree","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") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []],TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]]))))))))))))))) (Rule [2,3,4,5,6,7,8,9,10,11,12,1] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OracleCompactFlatCurry","getRequiredInModule") [Var 11,Var 9,Var 1])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OracleCompactFlatCurry","getCalledFuncs") [Var 11,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 14],Var 9,Var 15],Var 7,Var 16],Comb ConsCall ("Prelude",":") [Var 12,Var 10],Comb FuncCall ("OracleCompactFlatCurry","extendFuncTable") [Var 4,Comb FuncCall ("OracleCompactFlatCurry","moduleFuns") [Var 12,Var 17],Var 18],Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 19],Var 6,Var 13,Var 20],Var 5,Var 8,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 9,Var 2],Comb FuncCall ("OraclePrelude","++") [Var 3,Var 13,Var 21]],Var 22]]))]))),Func ("OracleCompactFlatCurry","getCalledFuncs._#lambda35") 3 Private (FuncType (TCons ("OracleRedBlackTree","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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","elemRBT") [Var 3,Var 1],Var 2,Var 4],Var 5]]))),Func ("OracleCompactFlatCurry","getCalledFuncs._#lambda36") 3 Private (FuncType (TCons ("OracleRedBlackTree","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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","elemRBT") [Var 3,Var 1],Var 2,Var 4],Var 5]]))),Func ("OracleCompactFlatCurry","getCalledFuncs._#lambda37") 3 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []],TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []],TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_145") [Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","allFuncCalls") 2 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_144") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","allFuncCallsOfExpr") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_142") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","allFuncCallsOfBranchExpr") 2 Private (FuncType (TCons ("FlatCurry","BranchExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_140") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","allConstructorsOfFunc") 2 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_139") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","allConsOfExpr") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_137") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","allConsOfExpr.consOfBranch.252") 2 Private (FuncType (TCons ("FlatCurry","BranchExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_135") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","allTypesOfFunc") 2 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_133") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","allTypesOfTExpr") 2 Private (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_132") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","unionMap") 2 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TVar 1]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 1]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleList","union") []],Comb ConsCall ("Prelude","[]") []]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Var 2]],Var 1]])),Func ("OracleCompactFlatCurry","functionName") 2 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_131") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","consName") 2 Private (FuncType (TCons ("FlatCurry","ConsDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_130") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","tconsName") 2 Private (FuncType (TCons ("FlatCurry","TypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_129") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","moduleImports") 2 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_128") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","moduleTypes") 2 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_127") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","moduleOps") 2 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_126") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","moduleName") 2 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_125") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","moduleFuns") 2 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_124") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","leqQName") 3 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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_123") [Var 3,Var 2,Var 1]])),Func ("OracleCompactFlatCurry","readCurrentFlatCurry") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","putStr") [Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 3],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCompactFlatCurry","findSourceFileInLoadPath") [Var 2,Var 4],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","readCurrentFlatCurry._#lambda40") []],Var 5],Var 6]]))),Func ("OracleCompactFlatCurry","readCurrentFlatCurry._#lambda40") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Comb FuncCall ("OracleFlatCurry","flatCurryFileName") [Var 2,Var 1],Var 3],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41") [Var 2]],Var 4]]))),Func ("OracleCompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCompactFlatCurry","_case_121") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","not") [Var 3,Var 1],Var 4]]))),Func ("OracleCompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41._#lambda42") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","getModificationTime") [Comb FuncCall ("OracleFlatCurry","flatCurryFileName") [Var 2,Var 1],Var 4],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41._#lambda42._#lambda43") [Var 3,Var 2]],Var 5]]))),Func ("OracleCompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41._#lambda42._#lambda43") 4 Private (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCompactFlatCurry","_case_120") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude",">") [Comb FuncCall ("OracleTime","clockTimeToInt") [Var 2,Var 1],Comb FuncCall ("OracleTime","clockTimeToInt") [Var 4,Var 5],Var 6],Var 7]]))),Func ("OracleCompactFlatCurry","getSourceModificationTime") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Time","ClockTime") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Comb FuncCall ("OraclePrelude","++") [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","[]") []]]]]]]],Var 1],Var 3],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","getSourceModificationTime._#lambda44") [Var 2]],Var 4]]))),Func ("OracleCompactFlatCurry","getSourceModificationTime._#lambda44") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Time","ClockTime") []])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_119") [Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","findSourceFileInLoadPath") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","getLoadPathForFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","findSourceFileInLoadPath._#lambda45") [Var 2]],Var 3]]))),Func ("OracleCompactFlatCurry","findSourceFileInLoadPath._#lambda45") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFileGoodies","lookupFileInPath") [Comb FuncCall ("OracleFileGoodies","baseName") [Var 2,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 3,Var 4],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","findSourceFileInLoadPath._#lambda45._#lambda46") [Var 2]],Var 5]]))),Func ("OracleCompactFlatCurry","findSourceFileInLoadPath._#lambda45._#lambda46") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 2,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","[]") []]]]]]]]]]]]],Var 1],Var 4],Var 5],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb FuncCall ("OracleFileGoodies","stripSuffix") [Var 6],Var 7],Var 3,Var 8]]))),Func ("OracleCompactFlatCurry","processPrimitives") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCompactFlatCurry","readPrimSpec") [Comb FuncCall ("OracleCompactFlatCurry","moduleName") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Var 2,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","[]") []]]]]]]]]],Var 4],Var 5],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","processPrimitives._#lambda47") [Var 3]],Var 6]]))),Func ("OracleCompactFlatCurry","processPrimitives._#lambda47") 3 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") []]]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OracleCompactFlatCurry","mergePrimSpecIntoModule") [Var 3,Var 2,Var 1],Var 4]]))),Func ("OracleCompactFlatCurry","mergePrimSpecIntoModule") 3 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Prog") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_118") [Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","mergePrimSpecIntoFunc") 3 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_117") [Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","mergePrimSpecIntoFunc._#selFP3#lib") 2 Private (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_114") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","mergePrimSpecIntoFunc._#selFP4#entry") 2 Private (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_112") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","readPrimSpec") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (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 [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Var 3,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","readPrimSpec._#lambda48") [Var 2,Var 3]],Var 4]]))),Func ("OracleCompactFlatCurry","readPrimSpec._#lambda48") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (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 [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_110") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleCompactFlatCurry","readPrimSpec._#lambda48._#lambda49") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (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 [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OracleCompactFlatCurry","xml2primtrans") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OracleCompactFlatCurry","xml2primtrans") 3 Private (FuncType (TVar 0) (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (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 [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_109") [Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","xml2primtrans.xml2prim.358") 3 Private (FuncType (TVar 248) (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TVar 248,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_86") [Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","_case_86") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("XML","XElem") [4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_85") [Var 2,Var 5,Var 6,Var 4,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_85") 5 Private (TVar (-42)) (Rule [2,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_84") [Var 2,Var 5,Var 6,Var 8,Var 7,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_84") 6 Private (TVar (-42)) (Rule [2,5,6,8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_83") [Var 2,Var 5,Var 6,Var 8,Var 1]]),Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_22") [Var 2,Var 5,Var 6,Var 8,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_22") 5 Private (TVar (-42)) (Rule [2,5,6,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [71,72]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_21") [Var 2,Var 5,Var 6,Var 72,Var 71,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_21") 6 Private (TVar (-42)) (Rule [2,5,6,72,71,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 71) [Branch (LPattern (Charc 'g')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_20") [Var 2,Var 5,Var 6,Var 72,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_20") 5 Private (TVar (-42)) (Rule [2,5,6,72,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 72) [Branch (Pattern ("Prelude",":") [73,74]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_19") [Var 2,Var 5,Var 6,Var 74,Var 73,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_19") 6 Private (TVar (-42)) (Rule [2,5,6,74,73,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 73) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_18") [Var 2,Var 5,Var 6,Var 74,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_18") 5 Private (TVar (-42)) (Rule [2,5,6,74,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 74) [Branch (Pattern ("Prelude",":") [75,76]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_17") [Var 2,Var 5,Var 6,Var 76,Var 75,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_17") 6 Private (TVar (-42)) (Rule [2,5,6,76,75,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 75) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_16") [Var 2,Var 5,Var 6,Var 76,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_16") 5 Private (TVar (-42)) (Rule [2,5,6,76,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 76) [Branch (Pattern ("Prelude",":") [77,78]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_15") [Var 2,Var 5,Var 6,Var 78,Var 77,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_15") 6 Private (TVar (-42)) (Rule [2,5,6,78,77,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 77) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_14") [Var 2,Var 5,Var 6,Var 78,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_14") 5 Private (TVar (-42)) (Rule [2,5,6,78,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 78) [Branch (Pattern ("Prelude",":") [79,80]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_13") [Var 2,Var 5,Var 6,Var 80,Var 79,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_13") 6 Private (TVar (-42)) (Rule [2,5,6,80,79,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 79) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_12") [Var 2,Var 5,Var 6,Var 80,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_12") 5 Private (TVar (-42)) (Rule [2,5,6,80,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 80) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_11") [Var 2,Var 6,Var 5,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_11") 4 Private (TVar (-42)) (Rule [2,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [81,82]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_10") [Var 2,Var 6,Var 81,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_10") 4 Private (TVar (-42)) (Rule [2,6,81,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 81) [Branch (Pattern ("Prelude","(,)") [83,84]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_9") [Var 2,Var 6,Var 84,Var 83,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_9") 5 Private (TVar (-42)) (Rule [2,6,84,83,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 83) [Branch (Pattern ("Prelude",":") [85,86]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_8") [Var 2,Var 6,Var 84,Var 86,Var 85,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_8") 6 Private (TVar (-42)) (Rule [2,6,84,86,85,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 85) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_7") [Var 2,Var 6,Var 84,Var 86,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_7") 5 Private (TVar (-42)) (Rule [2,6,84,86,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 86) [Branch (Pattern ("Prelude",":") [87,88]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_6") [Var 2,Var 6,Var 84,Var 88,Var 87,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_6") 6 Private (TVar (-42)) (Rule [2,6,84,88,87,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 87) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_5") [Var 2,Var 6,Var 84,Var 88,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_5") 5 Private (TVar (-42)) (Rule [2,6,84,88,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 88) [Branch (Pattern ("Prelude",":") [89,90]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_4") [Var 2,Var 6,Var 84,Var 90,Var 89,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_4") 6 Private (TVar (-42)) (Rule [2,6,84,90,89,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 89) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_3") [Var 2,Var 6,Var 84,Var 90,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_3") 5 Private (TVar (-42)) (Rule [2,6,84,90,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 90) [Branch (Pattern ("Prelude",":") [91,92]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_2") [Var 2,Var 6,Var 84,Var 92,Var 91,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_2") 6 Private (TVar (-42)) (Rule [2,6,84,92,91,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 91) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_1") [Var 2,Var 6,Var 84,Var 92,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_1") 5 Private (TVar (-42)) (Rule [2,6,84,92,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 92) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_0") [Var 2,Var 84,Var 6,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_0") 4 Private (TVar (-42)) (Rule [2,84,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","(,)") [Var 2,Var 84],Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]])]])),Func ("OracleCompactFlatCurry","_case_83") 5 Private (TVar (-42)) (Rule [2,5,6,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_82") [Var 2,Var 5,Var 6,Var 10,Var 9,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_82") 6 Private (TVar (-42)) (Rule [2,5,6,10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_81") [Var 2,Var 5,Var 6,Var 10,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_81") 5 Private (TVar (-42)) (Rule [2,5,6,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_80") [Var 2,Var 5,Var 6,Var 12,Var 11,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_80") 6 Private (TVar (-42)) (Rule [2,5,6,12,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_79") [Var 2,Var 5,Var 6,Var 12,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_79") 5 Private (TVar (-42)) (Rule [2,5,6,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_78") [Var 2,Var 5,Var 6,Var 14,Var 13,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_78") 6 Private (TVar (-42)) (Rule [2,5,6,14,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_77") [Var 2,Var 5,Var 6,Var 14,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_77") 5 Private (TVar (-42)) (Rule [2,5,6,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_76") [Var 2,Var 5,Var 6,Var 16,Var 15,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_76") 6 Private (TVar (-42)) (Rule [2,5,6,16,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_75") [Var 2,Var 5,Var 6,Var 16,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_75") 5 Private (TVar (-42)) (Rule [2,5,6,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_74") [Var 2,Var 5,Var 6,Var 18,Var 17,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_74") 6 Private (TVar (-42)) (Rule [2,5,6,18,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_73") [Var 2,Var 5,Var 6,Var 18,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_73") 5 Private (TVar (-42)) (Rule [2,5,6,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_72") [Var 2,Var 5,Var 6,Var 20,Var 19,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_72") 6 Private (TVar (-42)) (Rule [2,5,6,20,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_71") [Var 2,Var 5,Var 6,Var 20,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_71") 5 Private (TVar (-42)) (Rule [2,5,6,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (Pattern ("Prelude",":") [21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_70") [Var 2,Var 5,Var 6,Var 22,Var 21,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_70") 6 Private (TVar (-42)) (Rule [2,5,6,22,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (LPattern (Charc 'v')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_69") [Var 2,Var 5,Var 6,Var 22,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_69") 5 Private (TVar (-42)) (Rule [2,5,6,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude",":") [23,24]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_68") [Var 2,Var 5,Var 6,Var 24,Var 23,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_68") 6 Private (TVar (-42)) (Rule [2,5,6,24,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_67") [Var 2,Var 5,Var 6,Var 24,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_67") 5 Private (TVar (-42)) (Rule [2,5,6,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_66") [Var 2,Var 6,Var 5,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_66") 4 Private (TVar (-42)) (Rule [2,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [25,26]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_65") [Var 2,Var 6,Var 25,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_65") 4 Private (TVar (-42)) (Rule [2,6,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude","(,)") [27,28]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_64") [Var 2,Var 6,Var 28,Var 27,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_64") 5 Private (TVar (-42)) (Rule [2,6,28,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude",":") [29,30]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_63") [Var 2,Var 6,Var 28,Var 30,Var 29,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_63") 6 Private (TVar (-42)) (Rule [2,6,28,30,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_62") [Var 2,Var 6,Var 28,Var 30,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_62") 5 Private (TVar (-42)) (Rule [2,6,28,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (Pattern ("Prelude",":") [31,32]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_61") [Var 2,Var 6,Var 28,Var 32,Var 31,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_61") 6 Private (TVar (-42)) (Rule [2,6,28,32,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_60") [Var 2,Var 6,Var 28,Var 32,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_60") 5 Private (TVar (-42)) (Rule [2,6,28,32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 32) [Branch (Pattern ("Prelude",":") [33,34]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_59") [Var 2,Var 6,Var 28,Var 34,Var 33,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_59") 6 Private (TVar (-42)) (Rule [2,6,28,34,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 33) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_58") [Var 2,Var 6,Var 28,Var 34,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_58") 5 Private (TVar (-42)) (Rule [2,6,28,34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (Pattern ("Prelude",":") [35,36]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_57") [Var 2,Var 6,Var 28,Var 36,Var 35,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_57") 6 Private (TVar (-42)) (Rule [2,6,28,36,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 35) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_56") [Var 2,Var 6,Var 28,Var 36,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_56") 5 Private (TVar (-42)) (Rule [2,6,28,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_55") [Var 2,Var 28,Var 6,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_55") 4 Private (TVar (-42)) (Rule [2,28,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude",":") [37,38]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_54") [Var 2,Var 28,Var 38,Var 37,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_54") 5 Private (TVar (-42)) (Rule [2,28,38,37,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 37) [Branch (Pattern ("XML","XElem") [39,40,41]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_53") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 39,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_53") 7 Private (TVar (-42)) (Rule [2,28,38,40,41,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 39) [Branch (Pattern ("Prelude",":") [42,43]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_52") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 43,Var 42,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_52") 8 Private (TVar (-42)) (Rule [2,28,38,40,41,43,42,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 42) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_51") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 43,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_51") 7 Private (TVar (-42)) (Rule [2,28,38,40,41,43,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 43) [Branch (Pattern ("Prelude",":") [44,45]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_50") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 45,Var 44,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_50") 8 Private (TVar (-42)) (Rule [2,28,38,40,41,45,44,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 44) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_49") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 45,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_49") 7 Private (TVar (-42)) (Rule [2,28,38,40,41,45,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 45) [Branch (Pattern ("Prelude",":") [46,47]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_48") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 47,Var 46,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_48") 8 Private (TVar (-42)) (Rule [2,28,38,40,41,47,46,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 46) [Branch (LPattern (Charc 'b')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_47") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 47,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_47") 7 Private (TVar (-42)) (Rule [2,28,38,40,41,47,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 47) [Branch (Pattern ("Prelude",":") [48,49]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_46") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 49,Var 48,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_46") 8 Private (TVar (-42)) (Rule [2,28,38,40,41,49,48,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 48) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_45") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 49,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_45") 7 Private (TVar (-42)) (Rule [2,28,38,40,41,49,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 49) [Branch (Pattern ("Prelude",":") [50,51]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_44") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 51,Var 50,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_44") 8 Private (TVar (-42)) (Rule [2,28,38,40,41,51,50,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 50) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_43") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 51,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_43") 7 Private (TVar (-42)) (Rule [2,28,38,40,41,51,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 51) [Branch (Pattern ("Prelude",":") [52,53]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_42") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 53,Var 52,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_42") 8 Private (TVar (-42)) (Rule [2,28,38,40,41,53,52,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 52) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_41") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 53,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_41") 7 Private (TVar (-42)) (Rule [2,28,38,40,41,53,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 53) [Branch (Pattern ("Prelude",":") [54,55]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_40") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 55,Var 54,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_40") 8 Private (TVar (-42)) (Rule [2,28,38,40,41,55,54,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 54) [Branch (LPattern (Charc 'y')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_39") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 55,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_39") 7 Private (TVar (-42)) (Rule [2,28,38,40,41,55,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 55) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_38") [Var 2,Var 28,Var 38,Var 41,Var 40,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_38") 6 Private (TVar (-42)) (Rule [2,28,38,41,40,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 40) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_37") [Var 2,Var 28,Var 41,Var 38,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_37") 5 Private (TVar (-42)) (Rule [2,28,41,38,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 38) [Branch (Pattern ("Prelude",":") [56,57]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_36") [Var 2,Var 28,Var 41,Var 57,Var 56,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_36") 6 Private (TVar (-42)) (Rule [2,28,41,57,56,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 56) [Branch (Pattern ("XML","XElem") [58,59,60]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_35") [Var 2,Var 28,Var 41,Var 57,Var 59,Var 60,Var 58,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_35") 8 Private (TVar (-42)) (Rule [2,28,41,57,59,60,58,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 58) [Branch (Pattern ("Prelude",":") [61,62]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_34") [Var 2,Var 28,Var 41,Var 57,Var 59,Var 60,Var 62,Var 61,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_34") 9 Private (TVar (-42)) (Rule [2,28,41,57,59,60,62,61,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 61) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_33") [Var 2,Var 28,Var 41,Var 57,Var 59,Var 60,Var 62,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_33") 8 Private (TVar (-42)) (Rule [2,28,41,57,59,60,62,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 62) [Branch (Pattern ("Prelude",":") [63,64]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_32") [Var 2,Var 28,Var 41,Var 57,Var 59,Var 60,Var 64,Var 63,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_32") 9 Private (TVar (-42)) (Rule [2,28,41,57,59,60,64,63,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 63) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_31") [Var 2,Var 28,Var 41,Var 57,Var 59,Var 60,Var 64,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_31") 8 Private (TVar (-42)) (Rule [2,28,41,57,59,60,64,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 64) [Branch (Pattern ("Prelude",":") [65,66]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_30") [Var 2,Var 28,Var 41,Var 57,Var 59,Var 60,Var 66,Var 65,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_30") 9 Private (TVar (-42)) (Rule [2,28,41,57,59,60,66,65,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 65) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_29") [Var 2,Var 28,Var 41,Var 57,Var 59,Var 60,Var 66,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_29") 8 Private (TVar (-42)) (Rule [2,28,41,57,59,60,66,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 66) [Branch (Pattern ("Prelude",":") [67,68]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_28") [Var 2,Var 28,Var 41,Var 57,Var 59,Var 60,Var 68,Var 67,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_28") 9 Private (TVar (-42)) (Rule [2,28,41,57,59,60,68,67,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 67) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_27") [Var 2,Var 28,Var 41,Var 57,Var 59,Var 60,Var 68,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_27") 8 Private (TVar (-42)) (Rule [2,28,41,57,59,60,68,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 68) [Branch (Pattern ("Prelude",":") [69,70]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_26") [Var 2,Var 28,Var 41,Var 57,Var 59,Var 60,Var 70,Var 69,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_26") 9 Private (TVar (-42)) (Rule [2,28,41,57,59,60,70,69,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 69) [Branch (LPattern (Charc 'y')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_25") [Var 2,Var 28,Var 41,Var 57,Var 59,Var 60,Var 70,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_25") 8 Private (TVar (-42)) (Rule [2,28,41,57,59,60,70,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 70) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_24") [Var 2,Var 28,Var 41,Var 57,Var 60,Var 59,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_24") 7 Private (TVar (-42)) (Rule [2,28,41,57,60,59,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 59) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_23") [Var 2,Var 28,Var 41,Var 60,Var 57,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_23") 6 Private (TVar (-42)) (Rule [2,28,41,60,57,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 57) [Branch (Pattern ("Prelude","[]") []) (Let [(61,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 61,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","(,)") [Var 2,Var 28],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleXML","textOfXml") [Var 41,Var 1],Comb FuncCall ("OracleXML","textOfXml") [Var 60,Var 61]]]]))]])),Func ("OracleCompactFlatCurry","_case_109") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("XML","XElem") [4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_108") [Var 2,Var 5,Var 6,Var 4,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_108") 5 Private (TVar (-42)) (Rule [2,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_107") [Var 2,Var 5,Var 6,Var 8,Var 7,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_107") 6 Private (TVar (-42)) (Rule [2,5,6,8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_106") [Var 2,Var 5,Var 6,Var 8,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_106") 5 Private (TVar (-42)) (Rule [2,5,6,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_105") [Var 2,Var 5,Var 6,Var 10,Var 9,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_105") 6 Private (TVar (-42)) (Rule [2,5,6,10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_104") [Var 2,Var 5,Var 6,Var 10,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_104") 5 Private (TVar (-42)) (Rule [2,5,6,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_103") [Var 2,Var 5,Var 6,Var 12,Var 11,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_103") 6 Private (TVar (-42)) (Rule [2,5,6,12,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_102") [Var 2,Var 5,Var 6,Var 12,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_102") 5 Private (TVar (-42)) (Rule [2,5,6,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_101") [Var 2,Var 5,Var 6,Var 14,Var 13,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_101") 6 Private (TVar (-42)) (Rule [2,5,6,14,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_100") [Var 2,Var 5,Var 6,Var 14,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_100") 5 Private (TVar (-42)) (Rule [2,5,6,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_99") [Var 2,Var 5,Var 6,Var 16,Var 15,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_99") 6 Private (TVar (-42)) (Rule [2,5,6,16,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_98") [Var 2,Var 5,Var 6,Var 16,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_98") 5 Private (TVar (-42)) (Rule [2,5,6,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_97") [Var 2,Var 5,Var 6,Var 18,Var 17,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_97") 6 Private (TVar (-42)) (Rule [2,5,6,18,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_96") [Var 2,Var 5,Var 6,Var 18,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_96") 5 Private (TVar (-42)) (Rule [2,5,6,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_95") [Var 2,Var 5,Var 6,Var 20,Var 19,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_95") 6 Private (TVar (-42)) (Rule [2,5,6,20,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_94") [Var 2,Var 5,Var 6,Var 20,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_94") 5 Private (TVar (-42)) (Rule [2,5,6,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (Pattern ("Prelude",":") [21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_93") [Var 2,Var 5,Var 6,Var 22,Var 21,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_93") 6 Private (TVar (-42)) (Rule [2,5,6,22,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (LPattern (Charc 'v')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_92") [Var 2,Var 5,Var 6,Var 22,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_92") 5 Private (TVar (-42)) (Rule [2,5,6,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude",":") [23,24]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_91") [Var 2,Var 5,Var 6,Var 24,Var 23,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_91") 6 Private (TVar (-42)) (Rule [2,5,6,24,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_90") [Var 2,Var 5,Var 6,Var 24,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_90") 5 Private (TVar (-42)) (Rule [2,5,6,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_89") [Var 2,Var 5,Var 6,Var 26,Var 25,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_89") 6 Private (TVar (-42)) (Rule [2,5,6,26,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_88") [Var 2,Var 5,Var 6,Var 26,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_88") 5 Private (TVar (-42)) (Rule [2,5,6,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_87") [Var 2,Var 6,Var 5,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_87") 4 Private (TVar (-42)) (Rule [2,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","xml2primtrans.xml2prim.358") [Var 2]],Var 6,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_110") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleXML","readXmlFile") [Var 3,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","readPrimSpec._#lambda48._#lambda49") [Var 2]],Var 5]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","[]") [],Var 1]])]])),Func ("OracleCompactFlatCurry","_case_112") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Just") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_111") [Var 3,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_111") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleCompactFlatCurry","_case_114") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Just") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_113") [Var 3,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_113") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleCompactFlatCurry","_case_117") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Func") [4,5,6,7,8]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OraclePrelude","lookup") [Var 4,Var 2,Var 1])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCompactFlatCurry","_case_116") [Var 4,Var 5,Var 6,Var 7,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 9,Comb ConsCall ("Prelude","Nothing") [],Var 10],Var 11]]))]))]])),Func ("OracleCompactFlatCurry","_case_116") 8 Private (TVar (-42)) (Rule [4,5,6,7,8,9,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("FlatCurry","Func") [Var 4,Var 5,Var 6,Var 7,Var 8],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(10,Var 9)] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleCompactFlatCurry","mergePrimSpecIntoFunc._#selFP3#lib") [Var 10,Var 1])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(12,Comb FuncCall ("OracleCompactFlatCurry","mergePrimSpecIntoFunc._#selFP4#entry") [Var 10,Var 14])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCompactFlatCurry","_case_115") [Var 4,Var 5,Var 6,Var 7,Var 11,Var 12,Comb FuncCall ("OraclePrelude","null") [Var 12,Var 15],Var 16]]))]))]))])]])),Func ("OracleCompactFlatCurry","_case_115") 8 Private (TVar (-42)) (Rule [4,5,6,7,11,12,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("FlatCurry","Func") [Var 4,Var 5,Var 6,Var 7,Comb ConsCall ("FlatCurry","External") [Comb FuncCall ("OraclePrelude","++") [Var 11,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Var 12],Var 1]]],Comb ConsCall ("Prelude","[]") []]])]])),Func ("OracleCompactFlatCurry","_case_118") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Prog") [4,5,6,7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Prog") [Var 4,Var 5,Var 6,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","mergePrimSpecIntoFunc") [Var 2]],Var 1],Var 7,Var 9],Var 8]]))]])),Func ("OracleCompactFlatCurry","_case_119") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleDirectory","getModificationTime") [Comb FuncCall ("OraclePrelude","++") [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","[]") []]]]]]]],Var 1],Var 4]])),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleDirectory","getModificationTime") [Comb FuncCall ("OraclePrelude","++") [Var 2,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","[]") []]]]]]],Var 1],Var 5]]))]])),Func ("OracleCompactFlatCurry","_case_120") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFlatCurry","readFlatCurry") [Var 3,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","processPrimitives") [Var 3]],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFlatCurry","readFlatCurryFile") [Comb FuncCall ("OracleFlatCurry","flatCurryFileName") [Var 3,Var 1],Var 7],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","processPrimitives") [Var 3]],Var 8]]))]])),Func ("OracleCompactFlatCurry","_case_121") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFlatCurry","readFlatCurry") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","processPrimitives") [Var 2]],Var 5]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCompactFlatCurry","getSourceModificationTime") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41._#lambda42") [Var 2]],Var 6]]))]])),Func ("OracleCompactFlatCurry","_case_123") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_122") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_122") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [6,7]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]],Let [(8,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSort","cmpString") [Var 1],Var 4,Var 9],Var 6,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 8,Comb ConsCall ("Prelude","LT") [],Var 11],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 8,Comb ConsCall ("Prelude","EQ") [],Var 12],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSort","leqString") [Var 13],Var 5,Var 14],Var 7,Var 15],Var 16],Var 17]]))]))]])),Func ("OracleCompactFlatCurry","_case_124") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Prog") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleCompactFlatCurry","_case_125") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Prog") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCompactFlatCurry","_case_126") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Prog") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7])]])),Func ("OracleCompactFlatCurry","_case_127") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Prog") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleCompactFlatCurry","_case_128") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Prog") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleCompactFlatCurry","_case_129") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Type") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("FlatCurry","TypeSyn") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7])]])),Func ("OracleCompactFlatCurry","_case_130") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Cons") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCompactFlatCurry","_case_131") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Func") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCompactFlatCurry","_case_132") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","TVar") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("FlatCurry","FuncType") [4,5]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleList","union") [Comb FuncCall ("OracleCompactFlatCurry","allTypesOfTExpr") [Var 4,Var 1],Comb FuncCall ("OracleCompactFlatCurry","allTypesOfTExpr") [Var 5,Var 8],Var 9]])),Branch (Pattern ("FlatCurry","TCons") [6,7]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleList","union") [Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleCompactFlatCurry","unionMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","allTypesOfTExpr") []],Var 1],Var 7,Var 10],Var 11]]))]])),Func ("OracleCompactFlatCurry","_case_133") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Func") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","allTypesOfTExpr") [Var 6,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_135") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Branch") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_134") [Var 4,Var 3,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_134") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","LPattern") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","allConsOfExpr") [Var 4,Var 1]]),Branch (Pattern ("FlatCurry","Pattern") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleList","union") [Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCompactFlatCurry","allConsOfExpr") [Var 4,Var 1],Var 8]]))]])),Func ("OracleCompactFlatCurry","_case_137") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Var") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("FlatCurry","Lit") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]],Let [(8,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleCompactFlatCurry","unionMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","allConsOfExpr") []],Var 1],Var 7,Var 20])] (Comb FuncCall ("CEventOracle","replace") [Var 21,Comb FuncCall ("OracleCompactFlatCurry","_case_136") [Var 6,Var 8,Var 5,Var 21]])])),Branch (Pattern ("FlatCurry","Free") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","allConsOfExpr") [Var 12,Var 1]]),Branch (Pattern ("FlatCurry","Let") [13,14]) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleList","union") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleCompactFlatCurry","unionMap") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","allConsOfExpr") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 1],Var 22],Var 13,Var 23],Comb FuncCall ("OracleCompactFlatCurry","allConsOfExpr") [Var 14,Var 24],Var 25]])),Branch (Pattern ("FlatCurry","Or") [15,16]) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleList","union") [Comb FuncCall ("OracleCompactFlatCurry","allConsOfExpr") [Var 15,Var 1],Comb FuncCall ("OracleCompactFlatCurry","allConsOfExpr") [Var 16,Var 26],Var 27]])),Branch (Pattern ("FlatCurry","Case") [17,18,19]) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleList","union") [Comb FuncCall ("OracleCompactFlatCurry","allConsOfExpr") [Var 18,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleCompactFlatCurry","unionMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","allConsOfExpr.consOfBranch.252") []],Var 28],Var 19,Var 29],Var 30]]))]])),Func ("OracleCompactFlatCurry","_case_136") 4 Private (TVar (-42)) (Rule [6,8,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("FlatCurry","ConsCall") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Var 8]]),Branch (Pattern ("FlatCurry","ConsPartCall") [9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Var 8]]),Branch (Pattern ("FlatCurry","FuncCall") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8]),Branch (Pattern ("FlatCurry","FuncPartCall") [10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleCompactFlatCurry","_case_139") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Func") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_138") [Var 7,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_138") 2 Private (TVar (-42)) (Rule [7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("FlatCurry","External") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("FlatCurry","Rule") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","allConsOfExpr") [Var 10,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_140") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Branch") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","allFuncCallsOfExpr") [Var 4,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_142") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Var") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("FlatCurry","Lit") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]],Let [(8,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","allFuncCallsOfExpr") []],Var 1],Var 7,Var 20])] (Comb FuncCall ("CEventOracle","replace") [Var 21,Comb FuncCall ("OracleCompactFlatCurry","_case_141") [Var 6,Var 8,Var 5,Var 21]])])),Branch (Pattern ("FlatCurry","Free") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","allFuncCallsOfExpr") [Var 12,Var 1]]),Branch (Pattern ("FlatCurry","Let") [13,14]) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","allFuncCallsOfExpr") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 1],Var 22],Var 13,Var 23],Comb FuncCall ("OracleCompactFlatCurry","allFuncCallsOfExpr") [Var 14,Var 24],Var 25]])),Branch (Pattern ("FlatCurry","Or") [15,16]) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleCompactFlatCurry","allFuncCallsOfExpr") [Var 15,Var 1],Comb FuncCall ("OracleCompactFlatCurry","allFuncCallsOfExpr") [Var 16,Var 26],Var 27]])),Branch (Pattern ("FlatCurry","Case") [17,18,19]) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleCompactFlatCurry","allFuncCallsOfExpr") [Var 18,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","allFuncCallsOfBranchExpr") []],Var 28],Var 19,Var 29],Var 30]]))]])),Func ("OracleCompactFlatCurry","_case_141") 4 Private (TVar (-42)) (Rule [6,8,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("FlatCurry","FuncCall") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Var 8]]),Branch (Pattern ("FlatCurry","FuncPartCall") [9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Var 8]]),Branch (Pattern ("FlatCurry","ConsCall") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8]),Branch (Pattern ("FlatCurry","ConsPartCall") [10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleCompactFlatCurry","_case_144") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Func") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_143") [Var 7,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_143") 2 Private (TVar (-42)) (Rule [7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("FlatCurry","External") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("FlatCurry","Rule") [9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleList","nub") [Comb FuncCall ("OracleCompactFlatCurry","allFuncCallsOfExpr") [Var 10,Var 1],Var 11]]))]])),Func ("OracleCompactFlatCurry","_case_145") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,,,)") [4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,,,)") [Var 4,Comb ConsCall ("Prelude",":") [Var 2,Var 5],Var 6,Var 7],Var 1]])]])),Func ("OracleCompactFlatCurry","_case_150") 9 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,,,)") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 7,Var 8],Var 1]]),Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_149") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 11,Var 10,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_149") 10 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude","(,)") [12,13]) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCompactFlatCurry","_case_148") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 11,Var 12,Var 13,Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","elemRBT") [Var 12,Var 1],Var 3,Var 14],Var 15],Var 16]]))]])),Func ("OracleCompactFlatCurry","_case_148") 12 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,11,12,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCompactFlatCurry","readCurrentFlatCurry") [Var 12,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","getCalledFuncs._#lambda34") [Var 13,Var 11,Var 5,Var 7,Var 6,Var 3,Var 8,Var 12,Var 4,Var 2]],Var 15]])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCompactFlatCurry","_case_147") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 11,Var 12,Var 13,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleTableRBT","lookupRBT") [Comb ConsCall ("Prelude","(,)") [Var 12,Var 13],Var 1],Var 5,Var 16],Comb ConsCall ("Prelude","Nothing") [],Var 17],Var 18]]))]])),Func ("OracleCompactFlatCurry","_case_147") 12 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,11,12,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","getCalledFuncs") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 11,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCompactFlatCurry","_case_146") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 11,Var 12,Var 13,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 15]]))]])),Func ("OracleCompactFlatCurry","_case_146") 12 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,11,12,13,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 21) [Branch (Pattern ("Prelude","True") []) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]]],Let [(14,Comb FuncCall ("OracleMaybe","fromJust") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleTableRBT","lookupRBT") [Comb ConsCall ("Prelude","(,)") [Var 12,Var 13],Var 1],Var 5,Var 22],Var 23])] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(15,Comb FuncCall ("OracleCompactFlatCurry","allFuncCalls") [Var 14,Var 24])] (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Let [(16,Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","getCalledFuncs._#lambda35") [Var 6]],Var 15,Var 25])] (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []]],Let [(17,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","getImplicitlyRequired") [Var 2]],Var 26],Var 16,Var 27])] (Let [(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []],Let [(18,Comb FuncCall ("OracleCompactFlatCurry","allConstructorsOfFunc") [Var 14,Var 28])] (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []],Let [(19,Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","getCalledFuncs._#lambda36") [Var 7]],Var 18,Var 29])] (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []],Let [(20,Comb FuncCall ("OracleCompactFlatCurry","allTypesOfFunc") [Var 14,Var 30])] (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCompactFlatCurry","getCalledFuncs") [Var 2,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 31],Var 6,Comb FuncCall ("OraclePrelude","++") [Var 16,Var 17,Var 32],Var 33],Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 34],Var 7,Var 18,Var 35],Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 36],Var 8,Var 20,Var 37],Comb FuncCall ("OraclePrelude","++") [Var 11,Comb FuncCall ("OraclePrelude","++") [Var 16,Comb FuncCall ("OraclePrelude","++") [Var 17,Var 19,Var 38],Var 39],Var 40],Var 41],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","getCalledFuncs._#lambda37") [Var 14]],Var 42]]))]))]))]))]))]))]))])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleCompactFlatCurry","_case_151") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Func") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 5,Comb ConsCall ("FlatCurry","Public") [],Var 1]])]])),Func ("OracleCompactFlatCurry","_case_152") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Func") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCompactFlatCurry","_case_153") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("CompactFlatCurry","InitFuncs") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Var 3]]),Branch (Pattern ("CompactFlatCurry","Verbose") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","Main") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","Exports") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","Required") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","Import") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCompactFlatCurry","_case_154") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("CompactFlatCurry","Import") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Var 3]]),Branch (Pattern ("CompactFlatCurry","Verbose") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","Main") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","Exports") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","InitFuncs") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","Required") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCompactFlatCurry","_case_159") 9 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","mapIO") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","readCurrentFlatCurry") []],Var 1],Var 4,Var 10],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","requiredInCompactProg._#lambda28") [Var 4,Var 6,Var 2,Var 8]],Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCompactFlatCurry","_case_158") [Var 2,Var 3,Var 4,Var 5,Var 7,Var 8,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Comb ConsCall ("CompactFlatCurry","Exports") [],Var 1],Var 3,Var 12],Var 13]]))]])),Func ("OracleCompactFlatCurry","_case_158") 8 Private (TVar (-42)) (Rule [2,3,4,5,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","mapIO") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","readCurrentFlatCurry") []],Var 1],Var 4,Var 10],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","requiredInCompactProg._#lambda29") [Var 4,Var 7,Var 2,Var 8]],Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCompactFlatCurry","_case_157") [Var 2,Var 3,Var 4,Var 5,Var 7,Var 8,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","any") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","isMainOption") []],Var 1],Var 3,Var 12],Var 13]]))]])),Func ("OracleCompactFlatCurry","_case_157") 8 Private (TVar (-42)) (Rule [2,3,4,5,7,8,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleCompactFlatCurry","getMainFuncFromOptions") [Var 3,Var 1])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleCompactFlatCurry","_case_156") [Var 2,Var 4,Var 5,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Comb ConsCall ("Prelude","(,)") [Var 5,Var 9],Var 11],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","functionName") []],Comb FuncCall ("OracleCompactFlatCurry","moduleFuns") [Var 2,Var 12],Var 13],Var 14],Var 15]]))])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCompactFlatCurry","_case_155") [Var 2,Var 4,Var 7,Var 8,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 16]]))]])),Func ("OracleCompactFlatCurry","_case_155") 6 Private (TVar (-42)) (Rule [2,4,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","mapIO") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","readCurrentFlatCurry") []],Var 1],Comb FuncCall ("OracleList","nub") [Comb FuncCall ("OraclePrelude","++") [Var 4,Comb FuncCall ("OracleCompactFlatCurry","moduleImports") [Var 2,Var 10],Var 11],Var 12],Var 13],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","requiredInCompactProg._#lambda31") [Var 7,Var 2,Var 8]],Var 14]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleCompactFlatCurry","_case_156") 7 Private (TVar (-42)) (Rule [2,4,5,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","mapIO") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","readCurrentFlatCurry") []],Var 1],Var 4,Var 11],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","requiredInCompactProg._#lambda30") [Var 9,Var 4,Var 2,Var 5,Var 8]],Var 12]])),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 9,Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude",":") [Lit (Charc '!'),Comb ConsCall ("Prelude","[]") []]],Var 1],Var 13],Var 14]]))]])),Func ("OracleCompactFlatCurry","_case_162") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_161") [Var 2,Var 3,Var 6,Var 5,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_161") 5 Private (TVar (-42)) (Rule [2,3,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FlatCurry","TypeSyn") [7,8,9,10]) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCompactFlatCurry","extendTConsWithConsType") [Var 2,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 1],Var 7,Var 15],Var 3,Var 16],Var 6,Var 17]])),Branch (Pattern ("FlatCurry","Type") [11,12,13,14]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OracleCompactFlatCurry","_case_160") [Var 2,Var 3,Var 6,Var 11,Var 14,Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 11,Var 1],Comb FuncCall ("OracleCompactFlatCurry","defaultRequiredTypes") [Var 18],Var 19],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","any") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","extendTConsWithConsType._#lambda18") [Var 2]],Var 20],Var 14,Var 21],Var 22],Var 23]]))]])),Func ("OracleCompactFlatCurry","_case_160") 7 Private (TVar (-42)) (Rule [2,3,6,11,14,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 15) [Branch (Pattern ("Prelude","True") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCompactFlatCurry","extendTConsWithConsType") [Var 2,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 1],Var 11,Var 16],Var 3,Var 17],Var 6,Var 18]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","extendTConsWithConsType") [Var 2,Var 3,Var 6,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_163") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Cons") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","allTypesOfTExpr") []],Var 1],Var 6,Var 7]]))]])),Func ("OracleCompactFlatCurry","_case_166") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","TypeSyn") [4,5,6,7]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCompactFlatCurry","_case_165") [Var 2,Var 4,Var 7,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","elemRBT") [Var 4,Var 1],Var 2,Var 12],Var 13]])),Branch (Pattern ("FlatCurry","Type") [8,9,10,11]) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCompactFlatCurry","_case_164") [Var 2,Var 8,Var 11,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","elemRBT") [Var 8,Var 1],Var 2,Var 14],Var 15]]))]])),Func ("OracleCompactFlatCurry","_case_164") 5 Private (TVar (-42)) (Rule [2,8,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","newTypeConsOfTDecl._#lambda16") [Var 2]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","newTypeConsOfTDecl._#lambda17") []],Var 1],Var 11,Var 13],Var 14]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleCompactFlatCurry","_case_165") 5 Private (TVar (-42)) (Rule [2,4,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","newTypeConsOfTDecl._#lambda15") [Var 2]],Comb FuncCall ("OracleCompactFlatCurry","allTypesOfTExpr") [Var 7,Var 1],Var 9]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleCompactFlatCurry","_case_167") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCompactFlatCurry","requiredDatatypes") [Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 1],Var 2,Var 4,Var 6],Var 3,Var 7]]))]])),Func ("OracleCompactFlatCurry","_case_168") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Op") [4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 4,Var 1],Var 2,Var 7]]))]])),Func ("OracleCompactFlatCurry","_case_169") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,,,)") [4,5,6,7]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","putStrLn") [Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","+") []],Lit (Intc 0),Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","length") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","moduleFuns") []],Var 1],Var 4,Var 12],Var 13],Var 14],Var 15],Var 16],Let [(8,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","functionName") []],Var 5,Var 17])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("FlatCurry","Prog") [Comb FuncCall ("OracleCompactFlatCurry","moduleName") [Var 2,Var 18],Comb ConsCall ("Prelude","[]") [],Let [(9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","moduleTypes") []],Var 19],Var 4,Var 20])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleCompactFlatCurry","extendTConsWithConsType") [Var 6,Var 7,Var 9,Var 21])] (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleCompactFlatCurry","requiredDatatypes") [Var 10,Var 9,Var 22])] (Comb FuncCall ("CEventOracle","replace") [Var 23,Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12._#lambda13") [Var 11]],Var 9,Var 23]])]))])),Var 5,Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12._#lambda14") [Var 8]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","moduleOps") []],Var 24],Var 4,Var 25],Var 26]],Var 27]])),Var 28]]))]])),Func ("OracleCompactFlatCurry","_case_170") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,,)") [5,6,7]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]],Let [(8,Comb FuncCall ("OracleCompactFlatCurry","extendFuncTable") [Comb FuncCall ("OracleTableRBT","emptyTableRBT") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleCompactFlatCurry","leqQName") []],Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","moduleFuns") []],Var 12],Var 7,Var 13],Var 14])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleCompactFlatCurry","getRequiredFromOptions") [Var 3,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]],Let [(10,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","getRequiredInModule") [Var 9]],Var 16],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","moduleName") []],Var 7,Var 17],Var 18])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OraclePrelude","++") [Var 5,Var 10,Var 19])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCompactFlatCurry","getCalledFuncs") [Var 9,Var 6,Var 7,Var 8,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 20],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","emptySetRBT") [Var 21],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleCompactFlatCurry","leqQName") []],Var 22],Var 11,Var 23],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","emptySetRBT") [Var 24],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleCompactFlatCurry","leqQName") []],Var 25],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","emptySetRBT") [Var 26],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleCompactFlatCurry","leqQName") []],Var 27],Var 11,Var 28],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12") [Var 2]],Var 29]]))]))]))]))]))]])),Func ("OracleCompactFlatCurry","_case_171") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCompactFlatCurry","readCurrentFlatCurry") [Var 3,Var 6],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","computeCompactFlatCurry._#lambda9") [Var 4]],Var 7],Var 8]]))]])),Func ("OracleCompactFlatCurry","_case_173") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("CompactFlatCurry","AlwaysReq") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("CompactFlatCurry","Requires") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCompactFlatCurry","_case_172") [Var 2,Var 5,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 5,Var 2,Var 1],Var 7]]))]])),Func ("OracleCompactFlatCurry","_case_172") 5 Private (TVar (-42)) (Rule [2,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleCompactFlatCurry","_case_176") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("CompactFlatCurry","AlwaysReq") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_175") [Var 2,Var 4,Var 1]]),Branch (Pattern ("CompactFlatCurry","Requires") [7,8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleCompactFlatCurry","_case_175") 3 Private (TVar (-42)) (Rule [2,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCompactFlatCurry","_case_174") [Var 2,Var 5,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 5,Var 2,Var 1],Var 7]]))]])),Func ("OracleCompactFlatCurry","_case_174") 5 Private (TVar (-42)) (Rule [2,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 5,Var 6],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleCompactFlatCurry","_case_178") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("CompactFlatCurry","AlwaysReq") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_177") [Var 3,Var 1]]),Branch (Pattern ("CompactFlatCurry","Requires") [6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleCompactFlatCurry","_case_177") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]])]])),Func ("OracleCompactFlatCurry","_case_179") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("CompactFlatCurry","Required") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Var 3]]),Branch (Pattern ("CompactFlatCurry","Verbose") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","Main") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","Exports") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","InitFuncs") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","Import") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCompactFlatCurry","_case_181") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_180") [Var 4,Var 3,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_180") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("CompactFlatCurry","Main") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5]),Branch (Pattern ("CompactFlatCurry","Verbose") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","getMainFuncFromOptions") [Var 4,Var 1]]),Branch (Pattern ("CompactFlatCurry","Exports") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","getMainFuncFromOptions") [Var 4,Var 1]]),Branch (Pattern ("CompactFlatCurry","InitFuncs") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","getMainFuncFromOptions") [Var 4,Var 1]]),Branch (Pattern ("CompactFlatCurry","Required") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","getMainFuncFromOptions") [Var 4,Var 1]]),Branch (Pattern ("CompactFlatCurry","Import") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","getMainFuncFromOptions") [Var 4,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_182") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("CompactFlatCurry","Main") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("CompactFlatCurry","Verbose") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CompactFlatCurry","Exports") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CompactFlatCurry","InitFuncs") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CompactFlatCurry","Required") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CompactFlatCurry","Import") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]]))] [Op ("OracleCompactFlatCurry","requires") InfixOp 0]
+ Curry/Module/OracleCompactFlatCurry.fint view
@@ -0,0 +1,1 @@+Prog "OracleCompactFlatCurry" ["CEventOracle","Oracle","IOExts","CompactFlatCurry","Directory","Distribution","FileGoodies","FlatCurry","List","Maybe","Prelude","RedBlackTree","SetRBT","Sort","TableRBT","Time","XML","OracleDirectory","OracleDistribution","OracleFileGoodies","OracleFlatCurry","OracleList","OracleMaybe","OraclePrelude","OracleRedBlackTree","OracleSetRBT","OracleSort","OracleTableRBT","OracleTime","OracleXML"] [] [Func ("OracleCompactFlatCurry","isMainOption") 2 Private (FuncType (TCons ("CompactFlatCurry","Option") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_182") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","getMainFuncFromOptions") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_181") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","getRequiredFromOptions") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleCompactFlatCurry","getRequiredFromOptions._#lambda6") []],Comb ConsCall ("Prelude","[]") [],Var 2,Var 1],Var 3]]))),Func ("OracleCompactFlatCurry","getRequiredFromOptions._#lambda6") 3 Private (FuncType (TCons ("CompactFlatCurry","Option") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_179") [Var 3,Var 2,Var 1]])),Func ("OracleCompactFlatCurry","addImport2Options") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("CompactFlatCurry","Import") []],Comb FuncCall ("OracleList","nub") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","addImport2Options.alwaysReqMod.21") []],Var 1],Comb FuncCall ("OracleCompactFlatCurry","getRequiredFromOptions") [Var 2,Var 3],Var 4],Var 5],Var 6],Var 7]]))),Func ("OracleCompactFlatCurry","addImport2Options.alwaysReqMod.21") 2 Private (FuncType (TCons ("CompactFlatCurry","RequiredSpec") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_178") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","requires") 3 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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("CompactFlatCurry","RequiredSpec") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("CompactFlatCurry","Requires") [Var 2,Var 3]])),Func ("OracleCompactFlatCurry","alwaysRequired") 2 Public (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("CompactFlatCurry","RequiredSpec") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("CompactFlatCurry","AlwaysReq") [Var 2]])),Func ("OracleCompactFlatCurry","defaultRequired") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []])) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","alwaysRequired") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 1],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","[]") []]]]]]],Var 2],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","alwaysRequired") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 3],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","[]") []]]]]]]],Var 4],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","alwaysRequired") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 5],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","[]") []]]]]],Var 6],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","alwaysRequired") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 7],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","[]") []]]]]]]]],Var 8],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 9],Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 10],Comb ConsCall ("Prelude",":") [Lit (Charc '&'),Comb ConsCall ("Prelude",":") [Lit (Charc '&'),Comb ConsCall ("Prelude","[]") []]]],Var 11],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 12],Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 13],Comb ConsCall ("Prelude",":") [Lit (Charc '&'),Comb ConsCall ("Prelude","[]") []]],Var 14],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 15],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 ("OracleCompactFlatCurry","prelude") [Var 16],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","[]") []]]]]]],Var 17],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 18],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 ("OracleCompactFlatCurry","prelude") [Var 19],Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude","[]") []]]]],Var 20],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 21],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 ("OracleCompactFlatCurry","prelude") [Var 22],Comb ConsCall ("Prelude",":") [Lit (Charc '&'),Comb ConsCall ("Prelude",":") [Lit (Charc '>'),Comb ConsCall ("Prelude","[]") []]]],Var 23],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 24],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 ("OracleCompactFlatCurry","prelude") [Var 25],Comb ConsCall ("Prelude",":") [Lit (Charc '&'),Comb ConsCall ("Prelude","[]") []]],Var 26],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 27],Comb ConsCall ("Prelude",":") [Lit (Charc '$'),Comb ConsCall ("Prelude",":") [Lit (Charc '#'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 28],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","[]") []]]]]]]]]]]]]]],Var 29],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","requires") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 30],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 ("OracleCompactFlatCurry","prelude") [Var 31],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","[]") []]]]]]]]]]]]]]]]]]]]]]],Var 32],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","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","[]") []]]]]]]]]]]]]]]]],Var 33],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","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","[]") []]]]]]]]]]]]]]]]],Var 34],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","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","[]") []]]]]]]]]]]]]]]]],Var 35],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleCompactFlatCurry","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","[]") []]]]]]]]]]]]]]],Var 36],Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]))),Func ("OracleCompactFlatCurry","prelude") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [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","[]") []]]]]]]]])),Func ("OracleCompactFlatCurry","getRequiredInModule") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","getRequiredInModule.getImpReq.38") [Var 3]],Var 1],Var 2,Var 4]]))),Func ("OracleCompactFlatCurry","getRequiredInModule.getImpReq.38") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CompactFlatCurry","RequiredSpec") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_176") [Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","getImplicitlyRequired") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","getImplicitlyRequired.getImpReq.46") [Var 3]],Var 1],Var 2,Var 4]]))),Func ("OracleCompactFlatCurry","getImplicitlyRequired.getImpReq.46") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CompactFlatCurry","RequiredSpec") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_173") [Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","defaultRequiredTypes") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleCompactFlatCurry","prelude") [Var 2],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 ("OracleCompactFlatCurry","prelude") [Var 3],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 ("OracleCompactFlatCurry","prelude") [Var 4],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 ("OracleCompactFlatCurry","prelude") [Var 5],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 ("OracleCompactFlatCurry","prelude") [Var 6],Comb ConsCall ("Prelude",":") [Lit (Charc 'I'),Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude","[]") []]]]]]]]))),Func ("OracleCompactFlatCurry","generateCompactFlatCurryFile") 4 Public (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCompactFlatCurry","computeCompactFlatCurry") [Var 2,Var 3,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","generateCompactFlatCurryFile._#lambda8") [Var 4]],Var 5]]))),Func ("OracleCompactFlatCurry","generateCompactFlatCurryFile._#lambda8") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleFlatCurry","writeFCY") [Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","done") [Var 4],Var 5]]))),Func ("OracleCompactFlatCurry","computeCompactFlatCurry") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleCompactFlatCurry","addImport2Options") [Var 2,Var 1])] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleCompactFlatCurry","_case_171") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Comb ConsCall ("CompactFlatCurry","Exports") [],Var 5],Var 4,Var 6],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","any") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","isMainOption") []],Var 7],Var 4,Var 8],Var 9],Var 10]]))]))),Func ("OracleCompactFlatCurry","computeCompactFlatCurry._#lambda9") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCompactFlatCurry","makeCompactFlatCurry") [Var 3,Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","computeCompactFlatCurry._#lambda9._#lambda10") []],Var 4]]))),Func ("OracleCompactFlatCurry","computeCompactFlatCurry._#lambda9._#lambda10") 2 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","putStrLn") [Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Comb FuncCall ("OraclePrelude","length") [Comb FuncCall ("OracleCompactFlatCurry","moduleFuns") [Var 2,Var 1],Var 3],Var 4],Var 5],Var 6],Comb FuncCall ("OraclePrelude","return") [Var 2,Var 7],Var 8]]))),Func ("OracleCompactFlatCurry","makeCompactFlatCurry") 3 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCompactFlatCurry","requiredInCompactProg") [Var 2,Var 3,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","makeCompactFlatCurry._#lambda11") [Var 2,Var 3]],Var 4]]))),Func ("OracleCompactFlatCurry","makeCompactFlatCurry._#lambda11") 4 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 ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_170") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleCompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12") 3 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []],TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_169") [Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12._#lambda13") 3 Private (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("FlatCurry","TypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","elemRBT") [Comb FuncCall ("OracleCompactFlatCurry","tconsName") [Var 3,Var 1],Var 4],Var 2,Var 5]]))),Func ("OracleCompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12._#lambda14") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("FlatCurry","OpDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_168") [Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","requiredDatatypes") 3 Private (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Let [(4,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","newTypeConsOfTDecl") [Var 2]],Var 1],Var 3,Var 5])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCompactFlatCurry","_case_167") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","null") [Var 4,Var 6],Var 7]]))]))),Func ("OracleCompactFlatCurry","newTypeConsOfTDecl") 3 Private (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("FlatCurry","TypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_166") [Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","newTypeConsOfTDecl._#lambda15") 3 Private (FuncType (TCons ("OracleRedBlackTree","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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","elemRBT") [Var 3,Var 1],Var 2,Var 4],Var 5]]))),Func ("OracleCompactFlatCurry","newTypeConsOfTDecl._#lambda16") 3 Private (FuncType (TCons ("OracleRedBlackTree","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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","elemRBT") [Var 3,Var 1],Var 2,Var 4],Var 5]]))),Func ("OracleCompactFlatCurry","newTypeConsOfTDecl._#lambda17") 2 Private (FuncType (TCons ("FlatCurry","ConsDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_163") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","extendTConsWithConsType") 4 Private (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_162") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleCompactFlatCurry","extendTConsWithConsType._#lambda18") 3 Private (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("FlatCurry","ConsDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","elemRBT") [Comb FuncCall ("OracleCompactFlatCurry","consName") [Var 3,Var 1],Var 4],Var 2,Var 5]]))),Func ("OracleCompactFlatCurry","extendFuncTable") 3 Private (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","FuncDecl") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","FuncDecl") []]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleCompactFlatCurry","extendFuncTable._#lambda19") []],Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","extendFuncTable._#lambda19") 3 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","FuncDecl") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","FuncDecl") []]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleTableRBT","updateRBT") [Comb FuncCall ("OracleCompactFlatCurry","functionName") [Var 2,Var 1],Var 2,Var 4],Var 3,Var 5]]))),Func ("OracleCompactFlatCurry","requiredInCompactProg") 3 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","Option") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]])))))) (Rule [2,3,1] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Let [(4,Comb FuncCall ("OracleList","nub") [Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleCompactFlatCurry","requiredInCompactProg._#lambda22") []],Comb ConsCall ("Prelude","[]") [],Var 3,Var 1],Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleCompactFlatCurry","moduleName") [Var 2,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleCompactFlatCurry","requiredInCompactProg._#lambda26") []],Comb ConsCall ("Prelude","[]") [],Var 3,Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]],Let [(7,Comb FuncCall ("OracleCompactFlatCurry","exportedFuncNames") [Comb FuncCall ("OracleCompactFlatCurry","moduleFuns") [Var 2,Var 12],Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]]]],Let [(8,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 14],Var 5,Var 15],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","emptySetRBT") [Var 16],Comb FuncCall ("OracleSort","leqString") [Var 17],Var 18],Var 19])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCompactFlatCurry","_case_159") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("OraclePrelude","null") [Var 6,Var 20],Var 21],Var 22]]))]))]))]))]))]))),Func ("OracleCompactFlatCurry","requiredInCompactProg._#lambda22") 3 Private (FuncType (TCons ("CompactFlatCurry","Option") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_154") [Var 3,Var 2,Var 1]])),Func ("OracleCompactFlatCurry","requiredInCompactProg._#lambda26") 3 Private (FuncType (TCons ("CompactFlatCurry","Option") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_153") [Var 3,Var 2,Var 1]])),Func ("OracleCompactFlatCurry","requiredInCompactProg.add2mainmodset.118") 3 Private (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 1],Var 2,Var 3,Var 4]]))),Func ("OracleCompactFlatCurry","requiredInCompactProg._#lambda28") 6 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 ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]]))))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,,)") [Comb FuncCall ("OraclePrelude","concat") [Var 3,Var 1],Comb FuncCall ("OracleCompactFlatCurry","requiredInCompactProg.add2mainmodset.118") [Var 5,Var 2,Var 7],Comb ConsCall ("Prelude",":") [Var 4,Var 6]],Var 8]]))),Func ("OracleCompactFlatCurry","requiredInCompactProg._#lambda29") 6 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 ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]]))))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,,)") [Comb FuncCall ("OracleList","nub") [Var 3,Var 1],Comb FuncCall ("OracleCompactFlatCurry","requiredInCompactProg.add2mainmodset.118") [Var 5,Var 2,Var 7],Comb ConsCall ("Prelude",":") [Var 4,Var 6]],Var 8]]))),Func ("OracleCompactFlatCurry","requiredInCompactProg._#lambda30") 7 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 ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]])))))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 5,Var 2],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCompactFlatCurry","requiredInCompactProg.add2mainmodset.118") [Var 6,Var 3,Var 1],Comb ConsCall ("Prelude",":") [Var 4,Var 7]],Var 8]]))),Func ("OracleCompactFlatCurry","requiredInCompactProg._#lambda31") 5 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]])))))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,,)") [Comb FuncCall ("OracleList","nub") [Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","exportedFuncNames") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","moduleFuns") []],Var 1],Var 6],Var 5,Var 7],Var 8],Var 9],Comb FuncCall ("OracleCompactFlatCurry","requiredInCompactProg.add2mainmodset.118") [Var 4,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","moduleName") []],Var 5,Var 10],Var 11],Comb ConsCall ("Prelude",":") [Var 3,Var 5]],Var 12]]))),Func ("OracleCompactFlatCurry","exportedFuncNames") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","exportedFuncNames._#lambda32") []],Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","exportedFuncNames._#lambda33") []],Var 2,Var 1],Var 3]]))),Func ("OracleCompactFlatCurry","exportedFuncNames._#lambda32") 2 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_152") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","exportedFuncNames._#lambda33") 2 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_151") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","getCalledFuncs") 9 Private (FuncType (TCons ("Prelude","[]") [TCons ("CompactFlatCurry","RequiredSpec") []]) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","FuncDecl") []]]) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("OracleRedBlackTree","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") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []],TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]])))))))))))) (Rule [2,3,4,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_150") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9,Var 1]])),Func ("OracleCompactFlatCurry","getCalledFuncs._#lambda34") 12 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("FlatCurry","FuncDecl") []]]) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("OracleRedBlackTree","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") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []],TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]]))))))))))))))) (Rule [2,3,4,5,6,7,8,9,10,11,12,1] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OracleCompactFlatCurry","getRequiredInModule") [Var 11,Var 9,Var 1])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OracleCompactFlatCurry","getCalledFuncs") [Var 11,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 14],Var 9,Var 15],Var 7,Var 16],Comb ConsCall ("Prelude",":") [Var 12,Var 10],Comb FuncCall ("OracleCompactFlatCurry","extendFuncTable") [Var 4,Comb FuncCall ("OracleCompactFlatCurry","moduleFuns") [Var 12,Var 17],Var 18],Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 19],Var 6,Var 13,Var 20],Var 5,Var 8,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 9,Var 2],Comb FuncCall ("OraclePrelude","++") [Var 3,Var 13,Var 21]],Var 22]]))]))),Func ("OracleCompactFlatCurry","getCalledFuncs._#lambda35") 3 Private (FuncType (TCons ("OracleRedBlackTree","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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","elemRBT") [Var 3,Var 1],Var 2,Var 4],Var 5]]))),Func ("OracleCompactFlatCurry","getCalledFuncs._#lambda36") 3 Private (FuncType (TCons ("OracleRedBlackTree","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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","elemRBT") [Var 3,Var 1],Var 2,Var 4],Var 5]]))),Func ("OracleCompactFlatCurry","getCalledFuncs._#lambda37") 3 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []],TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []],TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_145") [Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","allFuncCalls") 2 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_144") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","allFuncCallsOfExpr") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_142") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","allFuncCallsOfBranchExpr") 2 Private (FuncType (TCons ("FlatCurry","BranchExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_140") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","allConstructorsOfFunc") 2 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_139") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","allConsOfExpr") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_137") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","allConsOfExpr.consOfBranch.252") 2 Private (FuncType (TCons ("FlatCurry","BranchExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_135") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","allTypesOfFunc") 2 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_133") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","allTypesOfTExpr") 2 Private (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_132") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","unionMap") 2 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TVar 1]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 1]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleList","union") []],Comb ConsCall ("Prelude","[]") []]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Var 2]],Var 1]])),Func ("OracleCompactFlatCurry","functionName") 2 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_131") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","consName") 2 Private (FuncType (TCons ("FlatCurry","ConsDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_130") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","tconsName") 2 Private (FuncType (TCons ("FlatCurry","TypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_129") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","moduleImports") 2 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_128") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","moduleTypes") 2 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_127") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","moduleOps") 2 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_126") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","moduleName") 2 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_125") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","moduleFuns") 2 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_124") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","leqQName") 3 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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_123") [Var 3,Var 2,Var 1]])),Func ("OracleCompactFlatCurry","readCurrentFlatCurry") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","putStr") [Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 3],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCompactFlatCurry","findSourceFileInLoadPath") [Var 2,Var 4],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","readCurrentFlatCurry._#lambda40") []],Var 5],Var 6]]))),Func ("OracleCompactFlatCurry","readCurrentFlatCurry._#lambda40") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Comb FuncCall ("OracleFlatCurry","flatCurryFileName") [Var 2,Var 1],Var 3],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41") [Var 2]],Var 4]]))),Func ("OracleCompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCompactFlatCurry","_case_121") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","not") [Var 3,Var 1],Var 4]]))),Func ("OracleCompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41._#lambda42") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","getModificationTime") [Comb FuncCall ("OracleFlatCurry","flatCurryFileName") [Var 2,Var 1],Var 4],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41._#lambda42._#lambda43") [Var 3,Var 2]],Var 5]]))),Func ("OracleCompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41._#lambda42._#lambda43") 4 Private (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCompactFlatCurry","_case_120") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude",">") [Comb FuncCall ("OracleTime","clockTimeToInt") [Var 2,Var 1],Comb FuncCall ("OracleTime","clockTimeToInt") [Var 4,Var 5],Var 6],Var 7]]))),Func ("OracleCompactFlatCurry","getSourceModificationTime") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Time","ClockTime") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Comb FuncCall ("OraclePrelude","++") [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","[]") []]]]]]]],Var 1],Var 3],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","getSourceModificationTime._#lambda44") [Var 2]],Var 4]]))),Func ("OracleCompactFlatCurry","getSourceModificationTime._#lambda44") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Time","ClockTime") []])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_119") [Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","findSourceFileInLoadPath") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","getLoadPathForFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","findSourceFileInLoadPath._#lambda45") [Var 2]],Var 3]]))),Func ("OracleCompactFlatCurry","findSourceFileInLoadPath._#lambda45") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFileGoodies","lookupFileInPath") [Comb FuncCall ("OracleFileGoodies","baseName") [Var 2,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 3,Var 4],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","findSourceFileInLoadPath._#lambda45._#lambda46") [Var 2]],Var 5]]))),Func ("OracleCompactFlatCurry","findSourceFileInLoadPath._#lambda45._#lambda46") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 2,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","[]") []]]]]]]]]]]]],Var 1],Var 4],Var 5],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb FuncCall ("OracleFileGoodies","stripSuffix") [Var 6],Var 7],Var 3,Var 8]]))),Func ("OracleCompactFlatCurry","processPrimitives") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCompactFlatCurry","readPrimSpec") [Comb FuncCall ("OracleCompactFlatCurry","moduleName") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Var 2,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","[]") []]]]]]]]]],Var 4],Var 5],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","processPrimitives._#lambda47") [Var 3]],Var 6]]))),Func ("OracleCompactFlatCurry","processPrimitives._#lambda47") 3 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") []]]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OracleCompactFlatCurry","mergePrimSpecIntoModule") [Var 3,Var 2,Var 1],Var 4]]))),Func ("OracleCompactFlatCurry","mergePrimSpecIntoModule") 3 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Prog") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_118") [Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","mergePrimSpecIntoFunc") 3 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_117") [Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","mergePrimSpecIntoFunc._#selFP3#lib") 2 Private (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_114") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","mergePrimSpecIntoFunc._#selFP4#entry") 2 Private (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_112") [Var 2,Var 1]])),Func ("OracleCompactFlatCurry","readPrimSpec") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (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 [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Var 3,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","readPrimSpec._#lambda48") [Var 2,Var 3]],Var 4]]))),Func ("OracleCompactFlatCurry","readPrimSpec._#lambda48") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (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 [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_110") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleCompactFlatCurry","readPrimSpec._#lambda48._#lambda49") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (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 [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OracleCompactFlatCurry","xml2primtrans") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OracleCompactFlatCurry","xml2primtrans") 3 Private (FuncType (TVar 0) (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (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 [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_109") [Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","xml2primtrans.xml2prim.358") 3 Private (FuncType (TVar 248) (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TVar 248,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_86") [Var 2,Var 3,Var 1]])),Func ("OracleCompactFlatCurry","_case_86") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("XML","XElem") [4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_85") [Var 2,Var 5,Var 6,Var 4,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_85") 5 Private (TVar (-42)) (Rule [2,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_84") [Var 2,Var 5,Var 6,Var 8,Var 7,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_84") 6 Private (TVar (-42)) (Rule [2,5,6,8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_83") [Var 2,Var 5,Var 6,Var 8,Var 1]]),Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_22") [Var 2,Var 5,Var 6,Var 8,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_22") 5 Private (TVar (-42)) (Rule [2,5,6,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [71,72]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_21") [Var 2,Var 5,Var 6,Var 72,Var 71,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_21") 6 Private (TVar (-42)) (Rule [2,5,6,72,71,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 71) [Branch (LPattern (Charc 'g')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_20") [Var 2,Var 5,Var 6,Var 72,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_20") 5 Private (TVar (-42)) (Rule [2,5,6,72,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 72) [Branch (Pattern ("Prelude",":") [73,74]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_19") [Var 2,Var 5,Var 6,Var 74,Var 73,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_19") 6 Private (TVar (-42)) (Rule [2,5,6,74,73,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 73) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_18") [Var 2,Var 5,Var 6,Var 74,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_18") 5 Private (TVar (-42)) (Rule [2,5,6,74,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 74) [Branch (Pattern ("Prelude",":") [75,76]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_17") [Var 2,Var 5,Var 6,Var 76,Var 75,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_17") 6 Private (TVar (-42)) (Rule [2,5,6,76,75,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 75) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_16") [Var 2,Var 5,Var 6,Var 76,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_16") 5 Private (TVar (-42)) (Rule [2,5,6,76,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 76) [Branch (Pattern ("Prelude",":") [77,78]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_15") [Var 2,Var 5,Var 6,Var 78,Var 77,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_15") 6 Private (TVar (-42)) (Rule [2,5,6,78,77,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 77) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_14") [Var 2,Var 5,Var 6,Var 78,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_14") 5 Private (TVar (-42)) (Rule [2,5,6,78,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 78) [Branch (Pattern ("Prelude",":") [79,80]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_13") [Var 2,Var 5,Var 6,Var 80,Var 79,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_13") 6 Private (TVar (-42)) (Rule [2,5,6,80,79,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 79) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_12") [Var 2,Var 5,Var 6,Var 80,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_12") 5 Private (TVar (-42)) (Rule [2,5,6,80,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 80) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_11") [Var 2,Var 6,Var 5,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_11") 4 Private (TVar (-42)) (Rule [2,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [81,82]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_10") [Var 2,Var 6,Var 81,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_10") 4 Private (TVar (-42)) (Rule [2,6,81,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 81) [Branch (Pattern ("Prelude","(,)") [83,84]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_9") [Var 2,Var 6,Var 84,Var 83,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_9") 5 Private (TVar (-42)) (Rule [2,6,84,83,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 83) [Branch (Pattern ("Prelude",":") [85,86]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_8") [Var 2,Var 6,Var 84,Var 86,Var 85,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_8") 6 Private (TVar (-42)) (Rule [2,6,84,86,85,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 85) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_7") [Var 2,Var 6,Var 84,Var 86,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_7") 5 Private (TVar (-42)) (Rule [2,6,84,86,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 86) [Branch (Pattern ("Prelude",":") [87,88]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_6") [Var 2,Var 6,Var 84,Var 88,Var 87,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_6") 6 Private (TVar (-42)) (Rule [2,6,84,88,87,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 87) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_5") [Var 2,Var 6,Var 84,Var 88,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_5") 5 Private (TVar (-42)) (Rule [2,6,84,88,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 88) [Branch (Pattern ("Prelude",":") [89,90]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_4") [Var 2,Var 6,Var 84,Var 90,Var 89,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_4") 6 Private (TVar (-42)) (Rule [2,6,84,90,89,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 89) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_3") [Var 2,Var 6,Var 84,Var 90,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_3") 5 Private (TVar (-42)) (Rule [2,6,84,90,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 90) [Branch (Pattern ("Prelude",":") [91,92]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_2") [Var 2,Var 6,Var 84,Var 92,Var 91,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_2") 6 Private (TVar (-42)) (Rule [2,6,84,92,91,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 91) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_1") [Var 2,Var 6,Var 84,Var 92,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_1") 5 Private (TVar (-42)) (Rule [2,6,84,92,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 92) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_0") [Var 2,Var 84,Var 6,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_0") 4 Private (TVar (-42)) (Rule [2,84,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","(,)") [Var 2,Var 84],Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]])]])),Func ("OracleCompactFlatCurry","_case_83") 5 Private (TVar (-42)) (Rule [2,5,6,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_82") [Var 2,Var 5,Var 6,Var 10,Var 9,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_82") 6 Private (TVar (-42)) (Rule [2,5,6,10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_81") [Var 2,Var 5,Var 6,Var 10,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_81") 5 Private (TVar (-42)) (Rule [2,5,6,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_80") [Var 2,Var 5,Var 6,Var 12,Var 11,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_80") 6 Private (TVar (-42)) (Rule [2,5,6,12,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_79") [Var 2,Var 5,Var 6,Var 12,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_79") 5 Private (TVar (-42)) (Rule [2,5,6,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_78") [Var 2,Var 5,Var 6,Var 14,Var 13,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_78") 6 Private (TVar (-42)) (Rule [2,5,6,14,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_77") [Var 2,Var 5,Var 6,Var 14,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_77") 5 Private (TVar (-42)) (Rule [2,5,6,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_76") [Var 2,Var 5,Var 6,Var 16,Var 15,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_76") 6 Private (TVar (-42)) (Rule [2,5,6,16,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_75") [Var 2,Var 5,Var 6,Var 16,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_75") 5 Private (TVar (-42)) (Rule [2,5,6,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_74") [Var 2,Var 5,Var 6,Var 18,Var 17,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_74") 6 Private (TVar (-42)) (Rule [2,5,6,18,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_73") [Var 2,Var 5,Var 6,Var 18,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_73") 5 Private (TVar (-42)) (Rule [2,5,6,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_72") [Var 2,Var 5,Var 6,Var 20,Var 19,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_72") 6 Private (TVar (-42)) (Rule [2,5,6,20,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_71") [Var 2,Var 5,Var 6,Var 20,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_71") 5 Private (TVar (-42)) (Rule [2,5,6,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (Pattern ("Prelude",":") [21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_70") [Var 2,Var 5,Var 6,Var 22,Var 21,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_70") 6 Private (TVar (-42)) (Rule [2,5,6,22,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (LPattern (Charc 'v')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_69") [Var 2,Var 5,Var 6,Var 22,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_69") 5 Private (TVar (-42)) (Rule [2,5,6,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude",":") [23,24]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_68") [Var 2,Var 5,Var 6,Var 24,Var 23,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_68") 6 Private (TVar (-42)) (Rule [2,5,6,24,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_67") [Var 2,Var 5,Var 6,Var 24,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_67") 5 Private (TVar (-42)) (Rule [2,5,6,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_66") [Var 2,Var 6,Var 5,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_66") 4 Private (TVar (-42)) (Rule [2,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [25,26]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_65") [Var 2,Var 6,Var 25,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_65") 4 Private (TVar (-42)) (Rule [2,6,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude","(,)") [27,28]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_64") [Var 2,Var 6,Var 28,Var 27,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_64") 5 Private (TVar (-42)) (Rule [2,6,28,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude",":") [29,30]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_63") [Var 2,Var 6,Var 28,Var 30,Var 29,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_63") 6 Private (TVar (-42)) (Rule [2,6,28,30,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_62") [Var 2,Var 6,Var 28,Var 30,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_62") 5 Private (TVar (-42)) (Rule [2,6,28,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (Pattern ("Prelude",":") [31,32]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_61") [Var 2,Var 6,Var 28,Var 32,Var 31,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_61") 6 Private (TVar (-42)) (Rule [2,6,28,32,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_60") [Var 2,Var 6,Var 28,Var 32,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_60") 5 Private (TVar (-42)) (Rule [2,6,28,32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 32) [Branch (Pattern ("Prelude",":") [33,34]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_59") [Var 2,Var 6,Var 28,Var 34,Var 33,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_59") 6 Private (TVar (-42)) (Rule [2,6,28,34,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 33) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_58") [Var 2,Var 6,Var 28,Var 34,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_58") 5 Private (TVar (-42)) (Rule [2,6,28,34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (Pattern ("Prelude",":") [35,36]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_57") [Var 2,Var 6,Var 28,Var 36,Var 35,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_57") 6 Private (TVar (-42)) (Rule [2,6,28,36,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 35) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_56") [Var 2,Var 6,Var 28,Var 36,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_56") 5 Private (TVar (-42)) (Rule [2,6,28,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_55") [Var 2,Var 28,Var 6,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_55") 4 Private (TVar (-42)) (Rule [2,28,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude",":") [37,38]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_54") [Var 2,Var 28,Var 38,Var 37,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_54") 5 Private (TVar (-42)) (Rule [2,28,38,37,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 37) [Branch (Pattern ("XML","XElem") [39,40,41]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_53") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 39,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_53") 7 Private (TVar (-42)) (Rule [2,28,38,40,41,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 39) [Branch (Pattern ("Prelude",":") [42,43]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_52") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 43,Var 42,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_52") 8 Private (TVar (-42)) (Rule [2,28,38,40,41,43,42,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 42) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_51") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 43,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_51") 7 Private (TVar (-42)) (Rule [2,28,38,40,41,43,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 43) [Branch (Pattern ("Prelude",":") [44,45]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_50") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 45,Var 44,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_50") 8 Private (TVar (-42)) (Rule [2,28,38,40,41,45,44,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 44) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_49") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 45,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_49") 7 Private (TVar (-42)) (Rule [2,28,38,40,41,45,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 45) [Branch (Pattern ("Prelude",":") [46,47]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_48") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 47,Var 46,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_48") 8 Private (TVar (-42)) (Rule [2,28,38,40,41,47,46,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 46) [Branch (LPattern (Charc 'b')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_47") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 47,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_47") 7 Private (TVar (-42)) (Rule [2,28,38,40,41,47,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 47) [Branch (Pattern ("Prelude",":") [48,49]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_46") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 49,Var 48,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_46") 8 Private (TVar (-42)) (Rule [2,28,38,40,41,49,48,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 48) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_45") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 49,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_45") 7 Private (TVar (-42)) (Rule [2,28,38,40,41,49,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 49) [Branch (Pattern ("Prelude",":") [50,51]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_44") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 51,Var 50,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_44") 8 Private (TVar (-42)) (Rule [2,28,38,40,41,51,50,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 50) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_43") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 51,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_43") 7 Private (TVar (-42)) (Rule [2,28,38,40,41,51,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 51) [Branch (Pattern ("Prelude",":") [52,53]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_42") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 53,Var 52,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_42") 8 Private (TVar (-42)) (Rule [2,28,38,40,41,53,52,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 52) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_41") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 53,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_41") 7 Private (TVar (-42)) (Rule [2,28,38,40,41,53,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 53) [Branch (Pattern ("Prelude",":") [54,55]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_40") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 55,Var 54,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_40") 8 Private (TVar (-42)) (Rule [2,28,38,40,41,55,54,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 54) [Branch (LPattern (Charc 'y')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_39") [Var 2,Var 28,Var 38,Var 40,Var 41,Var 55,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_39") 7 Private (TVar (-42)) (Rule [2,28,38,40,41,55,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 55) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_38") [Var 2,Var 28,Var 38,Var 41,Var 40,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_38") 6 Private (TVar (-42)) (Rule [2,28,38,41,40,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 40) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_37") [Var 2,Var 28,Var 41,Var 38,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_37") 5 Private (TVar (-42)) (Rule [2,28,41,38,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 38) [Branch (Pattern ("Prelude",":") [56,57]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_36") [Var 2,Var 28,Var 41,Var 57,Var 56,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_36") 6 Private (TVar (-42)) (Rule [2,28,41,57,56,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 56) [Branch (Pattern ("XML","XElem") [58,59,60]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_35") [Var 2,Var 28,Var 41,Var 57,Var 59,Var 60,Var 58,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_35") 8 Private (TVar (-42)) (Rule [2,28,41,57,59,60,58,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 58) [Branch (Pattern ("Prelude",":") [61,62]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_34") [Var 2,Var 28,Var 41,Var 57,Var 59,Var 60,Var 62,Var 61,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_34") 9 Private (TVar (-42)) (Rule [2,28,41,57,59,60,62,61,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 61) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_33") [Var 2,Var 28,Var 41,Var 57,Var 59,Var 60,Var 62,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_33") 8 Private (TVar (-42)) (Rule [2,28,41,57,59,60,62,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 62) [Branch (Pattern ("Prelude",":") [63,64]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_32") [Var 2,Var 28,Var 41,Var 57,Var 59,Var 60,Var 64,Var 63,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_32") 9 Private (TVar (-42)) (Rule [2,28,41,57,59,60,64,63,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 63) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_31") [Var 2,Var 28,Var 41,Var 57,Var 59,Var 60,Var 64,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_31") 8 Private (TVar (-42)) (Rule [2,28,41,57,59,60,64,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 64) [Branch (Pattern ("Prelude",":") [65,66]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_30") [Var 2,Var 28,Var 41,Var 57,Var 59,Var 60,Var 66,Var 65,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_30") 9 Private (TVar (-42)) (Rule [2,28,41,57,59,60,66,65,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 65) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_29") [Var 2,Var 28,Var 41,Var 57,Var 59,Var 60,Var 66,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_29") 8 Private (TVar (-42)) (Rule [2,28,41,57,59,60,66,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 66) [Branch (Pattern ("Prelude",":") [67,68]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_28") [Var 2,Var 28,Var 41,Var 57,Var 59,Var 60,Var 68,Var 67,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_28") 9 Private (TVar (-42)) (Rule [2,28,41,57,59,60,68,67,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 67) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_27") [Var 2,Var 28,Var 41,Var 57,Var 59,Var 60,Var 68,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_27") 8 Private (TVar (-42)) (Rule [2,28,41,57,59,60,68,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 68) [Branch (Pattern ("Prelude",":") [69,70]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_26") [Var 2,Var 28,Var 41,Var 57,Var 59,Var 60,Var 70,Var 69,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_26") 9 Private (TVar (-42)) (Rule [2,28,41,57,59,60,70,69,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 69) [Branch (LPattern (Charc 'y')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_25") [Var 2,Var 28,Var 41,Var 57,Var 59,Var 60,Var 70,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_25") 8 Private (TVar (-42)) (Rule [2,28,41,57,59,60,70,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 70) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_24") [Var 2,Var 28,Var 41,Var 57,Var 60,Var 59,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_24") 7 Private (TVar (-42)) (Rule [2,28,41,57,60,59,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 59) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_23") [Var 2,Var 28,Var 41,Var 60,Var 57,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_23") 6 Private (TVar (-42)) (Rule [2,28,41,60,57,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 57) [Branch (Pattern ("Prelude","[]") []) (Let [(61,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 61,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","(,)") [Var 2,Var 28],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleXML","textOfXml") [Var 41,Var 1],Comb FuncCall ("OracleXML","textOfXml") [Var 60,Var 61]]]]))]])),Func ("OracleCompactFlatCurry","_case_109") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("XML","XElem") [4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_108") [Var 2,Var 5,Var 6,Var 4,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_108") 5 Private (TVar (-42)) (Rule [2,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_107") [Var 2,Var 5,Var 6,Var 8,Var 7,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_107") 6 Private (TVar (-42)) (Rule [2,5,6,8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_106") [Var 2,Var 5,Var 6,Var 8,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_106") 5 Private (TVar (-42)) (Rule [2,5,6,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_105") [Var 2,Var 5,Var 6,Var 10,Var 9,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_105") 6 Private (TVar (-42)) (Rule [2,5,6,10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_104") [Var 2,Var 5,Var 6,Var 10,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_104") 5 Private (TVar (-42)) (Rule [2,5,6,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_103") [Var 2,Var 5,Var 6,Var 12,Var 11,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_103") 6 Private (TVar (-42)) (Rule [2,5,6,12,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_102") [Var 2,Var 5,Var 6,Var 12,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_102") 5 Private (TVar (-42)) (Rule [2,5,6,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_101") [Var 2,Var 5,Var 6,Var 14,Var 13,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_101") 6 Private (TVar (-42)) (Rule [2,5,6,14,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_100") [Var 2,Var 5,Var 6,Var 14,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_100") 5 Private (TVar (-42)) (Rule [2,5,6,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_99") [Var 2,Var 5,Var 6,Var 16,Var 15,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_99") 6 Private (TVar (-42)) (Rule [2,5,6,16,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_98") [Var 2,Var 5,Var 6,Var 16,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_98") 5 Private (TVar (-42)) (Rule [2,5,6,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_97") [Var 2,Var 5,Var 6,Var 18,Var 17,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_97") 6 Private (TVar (-42)) (Rule [2,5,6,18,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_96") [Var 2,Var 5,Var 6,Var 18,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_96") 5 Private (TVar (-42)) (Rule [2,5,6,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_95") [Var 2,Var 5,Var 6,Var 20,Var 19,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_95") 6 Private (TVar (-42)) (Rule [2,5,6,20,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_94") [Var 2,Var 5,Var 6,Var 20,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_94") 5 Private (TVar (-42)) (Rule [2,5,6,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (Pattern ("Prelude",":") [21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_93") [Var 2,Var 5,Var 6,Var 22,Var 21,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_93") 6 Private (TVar (-42)) (Rule [2,5,6,22,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (LPattern (Charc 'v')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_92") [Var 2,Var 5,Var 6,Var 22,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_92") 5 Private (TVar (-42)) (Rule [2,5,6,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude",":") [23,24]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_91") [Var 2,Var 5,Var 6,Var 24,Var 23,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_91") 6 Private (TVar (-42)) (Rule [2,5,6,24,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_90") [Var 2,Var 5,Var 6,Var 24,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_90") 5 Private (TVar (-42)) (Rule [2,5,6,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_89") [Var 2,Var 5,Var 6,Var 26,Var 25,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_89") 6 Private (TVar (-42)) (Rule [2,5,6,26,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_88") [Var 2,Var 5,Var 6,Var 26,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_88") 5 Private (TVar (-42)) (Rule [2,5,6,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_87") [Var 2,Var 6,Var 5,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_87") 4 Private (TVar (-42)) (Rule [2,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","xml2primtrans.xml2prim.358") [Var 2]],Var 6,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_110") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleXML","readXmlFile") [Var 3,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","readPrimSpec._#lambda48._#lambda49") [Var 2]],Var 5]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","[]") [],Var 1]])]])),Func ("OracleCompactFlatCurry","_case_112") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Just") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_111") [Var 3,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_111") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleCompactFlatCurry","_case_114") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Just") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_113") [Var 3,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_113") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleCompactFlatCurry","_case_117") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Func") [4,5,6,7,8]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OraclePrelude","lookup") [Var 4,Var 2,Var 1])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCompactFlatCurry","_case_116") [Var 4,Var 5,Var 6,Var 7,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 9,Comb ConsCall ("Prelude","Nothing") [],Var 10],Var 11]]))]))]])),Func ("OracleCompactFlatCurry","_case_116") 8 Private (TVar (-42)) (Rule [4,5,6,7,8,9,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("FlatCurry","Func") [Var 4,Var 5,Var 6,Var 7,Var 8],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(10,Var 9)] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleCompactFlatCurry","mergePrimSpecIntoFunc._#selFP3#lib") [Var 10,Var 1])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(12,Comb FuncCall ("OracleCompactFlatCurry","mergePrimSpecIntoFunc._#selFP4#entry") [Var 10,Var 14])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCompactFlatCurry","_case_115") [Var 4,Var 5,Var 6,Var 7,Var 11,Var 12,Comb FuncCall ("OraclePrelude","null") [Var 12,Var 15],Var 16]]))]))]))])]])),Func ("OracleCompactFlatCurry","_case_115") 8 Private (TVar (-42)) (Rule [4,5,6,7,11,12,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("FlatCurry","Func") [Var 4,Var 5,Var 6,Var 7,Comb ConsCall ("FlatCurry","External") [Comb FuncCall ("OraclePrelude","++") [Var 11,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Var 12],Var 1]]],Comb ConsCall ("Prelude","[]") []]])]])),Func ("OracleCompactFlatCurry","_case_118") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Prog") [4,5,6,7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Prog") [Var 4,Var 5,Var 6,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","mergePrimSpecIntoFunc") [Var 2]],Var 1],Var 7,Var 9],Var 8]]))]])),Func ("OracleCompactFlatCurry","_case_119") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleDirectory","getModificationTime") [Comb FuncCall ("OraclePrelude","++") [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","[]") []]]]]]]],Var 1],Var 4]])),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleDirectory","getModificationTime") [Comb FuncCall ("OraclePrelude","++") [Var 2,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","[]") []]]]]]],Var 1],Var 5]]))]])),Func ("OracleCompactFlatCurry","_case_120") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFlatCurry","readFlatCurry") [Var 3,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","processPrimitives") [Var 3]],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFlatCurry","readFlatCurryFile") [Comb FuncCall ("OracleFlatCurry","flatCurryFileName") [Var 3,Var 1],Var 7],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","processPrimitives") [Var 3]],Var 8]]))]])),Func ("OracleCompactFlatCurry","_case_121") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFlatCurry","readFlatCurry") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","processPrimitives") [Var 2]],Var 5]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCompactFlatCurry","getSourceModificationTime") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","readCurrentFlatCurry._#lambda40._#lambda41._#lambda42") [Var 2]],Var 6]]))]])),Func ("OracleCompactFlatCurry","_case_123") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_122") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_122") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [6,7]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]],Let [(8,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSort","cmpString") [Var 1],Var 4,Var 9],Var 6,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 8,Comb ConsCall ("Prelude","LT") [],Var 11],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 8,Comb ConsCall ("Prelude","EQ") [],Var 12],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSort","leqString") [Var 13],Var 5,Var 14],Var 7,Var 15],Var 16],Var 17]]))]))]])),Func ("OracleCompactFlatCurry","_case_124") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Prog") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleCompactFlatCurry","_case_125") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Prog") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCompactFlatCurry","_case_126") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Prog") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7])]])),Func ("OracleCompactFlatCurry","_case_127") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Prog") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleCompactFlatCurry","_case_128") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Prog") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleCompactFlatCurry","_case_129") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Type") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("FlatCurry","TypeSyn") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7])]])),Func ("OracleCompactFlatCurry","_case_130") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Cons") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCompactFlatCurry","_case_131") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Func") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCompactFlatCurry","_case_132") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","TVar") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("FlatCurry","FuncType") [4,5]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleList","union") [Comb FuncCall ("OracleCompactFlatCurry","allTypesOfTExpr") [Var 4,Var 1],Comb FuncCall ("OracleCompactFlatCurry","allTypesOfTExpr") [Var 5,Var 8],Var 9]])),Branch (Pattern ("FlatCurry","TCons") [6,7]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleList","union") [Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleCompactFlatCurry","unionMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","allTypesOfTExpr") []],Var 1],Var 7,Var 10],Var 11]]))]])),Func ("OracleCompactFlatCurry","_case_133") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Func") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","allTypesOfTExpr") [Var 6,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_135") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Branch") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_134") [Var 4,Var 3,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_134") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","LPattern") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","allConsOfExpr") [Var 4,Var 1]]),Branch (Pattern ("FlatCurry","Pattern") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleList","union") [Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCompactFlatCurry","allConsOfExpr") [Var 4,Var 1],Var 8]]))]])),Func ("OracleCompactFlatCurry","_case_137") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Var") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("FlatCurry","Lit") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]],Let [(8,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleCompactFlatCurry","unionMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","allConsOfExpr") []],Var 1],Var 7,Var 20])] (Comb FuncCall ("CEventOracle","replace") [Var 21,Comb FuncCall ("OracleCompactFlatCurry","_case_136") [Var 6,Var 8,Var 5,Var 21]])])),Branch (Pattern ("FlatCurry","Free") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","allConsOfExpr") [Var 12,Var 1]]),Branch (Pattern ("FlatCurry","Let") [13,14]) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleList","union") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleCompactFlatCurry","unionMap") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","allConsOfExpr") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 1],Var 22],Var 13,Var 23],Comb FuncCall ("OracleCompactFlatCurry","allConsOfExpr") [Var 14,Var 24],Var 25]])),Branch (Pattern ("FlatCurry","Or") [15,16]) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleList","union") [Comb FuncCall ("OracleCompactFlatCurry","allConsOfExpr") [Var 15,Var 1],Comb FuncCall ("OracleCompactFlatCurry","allConsOfExpr") [Var 16,Var 26],Var 27]])),Branch (Pattern ("FlatCurry","Case") [17,18,19]) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleList","union") [Comb FuncCall ("OracleCompactFlatCurry","allConsOfExpr") [Var 18,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleCompactFlatCurry","unionMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","allConsOfExpr.consOfBranch.252") []],Var 28],Var 19,Var 29],Var 30]]))]])),Func ("OracleCompactFlatCurry","_case_136") 4 Private (TVar (-42)) (Rule [6,8,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("FlatCurry","ConsCall") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Var 8]]),Branch (Pattern ("FlatCurry","ConsPartCall") [9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Var 8]]),Branch (Pattern ("FlatCurry","FuncCall") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8]),Branch (Pattern ("FlatCurry","FuncPartCall") [10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleCompactFlatCurry","_case_139") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Func") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_138") [Var 7,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_138") 2 Private (TVar (-42)) (Rule [7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("FlatCurry","External") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("FlatCurry","Rule") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","allConsOfExpr") [Var 10,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_140") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Branch") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","allFuncCallsOfExpr") [Var 4,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_142") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Var") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("FlatCurry","Lit") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]],Let [(8,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","allFuncCallsOfExpr") []],Var 1],Var 7,Var 20])] (Comb FuncCall ("CEventOracle","replace") [Var 21,Comb FuncCall ("OracleCompactFlatCurry","_case_141") [Var 6,Var 8,Var 5,Var 21]])])),Branch (Pattern ("FlatCurry","Free") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","allFuncCallsOfExpr") [Var 12,Var 1]]),Branch (Pattern ("FlatCurry","Let") [13,14]) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","allFuncCallsOfExpr") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 1],Var 22],Var 13,Var 23],Comb FuncCall ("OracleCompactFlatCurry","allFuncCallsOfExpr") [Var 14,Var 24],Var 25]])),Branch (Pattern ("FlatCurry","Or") [15,16]) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleCompactFlatCurry","allFuncCallsOfExpr") [Var 15,Var 1],Comb FuncCall ("OracleCompactFlatCurry","allFuncCallsOfExpr") [Var 16,Var 26],Var 27]])),Branch (Pattern ("FlatCurry","Case") [17,18,19]) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleCompactFlatCurry","allFuncCallsOfExpr") [Var 18,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","allFuncCallsOfBranchExpr") []],Var 28],Var 19,Var 29],Var 30]]))]])),Func ("OracleCompactFlatCurry","_case_141") 4 Private (TVar (-42)) (Rule [6,8,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("FlatCurry","FuncCall") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Var 8]]),Branch (Pattern ("FlatCurry","FuncPartCall") [9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Var 8]]),Branch (Pattern ("FlatCurry","ConsCall") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8]),Branch (Pattern ("FlatCurry","ConsPartCall") [10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleCompactFlatCurry","_case_144") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Func") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_143") [Var 7,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_143") 2 Private (TVar (-42)) (Rule [7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("FlatCurry","External") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("FlatCurry","Rule") [9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleList","nub") [Comb FuncCall ("OracleCompactFlatCurry","allFuncCallsOfExpr") [Var 10,Var 1],Var 11]]))]])),Func ("OracleCompactFlatCurry","_case_145") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,,,)") [4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,,,)") [Var 4,Comb ConsCall ("Prelude",":") [Var 2,Var 5],Var 6,Var 7],Var 1]])]])),Func ("OracleCompactFlatCurry","_case_150") 9 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","(,,,)") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 7,Var 8],Var 1]]),Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_149") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 11,Var 10,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_149") 10 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude","(,)") [12,13]) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCompactFlatCurry","_case_148") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 11,Var 12,Var 13,Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","elemRBT") [Var 12,Var 1],Var 3,Var 14],Var 15],Var 16]]))]])),Func ("OracleCompactFlatCurry","_case_148") 12 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,11,12,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCompactFlatCurry","readCurrentFlatCurry") [Var 12,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","getCalledFuncs._#lambda34") [Var 13,Var 11,Var 5,Var 7,Var 6,Var 3,Var 8,Var 12,Var 4,Var 2]],Var 15]])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCompactFlatCurry","_case_147") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 11,Var 12,Var 13,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleTableRBT","lookupRBT") [Comb ConsCall ("Prelude","(,)") [Var 12,Var 13],Var 1],Var 5,Var 16],Comb ConsCall ("Prelude","Nothing") [],Var 17],Var 18]]))]])),Func ("OracleCompactFlatCurry","_case_147") 12 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,11,12,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","getCalledFuncs") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 11,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCompactFlatCurry","_case_146") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 11,Var 12,Var 13,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 15]]))]])),Func ("OracleCompactFlatCurry","_case_146") 12 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,11,12,13,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 21) [Branch (Pattern ("Prelude","True") []) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]]],Let [(14,Comb FuncCall ("OracleMaybe","fromJust") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleTableRBT","lookupRBT") [Comb ConsCall ("Prelude","(,)") [Var 12,Var 13],Var 1],Var 5,Var 22],Var 23])] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(15,Comb FuncCall ("OracleCompactFlatCurry","allFuncCalls") [Var 14,Var 24])] (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Let [(16,Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","getCalledFuncs._#lambda35") [Var 6]],Var 15,Var 25])] (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []]],Let [(17,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","getImplicitlyRequired") [Var 2]],Var 26],Var 16,Var 27])] (Let [(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []],Let [(18,Comb FuncCall ("OracleCompactFlatCurry","allConstructorsOfFunc") [Var 14,Var 28])] (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []],Let [(19,Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","getCalledFuncs._#lambda36") [Var 7]],Var 18,Var 29])] (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []],Let [(20,Comb FuncCall ("OracleCompactFlatCurry","allTypesOfFunc") [Var 14,Var 30])] (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCompactFlatCurry","getCalledFuncs") [Var 2,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 31],Var 6,Comb FuncCall ("OraclePrelude","++") [Var 16,Var 17,Var 32],Var 33],Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 34],Var 7,Var 18,Var 35],Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 36],Var 8,Var 20,Var 37],Comb FuncCall ("OraclePrelude","++") [Var 11,Comb FuncCall ("OraclePrelude","++") [Var 16,Comb FuncCall ("OraclePrelude","++") [Var 17,Var 19,Var 38],Var 39],Var 40],Var 41],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","getCalledFuncs._#lambda37") [Var 14]],Var 42]]))]))]))]))]))]))]))])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleCompactFlatCurry","_case_151") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Func") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 5,Comb ConsCall ("FlatCurry","Public") [],Var 1]])]])),Func ("OracleCompactFlatCurry","_case_152") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Func") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCompactFlatCurry","_case_153") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("CompactFlatCurry","InitFuncs") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Var 3]]),Branch (Pattern ("CompactFlatCurry","Verbose") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","Main") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","Exports") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","Required") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","Import") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCompactFlatCurry","_case_154") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("CompactFlatCurry","Import") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Var 3]]),Branch (Pattern ("CompactFlatCurry","Verbose") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","Main") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","Exports") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","InitFuncs") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","Required") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCompactFlatCurry","_case_159") 9 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","mapIO") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","readCurrentFlatCurry") []],Var 1],Var 4,Var 10],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","requiredInCompactProg._#lambda28") [Var 4,Var 6,Var 2,Var 8]],Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCompactFlatCurry","_case_158") [Var 2,Var 3,Var 4,Var 5,Var 7,Var 8,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Comb ConsCall ("CompactFlatCurry","Exports") [],Var 1],Var 3,Var 12],Var 13]]))]])),Func ("OracleCompactFlatCurry","_case_158") 8 Private (TVar (-42)) (Rule [2,3,4,5,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","mapIO") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","readCurrentFlatCurry") []],Var 1],Var 4,Var 10],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","requiredInCompactProg._#lambda29") [Var 4,Var 7,Var 2,Var 8]],Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCompactFlatCurry","_case_157") [Var 2,Var 3,Var 4,Var 5,Var 7,Var 8,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","any") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","isMainOption") []],Var 1],Var 3,Var 12],Var 13]]))]])),Func ("OracleCompactFlatCurry","_case_157") 8 Private (TVar (-42)) (Rule [2,3,4,5,7,8,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleCompactFlatCurry","getMainFuncFromOptions") [Var 3,Var 1])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleCompactFlatCurry","_case_156") [Var 2,Var 4,Var 5,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Comb ConsCall ("Prelude","(,)") [Var 5,Var 9],Var 11],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","functionName") []],Comb FuncCall ("OracleCompactFlatCurry","moduleFuns") [Var 2,Var 12],Var 13],Var 14],Var 15]]))])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCompactFlatCurry","_case_155") [Var 2,Var 4,Var 7,Var 8,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 16]]))]])),Func ("OracleCompactFlatCurry","_case_155") 6 Private (TVar (-42)) (Rule [2,4,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","mapIO") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","readCurrentFlatCurry") []],Var 1],Comb FuncCall ("OracleList","nub") [Comb FuncCall ("OraclePrelude","++") [Var 4,Comb FuncCall ("OracleCompactFlatCurry","moduleImports") [Var 2,Var 10],Var 11],Var 12],Var 13],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","requiredInCompactProg._#lambda31") [Var 7,Var 2,Var 8]],Var 14]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleCompactFlatCurry","_case_156") 7 Private (TVar (-42)) (Rule [2,4,5,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","mapIO") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","readCurrentFlatCurry") []],Var 1],Var 4,Var 11],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","requiredInCompactProg._#lambda30") [Var 9,Var 4,Var 2,Var 5,Var 8]],Var 12]])),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 9,Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude",":") [Lit (Charc '!'),Comb ConsCall ("Prelude","[]") []]],Var 1],Var 13],Var 14]]))]])),Func ("OracleCompactFlatCurry","_case_162") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_161") [Var 2,Var 3,Var 6,Var 5,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_161") 5 Private (TVar (-42)) (Rule [2,3,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FlatCurry","TypeSyn") [7,8,9,10]) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCompactFlatCurry","extendTConsWithConsType") [Var 2,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 1],Var 7,Var 15],Var 3,Var 16],Var 6,Var 17]])),Branch (Pattern ("FlatCurry","Type") [11,12,13,14]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OracleCompactFlatCurry","_case_160") [Var 2,Var 3,Var 6,Var 11,Var 14,Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 11,Var 1],Comb FuncCall ("OracleCompactFlatCurry","defaultRequiredTypes") [Var 18],Var 19],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","any") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","extendTConsWithConsType._#lambda18") [Var 2]],Var 20],Var 14,Var 21],Var 22],Var 23]]))]])),Func ("OracleCompactFlatCurry","_case_160") 7 Private (TVar (-42)) (Rule [2,3,6,11,14,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 15) [Branch (Pattern ("Prelude","True") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCompactFlatCurry","extendTConsWithConsType") [Var 2,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 1],Var 11,Var 16],Var 3,Var 17],Var 6,Var 18]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","extendTConsWithConsType") [Var 2,Var 3,Var 6,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_163") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Cons") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","allTypesOfTExpr") []],Var 1],Var 6,Var 7]]))]])),Func ("OracleCompactFlatCurry","_case_166") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","TypeSyn") [4,5,6,7]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCompactFlatCurry","_case_165") [Var 2,Var 4,Var 7,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","elemRBT") [Var 4,Var 1],Var 2,Var 12],Var 13]])),Branch (Pattern ("FlatCurry","Type") [8,9,10,11]) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCompactFlatCurry","_case_164") [Var 2,Var 8,Var 11,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","elemRBT") [Var 8,Var 1],Var 2,Var 14],Var 15]]))]])),Func ("OracleCompactFlatCurry","_case_164") 5 Private (TVar (-42)) (Rule [2,8,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","newTypeConsOfTDecl._#lambda16") [Var 2]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","newTypeConsOfTDecl._#lambda17") []],Var 1],Var 11,Var 13],Var 14]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleCompactFlatCurry","_case_165") 5 Private (TVar (-42)) (Rule [2,4,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","newTypeConsOfTDecl._#lambda15") [Var 2]],Comb FuncCall ("OracleCompactFlatCurry","allTypesOfTExpr") [Var 7,Var 1],Var 9]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleCompactFlatCurry","_case_167") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCompactFlatCurry","requiredDatatypes") [Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 1],Var 2,Var 4,Var 6],Var 3,Var 7]]))]])),Func ("OracleCompactFlatCurry","_case_168") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Op") [4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 4,Var 1],Var 2,Var 7]]))]])),Func ("OracleCompactFlatCurry","_case_169") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,,,)") [4,5,6,7]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","putStrLn") [Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","+") []],Lit (Intc 0),Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","length") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","moduleFuns") []],Var 1],Var 4,Var 12],Var 13],Var 14],Var 15],Var 16],Let [(8,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","functionName") []],Var 5,Var 17])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("FlatCurry","Prog") [Comb FuncCall ("OracleCompactFlatCurry","moduleName") [Var 2,Var 18],Comb ConsCall ("Prelude","[]") [],Let [(9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","moduleTypes") []],Var 19],Var 4,Var 20])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleCompactFlatCurry","extendTConsWithConsType") [Var 6,Var 7,Var 9,Var 21])] (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleCompactFlatCurry","requiredDatatypes") [Var 10,Var 9,Var 22])] (Comb FuncCall ("CEventOracle","replace") [Var 23,Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12._#lambda13") [Var 11]],Var 9,Var 23]])]))])),Var 5,Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12._#lambda14") [Var 8]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","moduleOps") []],Var 24],Var 4,Var 25],Var 26]],Var 27]])),Var 28]]))]])),Func ("OracleCompactFlatCurry","_case_170") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,,)") [5,6,7]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]],Let [(8,Comb FuncCall ("OracleCompactFlatCurry","extendFuncTable") [Comb FuncCall ("OracleTableRBT","emptyTableRBT") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleCompactFlatCurry","leqQName") []],Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","moduleFuns") []],Var 12],Var 7,Var 13],Var 14])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleCompactFlatCurry","getRequiredFromOptions") [Var 3,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]],Let [(10,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","getRequiredInModule") [Var 9]],Var 16],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","moduleName") []],Var 7,Var 17],Var 18])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OraclePrelude","++") [Var 5,Var 10,Var 19])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCompactFlatCurry","getCalledFuncs") [Var 9,Var 6,Var 7,Var 8,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 20],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","emptySetRBT") [Var 21],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleCompactFlatCurry","leqQName") []],Var 22],Var 11,Var 23],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","emptySetRBT") [Var 24],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleCompactFlatCurry","leqQName") []],Var 25],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","emptySetRBT") [Var 26],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleCompactFlatCurry","leqQName") []],Var 27],Var 11,Var 28],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","makeCompactFlatCurry._#lambda11._#lambda12") [Var 2]],Var 29]]))]))]))]))]))]])),Func ("OracleCompactFlatCurry","_case_171") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCompactFlatCurry","readCurrentFlatCurry") [Var 3,Var 6],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCompactFlatCurry","computeCompactFlatCurry._#lambda9") [Var 4]],Var 7],Var 8]]))]])),Func ("OracleCompactFlatCurry","_case_173") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("CompactFlatCurry","AlwaysReq") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("CompactFlatCurry","Requires") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCompactFlatCurry","_case_172") [Var 2,Var 5,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 5,Var 2,Var 1],Var 7]]))]])),Func ("OracleCompactFlatCurry","_case_172") 5 Private (TVar (-42)) (Rule [2,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleCompactFlatCurry","_case_176") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("CompactFlatCurry","AlwaysReq") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_175") [Var 2,Var 4,Var 1]]),Branch (Pattern ("CompactFlatCurry","Requires") [7,8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleCompactFlatCurry","_case_175") 3 Private (TVar (-42)) (Rule [2,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCompactFlatCurry","_case_174") [Var 2,Var 5,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 5,Var 2,Var 1],Var 7]]))]])),Func ("OracleCompactFlatCurry","_case_174") 5 Private (TVar (-42)) (Rule [2,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 5,Var 6],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleCompactFlatCurry","_case_178") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("CompactFlatCurry","AlwaysReq") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_177") [Var 3,Var 1]]),Branch (Pattern ("CompactFlatCurry","Requires") [6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleCompactFlatCurry","_case_177") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]])]])),Func ("OracleCompactFlatCurry","_case_179") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("CompactFlatCurry","Required") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Var 3]]),Branch (Pattern ("CompactFlatCurry","Verbose") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","Main") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","Exports") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","InitFuncs") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CompactFlatCurry","Import") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCompactFlatCurry","_case_181") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","_case_180") [Var 4,Var 3,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_180") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("CompactFlatCurry","Main") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5]),Branch (Pattern ("CompactFlatCurry","Verbose") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","getMainFuncFromOptions") [Var 4,Var 1]]),Branch (Pattern ("CompactFlatCurry","Exports") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","getMainFuncFromOptions") [Var 4,Var 1]]),Branch (Pattern ("CompactFlatCurry","InitFuncs") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","getMainFuncFromOptions") [Var 4,Var 1]]),Branch (Pattern ("CompactFlatCurry","Required") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","getMainFuncFromOptions") [Var 4,Var 1]]),Branch (Pattern ("CompactFlatCurry","Import") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCompactFlatCurry","getMainFuncFromOptions") [Var 4,Var 1]])]])),Func ("OracleCompactFlatCurry","_case_182") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("CompactFlatCurry","Main") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("CompactFlatCurry","Verbose") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CompactFlatCurry","Exports") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CompactFlatCurry","InitFuncs") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CompactFlatCurry","Required") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CompactFlatCurry","Import") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]]))] [Op ("OracleCompactFlatCurry","requires") InfixOp 0]
+ Curry/Module/OracleCurryStringClassifier.fcy view
@@ -0,0 +1,1 @@+Prog "OracleCurryStringClassifier" ["CEventOracle","Oracle","IOExts","CurryStringClassifier","Char","Prelude","OracleChar","OraclePrelude"] [] [Func ("OracleCurryStringClassifier","isSmallComment") 2 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_88") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","isBigComment") 2 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_87") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","isComment") 2 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OracleCurryStringClassifier","isSmallComment") [Var 2,Var 1],Comb FuncCall ("OracleCurryStringClassifier","isBigComment") [Var 2,Var 3],Var 4]]))),Func ("OracleCurryStringClassifier","isText") 2 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_86") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","isLetter") 2 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_85") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","isCode") 2 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_84") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","isModuleHead") 2 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_83") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","isMeta") 2 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_82") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","weaveIntoCode") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]))) (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []])))) (Rule [2,3,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleCurryStringClassifier","unweaveCode") [Var 3,Var 1])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleCurryStringClassifier","weaveIntoCode._#selFP3#cs") [Var 4,Var 7])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleCurryStringClassifier","weaveIntoCode._#selFP4#ncs") [Var 4,Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","weave") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 9],Var 6],Var 10]]))]))]))]))),Func ("OracleCurryStringClassifier","weaveIntoCode._#selFP3#cs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []],TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_81") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","weaveIntoCode._#selFP4#ncs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []],TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_80") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","unweaveCode") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []],TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_79") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","unweaveCode._#selFP6#cs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []],TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_77") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","unweaveCode._#selFP7#ncs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []],TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_76") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","weave") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_75") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","scan") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Let [(3,Comb FuncCall ("Oracle","unknown") [Var 1])] (Comb FuncCall ("OracleCurryStringClassifier","modHead") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Lit (Intc 1),Comb ConsCall ("CurryStringClassifier","Code") [Var 3],Var 3,Var 2,Var 4],Var 5])]))),Func ("OracleCurryStringClassifier","stateScan") 5 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CurryStringClassifier","Token") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_68") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleCurryStringClassifier","stateScan._#selFP9#comment") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_29") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","stateScan._#selFP10#rest") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_28") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","modHead") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_27") [Var 2,Var 3,Var 1]])),Func ("OracleCurryStringClassifier","modHead._#lambda11") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '\n'),Var 1],Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '\r'),Var 3],Var 4]]))),Func ("OracleCurryStringClassifier","modHeadInLine") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_19") [Var 2,Var 3,Var 1]])),Func ("OracleCurryStringClassifier","modHeadInLine._#lambda13") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '\n'),Var 1],Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '\r'),Var 3],Var 4]]))),Func ("OracleCurryStringClassifier","headers") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleCurryStringClassifier","lineBeginsWith") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OraclePrelude","length") [Var 3,Var 1])] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","_case_15") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OraclePrelude","length") [Var 2,Var 5],Var 4,Var 6],Var 7]]))]))),Func ("OracleCurryStringClassifier","lineBeginsWith._#selFP12#s'") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_13") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","lineBeginsWith._#selFP13#rest") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_12") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","isSep") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OracleChar","isSpace") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 2,Var 3],Comb FuncCall ("OracleCurryStringClassifier","infixIDs") [Var 4],Var 5],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 2,Var 6],Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc '{'),Comb ConsCall ("Prelude","[]") []]]],Var 7],Var 8],Var 9]]))),Func ("OracleCurryStringClassifier","infixIDs") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleCurryStringClassifier","delimiters") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleCurryStringClassifier","toBeEscaped") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleCurryStringClassifier","maybeCode") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 2],Var 3]])),Func ("OracleCurryStringClassifier","maybeMo") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_11") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Var 4]]))),Func ("OracleCurryStringClassifier","plainCode") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_8") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","unscan") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_4") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","readScan") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurryStringClassifier","scan") []],Var 3],Var 4]]))),Func ("OracleCurryStringClassifier","testScan") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurryStringClassifier","testScan._#lambda18") []],Var 3]]))),Func ("OracleCurryStringClassifier","testScan._#lambda18") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","print") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleCurryStringClassifier","unscan") [Comb FuncCall ("OracleCurryStringClassifier","scan") [Var 2,Var 1],Var 3],Var 2,Var 4],Var 5]]))),Func ("OracleCurryStringClassifier","testWeave") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurryStringClassifier","testWeave._#lambda19") []],Var 3]]))),Func ("OracleCurryStringClassifier","testWeave._#lambda19") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","print") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleCurryStringClassifier","unscan") [Comb FuncCall ("OracleCurryStringClassifier","weave") [Comb FuncCall ("OracleCurryStringClassifier","unweaveCode") [Comb FuncCall ("OracleCurryStringClassifier","scan") [Var 2,Var 1],Var 3],Var 4],Var 5],Var 2,Var 6],Var 7]]))),Func ("OracleCurryStringClassifier","_case_4") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_3") [Var 4,Var 3,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleCurryStringClassifier","_case_3") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("CurryStringClassifier","ModuleHead") [5]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("OracleCurryStringClassifier","_case_2") [Var 4,Var 1],Var 23]])),Branch (Pattern ("CurryStringClassifier","Code") [17]) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 17,Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1],Var 24]])),Branch (Pattern ("CurryStringClassifier","Text") [18]) (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb FuncCall ("OraclePrelude","++") [Var 18,Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1]],Var 25]]])),Branch (Pattern ("CurryStringClassifier","Letter") [19]) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Lit (Charc '\''),Comb FuncCall ("OraclePrelude","++") [Var 19,Comb ConsCall ("Prelude",":") [Lit (Charc '\''),Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1]],Var 26]]])),Branch (Pattern ("CurryStringClassifier","BigComment") [20]) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '{'),Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 20,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude",":") [Lit (Charc '}'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1],Var 27],Var 28],Var 29]])),Branch (Pattern ("CurryStringClassifier","SmallComment") [21]) (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 21,Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1],Var 30],Var 31]])),Branch (Pattern ("CurryStringClassifier","Meta") [22]) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '{'),Comb ConsCall ("Prelude",":") [Lit (Charc '+'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 22,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '+'),Comb ConsCall ("Prelude",":") [Lit (Charc '}'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1],Var 32],Var 33],Var 34]]))]])),Func ("OracleCurryStringClassifier","_case_2") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_1") [Var 4,Var 7,Var 6,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_1") 4 Private (TVar (-42)) (Rule [4,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("CurryStringClassifier","Code") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_0") [Var 4,Var 7,Var 8,Var 1]]),Branch (Pattern ("CurryStringClassifier","SmallComment") [11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1]]),Branch (Pattern ("CurryStringClassifier","BigComment") [12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1]]),Branch (Pattern ("CurryStringClassifier","Text") [13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1]]),Branch (Pattern ("CurryStringClassifier","Letter") [14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1]]),Branch (Pattern ("CurryStringClassifier","ModuleHead") [15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1]]),Branch (Pattern ("CurryStringClassifier","Meta") [16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_0") 4 Private (TVar (-42)) (Rule [4,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","unscan") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 10],Var 7],Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_8") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_7") [Var 4,Var 3,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleCurryStringClassifier","_case_7") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("CurryStringClassifier","ModuleHead") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_6") [Var 5,Var 4,Var 1]]),Branch (Pattern ("CurryStringClassifier","Code") [15]) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 15,Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1],Var 21]])),Branch (Pattern ("CurryStringClassifier","Text") [16]) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb FuncCall ("OraclePrelude","++") [Var 16,Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1]],Var 22]]])),Branch (Pattern ("CurryStringClassifier","Letter") [17]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Lit (Charc '\''),Comb FuncCall ("OraclePrelude","++") [Var 17,Comb ConsCall ("Prelude",":") [Lit (Charc '\''),Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1]],Var 23]]])),Branch (Pattern ("CurryStringClassifier","BigComment") [18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1]]),Branch (Pattern ("CurryStringClassifier","SmallComment") [19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1]]),Branch (Pattern ("CurryStringClassifier","Meta") [20]) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '{'),Comb ConsCall ("Prelude",":") [Lit (Charc '+'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 20,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '+'),Comb ConsCall ("Prelude",":") [Lit (Charc '}'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1],Var 24],Var 25],Var 26]]))]])),Func ("OracleCurryStringClassifier","_case_6") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_5") [Var 4,Var 5,Var 7,Var 6,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1],Var 8]]))]])),Func ("OracleCurryStringClassifier","_case_5") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("CurryStringClassifier","Code") [8]) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","drop") [Lit (Intc 1),Var 8,Var 1],Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 7,Var 15],Var 16],Var 17]])),Branch (Pattern ("CurryStringClassifier","SmallComment") [9]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1],Var 18]])),Branch (Pattern ("CurryStringClassifier","BigComment") [10]) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1],Var 19]])),Branch (Pattern ("CurryStringClassifier","Text") [11]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1],Var 20]])),Branch (Pattern ("CurryStringClassifier","Letter") [12]) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1],Var 21]])),Branch (Pattern ("CurryStringClassifier","ModuleHead") [13]) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1],Var 22]])),Branch (Pattern ("CurryStringClassifier","Meta") [14]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1],Var 23]]))]])),Func ("OracleCurryStringClassifier","_case_11") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","ModuleHead") [Var 2],Comb FuncCall ("OracleCurryStringClassifier","_case_10") [Var 3,Var 1]]])]])),Func ("OracleCurryStringClassifier","_case_10") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_9") [Var 3,Var 5,Var 4,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCurryStringClassifier","_case_9") 4 Private (TVar (-42)) (Rule [3,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("CurryStringClassifier","Code") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Var 6]],Var 5]]),Branch (Pattern ("CurryStringClassifier","SmallComment") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CurryStringClassifier","BigComment") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CurryStringClassifier","Text") [9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CurryStringClassifier","Letter") [10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CurryStringClassifier","ModuleHead") [11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CurryStringClassifier","Meta") [12]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCurryStringClassifier","_case_12") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleCurryStringClassifier","_case_13") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCurryStringClassifier","_case_15") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_14") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 6]]))]])),Func ("OracleCurryStringClassifier","_case_14") 4 Private (TVar (-42)) (Rule [2,3,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 2,Var 3,Var 1],Let [(5,Comb FuncCall ("OraclePrelude","splitAt") [Comb FuncCall ("OraclePrelude","length") [Var 3,Var 9],Var 2,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleCurryStringClassifier","lineBeginsWith._#selFP12#s'") [Var 5,Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleCurryStringClassifier","lineBeginsWith._#selFP13#rest") [Var 5,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 3,Var 6,Var 13],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","null") [Var 7,Var 14],Comb FuncCall ("OracleCurryStringClassifier","isSep") [Comb FuncCall ("OraclePrelude","head") [Var 7,Var 15],Var 16],Var 17],Var 18]]))]))])),Var 19]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleCurryStringClassifier","_case_19") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","maybeMo") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude","[]") [],Var 6]])),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_18") [Var 2,Var 5,Var 4,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_18") 4 Private (TVar (-42)) (Rule [2,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("CurryStringClassifier","Code") [6]) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","_case_17") [Var 2,Var 5,Var 6,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","break") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurryStringClassifier","modHeadInLine._#lambda13") []],Var 1],Var 6,Var 14],Var 15]])),Branch (Pattern ("CurryStringClassifier","BigComment") [11]) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","maybeMo") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","BigComment") [Var 11],Comb FuncCall ("OracleCurryStringClassifier","modHeadInLine") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 5,Var 16]],Var 17]])),Branch (Pattern ("CurryStringClassifier","SmallComment") [12]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","maybeMo") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","SmallComment") [Var 12],Comb FuncCall ("OracleCurryStringClassifier","modHeadInLine") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 5,Var 18]],Var 19]])),Branch (Pattern ("CurryStringClassifier","Meta") [13]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","maybeMo") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Meta") [Var 13],Var 5],Var 20]]))]])),Func ("OracleCurryStringClassifier","_case_17") 5 Private (TVar (-42)) (Rule [2,5,6,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","(,)") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_16") [Var 2,Var 5,Var 6,Var 7,Var 8,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_16") 6 Private (TVar (-42)) (Rule [2,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","modHead") [Comb FuncCall ("OraclePrelude",".") [Var 2,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [Var 7]],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude",":") [Var 9]],Var 1],Var 11],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 10],Var 5],Var 12]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","modHead") [Var 2,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 6],Var 5],Var 1]])]])),Func ("OracleCurryStringClassifier","_case_27") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_26") [Var 2,Var 5,Var 4,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","maybeMo") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude","[]") [],Var 6]]))]])),Func ("OracleCurryStringClassifier","_case_26") 4 Private (TVar (-42)) (Rule [2,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("CurryStringClassifier","Code") [6]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","_case_25") [Var 2,Var 5,Var 6,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","break") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurryStringClassifier","modHead._#lambda11") []],Var 1],Var 6,Var 18],Var 19]])),Branch (Pattern ("CurryStringClassifier","BigComment") [15]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","maybeMo") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","BigComment") [Var 15],Comb FuncCall ("OracleCurryStringClassifier","modHead") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 5,Var 20]],Var 21]])),Branch (Pattern ("CurryStringClassifier","SmallComment") [16]) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","maybeMo") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","SmallComment") [Var 16],Comb FuncCall ("OracleCurryStringClassifier","modHead") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 5,Var 22]],Var 23]])),Branch (Pattern ("CurryStringClassifier","Meta") [17]) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","maybeMo") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Meta") [Var 17],Var 5],Var 24]]))]])),Func ("OracleCurryStringClassifier","_case_25") 5 Private (TVar (-42)) (Rule [2,5,6,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","(,)") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_24") [Var 2,Var 5,Var 6,Var 8,Var 7,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_24") 6 Private (TVar (-42)) (Rule [2,5,6,8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_23") [Var 2,Var 5,Var 8,Var 1]]),Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_22") [Var 2,Var 5,Var 6,Var 11,Var 12,Var 8,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_22") 7 Private (TVar (-42)) (Rule [2,5,6,11,12,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","[]") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCurryStringClassifier","_case_21") [Var 2,Var 5,Var 6,Var 11,Var 12,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","any") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurryStringClassifier","lineBeginsWith") [Comb ConsCall ("Prelude",":") [Var 11,Var 12]]],Var 1],Comb FuncCall ("OracleCurryStringClassifier","headers") [Var 15],Var 16],Var 17]])),Branch (Pattern ("Prelude",":") [13,14]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCurryStringClassifier","_case_20") [Var 2,Var 5,Var 6,Var 11,Var 12,Var 13,Var 14,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","any") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurryStringClassifier","lineBeginsWith") [Comb ConsCall ("Prelude",":") [Var 11,Var 12]]],Var 1],Comb FuncCall ("OracleCurryStringClassifier","headers") [Var 18],Var 19],Var 20]]))]])),Func ("OracleCurryStringClassifier","_case_20") 9 Private (TVar (-42)) (Rule [2,5,6,11,12,13,14,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 15) [Branch (Pattern ("Prelude","True") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","modHead") [Comb FuncCall ("OraclePrelude",".") [Var 2,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Var 11,Var 12]]],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude",":") [Var 13]],Var 1],Var 16],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 14],Var 5],Var 17]])),Branch (Pattern ("Prelude","False") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","maybeMo") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 6],Var 5],Var 18]]))]])),Func ("OracleCurryStringClassifier","_case_21") 7 Private (TVar (-42)) (Rule [2,5,6,11,12,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","ModuleHead") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude",":") [Var 11,Var 12],Var 1]],Comb FuncCall ("OracleCurryStringClassifier","modHeadInLine") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 5,Var 14]]])),Branch (Pattern ("Prelude","False") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","maybeMo") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 6],Var 5],Var 15]]))]])),Func ("OracleCurryStringClassifier","_case_23") 4 Private (TVar (-42)) (Rule [2,5,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","modHead") [Var 2,Var 5,Var 1]]),Branch (Pattern ("Prelude",":") [9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","modHead") [Comb FuncCall ("OraclePrelude",".") [Var 2,Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude",":") [Var 9]],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 10],Var 5],Var 11]]))]])),Func ("OracleCurryStringClassifier","_case_28") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleCurryStringClassifier","_case_29") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCurryStringClassifier","_case_68") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","cond") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Var 8]])),Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_67") [Var 2,Var 4,Var 6,Var 7,Var 3,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_67") 6 Private (TVar (-42)) (Rule [2,4,6,7,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("CurryStringClassifier","Code") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_66") [Var 2,Var 4,Var 6,Var 8,Var 7,Var 1]]),Branch (Pattern ("CurryStringClassifier","Text") [27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_43") [Var 2,Var 4,Var 6,Var 27,Var 7,Var 1]]),Branch (Pattern ("CurryStringClassifier","BigComment") [31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_37") [Var 2,Var 4,Var 6,Var 31,Var 7,Var 1]]),Branch (Pattern ("CurryStringClassifier","Meta") [35]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_33") [Var 2,Var 4,Var 6,Var 35,Var 7,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_33") 6 Private (TVar (-42)) (Rule [2,4,6,35,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude","[]") []) (Let [(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","cond") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 1],Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 39],Var 40]])),Branch (Pattern ("Prelude",":") [36,37]) (Let [(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(44,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude",":") [Var 44,Comb ConsCall ("Prelude","[]") []]]]],Let [(38,Comb FuncCall ("Oracle","unknown") [Var 1])] (Comb FuncCall ("OracleCurryStringClassifier","_case_32") [Var 2,Var 4,Var 6,Var 35,Var 36,Var 37,Var 38,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '+'),Var 41],Comb FuncCall ("OraclePrelude","==") [Var 36,Lit (Charc '}'),Var 42],Var 43],Var 44])]))]])),Func ("OracleCurryStringClassifier","_case_32") 9 Private (TVar (-42)) (Rule [2,4,6,35,36,37,38,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 39) [Branch (Pattern ("Prelude","True") []) (Let [(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Meta") [Var 35],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 38],Var 38,Var 37,Var 40]],Var 41]])),Branch (Pattern ("Prelude","False") []) (Let [(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_31") [Var 2,Var 4,Var 6,Var 35,Var 36,Var 37,Var 38,Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '\n'),Var 1],Var 42]]))]])),Func ("OracleCurryStringClassifier","_case_31") 9 Private (TVar (-42)) (Rule [2,4,6,35,36,37,38,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 39) [Branch (Pattern ("Prelude","True") []) (Let [(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Var 38],Var 1],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Comb FuncCall ("OraclePrelude","+") [Var 2,Lit (Intc 1),Var 40],Comb ConsCall ("CurryStringClassifier","Meta") [Var 35],Var 38,Comb ConsCall ("Prelude",":") [Var 36,Var 37],Var 41],Var 42]])),Branch (Pattern ("Prelude","False") []) (Let [(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_30") [Var 2,Var 4,Var 6,Var 35,Var 36,Var 37,Var 38,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 43]]))]])),Func ("OracleCurryStringClassifier","_case_30") 9 Private (TVar (-42)) (Rule [2,4,6,35,36,37,38,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 39) [Branch (Pattern ("Prelude","True") []) (Let [(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Var 38],Var 1],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Meta") [Var 35],Var 38,Comb ConsCall ("Prelude",":") [Var 36,Var 37],Var 40],Var 41]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleCurryStringClassifier","_case_37") 6 Private (TVar (-42)) (Rule [2,4,6,31,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude","[]") []) (Let [(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","cond") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 1],Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 35],Var 36]])),Branch (Pattern ("Prelude",":") [32,33]) (Let [(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []]]]],Let [(34,Comb FuncCall ("Oracle","unknown") [Var 1])] (Comb FuncCall ("OracleCurryStringClassifier","_case_36") [Var 2,Var 4,Var 6,Var 31,Var 32,Var 33,Var 34,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '-'),Var 37],Comb FuncCall ("OraclePrelude","==") [Var 32,Lit (Charc '}'),Var 38],Var 39],Var 40])]))]])),Func ("OracleCurryStringClassifier","_case_36") 9 Private (TVar (-42)) (Rule [2,4,6,31,32,33,34,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 35) [Branch (Pattern ("Prelude","True") []) (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","BigComment") [Var 31],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 34],Var 34,Var 33,Var 36]],Var 37]])),Branch (Pattern ("Prelude","False") []) (Let [(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_35") [Var 2,Var 4,Var 6,Var 31,Var 32,Var 33,Var 34,Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '\n'),Var 1],Var 38]]))]])),Func ("OracleCurryStringClassifier","_case_35") 9 Private (TVar (-42)) (Rule [2,4,6,31,32,33,34,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 35) [Branch (Pattern ("Prelude","True") []) (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Var 34],Var 1],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Comb FuncCall ("OraclePrelude","+") [Var 2,Lit (Intc 1),Var 36],Comb ConsCall ("CurryStringClassifier","BigComment") [Var 31],Var 34,Comb ConsCall ("Prelude",":") [Var 32,Var 33],Var 37],Var 38]])),Branch (Pattern ("Prelude","False") []) (Let [(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_34") [Var 2,Var 4,Var 6,Var 31,Var 32,Var 33,Var 34,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 39]]))]])),Func ("OracleCurryStringClassifier","_case_34") 9 Private (TVar (-42)) (Rule [2,4,6,31,32,33,34,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 35) [Branch (Pattern ("Prelude","True") []) (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Var 34],Var 1],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","BigComment") [Var 31],Var 34,Comb ConsCall ("Prelude",":") [Var 32,Var 33],Var 36],Var 37]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleCurryStringClassifier","_case_43") 6 Private (TVar (-42)) (Rule [2,4,6,27,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude","[]") []) (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","cond") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 1],Comb FuncCall ("OracleCurryStringClassifier","_case_42") [Var 6,Var 27,Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '"'),Var 31],Var 32],Var 33]])),Branch (Pattern ("Prelude",":") [28,29]) (Let [(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude","[]") []]],Let [(30,Comb FuncCall ("Oracle","unknown") [Var 1])] (Comb FuncCall ("OracleCurryStringClassifier","_case_41") [Var 2,Var 4,Var 6,Var 27,Var 28,Var 29,Var 30,Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '"'),Var 34],Var 35])]))]])),Func ("OracleCurryStringClassifier","_case_41") 9 Private (TVar (-42)) (Rule [2,4,6,27,28,29,30,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 31) [Branch (Pattern ("Prelude","True") []) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Text") [Var 27],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 30],Var 30,Comb ConsCall ("Prelude",":") [Var 28,Var 29],Var 32]],Var 33]])),Branch (Pattern ("Prelude","False") []) (Let [(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_40") [Var 2,Var 4,Var 6,Var 27,Var 28,Var 29,Var 30,Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '\\'),Var 1],Var 34]]))]])),Func ("OracleCurryStringClassifier","_case_40") 9 Private (TVar (-42)) (Rule [2,4,6,27,28,29,30,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 31) [Branch (Pattern ("Prelude","True") []) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 28,Var 30]],Var 1],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Text") [Var 27],Var 30,Var 29,Var 32],Var 33]])),Branch (Pattern ("Prelude","False") []) (Let [(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCurryStringClassifier","_case_39") [Var 2,Var 4,Var 6,Var 27,Var 28,Var 29,Var 30,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 6,Var 1],Comb FuncCall ("OracleCurryStringClassifier","toBeEscaped") [Var 34],Var 35],Var 36]]))]])),Func ("OracleCurryStringClassifier","_case_39") 9 Private (TVar (-42)) (Rule [2,4,6,27,28,29,30,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 31) [Branch (Pattern ("Prelude","True") []) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 6,Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 2,Var 1],Var 32]],Var 33],Var 34]])),Branch (Pattern ("Prelude","False") []) (Let [(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_38") [Var 2,Var 4,Var 6,Var 27,Var 28,Var 29,Var 30,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 35]]))]])),Func ("OracleCurryStringClassifier","_case_38") 9 Private (TVar (-42)) (Rule [2,4,6,27,28,29,30,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 31) [Branch (Pattern ("Prelude","True") []) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Var 30],Var 1],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Text") [Var 27],Var 30,Comb ConsCall ("Prelude",":") [Var 28,Var 29],Var 32],Var 33]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleCurryStringClassifier","_case_42") 4 Private (TVar (-42)) (Rule [6,27,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 28) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Text") [Var 27],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleCurryStringClassifier","_case_66") 6 Private (TVar (-42)) (Rule [2,4,6,8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude","[]") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","cond") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Var 1],Comb FuncCall ("OracleCurryStringClassifier","maybeCode") [Var 8,Comb ConsCall ("Prelude","[]") [],Var 12],Var 13]])),Branch (Pattern ("Prelude",":") [9,10]) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]],Let [(11,Comb FuncCall ("Oracle","unknown") [Var 1])] (Comb FuncCall ("OracleCurryStringClassifier","_case_65") [Var 2,Var 4,Var 6,Var 8,Var 9,Var 10,Var 11,Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '"'),Var 14],Var 15])]))]])),Func ("OracleCurryStringClassifier","_case_65") 9 Private (TVar (-42)) (Rule [2,4,6,8,9,10,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 1],Comb FuncCall ("OracleCurryStringClassifier","maybeCode") [Var 8,Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Text") [Var 11],Var 11,Comb ConsCall ("Prelude",":") [Var 9,Var 10],Var 13],Var 14],Var 15]])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCurryStringClassifier","_case_64") [Var 2,Var 4,Var 6,Var 8,Var 9,Var 10,Var 11,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '-'),Var 1],Comb FuncCall ("OraclePrelude","==") [Var 9,Lit (Charc '-'),Var 16],Var 17],Var 18]]))]])),Func ("OracleCurryStringClassifier","_case_64") 9 Private (TVar (-42)) (Rule [2,4,6,8,9,10,11,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 15) [Branch (Pattern ("Prelude","True") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(12,Comb FuncCall ("OraclePrelude","span") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Lit (Charc '\n')]],Var 10,Var 1])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OracleCurryStringClassifier","stateScan._#selFP9#comment") [Var 12,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(14,Comb FuncCall ("OracleCurryStringClassifier","stateScan._#selFP10#rest") [Var 12,Var 17])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 18],Comb FuncCall ("OracleCurryStringClassifier","maybeCode") [Var 8,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","SmallComment") [Var 13],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 11],Var 11,Var 14,Var 19]],Var 20],Var 21]]))]))]))])),Branch (Pattern ("Prelude","False") []) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCurryStringClassifier","_case_63") [Var 2,Var 4,Var 6,Var 8,Var 9,Var 10,Var 11,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '{'),Var 1],Comb FuncCall ("OraclePrelude","==") [Var 9,Lit (Charc '-'),Var 22],Var 23],Var 24]]))]])),Func ("OracleCurryStringClassifier","_case_63") 9 Private (TVar (-42)) (Rule [2,4,6,8,9,10,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 1],Comb FuncCall ("OracleCurryStringClassifier","maybeCode") [Var 8,Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","BigComment") [Var 11],Var 11,Var 10,Var 13],Var 14],Var 15]])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCurryStringClassifier","_case_62") [Var 2,Var 4,Var 6,Var 8,Var 9,Var 10,Var 11,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '{'),Var 1],Comb FuncCall ("OraclePrelude","==") [Var 9,Lit (Charc '+'),Var 16],Var 17],Var 18]]))]])),Func ("OracleCurryStringClassifier","_case_62") 9 Private (TVar (-42)) (Rule [2,4,6,8,9,10,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 1],Comb FuncCall ("OracleCurryStringClassifier","maybeCode") [Var 8,Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Meta") [Var 11],Var 11,Var 10,Var 13],Var 14],Var 15]])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OracleCurryStringClassifier","_case_61") [Var 2,Var 4,Var 6,Var 8,Var 9,Var 10,Var 11,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 9,Lit (Charc '\''),Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 6,Var 16],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleCurryStringClassifier","infixIDs") [Var 17],Comb FuncCall ("OracleCurryStringClassifier","delimiters") [Var 18],Var 19],Var 20],Var 21],Var 22]]))]])),Func ("OracleCurryStringClassifier","_case_61") 9 Private (TVar (-42)) (Rule [2,4,6,8,9,10,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Var 1],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurryStringClassifier","maybeCode") [Var 8]],Comb FuncCall ("OracleCurryStringClassifier","_case_60") [Var 2,Var 11,Var 10,Var 13],Var 14],Var 15]])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_45") [Var 2,Var 4,Var 6,Var 8,Var 9,Var 10,Var 11,Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '\n'),Var 1],Var 16]]))]])),Func ("OracleCurryStringClassifier","_case_45") 9 Private (TVar (-42)) (Rule [2,4,6,8,9,10,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Var 11],Var 1],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Comb FuncCall ("OraclePrelude","+") [Var 2,Lit (Intc 1),Var 13],Comb ConsCall ("CurryStringClassifier","Code") [Var 8],Var 11,Comb ConsCall ("Prelude",":") [Var 9,Var 10],Var 14],Var 15]])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_44") [Var 2,Var 4,Var 6,Var 8,Var 9,Var 10,Var 11,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 16]]))]])),Func ("OracleCurryStringClassifier","_case_44") 9 Private (TVar (-42)) (Rule [2,4,6,8,9,10,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Var 11],Var 1],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 8],Var 11,Comb ConsCall ("Prelude",":") [Var 9,Var 10],Var 13],Var 14]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleCurryStringClassifier","_case_60") 4 Private (TVar (-42)) (Rule [2,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude",":") [15,16]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_59") [Var 2,Var 11,Var 15,Var 16,Comb FuncCall ("OraclePrelude","==") [Var 15,Lit (Charc '\\'),Var 1],Var 17]])),Branch (Pattern ("Prelude","[]") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 2,Var 1],Var 18],Var 19]]))]])),Func ("OracleCurryStringClassifier","_case_59") 6 Private (TVar (-42)) (Rule [2,11,15,16,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_58") [Var 2,Var 11,Var 15,Var 16,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_47") [Var 2,Var 11,Var 15,Var 16,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_47") 5 Private (TVar (-42)) (Rule [2,11,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude",":") [25,26]) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_46") [Var 2,Var 11,Var 15,Var 25,Var 26,Comb FuncCall ("OraclePrelude","==") [Var 25,Lit (Charc '\''),Var 1],Var 27]])),Branch (Pattern ("Prelude","[]") []) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 2,Var 1],Var 28],Var 29]]))]])),Func ("OracleCurryStringClassifier","_case_46") 7 Private (TVar (-42)) (Rule [2,11,15,25,26,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 27) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Letter") [Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 11],Var 11,Var 26,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 2,Var 1],Var 28],Var 29]]))]])),Func ("OracleCurryStringClassifier","_case_58") 5 Private (TVar (-42)) (Rule [2,11,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_57") [Var 2,Var 11,Var 15,Var 17,Var 18,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 2,Var 1],Var 19],Var 20]]))]])),Func ("OracleCurryStringClassifier","_case_57") 6 Private (TVar (-42)) (Rule [2,11,15,17,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_56") [Var 2,Var 11,Var 15,Var 17,Var 18,Var 19,Var 20,Comb FuncCall ("OraclePrelude","==") [Var 19,Lit (Charc '\''),Var 1],Var 21]])),Branch (Pattern ("Prelude","[]") []) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_48") [Var 2,Var 11,Var 15,Var 17,Comb FuncCall ("OraclePrelude","==") [Var 17,Lit (Charc '\''),Var 1],Var 22]]))]])),Func ("OracleCurryStringClassifier","_case_48") 6 Private (TVar (-42)) (Rule [2,11,15,17,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 18) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Letter") [Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 11],Var 11,Comb ConsCall ("Prelude","[]") [],Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 2,Var 1],Var 19],Var 20]]))]])),Func ("OracleCurryStringClassifier","_case_56") 9 Private (TVar (-42)) (Rule [2,11,15,17,18,19,20,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 21) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Letter") [Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 11],Var 11,Var 20,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_55") [Var 2,Var 11,Var 15,Var 17,Var 18,Var 19,Var 20,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_55") 8 Private (TVar (-42)) (Rule [2,11,15,17,18,19,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 20) [Branch (Pattern ("Prelude",":") [21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_54") [Var 2,Var 11,Var 15,Var 17,Var 18,Var 19,Var 21,Var 22,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_49") [Var 2,Var 11,Var 15,Var 17,Var 18,Comb FuncCall ("OraclePrelude","==") [Var 17,Lit (Charc '\''),Var 1],Var 23]]))]])),Func ("OracleCurryStringClassifier","_case_49") 7 Private (TVar (-42)) (Rule [2,11,15,17,18,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 19) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Letter") [Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 11],Var 11,Var 18,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 2,Var 1],Var 20],Var 21]]))]])),Func ("OracleCurryStringClassifier","_case_54") 9 Private (TVar (-42)) (Rule [2,11,15,17,18,19,21,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 22) [Branch (Pattern ("Prelude",":") [23,24]) (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_53") [Var 2,Var 11,Var 15,Var 17,Var 18,Var 19,Var 21,Var 23,Var 24,Comb FuncCall ("OraclePrelude","==") [Var 23,Lit (Charc '\''),Var 1],Var 25]])),Branch (Pattern ("Prelude","[]") []) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_50") [Var 2,Var 11,Var 15,Var 17,Var 18,Comb FuncCall ("OraclePrelude","==") [Var 17,Lit (Charc '\''),Var 1],Var 26]]))]])),Func ("OracleCurryStringClassifier","_case_50") 7 Private (TVar (-42)) (Rule [2,11,15,17,18,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 19) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Letter") [Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 11],Var 11,Var 18,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 2,Var 1],Var 20],Var 21]]))]])),Func ("OracleCurryStringClassifier","_case_53") 11 Private (TVar (-42)) (Rule [2,11,15,17,18,19,21,23,24,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 25) [Branch (Pattern ("Prelude","True") []) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","_case_52") [Var 2,Var 11,Var 17,Var 19,Var 21,Var 24,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","all") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleChar","isDigit") []],Var 1],Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]],Var 26],Var 27]])),Branch (Pattern ("Prelude","False") []) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_51") [Var 2,Var 11,Var 15,Var 17,Var 18,Comb FuncCall ("OraclePrelude","==") [Var 17,Lit (Charc '\''),Var 1],Var 28]]))]])),Func ("OracleCurryStringClassifier","_case_51") 7 Private (TVar (-42)) (Rule [2,11,15,17,18,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 19) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Letter") [Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 11],Var 11,Var 18,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 2,Var 1],Var 20],Var 21]]))]])),Func ("OracleCurryStringClassifier","_case_52") 8 Private (TVar (-42)) (Rule [2,11,17,19,21,24,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 25) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Letter") [Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 11],Var 11,Var 24,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 2,Var 1],Var 26],Var 27]]))]])),Func ("OracleCurryStringClassifier","_case_75") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_74") [Var 4,Var 3,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_74") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_73") [Var 4,Var 1]]),Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_71") [Var 4,Var 9,Var 10,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_71") 4 Private (TVar (-42)) (Rule [4,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_70") [Var 9,Var 10,Var 4,Var 1]]),Branch (Pattern ("Prelude",":") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_69") [Var 9,Var 13,Var 14,Var 4,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_69") 5 Private (TVar (-42)) (Rule [9,13,14,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude",":") [15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 15,Comb FuncCall ("OracleCurryStringClassifier","weave") [Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 13,Var 14],Var 16],Var 1]]]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleCurryStringClassifier","_case_70") 4 Private (TVar (-42)) (Rule [9,10,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 11,Comb FuncCall ("OracleCurryStringClassifier","weave") [Comb ConsCall ("Prelude","(,)") [Var 10,Var 12],Var 1]]]])]])),Func ("OracleCurryStringClassifier","_case_73") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_72") [Var 5,Var 6,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_72") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleCurryStringClassifier","_case_76") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleCurryStringClassifier","_case_77") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCurryStringClassifier","_case_79") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleCurryStringClassifier","unweaveCode") [Var 4,Var 1])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleCurryStringClassifier","unweaveCode._#selFP6#cs") [Var 5,Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleCurryStringClassifier","unweaveCode._#selFP7#ncs") [Var 5,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_78") [Var 3,Var 6,Var 7,Comb FuncCall ("OracleCurryStringClassifier","isCode") [Var 3,Var 10],Var 11]]))]))]))]))]])),Func ("OracleCurryStringClassifier","_case_78") 5 Private (TVar (-42)) (Rule [3,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 3,Var 6],Var 7]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 6,Comb ConsCall ("Prelude",":") [Var 3,Var 7]]])]])),Func ("OracleCurryStringClassifier","_case_80") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleCurryStringClassifier","_case_81") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCurryStringClassifier","_case_82") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("CurryStringClassifier","Meta") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("CurryStringClassifier","SmallComment") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","BigComment") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Text") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Letter") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Code") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","ModuleHead") [9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleCurryStringClassifier","_case_83") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("CurryStringClassifier","ModuleHead") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("CurryStringClassifier","SmallComment") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","BigComment") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Text") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Letter") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Code") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Meta") [9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleCurryStringClassifier","_case_84") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("CurryStringClassifier","Code") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("CurryStringClassifier","SmallComment") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","BigComment") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Text") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Letter") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","ModuleHead") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Meta") [9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleCurryStringClassifier","_case_85") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("CurryStringClassifier","Letter") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("CurryStringClassifier","SmallComment") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","BigComment") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Text") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Code") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","ModuleHead") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Meta") [9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleCurryStringClassifier","_case_86") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("CurryStringClassifier","Text") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("CurryStringClassifier","SmallComment") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","BigComment") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Letter") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Code") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","ModuleHead") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Meta") [9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleCurryStringClassifier","_case_87") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("CurryStringClassifier","BigComment") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("CurryStringClassifier","SmallComment") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Text") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Letter") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Code") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","ModuleHead") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Meta") [9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleCurryStringClassifier","_case_88") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("CurryStringClassifier","SmallComment") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("CurryStringClassifier","BigComment") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Text") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Letter") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Code") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","ModuleHead") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Meta") [9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]]))] []
+ Curry/Module/OracleCurryStringClassifier.fint view
@@ -0,0 +1,1 @@+Prog "OracleCurryStringClassifier" ["CEventOracle","Oracle","IOExts","CurryStringClassifier","Char","Prelude","OracleChar","OraclePrelude"] [] [Func ("OracleCurryStringClassifier","isSmallComment") 2 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_88") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","isBigComment") 2 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_87") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","isComment") 2 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OracleCurryStringClassifier","isSmallComment") [Var 2,Var 1],Comb FuncCall ("OracleCurryStringClassifier","isBigComment") [Var 2,Var 3],Var 4]]))),Func ("OracleCurryStringClassifier","isText") 2 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_86") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","isLetter") 2 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_85") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","isCode") 2 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_84") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","isModuleHead") 2 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_83") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","isMeta") 2 Public (FuncType (TCons ("CurryStringClassifier","Token") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_82") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","weaveIntoCode") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]))) (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []])))) (Rule [2,3,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleCurryStringClassifier","unweaveCode") [Var 3,Var 1])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleCurryStringClassifier","weaveIntoCode._#selFP3#cs") [Var 4,Var 7])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleCurryStringClassifier","weaveIntoCode._#selFP4#ncs") [Var 4,Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","weave") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 9],Var 6],Var 10]]))]))]))]))),Func ("OracleCurryStringClassifier","weaveIntoCode._#selFP3#cs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []],TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_81") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","weaveIntoCode._#selFP4#ncs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []],TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_80") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","unweaveCode") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []],TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_79") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","unweaveCode._#selFP6#cs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []],TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_77") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","unweaveCode._#selFP7#ncs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []],TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_76") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","weave") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_75") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","scan") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Let [(3,Comb FuncCall ("Oracle","unknown") [Var 1])] (Comb FuncCall ("OracleCurryStringClassifier","modHead") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Lit (Intc 1),Comb ConsCall ("CurryStringClassifier","Code") [Var 3],Var 3,Var 2,Var 4],Var 5])]))),Func ("OracleCurryStringClassifier","stateScan") 5 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CurryStringClassifier","Token") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_68") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleCurryStringClassifier","stateScan._#selFP9#comment") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_29") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","stateScan._#selFP10#rest") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_28") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","modHead") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_27") [Var 2,Var 3,Var 1]])),Func ("OracleCurryStringClassifier","modHead._#lambda11") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '\n'),Var 1],Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '\r'),Var 3],Var 4]]))),Func ("OracleCurryStringClassifier","modHeadInLine") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_19") [Var 2,Var 3,Var 1]])),Func ("OracleCurryStringClassifier","modHeadInLine._#lambda13") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '\n'),Var 1],Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '\r'),Var 3],Var 4]]))),Func ("OracleCurryStringClassifier","headers") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleCurryStringClassifier","lineBeginsWith") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OraclePrelude","length") [Var 3,Var 1])] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","_case_15") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OraclePrelude","length") [Var 2,Var 5],Var 4,Var 6],Var 7]]))]))),Func ("OracleCurryStringClassifier","lineBeginsWith._#selFP12#s'") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_13") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","lineBeginsWith._#selFP13#rest") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_12") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","isSep") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OracleChar","isSpace") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 2,Var 3],Comb FuncCall ("OracleCurryStringClassifier","infixIDs") [Var 4],Var 5],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 2,Var 6],Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc '{'),Comb ConsCall ("Prelude","[]") []]]],Var 7],Var 8],Var 9]]))),Func ("OracleCurryStringClassifier","infixIDs") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleCurryStringClassifier","delimiters") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleCurryStringClassifier","toBeEscaped") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleCurryStringClassifier","maybeCode") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 2],Var 3]])),Func ("OracleCurryStringClassifier","maybeMo") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_11") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Var 4]]))),Func ("OracleCurryStringClassifier","plainCode") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_8") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","unscan") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_4") [Var 2,Var 1]])),Func ("OracleCurryStringClassifier","readScan") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("CurryStringClassifier","Token") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurryStringClassifier","scan") []],Var 3],Var 4]]))),Func ("OracleCurryStringClassifier","testScan") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurryStringClassifier","testScan._#lambda18") []],Var 3]]))),Func ("OracleCurryStringClassifier","testScan._#lambda18") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","print") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleCurryStringClassifier","unscan") [Comb FuncCall ("OracleCurryStringClassifier","scan") [Var 2,Var 1],Var 3],Var 2,Var 4],Var 5]]))),Func ("OracleCurryStringClassifier","testWeave") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurryStringClassifier","testWeave._#lambda19") []],Var 3]]))),Func ("OracleCurryStringClassifier","testWeave._#lambda19") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","print") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleCurryStringClassifier","unscan") [Comb FuncCall ("OracleCurryStringClassifier","weave") [Comb FuncCall ("OracleCurryStringClassifier","unweaveCode") [Comb FuncCall ("OracleCurryStringClassifier","scan") [Var 2,Var 1],Var 3],Var 4],Var 5],Var 2,Var 6],Var 7]]))),Func ("OracleCurryStringClassifier","_case_4") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_3") [Var 4,Var 3,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleCurryStringClassifier","_case_3") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("CurryStringClassifier","ModuleHead") [5]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("OracleCurryStringClassifier","_case_2") [Var 4,Var 1],Var 23]])),Branch (Pattern ("CurryStringClassifier","Code") [17]) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 17,Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1],Var 24]])),Branch (Pattern ("CurryStringClassifier","Text") [18]) (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb FuncCall ("OraclePrelude","++") [Var 18,Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1]],Var 25]]])),Branch (Pattern ("CurryStringClassifier","Letter") [19]) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Lit (Charc '\''),Comb FuncCall ("OraclePrelude","++") [Var 19,Comb ConsCall ("Prelude",":") [Lit (Charc '\''),Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1]],Var 26]]])),Branch (Pattern ("CurryStringClassifier","BigComment") [20]) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '{'),Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 20,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude",":") [Lit (Charc '}'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1],Var 27],Var 28],Var 29]])),Branch (Pattern ("CurryStringClassifier","SmallComment") [21]) (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 21,Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1],Var 30],Var 31]])),Branch (Pattern ("CurryStringClassifier","Meta") [22]) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '{'),Comb ConsCall ("Prelude",":") [Lit (Charc '+'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 22,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '+'),Comb ConsCall ("Prelude",":") [Lit (Charc '}'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1],Var 32],Var 33],Var 34]]))]])),Func ("OracleCurryStringClassifier","_case_2") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_1") [Var 4,Var 7,Var 6,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_1") 4 Private (TVar (-42)) (Rule [4,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("CurryStringClassifier","Code") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_0") [Var 4,Var 7,Var 8,Var 1]]),Branch (Pattern ("CurryStringClassifier","SmallComment") [11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1]]),Branch (Pattern ("CurryStringClassifier","BigComment") [12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1]]),Branch (Pattern ("CurryStringClassifier","Text") [13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1]]),Branch (Pattern ("CurryStringClassifier","Letter") [14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1]]),Branch (Pattern ("CurryStringClassifier","ModuleHead") [15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1]]),Branch (Pattern ("CurryStringClassifier","Meta") [16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_0") 4 Private (TVar (-42)) (Rule [4,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","unscan") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 10],Var 7],Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","unscan") [Var 4,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_8") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_7") [Var 4,Var 3,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleCurryStringClassifier","_case_7") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("CurryStringClassifier","ModuleHead") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_6") [Var 5,Var 4,Var 1]]),Branch (Pattern ("CurryStringClassifier","Code") [15]) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 15,Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1],Var 21]])),Branch (Pattern ("CurryStringClassifier","Text") [16]) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb FuncCall ("OraclePrelude","++") [Var 16,Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1]],Var 22]]])),Branch (Pattern ("CurryStringClassifier","Letter") [17]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Lit (Charc '\''),Comb FuncCall ("OraclePrelude","++") [Var 17,Comb ConsCall ("Prelude",":") [Lit (Charc '\''),Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1]],Var 23]]])),Branch (Pattern ("CurryStringClassifier","BigComment") [18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1]]),Branch (Pattern ("CurryStringClassifier","SmallComment") [19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1]]),Branch (Pattern ("CurryStringClassifier","Meta") [20]) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '{'),Comb ConsCall ("Prelude",":") [Lit (Charc '+'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 20,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '+'),Comb ConsCall ("Prelude",":") [Lit (Charc '}'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1],Var 24],Var 25],Var 26]]))]])),Func ("OracleCurryStringClassifier","_case_6") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_5") [Var 4,Var 5,Var 7,Var 6,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1],Var 8]]))]])),Func ("OracleCurryStringClassifier","_case_5") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("CurryStringClassifier","Code") [8]) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","drop") [Lit (Intc 1),Var 8,Var 1],Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 7,Var 15],Var 16],Var 17]])),Branch (Pattern ("CurryStringClassifier","SmallComment") [9]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1],Var 18]])),Branch (Pattern ("CurryStringClassifier","BigComment") [10]) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1],Var 19]])),Branch (Pattern ("CurryStringClassifier","Text") [11]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1],Var 20]])),Branch (Pattern ("CurryStringClassifier","Letter") [12]) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1],Var 21]])),Branch (Pattern ("CurryStringClassifier","ModuleHead") [13]) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1],Var 22]])),Branch (Pattern ("CurryStringClassifier","Meta") [14]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("OracleCurryStringClassifier","plainCode") [Var 4,Var 1],Var 23]]))]])),Func ("OracleCurryStringClassifier","_case_11") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","ModuleHead") [Var 2],Comb FuncCall ("OracleCurryStringClassifier","_case_10") [Var 3,Var 1]]])]])),Func ("OracleCurryStringClassifier","_case_10") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_9") [Var 3,Var 5,Var 4,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCurryStringClassifier","_case_9") 4 Private (TVar (-42)) (Rule [3,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("CurryStringClassifier","Code") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Var 6]],Var 5]]),Branch (Pattern ("CurryStringClassifier","SmallComment") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CurryStringClassifier","BigComment") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CurryStringClassifier","Text") [9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CurryStringClassifier","Letter") [10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CurryStringClassifier","ModuleHead") [11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("CurryStringClassifier","Meta") [12]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCurryStringClassifier","_case_12") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleCurryStringClassifier","_case_13") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCurryStringClassifier","_case_15") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_14") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 6]]))]])),Func ("OracleCurryStringClassifier","_case_14") 4 Private (TVar (-42)) (Rule [2,3,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 2,Var 3,Var 1],Let [(5,Comb FuncCall ("OraclePrelude","splitAt") [Comb FuncCall ("OraclePrelude","length") [Var 3,Var 9],Var 2,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleCurryStringClassifier","lineBeginsWith._#selFP12#s'") [Var 5,Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleCurryStringClassifier","lineBeginsWith._#selFP13#rest") [Var 5,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 3,Var 6,Var 13],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","null") [Var 7,Var 14],Comb FuncCall ("OracleCurryStringClassifier","isSep") [Comb FuncCall ("OraclePrelude","head") [Var 7,Var 15],Var 16],Var 17],Var 18]]))]))])),Var 19]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleCurryStringClassifier","_case_19") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","maybeMo") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude","[]") [],Var 6]])),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_18") [Var 2,Var 5,Var 4,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_18") 4 Private (TVar (-42)) (Rule [2,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("CurryStringClassifier","Code") [6]) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","_case_17") [Var 2,Var 5,Var 6,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","break") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurryStringClassifier","modHeadInLine._#lambda13") []],Var 1],Var 6,Var 14],Var 15]])),Branch (Pattern ("CurryStringClassifier","BigComment") [11]) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","maybeMo") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","BigComment") [Var 11],Comb FuncCall ("OracleCurryStringClassifier","modHeadInLine") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 5,Var 16]],Var 17]])),Branch (Pattern ("CurryStringClassifier","SmallComment") [12]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","maybeMo") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","SmallComment") [Var 12],Comb FuncCall ("OracleCurryStringClassifier","modHeadInLine") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 5,Var 18]],Var 19]])),Branch (Pattern ("CurryStringClassifier","Meta") [13]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","maybeMo") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Meta") [Var 13],Var 5],Var 20]]))]])),Func ("OracleCurryStringClassifier","_case_17") 5 Private (TVar (-42)) (Rule [2,5,6,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","(,)") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_16") [Var 2,Var 5,Var 6,Var 7,Var 8,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_16") 6 Private (TVar (-42)) (Rule [2,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","modHead") [Comb FuncCall ("OraclePrelude",".") [Var 2,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [Var 7]],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude",":") [Var 9]],Var 1],Var 11],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 10],Var 5],Var 12]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","modHead") [Var 2,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 6],Var 5],Var 1]])]])),Func ("OracleCurryStringClassifier","_case_27") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_26") [Var 2,Var 5,Var 4,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","maybeMo") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude","[]") [],Var 6]]))]])),Func ("OracleCurryStringClassifier","_case_26") 4 Private (TVar (-42)) (Rule [2,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("CurryStringClassifier","Code") [6]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","_case_25") [Var 2,Var 5,Var 6,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","break") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurryStringClassifier","modHead._#lambda11") []],Var 1],Var 6,Var 18],Var 19]])),Branch (Pattern ("CurryStringClassifier","BigComment") [15]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","maybeMo") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","BigComment") [Var 15],Comb FuncCall ("OracleCurryStringClassifier","modHead") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 5,Var 20]],Var 21]])),Branch (Pattern ("CurryStringClassifier","SmallComment") [16]) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","maybeMo") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","SmallComment") [Var 16],Comb FuncCall ("OracleCurryStringClassifier","modHead") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 5,Var 22]],Var 23]])),Branch (Pattern ("CurryStringClassifier","Meta") [17]) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","maybeMo") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Meta") [Var 17],Var 5],Var 24]]))]])),Func ("OracleCurryStringClassifier","_case_25") 5 Private (TVar (-42)) (Rule [2,5,6,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","(,)") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_24") [Var 2,Var 5,Var 6,Var 8,Var 7,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_24") 6 Private (TVar (-42)) (Rule [2,5,6,8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_23") [Var 2,Var 5,Var 8,Var 1]]),Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_22") [Var 2,Var 5,Var 6,Var 11,Var 12,Var 8,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_22") 7 Private (TVar (-42)) (Rule [2,5,6,11,12,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","[]") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCurryStringClassifier","_case_21") [Var 2,Var 5,Var 6,Var 11,Var 12,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","any") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurryStringClassifier","lineBeginsWith") [Comb ConsCall ("Prelude",":") [Var 11,Var 12]]],Var 1],Comb FuncCall ("OracleCurryStringClassifier","headers") [Var 15],Var 16],Var 17]])),Branch (Pattern ("Prelude",":") [13,14]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCurryStringClassifier","_case_20") [Var 2,Var 5,Var 6,Var 11,Var 12,Var 13,Var 14,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","any") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurryStringClassifier","lineBeginsWith") [Comb ConsCall ("Prelude",":") [Var 11,Var 12]]],Var 1],Comb FuncCall ("OracleCurryStringClassifier","headers") [Var 18],Var 19],Var 20]]))]])),Func ("OracleCurryStringClassifier","_case_20") 9 Private (TVar (-42)) (Rule [2,5,6,11,12,13,14,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 15) [Branch (Pattern ("Prelude","True") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","modHead") [Comb FuncCall ("OraclePrelude",".") [Var 2,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Var 11,Var 12]]],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude",":") [Var 13]],Var 1],Var 16],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 14],Var 5],Var 17]])),Branch (Pattern ("Prelude","False") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","maybeMo") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 6],Var 5],Var 18]]))]])),Func ("OracleCurryStringClassifier","_case_21") 7 Private (TVar (-42)) (Rule [2,5,6,11,12,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","ModuleHead") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude",":") [Var 11,Var 12],Var 1]],Comb FuncCall ("OracleCurryStringClassifier","modHeadInLine") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 5,Var 14]]])),Branch (Pattern ("Prelude","False") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","maybeMo") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 6],Var 5],Var 15]]))]])),Func ("OracleCurryStringClassifier","_case_23") 4 Private (TVar (-42)) (Rule [2,5,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","modHead") [Var 2,Var 5,Var 1]]),Branch (Pattern ("Prelude",":") [9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","modHead") [Comb FuncCall ("OraclePrelude",".") [Var 2,Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude",":") [Var 9]],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Code") [Var 10],Var 5],Var 11]]))]])),Func ("OracleCurryStringClassifier","_case_28") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleCurryStringClassifier","_case_29") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCurryStringClassifier","_case_68") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","cond") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Var 8]])),Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_67") [Var 2,Var 4,Var 6,Var 7,Var 3,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_67") 6 Private (TVar (-42)) (Rule [2,4,6,7,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("CurryStringClassifier","Code") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_66") [Var 2,Var 4,Var 6,Var 8,Var 7,Var 1]]),Branch (Pattern ("CurryStringClassifier","Text") [27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_43") [Var 2,Var 4,Var 6,Var 27,Var 7,Var 1]]),Branch (Pattern ("CurryStringClassifier","BigComment") [31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_37") [Var 2,Var 4,Var 6,Var 31,Var 7,Var 1]]),Branch (Pattern ("CurryStringClassifier","Meta") [35]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_33") [Var 2,Var 4,Var 6,Var 35,Var 7,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_33") 6 Private (TVar (-42)) (Rule [2,4,6,35,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude","[]") []) (Let [(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","cond") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 1],Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 39],Var 40]])),Branch (Pattern ("Prelude",":") [36,37]) (Let [(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(44,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude",":") [Var 44,Comb ConsCall ("Prelude","[]") []]]]],Let [(38,Comb FuncCall ("Oracle","unknown") [Var 1])] (Comb FuncCall ("OracleCurryStringClassifier","_case_32") [Var 2,Var 4,Var 6,Var 35,Var 36,Var 37,Var 38,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '+'),Var 41],Comb FuncCall ("OraclePrelude","==") [Var 36,Lit (Charc '}'),Var 42],Var 43],Var 44])]))]])),Func ("OracleCurryStringClassifier","_case_32") 9 Private (TVar (-42)) (Rule [2,4,6,35,36,37,38,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 39) [Branch (Pattern ("Prelude","True") []) (Let [(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Meta") [Var 35],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 38],Var 38,Var 37,Var 40]],Var 41]])),Branch (Pattern ("Prelude","False") []) (Let [(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_31") [Var 2,Var 4,Var 6,Var 35,Var 36,Var 37,Var 38,Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '\n'),Var 1],Var 42]]))]])),Func ("OracleCurryStringClassifier","_case_31") 9 Private (TVar (-42)) (Rule [2,4,6,35,36,37,38,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 39) [Branch (Pattern ("Prelude","True") []) (Let [(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Var 38],Var 1],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Comb FuncCall ("OraclePrelude","+") [Var 2,Lit (Intc 1),Var 40],Comb ConsCall ("CurryStringClassifier","Meta") [Var 35],Var 38,Comb ConsCall ("Prelude",":") [Var 36,Var 37],Var 41],Var 42]])),Branch (Pattern ("Prelude","False") []) (Let [(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_30") [Var 2,Var 4,Var 6,Var 35,Var 36,Var 37,Var 38,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 43]]))]])),Func ("OracleCurryStringClassifier","_case_30") 9 Private (TVar (-42)) (Rule [2,4,6,35,36,37,38,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 39) [Branch (Pattern ("Prelude","True") []) (Let [(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Var 38],Var 1],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Meta") [Var 35],Var 38,Comb ConsCall ("Prelude",":") [Var 36,Var 37],Var 40],Var 41]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleCurryStringClassifier","_case_37") 6 Private (TVar (-42)) (Rule [2,4,6,31,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude","[]") []) (Let [(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","cond") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 1],Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 35],Var 36]])),Branch (Pattern ("Prelude",":") [32,33]) (Let [(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []]]]],Let [(34,Comb FuncCall ("Oracle","unknown") [Var 1])] (Comb FuncCall ("OracleCurryStringClassifier","_case_36") [Var 2,Var 4,Var 6,Var 31,Var 32,Var 33,Var 34,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '-'),Var 37],Comb FuncCall ("OraclePrelude","==") [Var 32,Lit (Charc '}'),Var 38],Var 39],Var 40])]))]])),Func ("OracleCurryStringClassifier","_case_36") 9 Private (TVar (-42)) (Rule [2,4,6,31,32,33,34,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 35) [Branch (Pattern ("Prelude","True") []) (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","BigComment") [Var 31],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 34],Var 34,Var 33,Var 36]],Var 37]])),Branch (Pattern ("Prelude","False") []) (Let [(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_35") [Var 2,Var 4,Var 6,Var 31,Var 32,Var 33,Var 34,Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '\n'),Var 1],Var 38]]))]])),Func ("OracleCurryStringClassifier","_case_35") 9 Private (TVar (-42)) (Rule [2,4,6,31,32,33,34,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 35) [Branch (Pattern ("Prelude","True") []) (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Var 34],Var 1],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Comb FuncCall ("OraclePrelude","+") [Var 2,Lit (Intc 1),Var 36],Comb ConsCall ("CurryStringClassifier","BigComment") [Var 31],Var 34,Comb ConsCall ("Prelude",":") [Var 32,Var 33],Var 37],Var 38]])),Branch (Pattern ("Prelude","False") []) (Let [(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_34") [Var 2,Var 4,Var 6,Var 31,Var 32,Var 33,Var 34,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 39]]))]])),Func ("OracleCurryStringClassifier","_case_34") 9 Private (TVar (-42)) (Rule [2,4,6,31,32,33,34,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 35) [Branch (Pattern ("Prelude","True") []) (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Var 34],Var 1],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","BigComment") [Var 31],Var 34,Comb ConsCall ("Prelude",":") [Var 32,Var 33],Var 36],Var 37]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleCurryStringClassifier","_case_43") 6 Private (TVar (-42)) (Rule [2,4,6,27,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude","[]") []) (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","cond") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 1],Comb FuncCall ("OracleCurryStringClassifier","_case_42") [Var 6,Var 27,Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '"'),Var 31],Var 32],Var 33]])),Branch (Pattern ("Prelude",":") [28,29]) (Let [(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude","[]") []]],Let [(30,Comb FuncCall ("Oracle","unknown") [Var 1])] (Comb FuncCall ("OracleCurryStringClassifier","_case_41") [Var 2,Var 4,Var 6,Var 27,Var 28,Var 29,Var 30,Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '"'),Var 34],Var 35])]))]])),Func ("OracleCurryStringClassifier","_case_41") 9 Private (TVar (-42)) (Rule [2,4,6,27,28,29,30,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 31) [Branch (Pattern ("Prelude","True") []) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Text") [Var 27],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 30],Var 30,Comb ConsCall ("Prelude",":") [Var 28,Var 29],Var 32]],Var 33]])),Branch (Pattern ("Prelude","False") []) (Let [(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_40") [Var 2,Var 4,Var 6,Var 27,Var 28,Var 29,Var 30,Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '\\'),Var 1],Var 34]]))]])),Func ("OracleCurryStringClassifier","_case_40") 9 Private (TVar (-42)) (Rule [2,4,6,27,28,29,30,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 31) [Branch (Pattern ("Prelude","True") []) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 28,Var 30]],Var 1],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Text") [Var 27],Var 30,Var 29,Var 32],Var 33]])),Branch (Pattern ("Prelude","False") []) (Let [(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCurryStringClassifier","_case_39") [Var 2,Var 4,Var 6,Var 27,Var 28,Var 29,Var 30,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 6,Var 1],Comb FuncCall ("OracleCurryStringClassifier","toBeEscaped") [Var 34],Var 35],Var 36]]))]])),Func ("OracleCurryStringClassifier","_case_39") 9 Private (TVar (-42)) (Rule [2,4,6,27,28,29,30,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 31) [Branch (Pattern ("Prelude","True") []) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 6,Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 2,Var 1],Var 32]],Var 33],Var 34]])),Branch (Pattern ("Prelude","False") []) (Let [(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_38") [Var 2,Var 4,Var 6,Var 27,Var 28,Var 29,Var 30,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 35]]))]])),Func ("OracleCurryStringClassifier","_case_38") 9 Private (TVar (-42)) (Rule [2,4,6,27,28,29,30,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 31) [Branch (Pattern ("Prelude","True") []) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Var 30],Var 1],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Text") [Var 27],Var 30,Comb ConsCall ("Prelude",":") [Var 28,Var 29],Var 32],Var 33]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleCurryStringClassifier","_case_42") 4 Private (TVar (-42)) (Rule [6,27,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 28) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Text") [Var 27],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleCurryStringClassifier","_case_66") 6 Private (TVar (-42)) (Rule [2,4,6,8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude","[]") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","cond") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Var 1],Comb FuncCall ("OracleCurryStringClassifier","maybeCode") [Var 8,Comb ConsCall ("Prelude","[]") [],Var 12],Var 13]])),Branch (Pattern ("Prelude",":") [9,10]) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]],Let [(11,Comb FuncCall ("Oracle","unknown") [Var 1])] (Comb FuncCall ("OracleCurryStringClassifier","_case_65") [Var 2,Var 4,Var 6,Var 8,Var 9,Var 10,Var 11,Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '"'),Var 14],Var 15])]))]])),Func ("OracleCurryStringClassifier","_case_65") 9 Private (TVar (-42)) (Rule [2,4,6,8,9,10,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 1],Comb FuncCall ("OracleCurryStringClassifier","maybeCode") [Var 8,Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Text") [Var 11],Var 11,Comb ConsCall ("Prelude",":") [Var 9,Var 10],Var 13],Var 14],Var 15]])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCurryStringClassifier","_case_64") [Var 2,Var 4,Var 6,Var 8,Var 9,Var 10,Var 11,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '-'),Var 1],Comb FuncCall ("OraclePrelude","==") [Var 9,Lit (Charc '-'),Var 16],Var 17],Var 18]]))]])),Func ("OracleCurryStringClassifier","_case_64") 9 Private (TVar (-42)) (Rule [2,4,6,8,9,10,11,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 15) [Branch (Pattern ("Prelude","True") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(12,Comb FuncCall ("OraclePrelude","span") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Lit (Charc '\n')]],Var 10,Var 1])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OracleCurryStringClassifier","stateScan._#selFP9#comment") [Var 12,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(14,Comb FuncCall ("OracleCurryStringClassifier","stateScan._#selFP10#rest") [Var 12,Var 17])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 18],Comb FuncCall ("OracleCurryStringClassifier","maybeCode") [Var 8,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","SmallComment") [Var 13],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 11],Var 11,Var 14,Var 19]],Var 20],Var 21]]))]))]))])),Branch (Pattern ("Prelude","False") []) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCurryStringClassifier","_case_63") [Var 2,Var 4,Var 6,Var 8,Var 9,Var 10,Var 11,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '{'),Var 1],Comb FuncCall ("OraclePrelude","==") [Var 9,Lit (Charc '-'),Var 22],Var 23],Var 24]]))]])),Func ("OracleCurryStringClassifier","_case_63") 9 Private (TVar (-42)) (Rule [2,4,6,8,9,10,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 1],Comb FuncCall ("OracleCurryStringClassifier","maybeCode") [Var 8,Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","BigComment") [Var 11],Var 11,Var 10,Var 13],Var 14],Var 15]])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCurryStringClassifier","_case_62") [Var 2,Var 4,Var 6,Var 8,Var 9,Var 10,Var 11,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '{'),Var 1],Comb FuncCall ("OraclePrelude","==") [Var 9,Lit (Charc '+'),Var 16],Var 17],Var 18]]))]])),Func ("OracleCurryStringClassifier","_case_62") 9 Private (TVar (-42)) (Rule [2,4,6,8,9,10,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 1],Comb FuncCall ("OracleCurryStringClassifier","maybeCode") [Var 8,Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Meta") [Var 11],Var 11,Var 10,Var 13],Var 14],Var 15]])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OracleCurryStringClassifier","_case_61") [Var 2,Var 4,Var 6,Var 8,Var 9,Var 10,Var 11,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 9,Lit (Charc '\''),Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 6,Var 16],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleCurryStringClassifier","infixIDs") [Var 17],Comb FuncCall ("OracleCurryStringClassifier","delimiters") [Var 18],Var 19],Var 20],Var 21],Var 22]]))]])),Func ("OracleCurryStringClassifier","_case_61") 9 Private (TVar (-42)) (Rule [2,4,6,8,9,10,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Var 1],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurryStringClassifier","maybeCode") [Var 8]],Comb FuncCall ("OracleCurryStringClassifier","_case_60") [Var 2,Var 11,Var 10,Var 13],Var 14],Var 15]])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_45") [Var 2,Var 4,Var 6,Var 8,Var 9,Var 10,Var 11,Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '\n'),Var 1],Var 16]]))]])),Func ("OracleCurryStringClassifier","_case_45") 9 Private (TVar (-42)) (Rule [2,4,6,8,9,10,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Var 11],Var 1],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Comb FuncCall ("OraclePrelude","+") [Var 2,Lit (Intc 1),Var 13],Comb ConsCall ("CurryStringClassifier","Code") [Var 8],Var 11,Comb ConsCall ("Prelude",":") [Var 9,Var 10],Var 14],Var 15]])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_44") [Var 2,Var 4,Var 6,Var 8,Var 9,Var 10,Var 11,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 16]]))]])),Func ("OracleCurryStringClassifier","_case_44") 9 Private (TVar (-42)) (Rule [2,4,6,8,9,10,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&>") [Comb FuncCall ("OraclePrelude","=:=") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Var 11],Var 1],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 8],Var 11,Comb ConsCall ("Prelude",":") [Var 9,Var 10],Var 13],Var 14]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleCurryStringClassifier","_case_60") 4 Private (TVar (-42)) (Rule [2,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude",":") [15,16]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_59") [Var 2,Var 11,Var 15,Var 16,Comb FuncCall ("OraclePrelude","==") [Var 15,Lit (Charc '\\'),Var 1],Var 17]])),Branch (Pattern ("Prelude","[]") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 2,Var 1],Var 18],Var 19]]))]])),Func ("OracleCurryStringClassifier","_case_59") 6 Private (TVar (-42)) (Rule [2,11,15,16,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_58") [Var 2,Var 11,Var 15,Var 16,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_47") [Var 2,Var 11,Var 15,Var 16,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_47") 5 Private (TVar (-42)) (Rule [2,11,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude",":") [25,26]) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_46") [Var 2,Var 11,Var 15,Var 25,Var 26,Comb FuncCall ("OraclePrelude","==") [Var 25,Lit (Charc '\''),Var 1],Var 27]])),Branch (Pattern ("Prelude","[]") []) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 2,Var 1],Var 28],Var 29]]))]])),Func ("OracleCurryStringClassifier","_case_46") 7 Private (TVar (-42)) (Rule [2,11,15,25,26,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 27) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Letter") [Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 11],Var 11,Var 26,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 2,Var 1],Var 28],Var 29]]))]])),Func ("OracleCurryStringClassifier","_case_58") 5 Private (TVar (-42)) (Rule [2,11,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_57") [Var 2,Var 11,Var 15,Var 17,Var 18,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 2,Var 1],Var 19],Var 20]]))]])),Func ("OracleCurryStringClassifier","_case_57") 6 Private (TVar (-42)) (Rule [2,11,15,17,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_56") [Var 2,Var 11,Var 15,Var 17,Var 18,Var 19,Var 20,Comb FuncCall ("OraclePrelude","==") [Var 19,Lit (Charc '\''),Var 1],Var 21]])),Branch (Pattern ("Prelude","[]") []) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_48") [Var 2,Var 11,Var 15,Var 17,Comb FuncCall ("OraclePrelude","==") [Var 17,Lit (Charc '\''),Var 1],Var 22]]))]])),Func ("OracleCurryStringClassifier","_case_48") 6 Private (TVar (-42)) (Rule [2,11,15,17,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 18) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Letter") [Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 11],Var 11,Comb ConsCall ("Prelude","[]") [],Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 2,Var 1],Var 19],Var 20]]))]])),Func ("OracleCurryStringClassifier","_case_56") 9 Private (TVar (-42)) (Rule [2,11,15,17,18,19,20,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 21) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Letter") [Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 11],Var 11,Var 20,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_55") [Var 2,Var 11,Var 15,Var 17,Var 18,Var 19,Var 20,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_55") 8 Private (TVar (-42)) (Rule [2,11,15,17,18,19,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 20) [Branch (Pattern ("Prelude",":") [21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_54") [Var 2,Var 11,Var 15,Var 17,Var 18,Var 19,Var 21,Var 22,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_49") [Var 2,Var 11,Var 15,Var 17,Var 18,Comb FuncCall ("OraclePrelude","==") [Var 17,Lit (Charc '\''),Var 1],Var 23]]))]])),Func ("OracleCurryStringClassifier","_case_49") 7 Private (TVar (-42)) (Rule [2,11,15,17,18,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 19) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Letter") [Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 11],Var 11,Var 18,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 2,Var 1],Var 20],Var 21]]))]])),Func ("OracleCurryStringClassifier","_case_54") 9 Private (TVar (-42)) (Rule [2,11,15,17,18,19,21,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 22) [Branch (Pattern ("Prelude",":") [23,24]) (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_53") [Var 2,Var 11,Var 15,Var 17,Var 18,Var 19,Var 21,Var 23,Var 24,Comb FuncCall ("OraclePrelude","==") [Var 23,Lit (Charc '\''),Var 1],Var 25]])),Branch (Pattern ("Prelude","[]") []) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_50") [Var 2,Var 11,Var 15,Var 17,Var 18,Comb FuncCall ("OraclePrelude","==") [Var 17,Lit (Charc '\''),Var 1],Var 26]]))]])),Func ("OracleCurryStringClassifier","_case_50") 7 Private (TVar (-42)) (Rule [2,11,15,17,18,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 19) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Letter") [Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 11],Var 11,Var 18,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 2,Var 1],Var 20],Var 21]]))]])),Func ("OracleCurryStringClassifier","_case_53") 11 Private (TVar (-42)) (Rule [2,11,15,17,18,19,21,23,24,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 25) [Branch (Pattern ("Prelude","True") []) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","_case_52") [Var 2,Var 11,Var 17,Var 19,Var 21,Var 24,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","all") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleChar","isDigit") []],Var 1],Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]],Var 26],Var 27]])),Branch (Pattern ("Prelude","False") []) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_51") [Var 2,Var 11,Var 15,Var 17,Var 18,Comb FuncCall ("OraclePrelude","==") [Var 17,Lit (Charc '\''),Var 1],Var 28]]))]])),Func ("OracleCurryStringClassifier","_case_51") 7 Private (TVar (-42)) (Rule [2,11,15,17,18,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 19) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Letter") [Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 11],Var 11,Var 18,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 2,Var 1],Var 20],Var 21]]))]])),Func ("OracleCurryStringClassifier","_case_52") 8 Private (TVar (-42)) (Rule [2,11,17,19,21,24,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 25) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("CurryStringClassifier","Letter") [Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleCurryStringClassifier","stateScan") [Var 2,Comb ConsCall ("CurryStringClassifier","Code") [Var 11],Var 11,Var 24,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 2,Var 1],Var 26],Var 27]]))]])),Func ("OracleCurryStringClassifier","_case_75") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_74") [Var 4,Var 3,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_74") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_73") [Var 4,Var 1]]),Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_71") [Var 4,Var 9,Var 10,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_71") 4 Private (TVar (-42)) (Rule [4,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_70") [Var 9,Var 10,Var 4,Var 1]]),Branch (Pattern ("Prelude",":") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_69") [Var 9,Var 13,Var 14,Var 4,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_69") 5 Private (TVar (-42)) (Rule [9,13,14,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude",":") [15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 15,Comb FuncCall ("OracleCurryStringClassifier","weave") [Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 13,Var 14],Var 16],Var 1]]]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleCurryStringClassifier","_case_70") 4 Private (TVar (-42)) (Rule [9,10,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 11,Comb FuncCall ("OracleCurryStringClassifier","weave") [Comb ConsCall ("Prelude","(,)") [Var 10,Var 12],Var 1]]]])]])),Func ("OracleCurryStringClassifier","_case_73") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurryStringClassifier","_case_72") [Var 5,Var 6,Var 1]])]])),Func ("OracleCurryStringClassifier","_case_72") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleCurryStringClassifier","_case_76") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleCurryStringClassifier","_case_77") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCurryStringClassifier","_case_79") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleCurryStringClassifier","unweaveCode") [Var 4,Var 1])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleCurryStringClassifier","unweaveCode._#selFP6#cs") [Var 5,Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleCurryStringClassifier","unweaveCode._#selFP7#ncs") [Var 5,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurryStringClassifier","_case_78") [Var 3,Var 6,Var 7,Comb FuncCall ("OracleCurryStringClassifier","isCode") [Var 3,Var 10],Var 11]]))]))]))]))]])),Func ("OracleCurryStringClassifier","_case_78") 5 Private (TVar (-42)) (Rule [3,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 3,Var 6],Var 7]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 6,Comb ConsCall ("Prelude",":") [Var 3,Var 7]]])]])),Func ("OracleCurryStringClassifier","_case_80") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleCurryStringClassifier","_case_81") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleCurryStringClassifier","_case_82") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("CurryStringClassifier","Meta") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("CurryStringClassifier","SmallComment") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","BigComment") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Text") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Letter") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Code") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","ModuleHead") [9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleCurryStringClassifier","_case_83") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("CurryStringClassifier","ModuleHead") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("CurryStringClassifier","SmallComment") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","BigComment") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Text") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Letter") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Code") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Meta") [9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleCurryStringClassifier","_case_84") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("CurryStringClassifier","Code") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("CurryStringClassifier","SmallComment") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","BigComment") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Text") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Letter") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","ModuleHead") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Meta") [9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleCurryStringClassifier","_case_85") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("CurryStringClassifier","Letter") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("CurryStringClassifier","SmallComment") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","BigComment") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Text") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Code") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","ModuleHead") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Meta") [9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleCurryStringClassifier","_case_86") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("CurryStringClassifier","Text") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("CurryStringClassifier","SmallComment") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","BigComment") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Letter") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Code") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","ModuleHead") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Meta") [9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleCurryStringClassifier","_case_87") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("CurryStringClassifier","BigComment") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("CurryStringClassifier","SmallComment") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Text") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Letter") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Code") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","ModuleHead") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Meta") [9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleCurryStringClassifier","_case_88") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("CurryStringClassifier","SmallComment") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("CurryStringClassifier","BigComment") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Text") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Letter") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Code") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","ModuleHead") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("CurryStringClassifier","Meta") [9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]]))] []
+ Curry/Module/OracleCurrySyntax.fcy view
@@ -0,0 +1,1 @@+Prog "OracleCurrySyntax" ["CEventOracle","Oracle","IOExts","CurrySyntax","Directory","Distribution","FileGoodies","Prelude","ReadShowTerm","OracleDirectory","OracleDistribution","OracleFileGoodies","OraclePrelude","OracleReadShowTerm"] [] [Func ("OracleCurrySyntax","readCurry") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("CurrySyntax","Module") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurrySyntax","readCurryWithParseOptions") [Var 2,Comb FuncCall ("OracleDistribution","setQuiet") [Comb ConsCall ("Prelude","True") [],Comb FuncCall ("OracleDistribution","defaultParams") [Var 1],Var 3],Var 4]]))),Func ("OracleCurrySyntax","readCurryWithParseOptions") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("CurrySyntax","Module") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]])))))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Let [(4,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleCurrySyntax","stripSuffix") [Var 1],Var 2,Var 5])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleCurrySyntax","orElseDo") [Comb FuncCall ("OracleCurrySyntax","readCurryWithParseOptions.parseCurry.5") [Var 3,Var 4,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","[]") []]]]]]],Var 6],Comb FuncCall ("OracleCurrySyntax","readCurryWithParseOptions.parseCurry.5") [Var 3,Var 4,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","[]") []]]]]]]],Var 7],Var 8],Comb FuncCall ("OracleCurrySyntax","readCurryFile") [Var 4,Var 9],Var 10]]))]))),Func ("OracleCurrySyntax","readCurryWithParseOptions.parse.5") 4 Private (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","()") []]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleDistribution","callFrontendWithParams") [Comb ConsCall ("Distribution","CY") [],Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","()") []],Var 5],Var 6]]))),Func ("OracleCurrySyntax","readCurryWithParseOptions.parseCurry.5") 4 Private (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","()") []]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCurrySyntax","absoluteFileName") [Comb FuncCall ("OraclePrelude","++") [Var 3,Var 4,Var 1],Var 5],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","maybe") [Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","Nothing") [],Var 6],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurrySyntax","readCurryWithParseOptions.parse.5") [Var 2,Var 3]]]],Var 7]]))),Func ("OracleCurrySyntax","readCurryFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("CurrySyntax","Module") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]]))))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Let [(3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleCurrySyntax","stripSuffix") [Var 1],Var 2,Var 4])] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCurrySyntax","absoluteFileName") [Comb FuncCall ("OraclePrelude","++") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude","[]") []]]],Var 5],Var 6],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurrySyntax","readCurryFile._#lambda3") [Var 3]],Var 7]]))]))),Func ("OracleCurrySyntax","readCurryFile.read.13") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurrySyntax","readCurryFile.read.13._#lambda2") []],Var 3]]))),Func ("OracleCurrySyntax","readCurryFile.read.13._#lambda2") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 48]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OracleReadShowTerm","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 2,Var 1],Var 3]]))),Func ("OracleCurrySyntax","readCurryFile._#lambda3") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 49])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [Var 2,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","[]") []]]]]]]]]]]]]],Var 1],Var 4],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurrySyntax","readCurryFile.read.13") []],Var 3,Var 5]]))),Func ("OracleCurrySyntax","writeCurryModule") 2 Public (FuncType (TCons ("CurrySyntax","Module") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurrySyntax","_case_3") [Var 2,Var 1]])),Func ("OracleCurrySyntax","writeCurryFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CurrySyntax","Module") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","writeFile") [Var 2,Comb FuncCall ("OracleReadShowTerm","showTerm") [Var 3,Var 1],Var 4]]))),Func ("OracleCurrySyntax","absoluteFileName") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurrySyntax","_case_2") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb FuncCall ("OracleFileGoodies","baseName") [Var 2,Var 1],Var 3],Var 4]]))),Func ("OracleCurrySyntax","absoluteFileName._#lambda4") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OracleCurrySyntax","_case_0") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OracleCurrySyntax","orElseDo") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TVar 0]]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TVar 0]]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TVar 0]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","maybe") [Var 3,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude","Just") []],Var 1]]],Var 4]]))),Func ("OracleCurrySyntax","stripSuffix") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","takeWhile") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Lit (Charc '.')]]]]])),Func ("OracleCurrySyntax","_case_0") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OracleCurrySyntax","_case_2") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","lookupFileInLoadPath") [Var 2,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurrySyntax","_case_1") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 4]]))]])),Func ("OracleCurrySyntax","_case_1") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurrySyntax","absoluteFileName._#lambda4") [Var 2]],Var 4]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleCurrySyntax","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("CurrySyntax","Module") [3,4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurrySyntax","writeCurryFile") [Comb FuncCall ("OraclePrelude","++") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 2,Var 6]]))]]))] []
+ Curry/Module/OracleCurrySyntax.fint view
@@ -0,0 +1,1 @@+Prog "OracleCurrySyntax" ["CEventOracle","Oracle","IOExts","CurrySyntax","Directory","Distribution","FileGoodies","Prelude","ReadShowTerm","OracleDirectory","OracleDistribution","OracleFileGoodies","OraclePrelude","OracleReadShowTerm"] [] [Func ("OracleCurrySyntax","readCurry") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("CurrySyntax","Module") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurrySyntax","readCurryWithParseOptions") [Var 2,Comb FuncCall ("OracleDistribution","setQuiet") [Comb ConsCall ("Prelude","True") [],Comb FuncCall ("OracleDistribution","defaultParams") [Var 1],Var 3],Var 4]]))),Func ("OracleCurrySyntax","readCurryWithParseOptions") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("CurrySyntax","Module") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]])))))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Let [(4,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleCurrySyntax","stripSuffix") [Var 1],Var 2,Var 5])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleCurrySyntax","orElseDo") [Comb FuncCall ("OracleCurrySyntax","readCurryWithParseOptions.parseCurry.5") [Var 3,Var 4,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","[]") []]]]]]],Var 6],Comb FuncCall ("OracleCurrySyntax","readCurryWithParseOptions.parseCurry.5") [Var 3,Var 4,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","[]") []]]]]]]],Var 7],Var 8],Comb FuncCall ("OracleCurrySyntax","readCurryFile") [Var 4,Var 9],Var 10]]))]))),Func ("OracleCurrySyntax","readCurryWithParseOptions.parse.5") 4 Private (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","()") []]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleDistribution","callFrontendWithParams") [Comb ConsCall ("Distribution","CY") [],Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","()") []],Var 5],Var 6]]))),Func ("OracleCurrySyntax","readCurryWithParseOptions.parseCurry.5") 4 Private (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","()") []]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCurrySyntax","absoluteFileName") [Comb FuncCall ("OraclePrelude","++") [Var 3,Var 4,Var 1],Var 5],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","maybe") [Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","Nothing") [],Var 6],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurrySyntax","readCurryWithParseOptions.parse.5") [Var 2,Var 3]]]],Var 7]]))),Func ("OracleCurrySyntax","readCurryFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("CurrySyntax","Module") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]]))))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Let [(3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleCurrySyntax","stripSuffix") [Var 1],Var 2,Var 4])] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleCurrySyntax","absoluteFileName") [Comb FuncCall ("OraclePrelude","++") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude","[]") []]]],Var 5],Var 6],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurrySyntax","readCurryFile._#lambda3") [Var 3]],Var 7]]))]))),Func ("OracleCurrySyntax","readCurryFile.read.13") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurrySyntax","readCurryFile.read.13._#lambda2") []],Var 3]]))),Func ("OracleCurrySyntax","readCurryFile.read.13._#lambda2") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 48]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OracleReadShowTerm","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 2,Var 1],Var 3]]))),Func ("OracleCurrySyntax","readCurryFile._#lambda3") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 49])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [Var 2,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","[]") []]]]]]]]]]]]]],Var 1],Var 4],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurrySyntax","readCurryFile.read.13") []],Var 3,Var 5]]))),Func ("OracleCurrySyntax","writeCurryModule") 2 Public (FuncType (TCons ("CurrySyntax","Module") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleCurrySyntax","_case_3") [Var 2,Var 1]])),Func ("OracleCurrySyntax","writeCurryFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CurrySyntax","Module") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","writeFile") [Var 2,Comb FuncCall ("OracleReadShowTerm","showTerm") [Var 3,Var 1],Var 4]]))),Func ("OracleCurrySyntax","absoluteFileName") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleCurrySyntax","_case_2") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb FuncCall ("OracleFileGoodies","baseName") [Var 2,Var 1],Var 3],Var 4]]))),Func ("OracleCurrySyntax","absoluteFileName._#lambda4") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OracleCurrySyntax","_case_0") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OracleCurrySyntax","orElseDo") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TVar 0]]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TVar 0]]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TVar 0]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","maybe") [Var 3,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude","Just") []],Var 1]]],Var 4]]))),Func ("OracleCurrySyntax","stripSuffix") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","takeWhile") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Lit (Charc '.')]]]]])),Func ("OracleCurrySyntax","_case_0") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OracleCurrySyntax","_case_2") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","lookupFileInLoadPath") [Var 2,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurrySyntax","_case_1") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 4]]))]])),Func ("OracleCurrySyntax","_case_1") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleCurrySyntax","absoluteFileName._#lambda4") [Var 2]],Var 4]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleCurrySyntax","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("CurrySyntax","Module") [3,4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleCurrySyntax","writeCurryFile") [Comb FuncCall ("OraclePrelude","++") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 2,Var 6]]))]]))] []
+ Curry/Module/OracleDequeue.fcy view
@@ -0,0 +1,1 @@+Prog "OracleDequeue" ["CEventOracle","Oracle","IOExts","Dequeue","Prelude","OraclePrelude"] [] [Func ("OracleDequeue","empty") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Dequeue","Queue") [TVar 0])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Dequeue","S") [Lit (Intc 0),Comb ConsCall ("Prelude","[]") [],Lit (Intc 0),Comb ConsCall ("Prelude","[]") []]])),Func ("OracleDequeue","isEmpty") 2 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_25") [Var 2,Var 1]])),Func ("OracleDequeue","deqHead") 2 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_24") [Var 2,Var 1]])),Func ("OracleDequeue","deqLast") 2 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_22") [Var 2,Var 1]])),Func ("OracleDequeue","cons") 3 Public (FuncType (TVar 0) (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Dequeue","Queue") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_20") [Var 2,Var 3,Var 1]])),Func ("OracleDequeue","deqTail") 2 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Dequeue","Queue") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_19") [Var 2,Var 1]])),Func ("OracleDequeue","snoc") 3 Public (FuncType (TVar 0) (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Dequeue","Queue") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_17") [Var 2,Var 3,Var 1]])),Func ("OracleDequeue","deqInit") 2 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Dequeue","Queue") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_16") [Var 2,Var 1]])),Func ("OracleDequeue","deqReverse") 2 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Dequeue","Queue") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_14") [Var 2,Var 1]])),Func ("OracleDequeue","check") 5 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Dequeue","Queue") [TVar 0])))))) (Rule [2,3,4,5,1] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePrelude","+") [Var 2,Var 4,Var 1])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OraclePrelude","div") [Var 6,Lit (Intc 2),Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OraclePrelude","-") [Var 6,Var 7,Var 14])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OraclePrelude","splitAt") [Var 7,Var 3,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleDequeue","check._#selFP3#f'") [Var 9,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleDequeue","check._#selFP4#rf'") [Var 9,Var 17])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]],Let [(12,Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","reverse") [Var 18],Var 11,Var 19],Var 20])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleDequeue","_case_13") [Var 2,Var 3,Var 4,Var 5,Var 7,Var 8,Var 10,Var 12,Comb FuncCall ("OraclePrelude","<=") [Var 2,Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","*") [Lit (Intc 3),Var 4,Var 21],Lit (Intc 1),Var 22],Var 23],Var 24]]))]))]))]))]))]))]))]))),Func ("OracleDequeue","check._#selFP3#f'") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 45],TCons ("Prelude","[]") [TVar 45]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 45]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_11") [Var 2,Var 1]])),Func ("OracleDequeue","check._#selFP4#rf'") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 45],TCons ("Prelude","[]") [TVar 45]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 45]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_10") [Var 2,Var 1]])),Func ("OracleDequeue","listToDeq") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Dequeue","Queue") [TVar 0]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleDequeue","check") [Comb FuncCall ("OraclePrelude","length") [Var 2,Var 1],Var 2,Lit (Intc 0),Comb ConsCall ("Prelude","[]") [],Var 3]]))),Func ("OracleDequeue","deqToList") 2 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_9") [Var 2,Var 1]])),Func ("OracleDequeue","deqLength") 2 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_8") [Var 2,Var 1]])),Func ("OracleDequeue","rotate") 2 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Dequeue","Queue") [TVar 0]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleDequeue","snoc") [Comb FuncCall ("OracleDequeue","deqHead") [Var 2,Var 1],Comb FuncCall ("OracleDequeue","deqTail") [Var 2,Var 3],Var 4]]))),Func ("OracleDequeue","matchHead") 2 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TVar 0,TCons ("Dequeue","Queue") [TVar 0]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_7") [Var 2,Var 1]])),Func ("OracleDequeue","matchLast") 2 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TVar 0,TCons ("Dequeue","Queue") [TVar 0]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_3") [Var 2,Var 1]])),Func ("OracleDequeue","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Dequeue","S") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_2") [Var 3,Var 4,Var 5,Var 6,Var 1]])]])),Func ("OracleDequeue","_case_2") 5 Private (TVar (-42)) (Rule [3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_1") [Var 4,Var 1]]),Branch (Pattern ("Prelude",":") [9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","(,)") [Var 9,Comb FuncCall ("OracleDequeue","check") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","-") [Var 5,Lit (Intc 1),Var 1],Var 10,Var 11]]]]))]])),Func ("OracleDequeue","_case_1") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_0") [Var 7,Var 8,Var 1]])]])),Func ("OracleDequeue","_case_0") 3 Private (TVar (-42)) (Rule [7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","(,)") [Var 7,Comb FuncCall ("OracleDequeue","empty") [Var 1]]]])]])),Func ("OracleDequeue","_case_7") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Dequeue","S") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_6") [Var 3,Var 5,Var 6,Var 4,Var 1]])]])),Func ("OracleDequeue","_case_6") 5 Private (TVar (-42)) (Rule [3,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_5") [Var 6,Var 1]]),Branch (Pattern ("Prelude",":") [9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","(,)") [Var 9,Comb FuncCall ("OracleDequeue","deqReverse") [Comb FuncCall ("OracleDequeue","check") [Var 5,Var 6,Comb FuncCall ("OraclePrelude","-") [Var 3,Lit (Intc 1),Var 1],Var 10,Var 11],Var 12]]]]))]])),Func ("OracleDequeue","_case_5") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_4") [Var 7,Var 8,Var 1]])]])),Func ("OracleDequeue","_case_4") 3 Private (TVar (-42)) (Rule [7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","(,)") [Var 7,Comb FuncCall ("OracleDequeue","empty") [Var 1]]]])]])),Func ("OracleDequeue","_case_8") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Dequeue","S") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","+") [Var 3,Var 5,Var 1]])]])),Func ("OracleDequeue","_case_9") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Dequeue","S") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 4,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","reverse") [Var 1],Var 6,Var 7],Var 8]]))]])),Func ("OracleDequeue","_case_10") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleDequeue","_case_11") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleDequeue","_case_13") 10 Private (TVar (-42)) (Rule [2,3,4,5,7,8,10,12,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Dequeue","S") [Var 2,Var 3,Var 4,Var 5]]),Branch (Pattern ("Prelude","False") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleDequeue","_case_12") [Var 7,Var 8,Var 10,Var 12,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 14]]))]])),Func ("OracleDequeue","_case_12") 6 Private (TVar (-42)) (Rule [7,8,10,12,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Dequeue","S") [Var 7,Var 10,Var 8,Var 12]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleDequeue","_case_14") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Dequeue","S") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Dequeue","S") [Var 5,Var 6,Var 3,Var 4]])]])),Func ("OracleDequeue","_case_16") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Dequeue","S") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_15") [Var 3,Var 4,Var 5,Var 6,Var 1]])]])),Func ("OracleDequeue","_case_15") 5 Private (TVar (-42)) (Rule [3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","empty") [Var 1]]),Branch (Pattern ("Prelude",":") [7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleDequeue","check") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","-") [Var 5,Lit (Intc 1),Var 1],Var 8,Var 9]]))]])),Func ("OracleDequeue","_case_17") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Dequeue","S") [4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleDequeue","deqReverse") [Comb FuncCall ("OracleDequeue","check") [Comb FuncCall ("OraclePrelude","+") [Var 6,Lit (Intc 1),Var 1],Comb ConsCall ("Prelude",":") [Var 2,Var 7],Var 4,Var 5,Var 8],Var 9]]))]])),Func ("OracleDequeue","_case_19") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Dequeue","S") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_18") [Var 3,Var 5,Var 6,Var 4,Var 1]])]])),Func ("OracleDequeue","_case_18") 5 Private (TVar (-42)) (Rule [3,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","empty") [Var 1]]),Branch (Pattern ("Prelude",":") [7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleDequeue","deqReverse") [Comb FuncCall ("OracleDequeue","check") [Var 5,Var 6,Comb FuncCall ("OraclePrelude","-") [Var 3,Lit (Intc 1),Var 1],Var 8,Var 9],Var 10]]))]])),Func ("OracleDequeue","_case_20") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Dequeue","S") [4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleDequeue","check") [Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 1),Var 1],Comb ConsCall ("Prelude",":") [Var 2,Var 5],Var 6,Var 7,Var 8]]))]])),Func ("OracleDequeue","_case_22") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Dequeue","S") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","head") [Comb FuncCall ("OracleDequeue","_case_21") [Var 4,Var 5,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 5,Lit (Intc 0),Var 1],Var 7],Var 8]]))]])),Func ("OracleDequeue","_case_21") 5 Private (TVar (-42)) (Rule [4,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleDequeue","_case_24") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Dequeue","S") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","head") [Comb FuncCall ("OracleDequeue","_case_23") [Var 3,Var 4,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Intc 0),Var 1],Var 7],Var 8]]))]])),Func ("OracleDequeue","_case_23") 5 Private (TVar (-42)) (Rule [3,4,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleDequeue","_case_25") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Dequeue","S") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","+") [Var 3,Var 5,Var 1],Lit (Intc 0),Var 7]]))]]))] []
+ Curry/Module/OracleDequeue.fint view
@@ -0,0 +1,1 @@+Prog "OracleDequeue" ["CEventOracle","Oracle","IOExts","Dequeue","Prelude","OraclePrelude"] [] [Func ("OracleDequeue","empty") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Dequeue","Queue") [TVar 0])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Dequeue","S") [Lit (Intc 0),Comb ConsCall ("Prelude","[]") [],Lit (Intc 0),Comb ConsCall ("Prelude","[]") []]])),Func ("OracleDequeue","isEmpty") 2 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_25") [Var 2,Var 1]])),Func ("OracleDequeue","deqHead") 2 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_24") [Var 2,Var 1]])),Func ("OracleDequeue","deqLast") 2 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_22") [Var 2,Var 1]])),Func ("OracleDequeue","cons") 3 Public (FuncType (TVar 0) (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Dequeue","Queue") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_20") [Var 2,Var 3,Var 1]])),Func ("OracleDequeue","deqTail") 2 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Dequeue","Queue") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_19") [Var 2,Var 1]])),Func ("OracleDequeue","snoc") 3 Public (FuncType (TVar 0) (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Dequeue","Queue") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_17") [Var 2,Var 3,Var 1]])),Func ("OracleDequeue","deqInit") 2 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Dequeue","Queue") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_16") [Var 2,Var 1]])),Func ("OracleDequeue","deqReverse") 2 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Dequeue","Queue") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_14") [Var 2,Var 1]])),Func ("OracleDequeue","check") 5 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Dequeue","Queue") [TVar 0])))))) (Rule [2,3,4,5,1] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePrelude","+") [Var 2,Var 4,Var 1])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OraclePrelude","div") [Var 6,Lit (Intc 2),Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OraclePrelude","-") [Var 6,Var 7,Var 14])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OraclePrelude","splitAt") [Var 7,Var 3,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleDequeue","check._#selFP3#f'") [Var 9,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleDequeue","check._#selFP4#rf'") [Var 9,Var 17])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]],Let [(12,Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","reverse") [Var 18],Var 11,Var 19],Var 20])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleDequeue","_case_13") [Var 2,Var 3,Var 4,Var 5,Var 7,Var 8,Var 10,Var 12,Comb FuncCall ("OraclePrelude","<=") [Var 2,Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","*") [Lit (Intc 3),Var 4,Var 21],Lit (Intc 1),Var 22],Var 23],Var 24]]))]))]))]))]))]))]))]))),Func ("OracleDequeue","check._#selFP3#f'") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 45],TCons ("Prelude","[]") [TVar 45]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 45]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_11") [Var 2,Var 1]])),Func ("OracleDequeue","check._#selFP4#rf'") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 45],TCons ("Prelude","[]") [TVar 45]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 45]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_10") [Var 2,Var 1]])),Func ("OracleDequeue","listToDeq") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Dequeue","Queue") [TVar 0]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleDequeue","check") [Comb FuncCall ("OraclePrelude","length") [Var 2,Var 1],Var 2,Lit (Intc 0),Comb ConsCall ("Prelude","[]") [],Var 3]]))),Func ("OracleDequeue","deqToList") 2 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_9") [Var 2,Var 1]])),Func ("OracleDequeue","deqLength") 2 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_8") [Var 2,Var 1]])),Func ("OracleDequeue","rotate") 2 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Dequeue","Queue") [TVar 0]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleDequeue","snoc") [Comb FuncCall ("OracleDequeue","deqHead") [Var 2,Var 1],Comb FuncCall ("OracleDequeue","deqTail") [Var 2,Var 3],Var 4]]))),Func ("OracleDequeue","matchHead") 2 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TVar 0,TCons ("Dequeue","Queue") [TVar 0]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_7") [Var 2,Var 1]])),Func ("OracleDequeue","matchLast") 2 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TVar 0,TCons ("Dequeue","Queue") [TVar 0]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_3") [Var 2,Var 1]])),Func ("OracleDequeue","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Dequeue","S") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_2") [Var 3,Var 4,Var 5,Var 6,Var 1]])]])),Func ("OracleDequeue","_case_2") 5 Private (TVar (-42)) (Rule [3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_1") [Var 4,Var 1]]),Branch (Pattern ("Prelude",":") [9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","(,)") [Var 9,Comb FuncCall ("OracleDequeue","check") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","-") [Var 5,Lit (Intc 1),Var 1],Var 10,Var 11]]]]))]])),Func ("OracleDequeue","_case_1") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_0") [Var 7,Var 8,Var 1]])]])),Func ("OracleDequeue","_case_0") 3 Private (TVar (-42)) (Rule [7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","(,)") [Var 7,Comb FuncCall ("OracleDequeue","empty") [Var 1]]]])]])),Func ("OracleDequeue","_case_7") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Dequeue","S") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_6") [Var 3,Var 5,Var 6,Var 4,Var 1]])]])),Func ("OracleDequeue","_case_6") 5 Private (TVar (-42)) (Rule [3,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_5") [Var 6,Var 1]]),Branch (Pattern ("Prelude",":") [9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","(,)") [Var 9,Comb FuncCall ("OracleDequeue","deqReverse") [Comb FuncCall ("OracleDequeue","check") [Var 5,Var 6,Comb FuncCall ("OraclePrelude","-") [Var 3,Lit (Intc 1),Var 1],Var 10,Var 11],Var 12]]]]))]])),Func ("OracleDequeue","_case_5") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_4") [Var 7,Var 8,Var 1]])]])),Func ("OracleDequeue","_case_4") 3 Private (TVar (-42)) (Rule [7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","(,)") [Var 7,Comb FuncCall ("OracleDequeue","empty") [Var 1]]]])]])),Func ("OracleDequeue","_case_8") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Dequeue","S") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","+") [Var 3,Var 5,Var 1]])]])),Func ("OracleDequeue","_case_9") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Dequeue","S") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 4,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","reverse") [Var 1],Var 6,Var 7],Var 8]]))]])),Func ("OracleDequeue","_case_10") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleDequeue","_case_11") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleDequeue","_case_13") 10 Private (TVar (-42)) (Rule [2,3,4,5,7,8,10,12,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Dequeue","S") [Var 2,Var 3,Var 4,Var 5]]),Branch (Pattern ("Prelude","False") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleDequeue","_case_12") [Var 7,Var 8,Var 10,Var 12,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 14]]))]])),Func ("OracleDequeue","_case_12") 6 Private (TVar (-42)) (Rule [7,8,10,12,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Dequeue","S") [Var 7,Var 10,Var 8,Var 12]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleDequeue","_case_14") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Dequeue","S") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Dequeue","S") [Var 5,Var 6,Var 3,Var 4]])]])),Func ("OracleDequeue","_case_16") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Dequeue","S") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_15") [Var 3,Var 4,Var 5,Var 6,Var 1]])]])),Func ("OracleDequeue","_case_15") 5 Private (TVar (-42)) (Rule [3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","empty") [Var 1]]),Branch (Pattern ("Prelude",":") [7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleDequeue","check") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","-") [Var 5,Lit (Intc 1),Var 1],Var 8,Var 9]]))]])),Func ("OracleDequeue","_case_17") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Dequeue","S") [4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleDequeue","deqReverse") [Comb FuncCall ("OracleDequeue","check") [Comb FuncCall ("OraclePrelude","+") [Var 6,Lit (Intc 1),Var 1],Comb ConsCall ("Prelude",":") [Var 2,Var 7],Var 4,Var 5,Var 8],Var 9]]))]])),Func ("OracleDequeue","_case_19") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Dequeue","S") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","_case_18") [Var 3,Var 5,Var 6,Var 4,Var 1]])]])),Func ("OracleDequeue","_case_18") 5 Private (TVar (-42)) (Rule [3,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDequeue","empty") [Var 1]]),Branch (Pattern ("Prelude",":") [7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleDequeue","deqReverse") [Comb FuncCall ("OracleDequeue","check") [Var 5,Var 6,Comb FuncCall ("OraclePrelude","-") [Var 3,Lit (Intc 1),Var 1],Var 8,Var 9],Var 10]]))]])),Func ("OracleDequeue","_case_20") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Dequeue","S") [4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleDequeue","check") [Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 1),Var 1],Comb ConsCall ("Prelude",":") [Var 2,Var 5],Var 6,Var 7,Var 8]]))]])),Func ("OracleDequeue","_case_22") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Dequeue","S") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","head") [Comb FuncCall ("OracleDequeue","_case_21") [Var 4,Var 5,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 5,Lit (Intc 0),Var 1],Var 7],Var 8]]))]])),Func ("OracleDequeue","_case_21") 5 Private (TVar (-42)) (Rule [4,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleDequeue","_case_24") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Dequeue","S") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","head") [Comb FuncCall ("OracleDequeue","_case_23") [Var 3,Var 4,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Intc 0),Var 1],Var 7],Var 8]]))]])),Func ("OracleDequeue","_case_23") 5 Private (TVar (-42)) (Rule [3,4,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleDequeue","_case_25") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Dequeue","S") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","+") [Var 3,Var 5,Var 1],Lit (Intc 0),Var 7]]))]]))] []
+ Curry/Module/OracleDirectory.fcy view
@@ -0,0 +1,1 @@+Prog "OracleDirectory" ["CEventOracle","Oracle","IOExts","Directory","Prelude","Time","OraclePrelude","OracleTime"] [] [Func ("OracleDirectory","doesFileExist") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDirectory","prim_doesFileExist") []],Var 2,Var 1]])),Func ("OracleDirectory","doesDirectoryExist") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDirectory","prim_doesDirectoryExist") []],Var 2,Var 1]])),Func ("OracleDirectory","fileSize") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDirectory","prim_fileSize") []],Var 2,Var 1]])),Func ("OracleDirectory","getModificationTime") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Time","ClockTime") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDirectory","prim_getModificationTime") []],Var 2,Var 1]])),Func ("OracleDirectory","setCurrentDirectory") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDirectory","prim_setCurrentDirectory") []],Var 2,Var 1]])),Func ("OracleDirectory","getDirectoryContents") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDirectory","prim_getDirectoryContents") []],Var 2,Var 1]])),Func ("OracleDirectory","createDirectory") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDirectory","prim_createDirectory") []],Var 2,Var 1]])),Func ("OracleDirectory","removeFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDirectory","prim_removeFile") []],Var 2,Var 1]])),Func ("OracleDirectory","removeDirectory") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDirectory","prim_removeDirectory") []],Var 2,Var 1]])),Func ("OracleDirectory","renameFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleDirectory","prim_renameFile") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleDirectory","renameDirectory") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleDirectory","prim_renameDirectory") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleDirectory","prim_doesFileExist") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Directory","prim_doesFileExist") [Var 2]]]])),Func ("OracleDirectory","prim_doesDirectoryExist") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Directory","prim_doesDirectoryExist") [Var 2]]]])),Func ("OracleDirectory","prim_fileSize") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Directory","prim_fileSize") [Var 2]]]])),Func ("OracleDirectory","prim_getModificationTime") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Time","ClockTime") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Directory","prim_getModificationTime") [Var 2]]]])),Func ("OracleDirectory","getCurrentDirectory") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Directory","getCurrentDirectory") []]]])),Func ("OracleDirectory","prim_setCurrentDirectory") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Directory","prim_setCurrentDirectory") [Var 2]]])),Func ("OracleDirectory","prim_getDirectoryContents") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Directory","prim_getDirectoryContents") [Var 2]]]])),Func ("OracleDirectory","prim_createDirectory") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Directory","prim_createDirectory") [Var 2]]])),Func ("OracleDirectory","prim_removeFile") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Directory","prim_removeFile") [Var 2]]])),Func ("OracleDirectory","prim_removeDirectory") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Directory","prim_removeDirectory") [Var 2]]])),Func ("OracleDirectory","prim_renameFile") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Directory","prim_renameFile") [Var 3,Var 2]]])),Func ("OracleDirectory","prim_renameDirectory") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Directory","prim_renameDirectory") [Var 3,Var 2]]]))] []
+ Curry/Module/OracleDirectory.fint view
@@ -0,0 +1,1 @@+Prog "OracleDirectory" ["CEventOracle","Oracle","IOExts","Directory","Prelude","Time","OraclePrelude","OracleTime"] [] [Func ("OracleDirectory","doesFileExist") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDirectory","prim_doesFileExist") []],Var 2,Var 1]])),Func ("OracleDirectory","doesDirectoryExist") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDirectory","prim_doesDirectoryExist") []],Var 2,Var 1]])),Func ("OracleDirectory","fileSize") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDirectory","prim_fileSize") []],Var 2,Var 1]])),Func ("OracleDirectory","getModificationTime") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Time","ClockTime") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDirectory","prim_getModificationTime") []],Var 2,Var 1]])),Func ("OracleDirectory","setCurrentDirectory") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDirectory","prim_setCurrentDirectory") []],Var 2,Var 1]])),Func ("OracleDirectory","getDirectoryContents") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDirectory","prim_getDirectoryContents") []],Var 2,Var 1]])),Func ("OracleDirectory","createDirectory") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDirectory","prim_createDirectory") []],Var 2,Var 1]])),Func ("OracleDirectory","removeFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDirectory","prim_removeFile") []],Var 2,Var 1]])),Func ("OracleDirectory","removeDirectory") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDirectory","prim_removeDirectory") []],Var 2,Var 1]])),Func ("OracleDirectory","renameFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleDirectory","prim_renameFile") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleDirectory","renameDirectory") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleDirectory","prim_renameDirectory") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleDirectory","prim_doesFileExist") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Directory","prim_doesFileExist") [Var 2]]]])),Func ("OracleDirectory","prim_doesDirectoryExist") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Directory","prim_doesDirectoryExist") [Var 2]]]])),Func ("OracleDirectory","prim_fileSize") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Directory","prim_fileSize") [Var 2]]]])),Func ("OracleDirectory","prim_getModificationTime") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Time","ClockTime") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Directory","prim_getModificationTime") [Var 2]]]])),Func ("OracleDirectory","getCurrentDirectory") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Directory","getCurrentDirectory") []]]])),Func ("OracleDirectory","prim_setCurrentDirectory") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Directory","prim_setCurrentDirectory") [Var 2]]])),Func ("OracleDirectory","prim_getDirectoryContents") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Directory","prim_getDirectoryContents") [Var 2]]]])),Func ("OracleDirectory","prim_createDirectory") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Directory","prim_createDirectory") [Var 2]]])),Func ("OracleDirectory","prim_removeFile") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Directory","prim_removeFile") [Var 2]]])),Func ("OracleDirectory","prim_removeDirectory") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Directory","prim_removeDirectory") [Var 2]]])),Func ("OracleDirectory","prim_renameFile") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Directory","prim_renameFile") [Var 3,Var 2]]])),Func ("OracleDirectory","prim_renameDirectory") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Directory","prim_renameDirectory") [Var 3,Var 2]]]))] []
+ Curry/Module/OracleDistribution.fcy view
@@ -0,0 +1,1 @@+Prog "OracleDistribution" ["CEventOracle","Oracle","IOExts","Distribution","Char","FileGoodies","IO","List","Prelude","PropertyFile","System","Directory","OracleChar","OracleFileGoodies","OracleIO","OracleList","OraclePrelude","OraclePropertyFile","OracleSystem","OracleDirectory"] [] [Func ("OracleDistribution","rcFileName") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleSystem","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","[]") []]]]],Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","++") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '/'),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleDistribution","curryCompiler") [Var 2],Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude","[]") []]],Var 3],Var 4]]],Var 5],Var 6]]))),Func ("OracleDistribution","rcFileContents") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","rcFileName") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePropertyFile","readPropertyFile") []],Var 2]]))),Func ("OracleDistribution","getRcVar") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","getRcVars") [Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","head") []],Var 3],Var 4]]))),Func ("OracleDistribution","getRcVars") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","rcFileContents") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","getRcVars._#lambda2") [Var 2]],Var 3]]))),Func ("OracleDistribution","getRcVars._#lambda2") 3 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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","lookup") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","getRcVars._#lambda2._#lambda3") []],Var 3,Var 1]]],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleChar","toLower") []]]],Var 2,Var 4],Var 5],Var 6]]))),Func ("OracleDistribution","getRcVars._#lambda2._#lambda3") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_25") [Var 2,Var 1]])),Func ("OracleDistribution","currySubdir") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [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 ("OracleDistribution","inCurrySubdir") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OracleFileGoodies","splitDirectoryBaseName") [Var 2,Var 1])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleDistribution","inCurrySubdir._#selFP3#base") [Var 3,Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleDistribution","inCurrySubdir._#selFP4#file") [Var 3,Var 7])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleDistribution","_case_24") [Var 4,Var 8],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleDistribution","currySubdir") [Var 9],Comb ConsCall ("Prelude",":") [Lit (Charc '/'),Var 5],Var 10],Var 11]]))]))]))]))),Func ("OracleDistribution","inCurrySubdir._#selFP3#base") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_21") [Var 2,Var 1]])),Func ("OracleDistribution","inCurrySubdir._#selFP4#file") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_20") [Var 2,Var 1]])),Func ("OracleDistribution","addCurrySubdir") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '/'),Comb FuncCall ("OracleDistribution","currySubdir") [Var 1]],Var 3]]))),Func ("OracleDistribution","getSysLibPath") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleDistribution","_case_19") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleDistribution","curryCompiler") [Var 1],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","[]") []]]]]],Var 2],Var 3]]))),Func ("OracleDistribution","getSysLibPath._#lambda5") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb FuncCall ("OracleDistribution","_case_17") [Var 2,Comb FuncCall ("OraclePrelude","null") [Var 2,Var 1],Var 3],Var 4]]))),Func ("OracleDistribution","lookupFileInLoadPath") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","getLoadPathForFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFileGoodies","lookupFileInPath") [Comb FuncCall ("OracleFileGoodies","baseName") [Var 2,Var 3],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]],Var 4]]))),Func ("OracleDistribution","findFileInLoadPath") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","getLoadPathForFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFileGoodies","getFileInPath") [Comb FuncCall ("OracleFileGoodies","baseName") [Var 2,Var 3],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]],Var 4]]))),Func ("OracleDistribution","readFirstFileInLoadPath") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","findFileInLoadPath") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","readFile") []],Var 3]]))),Func ("OracleDistribution","getLoadPath") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","getLoadPathForFile") [Comb ConsCall ("Prelude",":") [Lit (Charc 'x'),Comb ConsCall ("Prelude",":") [Lit (Charc 'x'),Comb ConsCall ("Prelude",":") [Lit (Charc 'x'),Comb ConsCall ("Prelude","[]") []]]],Var 1]])),Func ("OracleDistribution","getLoadPathForFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","getLoadPathForFile._#lambda6") []],Var 1])] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","getSysLibPath") [Var 4],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","getLoadPathForFile._#lambda7") [Var 3,Var 2]],Var 5]]))]))),Func ("OracleDistribution","getLoadPathForFile._#lambda6") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleDistribution","addCurrySubdir") [Var 2,Var 1],Comb ConsCall ("Prelude","[]") []]]])),Func ("OracleDistribution","getLoadPathForFile._#lambda7") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","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","[]") []]]]]]]]]],Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","getLoadPathForFile._#lambda7._#lambda8") [Var 2,Var 3,Var 4]],Var 5]]))),Func ("OracleDistribution","getLoadPathForFile._#lambda7._#lambda8") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))))))) (Rule [2,3,4,5,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleFileGoodies","dirName") [Var 3,Var 1])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleDistribution","_case_16") [Var 2,Var 4,Var 5,Var 6,Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleDistribution","curryCompiler") [Var 7],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","[]") []]]]]],Var 8],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleDistribution","curryCompiler") [Var 9],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","[]") []]]]],Var 10],Var 11],Var 12]]))]))),Func ("OracleDistribution","getLoadPathForFile._#lambda7._#lambda8._#lambda9") 6 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))))))) (Rule [2,3,4,5,6,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OraclePrelude","maybe") [Comb ConsCall ("Prelude","[]") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFileGoodies","splitPath") []],Var 4,Var 1])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleDistribution","_case_15") [Var 6,Comb FuncCall ("OraclePrelude","null") [Var 6,Var 8],Var 9],Comb FuncCall ("OraclePrelude","++") [Var 7,Var 5,Var 10],Var 11]],Var 12],Var 13]]))]))),Func ("OracleDistribution","defaultParams") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Distribution","FrontendParams") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Distribution","FrontendParams") [Comb ConsCall ("Prelude","False") [],Comb ConsCall ("Prelude","Nothing") [],Comb ConsCall ("Prelude","Nothing") [],Comb ConsCall ("Prelude","Nothing") []]])),Func ("OracleDistribution","setQuiet") 3 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Distribution","FrontendParams") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_14") [Var 2,Var 3,Var 1]])),Func ("OracleDistribution","setFullPath") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Distribution","FrontendParams") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_13") [Var 2,Var 3,Var 1]])),Func ("OracleDistribution","setOutfile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Distribution","FrontendParams") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_12") [Var 2,Var 3,Var 1]])),Func ("OracleDistribution","setLogfile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Distribution","FrontendParams") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_11") [Var 2,Var 3,Var 1]])),Func ("OracleDistribution","quiet") 2 Public (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_10") [Var 2,Var 1]])),Func ("OracleDistribution","fullPath") 2 Public (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_9") [Var 2,Var 1]])),Func ("OracleDistribution","outfile") 2 Public (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_8") [Var 2,Var 1]])),Func ("OracleDistribution","logfile") 2 Public (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_7") [Var 2,Var 1]])),Func ("OracleDistribution","callFrontend") 2 Public (FuncType (TCons ("Distribution","FrontendTarget") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","callFrontendWithParams") [Var 2,Comb FuncCall ("OracleDistribution","defaultParams") [Var 1]]]])),Func ("OracleDistribution","callFrontendWithParams") 4 Public (FuncType (TCons ("Distribution","FrontendTarget") []) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,3,4,1] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]],Let [(5,Comb FuncCall ("OracleDistribution","_case_3") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleDistribution","curryCompiler") [Var 1],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","[]") []]]]]],Var 9],Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleDistribution","_case_4") [Var 3,Var 5,Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleDistribution","_case_5") [Var 5,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]]]]]]],Let [(8,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleDistribution","_case_6") [Var 3,Var 7,Comb FuncCall ("OracleDistribution","quiet") [Var 3,Var 13],Var 14],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","maybe") [Comb ConsCall ("Prelude","[]") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [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 ("OracleDistribution","outfile") [Var 3,Var 15],Var 16],Comb FuncCall ("OraclePrelude","maybe") [Comb ConsCall ("Prelude","[]") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","callFrontendWithParams._#lambda12") []],Comb FuncCall ("OracleDistribution","fullPath") [Var 3,Var 17],Var 18],Var 19],Var 20])] (Comb FuncCall ("CEventOracle","replace") [Var 21,Comb FuncCall ("Oracle",">>=") [Var 6,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","callFrontendWithParams._#lambda13") [Var 3,Var 4,Var 8,Var 2]],Var 21]])]))]))]))]))),Func ("OracleDistribution","callFrontendWithParams._#lambda10") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","getFrontendCall") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","callFrontendWithParams._#lambda10._#lambda11") [Var 2]],Var 3]]))),Func ("OracleDistribution","callFrontendWithParams._#lambda10._#lambda11") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Let [(4,Comb FuncCall ("OraclePrelude","++") [Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude","[]") []]]]]],Var 1],Var 2,Var 5],Var 6])] (Comb FuncCall ("CEventOracle","replace") [Var 7,Comb FuncCall ("OraclePrelude","return") [Var 4,Var 7]])]))),Func ("OracleDistribution","callFrontendWithParams.showFrontendTarget.84") 2 Private (FuncType (TCons ("Distribution","FrontendTarget") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_1") [Var 2,Var 1]])),Func ("OracleDistribution","callFrontendWithParams._#lambda12") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Var 2,Var 1],Var 3],Var 4]]))),Func ("OracleDistribution","callFrontendWithParams._#lambda13") 6 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))))) (Rule [2,3,4,5,6,1] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Let [(7,Comb FuncCall ("OraclePrelude","maybe") [Comb ConsCall ("Prelude","[]") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb FuncCall ("OracleDistribution","logfile") [Var 2,Var 1],Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]]]],Let [(8,Comb FuncCall ("OraclePrelude","++") [Var 6,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleDistribution","callFrontendWithParams.showFrontendTarget.84") [Var 5,Var 10],Comb FuncCall ("OraclePrelude","++") [Var 4,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 3,Var 11],Var 12],Var 13],Var 14],Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleDistribution","_case_0") [Var 7,Var 8,Comb FuncCall ("OraclePrelude","null") [Var 7,Var 16],Var 17],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","()") [],Var 18],Var 19]]))]))]))),Func ("OracleDistribution","rcErr") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleIO","hPutStrLn") [Comb FuncCall ("OracleIO","stderr") [Var 1],Comb FuncCall ("OraclePrelude","++") [Var 2,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","[]") []]]]]]]]]]]]]]]]]]]]]],Var 4],Var 5],Comb FuncCall ("OraclePrelude","return") [Var 3,Var 6],Var 7]]))),Func ("OracleDistribution","_case_0") 4 Private (TVar (-42)) (Rule [7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSystem","system") [Var 8,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleSystem","system") [Comb FuncCall ("OraclePrelude","++") [Var 8,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '>'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Var 7,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","[]") []]]]]],Var 1],Var 10],Var 11],Var 12]]))]])),Func ("OracleDistribution","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Distribution","FCY") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleDistribution","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude","False") []) (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleDistribution","_case_2") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleDistribution","curryCompiler") [Var 1],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","[]") []]]]],Var 3],Var 4]]))]])),Func ("OracleDistribution","_case_2") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleDistribution","_case_4") 3 Private (TVar (-42)) (Rule [3,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleDistribution","installDir") [Var 1],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","[]") []]]]]]]]]]]]]]]],Var 6],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OracleDistribution","getLoadPath") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb FuncCall ("OracleDistribution","fullPath") [Var 3,Var 8],Var 9],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","callFrontendWithParams._#lambda10") []],Var 10]]))]])),Func ("OracleDistribution","_case_5") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])]])),Func ("OracleDistribution","_case_6") 4 Private (TVar (-42)) (Rule [3,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleDistribution","_case_7") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Distribution","FrontendParams") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleDistribution","_case_8") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Distribution","FrontendParams") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleDistribution","_case_9") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Distribution","FrontendParams") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleDistribution","_case_10") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Distribution","FrontendParams") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleDistribution","_case_11") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Distribution","FrontendParams") [4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Distribution","FrontendParams") [Var 4,Var 5,Var 6,Comb ConsCall ("Prelude","Just") [Var 2]]])]])),Func ("OracleDistribution","_case_12") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Distribution","FrontendParams") [4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Distribution","FrontendParams") [Var 4,Var 5,Comb ConsCall ("Prelude","Just") [Var 2],Var 7]])]])),Func ("OracleDistribution","_case_13") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Distribution","FrontendParams") [4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Distribution","FrontendParams") [Var 4,Comb ConsCall ("Prelude","Just") [Var 2],Var 6,Var 7]])]])),Func ("OracleDistribution","_case_14") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Distribution","FrontendParams") [4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Distribution","FrontendParams") [Var 2,Var 5,Var 6,Var 7]])]])),Func ("OracleDistribution","_case_15") 3 Private (TVar (-42)) (Rule [6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","splitPath") [Var 6,Var 1]])]])),Func ("OracleDistribution","_case_16") 6 Private (TVar (-42)) (Rule [2,4,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleSystem","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","[]") []]]]]]]]]],Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","getLoadPathForFile._#lambda7._#lambda8._#lambda9") [Var 2,Var 6,Var 5,Var 4]],Var 8]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleDistribution","_case_17") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleDistribution","installDir") [Var 1],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","[]") []]]]],Var 4],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleDistribution","installDir") [Var 5],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","[]") []]]]]]]]]],Var 6],Comb ConsCall ("Prelude","[]") []]]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","splitPath") [Var 2,Var 1]])]])),Func ("OracleDistribution","_case_19") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleSystem","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","[]") []]]]]]]]]]]]],Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","getSysLibPath._#lambda5") []],Var 3]])),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleDistribution","_case_18") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleDistribution","curryCompiler") [Var 1],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","[]") []]]]],Var 4],Var 5]]))]])),Func ("OracleDistribution","_case_18") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","getStdLibDir") [Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("Prelude",":") []],Comb ConsCall ("Prelude","[]") []]],Var 3],Var 4]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleDistribution","_case_20") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleDistribution","_case_21") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleDistribution","_case_24") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude",":") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleDistribution","_case_23") [Var 4,Var 6,Var 7,Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '.'),Var 1],Var 8]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","++") [Var 4,Comb ConsCall ("Prelude",":") [Lit (Charc '/'),Comb ConsCall ("Prelude","[]") []],Var 1]])]])),Func ("OracleDistribution","_case_23") 5 Private (TVar (-42)) (Rule [4,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_22") [Var 4,Var 7,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","++") [Var 4,Comb ConsCall ("Prelude",":") [Lit (Charc '/'),Comb ConsCall ("Prelude","[]") []],Var 1]])]])),Func ("OracleDistribution","_case_22") 3 Private (TVar (-42)) (Rule [4,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","++") [Var 4,Comb ConsCall ("Prelude",":") [Lit (Charc '/'),Comb ConsCall ("Prelude","[]") []],Var 1]])]])),Func ("OracleDistribution","_case_25") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleChar","toLower") []],Var 3,Var 1],Var 4]])]])),Func ("OracleDistribution","curryCompiler") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Distribution","curryCompiler") []])),Func ("OracleDistribution","curryCompilerMajorVersion") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Distribution","curryCompilerMajorVersion") []])),Func ("OracleDistribution","curryCompilerMinorVersion") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Distribution","curryCompilerMinorVersion") []])),Func ("OracleDistribution","curryRuntime") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Distribution","curryRuntime") []])),Func ("OracleDistribution","curryRuntimeMajorVersion") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Distribution","curryRuntimeMajorVersion") []])),Func ("OracleDistribution","curryRuntimeMinorVersion") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Distribution","curryRuntimeMinorVersion") []])),Func ("OracleDistribution","getStdLibDir") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Distribution","getStdLibDir") []]]])),Func ("OracleDistribution","getFrontendCall") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Distribution","getFrontendCall") []]]])),Func ("OracleDistribution","installDir") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Distribution","installDir") []]))] []
+ Curry/Module/OracleDistribution.fint view
@@ -0,0 +1,1 @@+Prog "OracleDistribution" ["CEventOracle","Oracle","IOExts","Distribution","Char","FileGoodies","IO","List","Prelude","PropertyFile","System","Directory","OracleChar","OracleFileGoodies","OracleIO","OracleList","OraclePrelude","OraclePropertyFile","OracleSystem","OracleDirectory"] [] [Func ("OracleDistribution","rcFileName") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleSystem","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","[]") []]]]],Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","++") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '/'),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleDistribution","curryCompiler") [Var 2],Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude","[]") []]],Var 3],Var 4]]],Var 5],Var 6]]))),Func ("OracleDistribution","rcFileContents") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","rcFileName") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePropertyFile","readPropertyFile") []],Var 2]]))),Func ("OracleDistribution","getRcVar") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","getRcVars") [Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","head") []],Var 3],Var 4]]))),Func ("OracleDistribution","getRcVars") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","rcFileContents") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","getRcVars._#lambda2") [Var 2]],Var 3]]))),Func ("OracleDistribution","getRcVars._#lambda2") 3 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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","lookup") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","getRcVars._#lambda2._#lambda3") []],Var 3,Var 1]]],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleChar","toLower") []]]],Var 2,Var 4],Var 5],Var 6]]))),Func ("OracleDistribution","getRcVars._#lambda2._#lambda3") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_25") [Var 2,Var 1]])),Func ("OracleDistribution","currySubdir") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [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 ("OracleDistribution","inCurrySubdir") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OracleFileGoodies","splitDirectoryBaseName") [Var 2,Var 1])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleDistribution","inCurrySubdir._#selFP3#base") [Var 3,Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleDistribution","inCurrySubdir._#selFP4#file") [Var 3,Var 7])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleDistribution","_case_24") [Var 4,Var 8],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleDistribution","currySubdir") [Var 9],Comb ConsCall ("Prelude",":") [Lit (Charc '/'),Var 5],Var 10],Var 11]]))]))]))]))),Func ("OracleDistribution","inCurrySubdir._#selFP3#base") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_21") [Var 2,Var 1]])),Func ("OracleDistribution","inCurrySubdir._#selFP4#file") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_20") [Var 2,Var 1]])),Func ("OracleDistribution","addCurrySubdir") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '/'),Comb FuncCall ("OracleDistribution","currySubdir") [Var 1]],Var 3]]))),Func ("OracleDistribution","getSysLibPath") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleDistribution","_case_19") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleDistribution","curryCompiler") [Var 1],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","[]") []]]]]],Var 2],Var 3]]))),Func ("OracleDistribution","getSysLibPath._#lambda5") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb FuncCall ("OracleDistribution","_case_17") [Var 2,Comb FuncCall ("OraclePrelude","null") [Var 2,Var 1],Var 3],Var 4]]))),Func ("OracleDistribution","lookupFileInLoadPath") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","getLoadPathForFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFileGoodies","lookupFileInPath") [Comb FuncCall ("OracleFileGoodies","baseName") [Var 2,Var 3],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]],Var 4]]))),Func ("OracleDistribution","findFileInLoadPath") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","getLoadPathForFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFileGoodies","getFileInPath") [Comb FuncCall ("OracleFileGoodies","baseName") [Var 2,Var 3],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]],Var 4]]))),Func ("OracleDistribution","readFirstFileInLoadPath") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","findFileInLoadPath") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","readFile") []],Var 3]]))),Func ("OracleDistribution","getLoadPath") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","getLoadPathForFile") [Comb ConsCall ("Prelude",":") [Lit (Charc 'x'),Comb ConsCall ("Prelude",":") [Lit (Charc 'x'),Comb ConsCall ("Prelude",":") [Lit (Charc 'x'),Comb ConsCall ("Prelude","[]") []]]],Var 1]])),Func ("OracleDistribution","getLoadPathForFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","getLoadPathForFile._#lambda6") []],Var 1])] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","getSysLibPath") [Var 4],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","getLoadPathForFile._#lambda7") [Var 3,Var 2]],Var 5]]))]))),Func ("OracleDistribution","getLoadPathForFile._#lambda6") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleDistribution","addCurrySubdir") [Var 2,Var 1],Comb ConsCall ("Prelude","[]") []]]])),Func ("OracleDistribution","getLoadPathForFile._#lambda7") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","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","[]") []]]]]]]]]],Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","getLoadPathForFile._#lambda7._#lambda8") [Var 2,Var 3,Var 4]],Var 5]]))),Func ("OracleDistribution","getLoadPathForFile._#lambda7._#lambda8") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))))))) (Rule [2,3,4,5,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleFileGoodies","dirName") [Var 3,Var 1])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleDistribution","_case_16") [Var 2,Var 4,Var 5,Var 6,Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleDistribution","curryCompiler") [Var 7],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","[]") []]]]]],Var 8],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleDistribution","curryCompiler") [Var 9],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","[]") []]]]],Var 10],Var 11],Var 12]]))]))),Func ("OracleDistribution","getLoadPathForFile._#lambda7._#lambda8._#lambda9") 6 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))))))) (Rule [2,3,4,5,6,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OraclePrelude","maybe") [Comb ConsCall ("Prelude","[]") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFileGoodies","splitPath") []],Var 4,Var 1])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleDistribution","_case_15") [Var 6,Comb FuncCall ("OraclePrelude","null") [Var 6,Var 8],Var 9],Comb FuncCall ("OraclePrelude","++") [Var 7,Var 5,Var 10],Var 11]],Var 12],Var 13]]))]))),Func ("OracleDistribution","defaultParams") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Distribution","FrontendParams") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Distribution","FrontendParams") [Comb ConsCall ("Prelude","False") [],Comb ConsCall ("Prelude","Nothing") [],Comb ConsCall ("Prelude","Nothing") [],Comb ConsCall ("Prelude","Nothing") []]])),Func ("OracleDistribution","setQuiet") 3 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Distribution","FrontendParams") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_14") [Var 2,Var 3,Var 1]])),Func ("OracleDistribution","setFullPath") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Distribution","FrontendParams") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_13") [Var 2,Var 3,Var 1]])),Func ("OracleDistribution","setOutfile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Distribution","FrontendParams") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_12") [Var 2,Var 3,Var 1]])),Func ("OracleDistribution","setLogfile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Distribution","FrontendParams") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_11") [Var 2,Var 3,Var 1]])),Func ("OracleDistribution","quiet") 2 Public (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_10") [Var 2,Var 1]])),Func ("OracleDistribution","fullPath") 2 Public (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_9") [Var 2,Var 1]])),Func ("OracleDistribution","outfile") 2 Public (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_8") [Var 2,Var 1]])),Func ("OracleDistribution","logfile") 2 Public (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_7") [Var 2,Var 1]])),Func ("OracleDistribution","callFrontend") 2 Public (FuncType (TCons ("Distribution","FrontendTarget") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","callFrontendWithParams") [Var 2,Comb FuncCall ("OracleDistribution","defaultParams") [Var 1]]]])),Func ("OracleDistribution","callFrontendWithParams") 4 Public (FuncType (TCons ("Distribution","FrontendTarget") []) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,3,4,1] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]],Let [(5,Comb FuncCall ("OracleDistribution","_case_3") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleDistribution","curryCompiler") [Var 1],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","[]") []]]]]],Var 9],Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleDistribution","_case_4") [Var 3,Var 5,Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleDistribution","_case_5") [Var 5,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]]]]]]],Let [(8,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleDistribution","_case_6") [Var 3,Var 7,Comb FuncCall ("OracleDistribution","quiet") [Var 3,Var 13],Var 14],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","maybe") [Comb ConsCall ("Prelude","[]") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [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 ("OracleDistribution","outfile") [Var 3,Var 15],Var 16],Comb FuncCall ("OraclePrelude","maybe") [Comb ConsCall ("Prelude","[]") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","callFrontendWithParams._#lambda12") []],Comb FuncCall ("OracleDistribution","fullPath") [Var 3,Var 17],Var 18],Var 19],Var 20])] (Comb FuncCall ("CEventOracle","replace") [Var 21,Comb FuncCall ("Oracle",">>=") [Var 6,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","callFrontendWithParams._#lambda13") [Var 3,Var 4,Var 8,Var 2]],Var 21]])]))]))]))]))),Func ("OracleDistribution","callFrontendWithParams._#lambda10") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","getFrontendCall") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","callFrontendWithParams._#lambda10._#lambda11") [Var 2]],Var 3]]))),Func ("OracleDistribution","callFrontendWithParams._#lambda10._#lambda11") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Let [(4,Comb FuncCall ("OraclePrelude","++") [Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude","[]") []]]]]],Var 1],Var 2,Var 5],Var 6])] (Comb FuncCall ("CEventOracle","replace") [Var 7,Comb FuncCall ("OraclePrelude","return") [Var 4,Var 7]])]))),Func ("OracleDistribution","callFrontendWithParams.showFrontendTarget.84") 2 Private (FuncType (TCons ("Distribution","FrontendTarget") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_1") [Var 2,Var 1]])),Func ("OracleDistribution","callFrontendWithParams._#lambda12") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Var 2,Var 1],Var 3],Var 4]]))),Func ("OracleDistribution","callFrontendWithParams._#lambda13") 6 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))))) (Rule [2,3,4,5,6,1] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Let [(7,Comb FuncCall ("OraclePrelude","maybe") [Comb ConsCall ("Prelude","[]") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb FuncCall ("OracleDistribution","logfile") [Var 2,Var 1],Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]]]],Let [(8,Comb FuncCall ("OraclePrelude","++") [Var 6,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleDistribution","callFrontendWithParams.showFrontendTarget.84") [Var 5,Var 10],Comb FuncCall ("OraclePrelude","++") [Var 4,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 3,Var 11],Var 12],Var 13],Var 14],Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleDistribution","_case_0") [Var 7,Var 8,Comb FuncCall ("OraclePrelude","null") [Var 7,Var 16],Var 17],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","()") [],Var 18],Var 19]]))]))]))),Func ("OracleDistribution","rcErr") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleIO","hPutStrLn") [Comb FuncCall ("OracleIO","stderr") [Var 1],Comb FuncCall ("OraclePrelude","++") [Var 2,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","[]") []]]]]]]]]]]]]]]]]]]]]],Var 4],Var 5],Comb FuncCall ("OraclePrelude","return") [Var 3,Var 6],Var 7]]))),Func ("OracleDistribution","_case_0") 4 Private (TVar (-42)) (Rule [7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSystem","system") [Var 8,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleSystem","system") [Comb FuncCall ("OraclePrelude","++") [Var 8,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '>'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Var 7,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","[]") []]]]]],Var 1],Var 10],Var 11],Var 12]]))]])),Func ("OracleDistribution","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Distribution","FCY") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleDistribution","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude","False") []) (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleDistribution","_case_2") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleDistribution","curryCompiler") [Var 1],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","[]") []]]]],Var 3],Var 4]]))]])),Func ("OracleDistribution","_case_2") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleDistribution","_case_4") 3 Private (TVar (-42)) (Rule [3,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleDistribution","installDir") [Var 1],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","[]") []]]]]]]]]]]]]]]],Var 6],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OracleDistribution","getLoadPath") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb FuncCall ("OracleDistribution","fullPath") [Var 3,Var 8],Var 9],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","callFrontendWithParams._#lambda10") []],Var 10]]))]])),Func ("OracleDistribution","_case_5") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])]])),Func ("OracleDistribution","_case_6") 4 Private (TVar (-42)) (Rule [3,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleDistribution","_case_7") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Distribution","FrontendParams") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleDistribution","_case_8") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Distribution","FrontendParams") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleDistribution","_case_9") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Distribution","FrontendParams") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleDistribution","_case_10") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Distribution","FrontendParams") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleDistribution","_case_11") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Distribution","FrontendParams") [4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Distribution","FrontendParams") [Var 4,Var 5,Var 6,Comb ConsCall ("Prelude","Just") [Var 2]]])]])),Func ("OracleDistribution","_case_12") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Distribution","FrontendParams") [4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Distribution","FrontendParams") [Var 4,Var 5,Comb ConsCall ("Prelude","Just") [Var 2],Var 7]])]])),Func ("OracleDistribution","_case_13") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Distribution","FrontendParams") [4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Distribution","FrontendParams") [Var 4,Comb ConsCall ("Prelude","Just") [Var 2],Var 6,Var 7]])]])),Func ("OracleDistribution","_case_14") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Distribution","FrontendParams") [4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Distribution","FrontendParams") [Var 2,Var 5,Var 6,Var 7]])]])),Func ("OracleDistribution","_case_15") 3 Private (TVar (-42)) (Rule [6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","splitPath") [Var 6,Var 1]])]])),Func ("OracleDistribution","_case_16") 6 Private (TVar (-42)) (Rule [2,4,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleSystem","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","[]") []]]]]]]]]],Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","getLoadPathForFile._#lambda7._#lambda8._#lambda9") [Var 2,Var 6,Var 5,Var 4]],Var 8]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleDistribution","_case_17") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleDistribution","installDir") [Var 1],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","[]") []]]]],Var 4],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleDistribution","installDir") [Var 5],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","[]") []]]]]]]]]],Var 6],Comb ConsCall ("Prelude","[]") []]]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","splitPath") [Var 2,Var 1]])]])),Func ("OracleDistribution","_case_19") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleSystem","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","[]") []]]]]]]]]]]]],Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleDistribution","getSysLibPath._#lambda5") []],Var 3]])),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleDistribution","_case_18") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleDistribution","curryCompiler") [Var 1],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","[]") []]]]],Var 4],Var 5]]))]])),Func ("OracleDistribution","_case_18") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","getStdLibDir") [Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("Prelude",":") []],Comb ConsCall ("Prelude","[]") []]],Var 3],Var 4]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleDistribution","_case_20") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleDistribution","_case_21") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleDistribution","_case_24") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude",":") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleDistribution","_case_23") [Var 4,Var 6,Var 7,Comb FuncCall ("OraclePrelude","==") [Var 6,Lit (Charc '.'),Var 1],Var 8]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","++") [Var 4,Comb ConsCall ("Prelude",":") [Lit (Charc '/'),Comb ConsCall ("Prelude","[]") []],Var 1]])]])),Func ("OracleDistribution","_case_23") 5 Private (TVar (-42)) (Rule [4,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","_case_22") [Var 4,Var 7,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","++") [Var 4,Comb ConsCall ("Prelude",":") [Lit (Charc '/'),Comb ConsCall ("Prelude","[]") []],Var 1]])]])),Func ("OracleDistribution","_case_22") 3 Private (TVar (-42)) (Rule [4,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","++") [Var 4,Comb ConsCall ("Prelude",":") [Lit (Charc '/'),Comb ConsCall ("Prelude","[]") []],Var 1]])]])),Func ("OracleDistribution","_case_25") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleChar","toLower") []],Var 3,Var 1],Var 4]])]])),Func ("OracleDistribution","curryCompiler") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Distribution","curryCompiler") []])),Func ("OracleDistribution","curryCompilerMajorVersion") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Distribution","curryCompilerMajorVersion") []])),Func ("OracleDistribution","curryCompilerMinorVersion") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Distribution","curryCompilerMinorVersion") []])),Func ("OracleDistribution","curryRuntime") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Distribution","curryRuntime") []])),Func ("OracleDistribution","curryRuntimeMajorVersion") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Distribution","curryRuntimeMajorVersion") []])),Func ("OracleDistribution","curryRuntimeMinorVersion") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Distribution","curryRuntimeMinorVersion") []])),Func ("OracleDistribution","getStdLibDir") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Distribution","getStdLibDir") []]]])),Func ("OracleDistribution","getFrontendCall") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Distribution","getFrontendCall") []]]])),Func ("OracleDistribution","installDir") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Distribution","installDir") []]))] []
+ Curry/Module/OracleEasyCheck.fcy view
@@ -0,0 +1,1 @@+Prog "OracleEasyCheck" ["CEventOracle","Oracle","IOExts","EasyCheck","Integer","List","Meta","Prelude","RandomExternal","Sort","Read","OracleInteger","OracleList","OracleMeta","OraclePrelude","OracleRandomExternal","OracleSort","OracleRead"] [Type ("OracleEasyCheck","Config") Private [] [Cons ("OracleEasyCheck","Config") 3 Private [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))]]] [Func ("OracleEasyCheck","notest") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("EasyCheck","Test") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("EasyCheck","Test") [Comb ConsCall ("EasyCheck","Undef") [],Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]])),Func ("OracleEasyCheck","result") 2 Public (FuncType (TCons ("EasyCheck","Test") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("EasyCheck","Result") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_66") [Var 2,Var 1]])),Func ("OracleEasyCheck","setResult") 3 Private (FuncType (TCons ("EasyCheck","Result") []) (FuncType (TCons ("EasyCheck","Test") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("EasyCheck","Test") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_65") [Var 2,Var 3,Var 1]])),Func ("OracleEasyCheck","args") 2 Private (FuncType (TCons ("EasyCheck","Test") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_64") [Var 2,Var 1]])),Func ("OracleEasyCheck","stamp") 2 Private (FuncType (TCons ("EasyCheck","Test") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_63") [Var 2,Var 1]])),Func ("OracleEasyCheck","updArgs") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (FuncType (TCons ("EasyCheck","Test") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("EasyCheck","Test") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_62") [Var 2,Var 3,Var 1]])),Func ("OracleEasyCheck","updStamp") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (FuncType (TCons ("EasyCheck","Test") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("EasyCheck","Test") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_61") [Var 2,Var 3,Var 1]])),Func ("OracleEasyCheck","test") 3 Public (FuncType (TVar 0) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [2,3,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Let [(4,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleEasyCheck","valuesOf") [Var 1],Var 2,Var 7])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]],Let [(5,Let [(6,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleEasyCheck","valuesOf") [Var 8],Comb FuncCall ("Oracle","apply") [Var 3,Var 4,Var 9],Var 10])] (Comb FuncCall ("CEventOracle","replace") [Var 11,Comb FuncCall ("OracleEasyCheck","_case_60") [Var 4,Var 6,Var 11]]))] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleEasyCheck","setResult") [Var 5,Comb FuncCall ("OracleEasyCheck","notest") [Var 12],Var 13],Comb ConsCall ("Prelude","[]") []]]))]))]))),Func ("OracleEasyCheck","is") 3 Public (FuncType (TVar 0) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","test") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","is._#lambda3") [Var 3]],Var 1]])),Func ("OracleEasyCheck","is._#lambda3") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 220) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TVar 220]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_56") [Var 2,Var 3,Var 1]])),Func ("OracleEasyCheck","isAlways") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","test") [Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","all") []],Var 1]])),Func ("OracleEasyCheck","isEventually") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","test") [Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","any") []],Var 1]])),Func ("OracleEasyCheck","prop") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","uniquely") [Var 1]])),Func ("OracleEasyCheck","uniquely") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","is") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleEasyCheck","always") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","isAlways") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleEasyCheck","eventually") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","isEventually") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleEasyCheck","failing") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","test") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","null") []],Var 1]])),Func ("OracleEasyCheck","successful") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","test") [Var 2,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","not") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","null") []],Var 1],Var 3]]))),Func ("OracleEasyCheck","deterministic") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","is") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","const") [Comb ConsCall ("Prelude","True") []]],Var 1]])),Func ("OracleEasyCheck","#") 3 Public (FuncType (TVar 0) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleEasyCheck","test") [Var 2,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","==") [Var 3]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","length") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleList","nub") []],Var 1],Var 4],Var 5]]))),Func ("OracleEasyCheck","-=-") 3 Public (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","is") [Comb ConsCall ("Prelude","(,)") [Var 2,Var 3],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","uncurry") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []]]],Var 1]])),Func ("OracleEasyCheck","<~>") 3 Public (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleEasyCheck","test") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","isSameSet") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleEasyCheck","valuesOf") [Var 1],Var 3,Var 4]]],Var 5]]))),Func ("OracleEasyCheck","~>") 3 Public (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleEasyCheck","test") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","isSubsetOf") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleEasyCheck","valuesOf") [Var 1],Var 3,Var 4]]],Var 5]]))),Func ("OracleEasyCheck","<~") 3 Public (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleEasyCheck","test") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","isSubsetOf") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleEasyCheck","valuesOf") [Var 1],Var 3,Var 4]]],Var 5]]))),Func ("OracleEasyCheck","isSameSet") 3 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleList","nub") [Var 2,Var 1])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleList","nub") [Var 3,Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleEasyCheck","subset") [Var 4,Var 5,Var 7],Comb FuncCall ("OracleEasyCheck","subset") [Var 5,Var 4,Var 8],Var 9]]))]))]))),Func ("OracleEasyCheck","isSubsetOf") 3 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","subset") [Comb FuncCall ("OracleList","nub") [Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleEasyCheck","subset") 3 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","null") [Comb FuncCall ("OracleList","\\\\") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OracleEasyCheck","==>") 3 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_54") [Var 3,Var 2,Var 1]])),Func ("OracleEasyCheck","forAll") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))) (FuncType (TVar 1) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 0))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleEasyCheck","forAllValues") [Var 2,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleEasyCheck","valuesOf") [Var 1],Var 3,Var 5],Var 4,Var 6]]))),Func ("OracleEasyCheck","forAllValues") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))) (FuncType (TCons ("Prelude","[]") [TVar 1]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 0))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleEasyCheck","diagonal") [Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","forAllValues._#lambda5") [Var 2,Var 4]],Var 3,Var 5],Var 6]]))),Func ("OracleEasyCheck","forAllValues._#lambda5") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 330) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 327) (TVar 330))) (FuncType (TVar 327) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","forAllValues._#lambda5._#lambda6") [Var 4]],Comb FuncCall ("Oracle","apply") [Var 2,Comb FuncCall ("Oracle","apply") [Var 3,Var 4,Var 1],Var 5],Var 6]]))),Func ("OracleEasyCheck","forAllValues._#lambda5._#lambda6") 3 Private (FuncType (TVar 327) (FuncType (TCons ("EasyCheck","Test") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("EasyCheck","Test") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","updArgs") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude",":") [Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1]]],Var 3,Var 4]]))),Func ("OracleEasyCheck","for") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","forAll") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleEasyCheck","forValues") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","forAllValues") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleEasyCheck","label") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","map") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","updStamp") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("Prelude",":") []],Var 1],Var 2]]))),Func ("OracleEasyCheck","classify") 3 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_53") [Var 3,Var 2,Var 1]])),Func ("OracleEasyCheck","trivial") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","classify") []],Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'v'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]])),Func ("OracleEasyCheck","collect") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","label") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 2]]))),Func ("OracleEasyCheck","collectAs") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","label") [Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Var 3]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 4],Var 5]]))),Func ("OracleEasyCheck","maxTest") 2 Private (FuncType (TCons ("OracleEasyCheck","Config") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_52") [Var 2,Var 1]])),Func ("OracleEasyCheck","maxFail") 2 Private (FuncType (TCons ("OracleEasyCheck","Config") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_51") [Var 2,Var 1]])),Func ("OracleEasyCheck","every") 2 Private (FuncType (TCons ("OracleEasyCheck","Config") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_50") [Var 2,Var 1]])),Func ("OracleEasyCheck","setEvery") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("OracleEasyCheck","Config") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleEasyCheck","Config") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_49") [Var 2,Var 3,Var 1]])),Func ("OracleEasyCheck","easy") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleEasyCheck","Config") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OracleEasyCheck","Config") [Lit (Intc 100),Lit (Intc 1000),Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","easy._#lambda7") []]]])),Func ("OracleEasyCheck","easy._#lambda7") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Let [(4,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb FuncCall ("OraclePrelude","show") [Comb FuncCall ("OraclePrelude","+") [Var 2,Lit (Intc 1),Var 1],Var 5]])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 4,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","easy._#lambda7._#lambda8") []],Var 4,Var 6],Var 7]]))]))),Func ("OracleEasyCheck","easy._#lambda7._#lambda8") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 8),Var 1]])),Func ("OracleEasyCheck","verbose") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleEasyCheck","Config") [])) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","setEvery") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","verbose._#lambda9") []],Comb FuncCall ("OracleEasyCheck","easy") [Var 1],Var 2]]))),Func ("OracleEasyCheck","verbose._#lambda9") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","unlines") [Var 3,Var 4],Var 5],Var 6]]))),Func ("OracleEasyCheck","easyCheck") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","check") [Comb FuncCall ("OracleEasyCheck","easy") [Var 1]]]])),Func ("OracleEasyCheck","verboseCheck") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","check") [Comb FuncCall ("OracleEasyCheck","verbose") [Var 1]]]])),Func ("OracleEasyCheck","suc") 2 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 0))) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","forAll") [Var 2,Comb FuncCall ("OraclePrelude","unknown") [Var 1]]]])),Func ("OracleEasyCheck","easyCheck1") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","easyCheck") [Var 1],Comb FuncCall ("OracleEasyCheck","suc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2],Var 3]]))),Func ("OracleEasyCheck","easyCheck2") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","easyCheck") [Var 1],Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2],Var 3],Var 4]]))),Func ("OracleEasyCheck","easyCheck3") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","easyCheck") [Var 1],Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2],Var 3],Var 4],Var 5]]))),Func ("OracleEasyCheck","easyCheck4") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 3) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","easyCheck") [Var 1],Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2],Var 3],Var 4],Var 5],Var 6]]))),Func ("OracleEasyCheck","easyCheck5") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 3) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 4) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","easyCheck") [Var 1],Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2],Var 3],Var 4],Var 5],Var 6],Var 7]]))),Func ("OracleEasyCheck","verboseCheck1") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","verboseCheck") [Var 1],Comb FuncCall ("OracleEasyCheck","suc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2],Var 3]]))),Func ("OracleEasyCheck","verboseCheck2") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","verboseCheck") [Var 1],Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2],Var 3],Var 4]]))),Func ("OracleEasyCheck","verboseCheck3") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","verboseCheck") [Var 1],Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2],Var 3],Var 4],Var 5]]))),Func ("OracleEasyCheck","verboseCheck4") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 3) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","verboseCheck") [Var 1],Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2],Var 3],Var 4],Var 5],Var 6]]))),Func ("OracleEasyCheck","verboseCheck5") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 3) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 4) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","verboseCheck") [Var 1],Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2],Var 3],Var 4],Var 5],Var 6],Var 7]]))),Func ("OracleEasyCheck","check") 3 Private (FuncType (TCons ("OracleEasyCheck","Config") []) (FuncType (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleEasyCheck","evalModeIsOrBased") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","check._#lambda10") [Var 2,Var 3]],Var 4]]))),Func ("OracleEasyCheck","check._#lambda10") 4 Private (FuncType (TCons ("OracleEasyCheck","Config") []) (FuncType (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_48") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleEasyCheck","tests") 6 Private (FuncType (TCons ("OracleEasyCheck","Config") []) (FuncType (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_47") [Var 2,Var 4,Var 5,Var 6,Var 3,Var 1]])),Func ("OracleEasyCheck","nth") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","_case_38") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 1),Var 1],Var 3]]))),Func ("OracleEasyCheck","done") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,3,4,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]],Let [(5,Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","done.display.199") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","done.entry.199") [Var 3]]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePrelude","reverse") [Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSort","mergeSort") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","leqPair") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","<=") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSort","leqList") [Comb FuncCall ("OracleSort","leqString") [Var 6]]]]]]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","done.pairLength.199") []]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleList","group") [Var 7],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSort","mergeSort") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSort","leqList") [Comb FuncCall ("OracleSort","leqString") [Var 8]]]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","not") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","null") []],Var 9]]],Var 10],Var 11],Var 12],Var 13],Var 14],Var 15],Var 16],Var 4,Var 17])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","putStr") []],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 18],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleEasyCheck","_case_35") [Var 3,Comb FuncCall ("OraclePrelude",">=") [Var 3,Lit (Intc 2),Var 19],Var 20],Var 5,Var 21],Var 22],Var 23],Var 24],Var 25],Var 26]]))]))),Func ("OracleEasyCheck","done.display.199") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_34") [Var 2,Var 1]])),Func ("OracleEasyCheck","done.pairLength.199") 2 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_32") [Var 2,Var 1]])),Func ("OracleEasyCheck","done.percentage.199") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Let [(4,Comb FuncCall ("OraclePrelude","show") [Comb FuncCall ("OraclePrelude","div") [Comb FuncCall ("OraclePrelude","*") [Lit (Intc 100),Var 2,Var 1],Var 3,Var 5],Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","replicate") [Comb FuncCall ("OraclePrelude","-") [Lit (Intc 3),Comb FuncCall ("OraclePrelude","length") [Var 4,Var 7],Var 8],Lit (Charc ' '),Var 9],Comb FuncCall ("OraclePrelude","++") [Var 4,Comb ConsCall ("Prelude",":") [Lit (Charc '%'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11]]))]))),Func ("OracleEasyCheck","done.entry.199") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_31") [Var 2,Var 3,Var 1]])),Func ("OracleEasyCheck","leqPair") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 1]) (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_30") [Var 2,Var 3,Var 5,Var 4,Var 1]])),Func ("OracleEasyCheck","leList") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_26") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleEasyCheck","valuesOf") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TVar 0])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","rndLevelDiagFlat") [Lit (Intc 3),Lit (Intc 2008)]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMeta","searchTree") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]],Var 1],Var 2]]))),Func ("OracleEasyCheck","rndLevelDiag") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","SearchTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","rndLevelDiag._#lambda15") []],Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleEasyCheck","diagonal") [Var 1],Comb FuncCall ("OracleEasyCheck","rndLevels") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Var 4],Var 5],Var 6]]))),Func ("OracleEasyCheck","rndLevelDiag._#lambda15") 3 Private (FuncType (TCons ("Prelude","SearchTree") [TVar 119]) (FuncType (TCons ("Prelude","[]") [TVar 119]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 119])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_23") [Var 3,Var 2,Var 1]])),Func ("OracleEasyCheck","rndLevels") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 0]]])))) (Rule [2,3,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleRandomExternal","split") [Var 2,Var 1])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleEasyCheck","rndLevels._#selFP3#r") [Var 4,Var 7])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleEasyCheck","rndLevels._#selFP4#rs") [Var 4,Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","_case_22") [Var 3,Var 5,Var 6,Comb FuncCall ("OraclePrelude","null") [Var 3,Var 9],Var 10]]))]))]))]))),Func ("OracleEasyCheck","rndLevels._#selFP3#r") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_21") [Var 2,Var 1]])),Func ("OracleEasyCheck","rndLevels._#selFP4#rs") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_20") [Var 2,Var 1]])),Func ("OracleEasyCheck","rndLevels._#lambda19") 3 Private (FuncType (TCons ("Prelude","SearchTree") [TVar 68]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 68]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 68]]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_19") [Var 3,Var 2,Var 1]])),Func ("OracleEasyCheck","rndLevelDiagFlat") 4 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","SearchTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))))) (Rule [2,3,4,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleRandomExternal","split") [Var 3,Var 1])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","concat") []],Comb FuncCall ("OracleEasyCheck","transpose") [Comb FuncCall ("OraclePrelude","zipWith") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","rndLevelDiag") []],Var 5,Comb FuncCall ("OracleEasyCheck","flatRep") [Var 2,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Var 6],Var 7],Var 8],Var 9]]))]))),Func ("OracleEasyCheck","flat") 2 Private (FuncType (TCons ("Prelude","SearchTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 0]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_18") [Var 2,Var 1]])),Func ("OracleEasyCheck","flatRep") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 0]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","_case_17") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 0),Var 1],Var 4]]))),Func ("OracleEasyCheck","diagonal") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]]) (TCons ("Prelude","[]") [TVar 0])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","concat") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","diagonal.diags.268") []],Comb ConsCall ("Prelude","[]") []]],Var 1]])),Func ("OracleEasyCheck","diagonal.merge.268") 3 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_15") [Var 3,Var 2,Var 1]])),Func ("OracleEasyCheck","diagonal.diags.268") 3 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_13") [Var 3,Var 2,Var 1]])),Func ("OracleEasyCheck","shuffle") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleEasyCheck","shuffleWithLen") [Comb FuncCall ("OracleRandomExternal","nextInt") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","length") [Var 3,Var 4],Var 3,Var 5]]))),Func ("OracleEasyCheck","shuffleWithLen") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_12") [Var 3,Var 4,Var 2,Var 1]])),Func ("OracleEasyCheck","shuffleWithLen._#selFP6#ys") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 39],TCons ("Prelude","[]") [TVar 39]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 39]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_9") [Var 2,Var 1]])),Func ("OracleEasyCheck","shuffleWithLen._#selFP7#z") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 39],TCons ("Prelude","[]") [TVar 39]]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 39))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_7") [Var 2,Var 1]])),Func ("OracleEasyCheck","shuffleWithLen._#selFP8#zs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 39],TCons ("Prelude","[]") [TVar 39]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 39]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_5") [Var 2,Var 1]])),Func ("OracleEasyCheck","transpose") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_3") [Var 2,Var 1]])),Func ("OracleEasyCheck","transpose._#lambda24") 3 Private (FuncType (TCons ("Prelude","[]") [TVar 151]) (FuncType (TCons ("Prelude","[]") [TVar 151]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 151])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_1") [Var 3,Var 2,Var 1]])),Func ("OracleEasyCheck","transpose._#lambda28") 3 Private (FuncType (TCons ("Prelude","[]") [TVar 151]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 151]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 151]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_0") [Var 3,Var 2,Var 1]])),Func ("OracleEasyCheck","evalModeIsOrBased") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","getSearchTree") [Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb FuncCall ("OraclePrelude","unknown") [Var 1],Var 2],Var 3],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []],Comb ConsCall ("Prelude","Value") [Comb ConsCall ("Prelude","()") []]]],Var 4],Var 5]]))),Func ("OracleEasyCheck","_case_0") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Var 3]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleEasyCheck","_case_1") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Var 3]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleEasyCheck","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_2") [Var 4,Var 3,Var 1]])]])),Func ("OracleEasyCheck","_case_2") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","transpose") [Var 4,Var 1]]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 5,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","transpose._#lambda24") []],Comb ConsCall ("Prelude","[]") [],Var 4,Var 1]],Comb FuncCall ("OracleEasyCheck","transpose") [Comb ConsCall ("Prelude",":") [Var 6,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","transpose._#lambda28") []],Comb ConsCall ("Prelude","[]") [],Var 4,Var 7]],Var 8]]]))]])),Func ("OracleEasyCheck","_case_5") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_4") [Var 4,Var 1]])]])),Func ("OracleEasyCheck","_case_4") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleEasyCheck","_case_7") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_6") [Var 4,Var 1]])]])),Func ("OracleEasyCheck","_case_6") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleEasyCheck","_case_9") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_8") [Var 3,Var 4,Var 1]])]])),Func ("OracleEasyCheck","_case_8") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleEasyCheck","_case_12") 4 Private (TVar (-42)) (Rule [3,4,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [5,6]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Let [(7,Comb FuncCall ("OraclePrelude","splitAt") [Comb FuncCall ("OraclePrelude","mod") [Comb FuncCall ("OracleInteger","abs") [Var 5,Var 1],Var 3,Var 11],Var 4,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleEasyCheck","shuffleWithLen._#selFP6#ys") [Var 7,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleEasyCheck","shuffleWithLen._#selFP7#z") [Var 7,Var 14])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleEasyCheck","shuffleWithLen._#selFP8#zs") [Var 7,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","_case_11") [Var 3,Var 6,Var 8,Var 9,Var 10,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Intc 0),Var 16],Var 17]]))]))]))]))]))]])),Func ("OracleEasyCheck","_case_11") 7 Private (TVar (-42)) (Rule [3,6,8,9,10,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","_case_10") [Var 3,Var 6,Var 8,Var 9,Var 10,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 12]]))]])),Func ("OracleEasyCheck","_case_10") 7 Private (TVar (-42)) (Rule [3,6,8,9,10,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude","True") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Var 9,Comb FuncCall ("OracleEasyCheck","shuffleWithLen") [Var 6,Comb FuncCall ("OraclePrelude","-") [Var 3,Lit (Intc 1),Var 1],Comb FuncCall ("OraclePrelude","++") [Var 8,Var 10,Var 12],Var 13]]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleEasyCheck","_case_13") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","diagonal.merge.268") [Var 5,Var 3,Var 1]]])]])),Func ("OracleEasyCheck","_case_15") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_14") [Var 2,Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleEasyCheck","_case_14") 5 Private (TVar (-42)) (Rule [2,4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("Prelude",":") []],Comb ConsCall ("Prelude","[]") []]],Var 2,Var 1]]),Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 4,Var 6],Comb FuncCall ("OracleEasyCheck","diagonal.merge.268") [Var 5,Var 7,Var 1]]])]])),Func ("OracleEasyCheck","_case_17") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","_case_16") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 5]]))]])),Func ("OracleEasyCheck","_case_16") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleEasyCheck","flatRep") [Comb FuncCall ("OraclePrelude","-") [Var 2,Lit (Intc 1),Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","flat") []],Var 5],Var 3,Var 6],Var 7]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleEasyCheck","_case_18") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","Value") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","Choice") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude","Fail") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","Suspend") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleEasyCheck","_case_19") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","Choice") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Var 3]]),Branch (Pattern ("Prelude","Fail") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","Value") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","Suspend") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleEasyCheck","_case_20") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleEasyCheck","_case_21") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleEasyCheck","_case_22") 5 Private (TVar (-42)) (Rule [3,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("OracleEasyCheck","rndLevels") [Var 5,Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OraclePrelude","zipWith") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","shuffle") []],Var 6,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","rndLevels._#lambda19") []],Comb ConsCall ("Prelude","[]") [],Var 3,Var 1],Var 8],Var 9],Var 10]]]))]])),Func ("OracleEasyCheck","_case_23") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","Value") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Var 3]]),Branch (Pattern ("Prelude","Fail") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","Choice") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","Suspend") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleEasyCheck","_case_26") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_25") [Var 4,Var 1]]),Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_24") [Var 2,Var 7,Var 8,Var 4,Var 1]])]])),Func ("OracleEasyCheck","_case_24") 5 Private (TVar (-42)) (Rule [2,7,8,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude",":") [9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 7,Var 1],Var 9,Var 11],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 7,Var 9,Var 12],Comb FuncCall ("OracleEasyCheck","leList") [Var 2,Var 8,Var 10,Var 13],Var 14],Var 15]]))]])),Func ("OracleEasyCheck","_case_25") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])]])),Func ("OracleEasyCheck","_case_30") 5 Private (TVar (-42)) (Rule [2,3,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_29") [Var 2,Var 3,Var 6,Var 7,Var 5,Var 1]])]])),Func ("OracleEasyCheck","_case_29") 6 Private (TVar (-42)) (Rule [2,3,6,7,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","(,)") [8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","_case_28") [Var 2,Var 3,Var 6,Var 7,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 6,Var 8,Var 1],Var 10]]))]])),Func ("OracleEasyCheck","_case_28") 8 Private (TVar (-42)) (Rule [2,3,6,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 7,Var 1],Var 9,Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","_case_27") [Var 2,Var 6,Var 8,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 12]]))]])),Func ("OracleEasyCheck","_case_27") 5 Private (TVar (-42)) (Rule [2,6,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 1],Var 8,Var 10]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleEasyCheck","_case_31") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleEasyCheck","done.percentage.199") [Var 4,Var 2,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Var 5,Var 6],Var 7],Var 8],Var 9]]))]])),Func ("OracleEasyCheck","_case_32") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","length") [Var 2,Var 1],Var 3]])]])),Func ("OracleEasyCheck","_case_34") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_33") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleEasyCheck","_case_33") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]],Var 1],Var 7]])),Branch (Pattern ("Prelude",":") [5,6]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","unlines") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","++") []],Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []]]],Var 2,Var 1],Var 8],Var 9]]))]])),Func ("OracleEasyCheck","_case_35") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleEasyCheck","_case_38") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude","[]") []]]]]]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","_case_37") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 2),Var 1],Var 4]]))]])),Func ("OracleEasyCheck","_case_37") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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 'd'),Comb ConsCall ("Prelude","[]") []]]]]]]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","_case_36") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 3),Var 1],Var 4]]))]])),Func ("OracleEasyCheck","_case_36") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude","[]") []]]]]]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude","[]") []]],Var 4]]))]])),Func ("OracleEasyCheck","_case_47") 6 Private (TVar (-42)) (Rule [2,4,5,6,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","done") [Comb ConsCall ("Prelude",":") [Lit (Charc 'P'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude","[]") []]]]]]],Var 4,Var 6,Var 1]]),Branch (Pattern ("Prelude",":") [7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleEasyCheck","_case_46") [Var 2,Var 4,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OraclePrelude","==") [Var 4,Comb FuncCall ("OracleEasyCheck","maxTest") [Var 2,Var 1],Var 9],Var 10]]))]])),Func ("OracleEasyCheck","_case_46") 8 Private (TVar (-42)) (Rule [2,4,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","done") [Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc 'K'),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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Var 4,Var 6,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleEasyCheck","_case_45") [Var 2,Var 4,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OraclePrelude","==") [Var 5,Comb FuncCall ("OracleEasyCheck","maxFail") [Var 2,Var 1],Var 10],Var 11]]))]])),Func ("OracleEasyCheck","_case_45") 8 Private (TVar (-42)) (Rule [2,4,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","done") [Comb ConsCall ("Prelude",":") [Lit (Charc 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'x'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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 '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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]],Var 4,Var 6,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","_case_44") [Var 2,Var 4,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 10]]))]])),Func ("OracleEasyCheck","_case_44") 8 Private (TVar (-42)) (Rule [2,4,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","putStr") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleEasyCheck","every") [Var 2,Var 1],Var 4,Var 10],Comb FuncCall ("OracleEasyCheck","args") [Var 7,Var 11],Var 12],Var 13],Comb FuncCall ("OracleEasyCheck","_case_43") [Var 2,Var 4,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OracleEasyCheck","result") [Var 7,Var 14],Var 15],Var 16]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleEasyCheck","_case_43") 8 Private (TVar (-42)) (Rule [2,4,5,6,7,8,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("EasyCheck","Undef") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","tests") [Var 2,Var 8,Var 4,Comb FuncCall ("OraclePrelude","+") [Var 5,Lit (Intc 1),Var 1],Var 6,Var 13]])),Branch (Pattern ("EasyCheck","Ok") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleEasyCheck","tests") [Var 2,Var 8,Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 1),Var 1],Var 5,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleEasyCheck","stamp") [Var 7,Var 14],Var 6],Var 15]])),Branch (Pattern ("EasyCheck","Falsified") [9]) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","putStr") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'F'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleEasyCheck","nth") [Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 1),Var 1],Var 16],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleEasyCheck","_case_42") [Var 7,Comb FuncCall ("OraclePrelude","null") [Comb FuncCall ("OracleEasyCheck","args") [Var 7,Var 17],Var 18],Var 19],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","unlines") [Comb FuncCall ("OracleEasyCheck","args") [Var 7,Var 20],Var 21],Comb FuncCall ("OracleEasyCheck","_case_41") [Var 9,Comb FuncCall ("OraclePrelude","null") [Var 9,Var 22],Var 23],Var 24],Var 25],Var 26],Var 27],Var 28],Var 29],Var 30]])),Branch (Pattern ("EasyCheck","Ambigious") [10,11]) (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(44,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(45,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(46,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(47,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(48,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude",":") [Var 44,Comb ConsCall ("Prelude",":") [Var 45,Comb ConsCall ("Prelude",":") [Var 46,Comb ConsCall ("Prelude",":") [Var 47,Comb ConsCall ("Prelude",":") [Var 48,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","putStr") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 10,Var 1],Comb FuncCall ("OraclePrelude","++") [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","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleEasyCheck","nth") [Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 1),Var 31],Var 32],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleEasyCheck","_case_40") [Var 7,Comb FuncCall ("OraclePrelude","null") [Comb FuncCall ("OracleEasyCheck","args") [Var 7,Var 33],Var 34],Var 35],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","unlines") [Comb FuncCall ("OracleEasyCheck","args") [Var 7,Var 36],Var 37],Comb FuncCall ("OracleEasyCheck","_case_39") [Var 11,Comb FuncCall ("OraclePrelude","null") [Var 11,Var 38],Var 39],Var 40],Var 41],Var 42],Var 43],Var 44],Var 45],Var 46],Var 47],Var 48]]))]])),Func ("OracleEasyCheck","_case_39") 3 Private (TVar (-42)) (Rule [11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'R'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),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","[]") []]]]]]]]]],Comb FuncCall ("OraclePrelude","unlines") [Var 11,Var 1],Var 13]]))]])),Func ("OracleEasyCheck","_case_40") 3 Private (TVar (-42)) (Rule [7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]])]])),Func ("OracleEasyCheck","_case_41") 3 Private (TVar (-42)) (Rule [9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'R'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),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","[]") []]]]]]]]]],Comb FuncCall ("OraclePrelude","unlines") [Var 9,Var 1],Var 11]]))]])),Func ("OracleEasyCheck","_case_42") 3 Private (TVar (-42)) (Rule [7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]])]])),Func ("OracleEasyCheck","_case_48") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","tests") [Var 2,Var 3,Lit (Intc 0),Lit (Intc 0),Comb ConsCall ("Prelude","[]") [],Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","putStrLn") []],Comb FuncCall ("OraclePrelude","unlines") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'E'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'C'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'k'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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",":") [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 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'P'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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 ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude",":") [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",":") [Lit (Charc '\''),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),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 ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),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 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),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 'k'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),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 '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 'M'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'B'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),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 ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 'k'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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 ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),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 'i'),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 'd'),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 '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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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 'r'),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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'v'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb ConsCall ("Prelude","[]") []]]]]]]]]],Var 1],Var 5]]))]])),Func ("OracleEasyCheck","_case_49") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleEasyCheck","Config") [4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OracleEasyCheck","Config") [Var 4,Var 5,Var 2]])]])),Func ("OracleEasyCheck","_case_50") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleEasyCheck","Config") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleEasyCheck","_case_51") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleEasyCheck","Config") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleEasyCheck","_case_52") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleEasyCheck","Config") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleEasyCheck","_case_53") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleEasyCheck","label") [Var 1],Var 3,Var 4]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]])]])),Func ("OracleEasyCheck","_case_54") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleEasyCheck","notest") [Var 1],Comb ConsCall ("Prelude","[]") []]])]])),Func ("OracleEasyCheck","_case_56") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_55") [Var 2,Var 4,Var 5,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleEasyCheck","_case_55") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1]]),Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleEasyCheck","_case_60") 3 Private (TVar (-42)) (Rule [4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_59") [Var 4,Var 6,Var 8,Var 7,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("EasyCheck","Ambigious") [Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 4,Var 1]]])]])),Func ("OracleEasyCheck","_case_59") 5 Private (TVar (-42)) (Rule [4,6,8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_58") [Var 4,Var 6,Var 8,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_57") [Var 4,Var 6,Var 8,Var 1]])]])),Func ("OracleEasyCheck","_case_57") 4 Private (TVar (-42)) (Rule [4,6,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("EasyCheck","Falsified") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 4,Var 1]]]),Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("EasyCheck","Ambigious") [Var 6,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 4,Var 1]]])]])),Func ("OracleEasyCheck","_case_58") 4 Private (TVar (-42)) (Rule [4,6,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("EasyCheck","Ok") []]),Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("EasyCheck","Ambigious") [Var 6,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 4,Var 1]]])]])),Func ("OracleEasyCheck","_case_61") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("EasyCheck","Test") [4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("EasyCheck","Test") [Var 4,Var 5,Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 1]]])]])),Func ("OracleEasyCheck","_case_62") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("EasyCheck","Test") [4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("EasyCheck","Test") [Var 4,Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 6]])]])),Func ("OracleEasyCheck","_case_63") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("EasyCheck","Test") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleEasyCheck","_case_64") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("EasyCheck","Test") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleEasyCheck","_case_65") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("EasyCheck","Test") [4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("EasyCheck","Test") [Var 2,Var 6,Var 5]])]])),Func ("OracleEasyCheck","_case_66") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("EasyCheck","Test") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]]))] [Op ("OracleEasyCheck","isSameSet") InfixOp 4,Op ("OracleEasyCheck","isSubsetOf") InfixOp 4,Op ("OracleEasyCheck","is") InfixOp 1,Op ("OracleEasyCheck","isAlways") InfixOp 1,Op ("OracleEasyCheck","isEventually") InfixOp 1,Op ("OracleEasyCheck","-=-") InfixOp 1,Op ("OracleEasyCheck","#") InfixOp 1,Op ("OracleEasyCheck","<~>") InfixOp 1,Op ("OracleEasyCheck","~>") InfixOp 1,Op ("OracleEasyCheck","<~") InfixOp 1,Op ("OracleEasyCheck","trivial") InfixOp 1,Op ("OracleEasyCheck","==>") InfixrOp 0]
+ Curry/Module/OracleEasyCheck.fint view
@@ -0,0 +1,1 @@+Prog "OracleEasyCheck" ["CEventOracle","Oracle","IOExts","EasyCheck","Integer","List","Meta","Prelude","RandomExternal","Sort","Read","OracleInteger","OracleList","OracleMeta","OraclePrelude","OracleRandomExternal","OracleSort","OracleRead"] [Type ("OracleEasyCheck","Config") Private [] [Cons ("OracleEasyCheck","Config") 3 Private [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))]]] [Func ("OracleEasyCheck","notest") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("EasyCheck","Test") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("EasyCheck","Test") [Comb ConsCall ("EasyCheck","Undef") [],Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]])),Func ("OracleEasyCheck","result") 2 Public (FuncType (TCons ("EasyCheck","Test") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("EasyCheck","Result") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_66") [Var 2,Var 1]])),Func ("OracleEasyCheck","setResult") 3 Private (FuncType (TCons ("EasyCheck","Result") []) (FuncType (TCons ("EasyCheck","Test") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("EasyCheck","Test") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_65") [Var 2,Var 3,Var 1]])),Func ("OracleEasyCheck","args") 2 Private (FuncType (TCons ("EasyCheck","Test") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_64") [Var 2,Var 1]])),Func ("OracleEasyCheck","stamp") 2 Private (FuncType (TCons ("EasyCheck","Test") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_63") [Var 2,Var 1]])),Func ("OracleEasyCheck","updArgs") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (FuncType (TCons ("EasyCheck","Test") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("EasyCheck","Test") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_62") [Var 2,Var 3,Var 1]])),Func ("OracleEasyCheck","updStamp") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (FuncType (TCons ("EasyCheck","Test") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("EasyCheck","Test") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_61") [Var 2,Var 3,Var 1]])),Func ("OracleEasyCheck","test") 3 Public (FuncType (TVar 0) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [2,3,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Let [(4,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleEasyCheck","valuesOf") [Var 1],Var 2,Var 7])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]],Let [(5,Let [(6,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleEasyCheck","valuesOf") [Var 8],Comb FuncCall ("Oracle","apply") [Var 3,Var 4,Var 9],Var 10])] (Comb FuncCall ("CEventOracle","replace") [Var 11,Comb FuncCall ("OracleEasyCheck","_case_60") [Var 4,Var 6,Var 11]]))] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleEasyCheck","setResult") [Var 5,Comb FuncCall ("OracleEasyCheck","notest") [Var 12],Var 13],Comb ConsCall ("Prelude","[]") []]]))]))]))),Func ("OracleEasyCheck","is") 3 Public (FuncType (TVar 0) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","test") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","is._#lambda3") [Var 3]],Var 1]])),Func ("OracleEasyCheck","is._#lambda3") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 220) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TVar 220]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_56") [Var 2,Var 3,Var 1]])),Func ("OracleEasyCheck","isAlways") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","test") [Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","all") []],Var 1]])),Func ("OracleEasyCheck","isEventually") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","test") [Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","any") []],Var 1]])),Func ("OracleEasyCheck","prop") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","uniquely") [Var 1]])),Func ("OracleEasyCheck","uniquely") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","is") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleEasyCheck","always") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","isAlways") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleEasyCheck","eventually") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","isEventually") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleEasyCheck","failing") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","test") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","null") []],Var 1]])),Func ("OracleEasyCheck","successful") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","test") [Var 2,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","not") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","null") []],Var 1],Var 3]]))),Func ("OracleEasyCheck","deterministic") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","is") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","const") [Comb ConsCall ("Prelude","True") []]],Var 1]])),Func ("OracleEasyCheck","#") 3 Public (FuncType (TVar 0) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleEasyCheck","test") [Var 2,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","==") [Var 3]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","length") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleList","nub") []],Var 1],Var 4],Var 5]]))),Func ("OracleEasyCheck","-=-") 3 Public (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","is") [Comb ConsCall ("Prelude","(,)") [Var 2,Var 3],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","uncurry") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []]]],Var 1]])),Func ("OracleEasyCheck","<~>") 3 Public (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleEasyCheck","test") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","isSameSet") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleEasyCheck","valuesOf") [Var 1],Var 3,Var 4]]],Var 5]]))),Func ("OracleEasyCheck","~>") 3 Public (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleEasyCheck","test") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","isSubsetOf") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleEasyCheck","valuesOf") [Var 1],Var 3,Var 4]]],Var 5]]))),Func ("OracleEasyCheck","<~") 3 Public (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleEasyCheck","test") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","isSubsetOf") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleEasyCheck","valuesOf") [Var 1],Var 3,Var 4]]],Var 5]]))),Func ("OracleEasyCheck","isSameSet") 3 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleList","nub") [Var 2,Var 1])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleList","nub") [Var 3,Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleEasyCheck","subset") [Var 4,Var 5,Var 7],Comb FuncCall ("OracleEasyCheck","subset") [Var 5,Var 4,Var 8],Var 9]]))]))]))),Func ("OracleEasyCheck","isSubsetOf") 3 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","subset") [Comb FuncCall ("OracleList","nub") [Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleEasyCheck","subset") 3 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","null") [Comb FuncCall ("OracleList","\\\\") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OracleEasyCheck","==>") 3 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_54") [Var 3,Var 2,Var 1]])),Func ("OracleEasyCheck","forAll") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))) (FuncType (TVar 1) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 0))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleEasyCheck","forAllValues") [Var 2,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleEasyCheck","valuesOf") [Var 1],Var 3,Var 5],Var 4,Var 6]]))),Func ("OracleEasyCheck","forAllValues") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))) (FuncType (TCons ("Prelude","[]") [TVar 1]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 0))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleEasyCheck","diagonal") [Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","forAllValues._#lambda5") [Var 2,Var 4]],Var 3,Var 5],Var 6]]))),Func ("OracleEasyCheck","forAllValues._#lambda5") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 330) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 327) (TVar 330))) (FuncType (TVar 327) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","forAllValues._#lambda5._#lambda6") [Var 4]],Comb FuncCall ("Oracle","apply") [Var 2,Comb FuncCall ("Oracle","apply") [Var 3,Var 4,Var 1],Var 5],Var 6]]))),Func ("OracleEasyCheck","forAllValues._#lambda5._#lambda6") 3 Private (FuncType (TVar 327) (FuncType (TCons ("EasyCheck","Test") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("EasyCheck","Test") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","updArgs") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude",":") [Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1]]],Var 3,Var 4]]))),Func ("OracleEasyCheck","for") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","forAll") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleEasyCheck","forValues") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","forAllValues") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleEasyCheck","label") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","map") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","updStamp") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("Prelude",":") []],Var 1],Var 2]]))),Func ("OracleEasyCheck","classify") 3 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_53") [Var 3,Var 2,Var 1]])),Func ("OracleEasyCheck","trivial") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","classify") []],Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'v'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]])),Func ("OracleEasyCheck","collect") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","label") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 2]]))),Func ("OracleEasyCheck","collectAs") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","label") [Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Var 3]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 4],Var 5]]))),Func ("OracleEasyCheck","maxTest") 2 Private (FuncType (TCons ("OracleEasyCheck","Config") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_52") [Var 2,Var 1]])),Func ("OracleEasyCheck","maxFail") 2 Private (FuncType (TCons ("OracleEasyCheck","Config") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_51") [Var 2,Var 1]])),Func ("OracleEasyCheck","every") 2 Private (FuncType (TCons ("OracleEasyCheck","Config") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_50") [Var 2,Var 1]])),Func ("OracleEasyCheck","setEvery") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("OracleEasyCheck","Config") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleEasyCheck","Config") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_49") [Var 2,Var 3,Var 1]])),Func ("OracleEasyCheck","easy") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleEasyCheck","Config") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OracleEasyCheck","Config") [Lit (Intc 100),Lit (Intc 1000),Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","easy._#lambda7") []]]])),Func ("OracleEasyCheck","easy._#lambda7") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Let [(4,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb FuncCall ("OraclePrelude","show") [Comb FuncCall ("OraclePrelude","+") [Var 2,Lit (Intc 1),Var 1],Var 5]])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 4,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","easy._#lambda7._#lambda8") []],Var 4,Var 6],Var 7]]))]))),Func ("OracleEasyCheck","easy._#lambda7._#lambda8") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 8),Var 1]])),Func ("OracleEasyCheck","verbose") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleEasyCheck","Config") [])) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","setEvery") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","verbose._#lambda9") []],Comb FuncCall ("OracleEasyCheck","easy") [Var 1],Var 2]]))),Func ("OracleEasyCheck","verbose._#lambda9") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","unlines") [Var 3,Var 4],Var 5],Var 6]]))),Func ("OracleEasyCheck","easyCheck") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","check") [Comb FuncCall ("OracleEasyCheck","easy") [Var 1]]]])),Func ("OracleEasyCheck","verboseCheck") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","check") [Comb FuncCall ("OracleEasyCheck","verbose") [Var 1]]]])),Func ("OracleEasyCheck","suc") 2 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 0))) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","forAll") [Var 2,Comb FuncCall ("OraclePrelude","unknown") [Var 1]]]])),Func ("OracleEasyCheck","easyCheck1") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","easyCheck") [Var 1],Comb FuncCall ("OracleEasyCheck","suc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2],Var 3]]))),Func ("OracleEasyCheck","easyCheck2") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","easyCheck") [Var 1],Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2],Var 3],Var 4]]))),Func ("OracleEasyCheck","easyCheck3") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","easyCheck") [Var 1],Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2],Var 3],Var 4],Var 5]]))),Func ("OracleEasyCheck","easyCheck4") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 3) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","easyCheck") [Var 1],Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2],Var 3],Var 4],Var 5],Var 6]]))),Func ("OracleEasyCheck","easyCheck5") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 3) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 4) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","easyCheck") [Var 1],Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2],Var 3],Var 4],Var 5],Var 6],Var 7]]))),Func ("OracleEasyCheck","verboseCheck1") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","verboseCheck") [Var 1],Comb FuncCall ("OracleEasyCheck","suc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2],Var 3]]))),Func ("OracleEasyCheck","verboseCheck2") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","verboseCheck") [Var 1],Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2],Var 3],Var 4]]))),Func ("OracleEasyCheck","verboseCheck3") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","verboseCheck") [Var 1],Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2],Var 3],Var 4],Var 5]]))),Func ("OracleEasyCheck","verboseCheck4") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 3) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","verboseCheck") [Var 1],Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2],Var 3],Var 4],Var 5],Var 6]]))),Func ("OracleEasyCheck","verboseCheck5") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 3) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 4) (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]))))))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleEasyCheck","verboseCheck") [Var 1],Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb FuncCall ("OracleEasyCheck","suc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2],Var 3],Var 4],Var 5],Var 6],Var 7]]))),Func ("OracleEasyCheck","check") 3 Private (FuncType (TCons ("OracleEasyCheck","Config") []) (FuncType (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleEasyCheck","evalModeIsOrBased") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","check._#lambda10") [Var 2,Var 3]],Var 4]]))),Func ("OracleEasyCheck","check._#lambda10") 4 Private (FuncType (TCons ("OracleEasyCheck","Config") []) (FuncType (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_48") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleEasyCheck","tests") 6 Private (FuncType (TCons ("OracleEasyCheck","Config") []) (FuncType (TCons ("Prelude","[]") [TCons ("EasyCheck","Test") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_47") [Var 2,Var 4,Var 5,Var 6,Var 3,Var 1]])),Func ("OracleEasyCheck","nth") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","_case_38") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 1),Var 1],Var 3]]))),Func ("OracleEasyCheck","done") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,3,4,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]],Let [(5,Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","done.display.199") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","done.entry.199") [Var 3]]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePrelude","reverse") [Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSort","mergeSort") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","leqPair") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","<=") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSort","leqList") [Comb FuncCall ("OracleSort","leqString") [Var 6]]]]]]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","done.pairLength.199") []]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleList","group") [Var 7],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSort","mergeSort") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSort","leqList") [Comb FuncCall ("OracleSort","leqString") [Var 8]]]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","not") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","null") []],Var 9]]],Var 10],Var 11],Var 12],Var 13],Var 14],Var 15],Var 16],Var 4,Var 17])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","putStr") []],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 18],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleEasyCheck","_case_35") [Var 3,Comb FuncCall ("OraclePrelude",">=") [Var 3,Lit (Intc 2),Var 19],Var 20],Var 5,Var 21],Var 22],Var 23],Var 24],Var 25],Var 26]]))]))),Func ("OracleEasyCheck","done.display.199") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_34") [Var 2,Var 1]])),Func ("OracleEasyCheck","done.pairLength.199") 2 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_32") [Var 2,Var 1]])),Func ("OracleEasyCheck","done.percentage.199") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Let [(4,Comb FuncCall ("OraclePrelude","show") [Comb FuncCall ("OraclePrelude","div") [Comb FuncCall ("OraclePrelude","*") [Lit (Intc 100),Var 2,Var 1],Var 3,Var 5],Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","replicate") [Comb FuncCall ("OraclePrelude","-") [Lit (Intc 3),Comb FuncCall ("OraclePrelude","length") [Var 4,Var 7],Var 8],Lit (Charc ' '),Var 9],Comb FuncCall ("OraclePrelude","++") [Var 4,Comb ConsCall ("Prelude",":") [Lit (Charc '%'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11]]))]))),Func ("OracleEasyCheck","done.entry.199") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_31") [Var 2,Var 3,Var 1]])),Func ("OracleEasyCheck","leqPair") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 1]) (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_30") [Var 2,Var 3,Var 5,Var 4,Var 1]])),Func ("OracleEasyCheck","leList") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_26") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleEasyCheck","valuesOf") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TVar 0])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","rndLevelDiagFlat") [Lit (Intc 3),Lit (Intc 2008)]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMeta","searchTree") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]],Var 1],Var 2]]))),Func ("OracleEasyCheck","rndLevelDiag") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","SearchTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","rndLevelDiag._#lambda15") []],Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleEasyCheck","diagonal") [Var 1],Comb FuncCall ("OracleEasyCheck","rndLevels") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Var 4],Var 5],Var 6]]))),Func ("OracleEasyCheck","rndLevelDiag._#lambda15") 3 Private (FuncType (TCons ("Prelude","SearchTree") [TVar 119]) (FuncType (TCons ("Prelude","[]") [TVar 119]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 119])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_23") [Var 3,Var 2,Var 1]])),Func ("OracleEasyCheck","rndLevels") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 0]]])))) (Rule [2,3,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleRandomExternal","split") [Var 2,Var 1])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleEasyCheck","rndLevels._#selFP3#r") [Var 4,Var 7])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleEasyCheck","rndLevels._#selFP4#rs") [Var 4,Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","_case_22") [Var 3,Var 5,Var 6,Comb FuncCall ("OraclePrelude","null") [Var 3,Var 9],Var 10]]))]))]))]))),Func ("OracleEasyCheck","rndLevels._#selFP3#r") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_21") [Var 2,Var 1]])),Func ("OracleEasyCheck","rndLevels._#selFP4#rs") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_20") [Var 2,Var 1]])),Func ("OracleEasyCheck","rndLevels._#lambda19") 3 Private (FuncType (TCons ("Prelude","SearchTree") [TVar 68]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 68]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 68]]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_19") [Var 3,Var 2,Var 1]])),Func ("OracleEasyCheck","rndLevelDiagFlat") 4 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","SearchTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))))) (Rule [2,3,4,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleRandomExternal","split") [Var 3,Var 1])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","concat") []],Comb FuncCall ("OracleEasyCheck","transpose") [Comb FuncCall ("OraclePrelude","zipWith") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","rndLevelDiag") []],Var 5,Comb FuncCall ("OracleEasyCheck","flatRep") [Var 2,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Var 6],Var 7],Var 8],Var 9]]))]))),Func ("OracleEasyCheck","flat") 2 Private (FuncType (TCons ("Prelude","SearchTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 0]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_18") [Var 2,Var 1]])),Func ("OracleEasyCheck","flatRep") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 0]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","_case_17") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 0),Var 1],Var 4]]))),Func ("OracleEasyCheck","diagonal") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]]) (TCons ("Prelude","[]") [TVar 0])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","concat") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","diagonal.diags.268") []],Comb ConsCall ("Prelude","[]") []]],Var 1]])),Func ("OracleEasyCheck","diagonal.merge.268") 3 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_15") [Var 3,Var 2,Var 1]])),Func ("OracleEasyCheck","diagonal.diags.268") 3 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_13") [Var 3,Var 2,Var 1]])),Func ("OracleEasyCheck","shuffle") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleEasyCheck","shuffleWithLen") [Comb FuncCall ("OracleRandomExternal","nextInt") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","length") [Var 3,Var 4],Var 3,Var 5]]))),Func ("OracleEasyCheck","shuffleWithLen") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_12") [Var 3,Var 4,Var 2,Var 1]])),Func ("OracleEasyCheck","shuffleWithLen._#selFP6#ys") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 39],TCons ("Prelude","[]") [TVar 39]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 39]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_9") [Var 2,Var 1]])),Func ("OracleEasyCheck","shuffleWithLen._#selFP7#z") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 39],TCons ("Prelude","[]") [TVar 39]]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 39))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_7") [Var 2,Var 1]])),Func ("OracleEasyCheck","shuffleWithLen._#selFP8#zs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 39],TCons ("Prelude","[]") [TVar 39]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 39]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_5") [Var 2,Var 1]])),Func ("OracleEasyCheck","transpose") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_3") [Var 2,Var 1]])),Func ("OracleEasyCheck","transpose._#lambda24") 3 Private (FuncType (TCons ("Prelude","[]") [TVar 151]) (FuncType (TCons ("Prelude","[]") [TVar 151]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 151])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_1") [Var 3,Var 2,Var 1]])),Func ("OracleEasyCheck","transpose._#lambda28") 3 Private (FuncType (TCons ("Prelude","[]") [TVar 151]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 151]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 151]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_0") [Var 3,Var 2,Var 1]])),Func ("OracleEasyCheck","evalModeIsOrBased") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","getSearchTree") [Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb FuncCall ("OraclePrelude","unknown") [Var 1],Var 2],Var 3],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []],Comb ConsCall ("Prelude","Value") [Comb ConsCall ("Prelude","()") []]]],Var 4],Var 5]]))),Func ("OracleEasyCheck","_case_0") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Var 3]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleEasyCheck","_case_1") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Var 3]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleEasyCheck","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_2") [Var 4,Var 3,Var 1]])]])),Func ("OracleEasyCheck","_case_2") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","transpose") [Var 4,Var 1]]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 5,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","transpose._#lambda24") []],Comb ConsCall ("Prelude","[]") [],Var 4,Var 1]],Comb FuncCall ("OracleEasyCheck","transpose") [Comb ConsCall ("Prelude",":") [Var 6,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","transpose._#lambda28") []],Comb ConsCall ("Prelude","[]") [],Var 4,Var 7]],Var 8]]]))]])),Func ("OracleEasyCheck","_case_5") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_4") [Var 4,Var 1]])]])),Func ("OracleEasyCheck","_case_4") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleEasyCheck","_case_7") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_6") [Var 4,Var 1]])]])),Func ("OracleEasyCheck","_case_6") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleEasyCheck","_case_9") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_8") [Var 3,Var 4,Var 1]])]])),Func ("OracleEasyCheck","_case_8") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleEasyCheck","_case_12") 4 Private (TVar (-42)) (Rule [3,4,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [5,6]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Let [(7,Comb FuncCall ("OraclePrelude","splitAt") [Comb FuncCall ("OraclePrelude","mod") [Comb FuncCall ("OracleInteger","abs") [Var 5,Var 1],Var 3,Var 11],Var 4,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleEasyCheck","shuffleWithLen._#selFP6#ys") [Var 7,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleEasyCheck","shuffleWithLen._#selFP7#z") [Var 7,Var 14])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleEasyCheck","shuffleWithLen._#selFP8#zs") [Var 7,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","_case_11") [Var 3,Var 6,Var 8,Var 9,Var 10,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Intc 0),Var 16],Var 17]]))]))]))]))]))]])),Func ("OracleEasyCheck","_case_11") 7 Private (TVar (-42)) (Rule [3,6,8,9,10,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","_case_10") [Var 3,Var 6,Var 8,Var 9,Var 10,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 12]]))]])),Func ("OracleEasyCheck","_case_10") 7 Private (TVar (-42)) (Rule [3,6,8,9,10,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude","True") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Var 9,Comb FuncCall ("OracleEasyCheck","shuffleWithLen") [Var 6,Comb FuncCall ("OraclePrelude","-") [Var 3,Lit (Intc 1),Var 1],Comb FuncCall ("OraclePrelude","++") [Var 8,Var 10,Var 12],Var 13]]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleEasyCheck","_case_13") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","diagonal.merge.268") [Var 5,Var 3,Var 1]]])]])),Func ("OracleEasyCheck","_case_15") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_14") [Var 2,Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleEasyCheck","_case_14") 5 Private (TVar (-42)) (Rule [2,4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("Prelude",":") []],Comb ConsCall ("Prelude","[]") []]],Var 2,Var 1]]),Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 4,Var 6],Comb FuncCall ("OracleEasyCheck","diagonal.merge.268") [Var 5,Var 7,Var 1]]])]])),Func ("OracleEasyCheck","_case_17") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","_case_16") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 5]]))]])),Func ("OracleEasyCheck","_case_16") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleEasyCheck","flatRep") [Comb FuncCall ("OraclePrelude","-") [Var 2,Lit (Intc 1),Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleEasyCheck","flat") []],Var 5],Var 3,Var 6],Var 7]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleEasyCheck","_case_18") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","Value") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","Choice") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude","Fail") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","Suspend") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleEasyCheck","_case_19") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","Choice") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Var 3]]),Branch (Pattern ("Prelude","Fail") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","Value") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","Suspend") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleEasyCheck","_case_20") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleEasyCheck","_case_21") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleEasyCheck","_case_22") 5 Private (TVar (-42)) (Rule [3,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("OracleEasyCheck","rndLevels") [Var 5,Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OraclePrelude","zipWith") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","shuffle") []],Var 6,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleEasyCheck","rndLevels._#lambda19") []],Comb ConsCall ("Prelude","[]") [],Var 3,Var 1],Var 8],Var 9],Var 10]]]))]])),Func ("OracleEasyCheck","_case_23") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","Value") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Var 3]]),Branch (Pattern ("Prelude","Fail") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","Choice") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","Suspend") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleEasyCheck","_case_26") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_25") [Var 4,Var 1]]),Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_24") [Var 2,Var 7,Var 8,Var 4,Var 1]])]])),Func ("OracleEasyCheck","_case_24") 5 Private (TVar (-42)) (Rule [2,7,8,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude",":") [9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 7,Var 1],Var 9,Var 11],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 7,Var 9,Var 12],Comb FuncCall ("OracleEasyCheck","leList") [Var 2,Var 8,Var 10,Var 13],Var 14],Var 15]]))]])),Func ("OracleEasyCheck","_case_25") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])]])),Func ("OracleEasyCheck","_case_30") 5 Private (TVar (-42)) (Rule [2,3,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_29") [Var 2,Var 3,Var 6,Var 7,Var 5,Var 1]])]])),Func ("OracleEasyCheck","_case_29") 6 Private (TVar (-42)) (Rule [2,3,6,7,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","(,)") [8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","_case_28") [Var 2,Var 3,Var 6,Var 7,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 6,Var 8,Var 1],Var 10]]))]])),Func ("OracleEasyCheck","_case_28") 8 Private (TVar (-42)) (Rule [2,3,6,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 7,Var 1],Var 9,Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","_case_27") [Var 2,Var 6,Var 8,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 12]]))]])),Func ("OracleEasyCheck","_case_27") 5 Private (TVar (-42)) (Rule [2,6,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 1],Var 8,Var 10]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleEasyCheck","_case_31") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleEasyCheck","done.percentage.199") [Var 4,Var 2,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Var 5,Var 6],Var 7],Var 8],Var 9]]))]])),Func ("OracleEasyCheck","_case_32") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","length") [Var 2,Var 1],Var 3]])]])),Func ("OracleEasyCheck","_case_34") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_33") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleEasyCheck","_case_33") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]],Var 1],Var 7]])),Branch (Pattern ("Prelude",":") [5,6]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","unlines") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","++") []],Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []]]],Var 2,Var 1],Var 8],Var 9]]))]])),Func ("OracleEasyCheck","_case_35") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleEasyCheck","_case_38") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude","[]") []]]]]]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","_case_37") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 2),Var 1],Var 4]]))]])),Func ("OracleEasyCheck","_case_37") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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 'd'),Comb ConsCall ("Prelude","[]") []]]]]]]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","_case_36") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 3),Var 1],Var 4]]))]])),Func ("OracleEasyCheck","_case_36") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude","[]") []]]]]]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude","[]") []]],Var 4]]))]])),Func ("OracleEasyCheck","_case_47") 6 Private (TVar (-42)) (Rule [2,4,5,6,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","done") [Comb ConsCall ("Prelude",":") [Lit (Charc 'P'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude","[]") []]]]]]],Var 4,Var 6,Var 1]]),Branch (Pattern ("Prelude",":") [7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleEasyCheck","_case_46") [Var 2,Var 4,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OraclePrelude","==") [Var 4,Comb FuncCall ("OracleEasyCheck","maxTest") [Var 2,Var 1],Var 9],Var 10]]))]])),Func ("OracleEasyCheck","_case_46") 8 Private (TVar (-42)) (Rule [2,4,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","done") [Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc 'K'),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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Var 4,Var 6,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleEasyCheck","_case_45") [Var 2,Var 4,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OraclePrelude","==") [Var 5,Comb FuncCall ("OracleEasyCheck","maxFail") [Var 2,Var 1],Var 10],Var 11]]))]])),Func ("OracleEasyCheck","_case_45") 8 Private (TVar (-42)) (Rule [2,4,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","done") [Comb ConsCall ("Prelude",":") [Lit (Charc 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'x'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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 '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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]],Var 4,Var 6,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","_case_44") [Var 2,Var 4,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 10]]))]])),Func ("OracleEasyCheck","_case_44") 8 Private (TVar (-42)) (Rule [2,4,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","putStr") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleEasyCheck","every") [Var 2,Var 1],Var 4,Var 10],Comb FuncCall ("OracleEasyCheck","args") [Var 7,Var 11],Var 12],Var 13],Comb FuncCall ("OracleEasyCheck","_case_43") [Var 2,Var 4,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OracleEasyCheck","result") [Var 7,Var 14],Var 15],Var 16]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleEasyCheck","_case_43") 8 Private (TVar (-42)) (Rule [2,4,5,6,7,8,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("EasyCheck","Undef") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleEasyCheck","tests") [Var 2,Var 8,Var 4,Comb FuncCall ("OraclePrelude","+") [Var 5,Lit (Intc 1),Var 1],Var 6,Var 13]])),Branch (Pattern ("EasyCheck","Ok") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleEasyCheck","tests") [Var 2,Var 8,Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 1),Var 1],Var 5,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleEasyCheck","stamp") [Var 7,Var 14],Var 6],Var 15]])),Branch (Pattern ("EasyCheck","Falsified") [9]) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","putStr") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'F'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleEasyCheck","nth") [Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 1),Var 1],Var 16],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleEasyCheck","_case_42") [Var 7,Comb FuncCall ("OraclePrelude","null") [Comb FuncCall ("OracleEasyCheck","args") [Var 7,Var 17],Var 18],Var 19],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","unlines") [Comb FuncCall ("OracleEasyCheck","args") [Var 7,Var 20],Var 21],Comb FuncCall ("OracleEasyCheck","_case_41") [Var 9,Comb FuncCall ("OraclePrelude","null") [Var 9,Var 22],Var 23],Var 24],Var 25],Var 26],Var 27],Var 28],Var 29],Var 30]])),Branch (Pattern ("EasyCheck","Ambigious") [10,11]) (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(44,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(45,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(46,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(47,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(48,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude",":") [Var 44,Comb ConsCall ("Prelude",":") [Var 45,Comb ConsCall ("Prelude",":") [Var 46,Comb ConsCall ("Prelude",":") [Var 47,Comb ConsCall ("Prelude",":") [Var 48,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","putStr") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 10,Var 1],Comb FuncCall ("OraclePrelude","++") [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","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleEasyCheck","nth") [Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 1),Var 31],Var 32],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleEasyCheck","_case_40") [Var 7,Comb FuncCall ("OraclePrelude","null") [Comb FuncCall ("OracleEasyCheck","args") [Var 7,Var 33],Var 34],Var 35],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","unlines") [Comb FuncCall ("OracleEasyCheck","args") [Var 7,Var 36],Var 37],Comb FuncCall ("OracleEasyCheck","_case_39") [Var 11,Comb FuncCall ("OraclePrelude","null") [Var 11,Var 38],Var 39],Var 40],Var 41],Var 42],Var 43],Var 44],Var 45],Var 46],Var 47],Var 48]]))]])),Func ("OracleEasyCheck","_case_39") 3 Private (TVar (-42)) (Rule [11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'R'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),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","[]") []]]]]]]]]],Comb FuncCall ("OraclePrelude","unlines") [Var 11,Var 1],Var 13]]))]])),Func ("OracleEasyCheck","_case_40") 3 Private (TVar (-42)) (Rule [7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]])]])),Func ("OracleEasyCheck","_case_41") 3 Private (TVar (-42)) (Rule [9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'R'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),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","[]") []]]]]]]]]],Comb FuncCall ("OraclePrelude","unlines") [Var 9,Var 1],Var 11]]))]])),Func ("OracleEasyCheck","_case_42") 3 Private (TVar (-42)) (Rule [7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]])]])),Func ("OracleEasyCheck","_case_48") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","tests") [Var 2,Var 3,Lit (Intc 0),Lit (Intc 0),Comb ConsCall ("Prelude","[]") [],Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","putStrLn") []],Comb FuncCall ("OraclePrelude","unlines") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'E'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'C'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'k'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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",":") [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 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'P'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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 ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude",":") [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",":") [Lit (Charc '\''),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),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 ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),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 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),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 'k'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),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 '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 'M'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'B'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),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 ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 'k'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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 ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),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 'i'),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 'd'),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 '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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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 'r'),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 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),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 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'v'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb ConsCall ("Prelude","[]") []]]]]]]]]],Var 1],Var 5]]))]])),Func ("OracleEasyCheck","_case_49") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleEasyCheck","Config") [4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OracleEasyCheck","Config") [Var 4,Var 5,Var 2]])]])),Func ("OracleEasyCheck","_case_50") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleEasyCheck","Config") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleEasyCheck","_case_51") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleEasyCheck","Config") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleEasyCheck","_case_52") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleEasyCheck","Config") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleEasyCheck","_case_53") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleEasyCheck","label") [Var 1],Var 3,Var 4]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]])]])),Func ("OracleEasyCheck","_case_54") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleEasyCheck","notest") [Var 1],Comb ConsCall ("Prelude","[]") []]])]])),Func ("OracleEasyCheck","_case_56") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_55") [Var 2,Var 4,Var 5,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleEasyCheck","_case_55") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1]]),Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleEasyCheck","_case_60") 3 Private (TVar (-42)) (Rule [4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_59") [Var 4,Var 6,Var 8,Var 7,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("EasyCheck","Ambigious") [Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 4,Var 1]]])]])),Func ("OracleEasyCheck","_case_59") 5 Private (TVar (-42)) (Rule [4,6,8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_58") [Var 4,Var 6,Var 8,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleEasyCheck","_case_57") [Var 4,Var 6,Var 8,Var 1]])]])),Func ("OracleEasyCheck","_case_57") 4 Private (TVar (-42)) (Rule [4,6,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("EasyCheck","Falsified") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 4,Var 1]]]),Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("EasyCheck","Ambigious") [Var 6,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 4,Var 1]]])]])),Func ("OracleEasyCheck","_case_58") 4 Private (TVar (-42)) (Rule [4,6,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("EasyCheck","Ok") []]),Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("EasyCheck","Ambigious") [Var 6,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 4,Var 1]]])]])),Func ("OracleEasyCheck","_case_61") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("EasyCheck","Test") [4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("EasyCheck","Test") [Var 4,Var 5,Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 1]]])]])),Func ("OracleEasyCheck","_case_62") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("EasyCheck","Test") [4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("EasyCheck","Test") [Var 4,Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 6]])]])),Func ("OracleEasyCheck","_case_63") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("EasyCheck","Test") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleEasyCheck","_case_64") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("EasyCheck","Test") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleEasyCheck","_case_65") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("EasyCheck","Test") [4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("EasyCheck","Test") [Var 2,Var 6,Var 5]])]])),Func ("OracleEasyCheck","_case_66") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("EasyCheck","Test") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]]))] [Op ("OracleEasyCheck","isSameSet") InfixOp 4,Op ("OracleEasyCheck","isSubsetOf") InfixOp 4,Op ("OracleEasyCheck","is") InfixOp 1,Op ("OracleEasyCheck","isAlways") InfixOp 1,Op ("OracleEasyCheck","isEventually") InfixOp 1,Op ("OracleEasyCheck","-=-") InfixOp 1,Op ("OracleEasyCheck","#") InfixOp 1,Op ("OracleEasyCheck","<~>") InfixOp 1,Op ("OracleEasyCheck","~>") InfixOp 1,Op ("OracleEasyCheck","<~") InfixOp 1,Op ("OracleEasyCheck","trivial") InfixOp 1,Op ("OracleEasyCheck","==>") InfixrOp 0]
+ Curry/Module/OracleFileGoodies.fcy view
@@ -0,0 +1,1 @@+Prog "OracleFileGoodies" ["CEventOracle","Oracle","IOExts","FileGoodies","Directory","List","Prelude","OracleDirectory","OracleList","OraclePrelude"] [] [Func ("OracleFileGoodies","separatorChar") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Charc '/')])),Func ("OracleFileGoodies","pathSeparatorChar") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Charc ':')])),Func ("OracleFileGoodies","suffixSeparatorChar") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Charc '.')])),Func ("OracleFileGoodies","isAbsolute") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_19") [Var 2,Var 1]])),Func ("OracleFileGoodies","dirName") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","fst") [Comb FuncCall ("OracleFileGoodies","splitDirectoryBaseName") [Var 2,Var 1],Var 3]]))),Func ("OracleFileGoodies","baseName") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","snd") [Comb FuncCall ("OracleFileGoodies","splitDirectoryBaseName") [Var 2,Var 1],Var 3]]))),Func ("OracleFileGoodies","splitDirectoryBaseName") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]],Let [(3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","break") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []],Comb FuncCall ("OracleFileGoodies","separatorChar") [Var 1]]],Var 6],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","reverse") [Var 7],Var 2,Var 8],Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleFileGoodies","splitDirectoryBaseName._#selFP3#rbase") [Var 3,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleFileGoodies","splitDirectoryBaseName._#selFP4#rdir") [Var 3,Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFileGoodies","_case_18") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","null") [Var 5,Var 12],Var 13]]))]))]))]))),Func ("OracleFileGoodies","splitDirectoryBaseName._#selFP3#rbase") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_17") [Var 2,Var 1]])),Func ("OracleFileGoodies","splitDirectoryBaseName._#selFP4#rdir") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_16") [Var 2,Var 1]])),Func ("OracleFileGoodies","stripSuffix") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","fst") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFileGoodies","splitBaseName") []],Var 1]])),Func ("OracleFileGoodies","fileSuffix") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFileGoodies","splitBaseName") []],Var 1]])),Func ("OracleFileGoodies","splitBaseName") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]],Let [(3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","break") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []],Comb FuncCall ("OracleFileGoodies","suffixSeparatorChar") [Var 1]]],Var 6],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","reverse") [Var 7],Var 2,Var 8],Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleFileGoodies","splitBaseName._#selFP6#rsuffix") [Var 3,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleFileGoodies","splitBaseName._#selFP7#rbase") [Var 3,Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleFileGoodies","_case_15") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","null") [Var 5,Var 12],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Comb FuncCall ("OracleFileGoodies","separatorChar") [Var 13],Var 14],Var 4,Var 15],Var 16],Var 17]]))]))]))]))),Func ("OracleFileGoodies","splitBaseName._#selFP6#rsuffix") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_14") [Var 2,Var 1]])),Func ("OracleFileGoodies","splitBaseName._#selFP7#rbase") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_13") [Var 2,Var 1]])),Func ("OracleFileGoodies","splitPath") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_12") [Var 2,Var 1]])),Func ("OracleFileGoodies","splitPath._#selFP9#ys") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_10") [Var 2,Var 1]])),Func ("OracleFileGoodies","splitPath._#selFP10#zs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_9") [Var 2,Var 1]])),Func ("OracleFileGoodies","findFileInPath") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))))))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleFileGoodies","lookupFileInPath") []]])),Func ("OracleFileGoodies","lookupFileInPath") 4 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFileGoodies","_case_8") [Var 2,Var 3,Var 4,Comb FuncCall ("OracleFileGoodies","isAbsolute") [Var 2,Var 1],Var 5]]))),Func ("OracleFileGoodies","lookupFileInPath.lookupFirstFileWithSuffix.36") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_7") [Var 2,Var 3,Var 1]])),Func ("OracleFileGoodies","lookupFileInPath.lookupFirstFileWithSuffix.36._#lambda3") 5 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_6") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleFileGoodies","lookupFileInPath.lookupFirstFile.36") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_5") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFileGoodies","lookupFileInPath.lookupFirstFile.36._#lambda2") 5 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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OracleFileGoodies","lookupFileInPath.lookupFirstFile.36") [Var 3,Var 4,Var 2,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude","Just") []],Var 6],Var 5,Var 7]]))),Func ("OracleFileGoodies","getFileInPath") 4 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFileGoodies","lookupFileInPath") [Var 2,Var 3,Var 4,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFileGoodies","getFileInPath._#lambda4") [Var 2,Var 4]],Var 5]]))),Func ("OracleFileGoodies","getFileInPath._#lambda4") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [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",":") [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 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFileGoodies","pathSeparatorChar") [Var 1],Comb ConsCall ("Prelude","[]") []],Var 3,Var 5],Var 6],Var 7],Var 8],Var 9],Var 10],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Var 4,Var 11]]))),Func ("OracleFileGoodies","replaceFileName") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleFileGoodies","splitDirectoryBaseName") [Var 3,Var 1])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleFileGoodies","replaceFileName._#selFP12#dir") [Var 4,Var 7])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleFileGoodies","replaceFileName._#selFP13#fn") [Var 4,Var 8])] (Comb FuncCall ("CEventOracle","replace") [Var 9,Comb FuncCall ("OracleFileGoodies","_case_4") [Var 2,Var 6,Var 5,Var 9]])]))]))]))),Func ("OracleFileGoodies","replaceFileName._#selFP12#dir") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_1") [Var 2,Var 1]])),Func ("OracleFileGoodies","replaceFileName._#selFP13#fn") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_0") [Var 2,Var 1]])),Func ("OracleFileGoodies","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFileGoodies","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFileGoodies","_case_4") 4 Private (TVar (-42)) (Rule [2,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude",":") [7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFileGoodies","_case_3") [Var 2,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OraclePrelude","==") [Var 7,Lit (Charc '.'),Var 1],Var 9]])),Branch (Pattern ("Prelude","[]") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFileGoodies","separatorChar") [Var 1],Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 10]],Var 11]]))]])),Func ("OracleFileGoodies","_case_3") 7 Private (TVar (-42)) (Rule [2,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_2") [Var 2,Var 5,Var 6,Var 8,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFileGoodies","separatorChar") [Var 1],Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 10]],Var 11]]))]])),Func ("OracleFileGoodies","_case_2") 5 Private (TVar (-42)) (Rule [2,5,6,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 1]]),Branch (Pattern ("Prelude",":") [9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFileGoodies","separatorChar") [Var 1],Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 11]],Var 12]]))]])),Func ("OracleFileGoodies","_case_5") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","Nothing") [],Var 1]]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFileGoodies","lookupFileInPath.lookupFirstFileWithSuffix.36") [Comb FuncCall ("OraclePrelude","++") [Var 5,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFileGoodies","separatorChar") [Var 1],Var 2],Var 7],Var 3,Var 8],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFileGoodies","lookupFileInPath.lookupFirstFile.36._#lambda2") [Var 6,Var 2,Var 3]],Var 9]]))]])),Func ("OracleFileGoodies","_case_6") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","Just") [Var 3],Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","lookupFileInPath.lookupFirstFileWithSuffix.36") [Var 2,Var 4,Var 1]])]])),Func ("OracleFileGoodies","_case_7") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","Nothing") [],Var 1]]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePrelude","++") [Var 2,Var 4,Var 1])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Var 6,Var 7],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFileGoodies","lookupFileInPath.lookupFirstFileWithSuffix.36._#lambda3") [Var 2,Var 6,Var 5]],Var 8]]))]))]])),Func ("OracleFileGoodies","_case_8") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","lookupFileInPath.lookupFirstFileWithSuffix.36") [Var 2,Var 3,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","lookupFileInPath.lookupFirstFile.36") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleFileGoodies","_case_9") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFileGoodies","_case_10") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFileGoodies","_case_12") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Let [(5,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","break") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []],Comb FuncCall ("OracleFileGoodies","pathSeparatorChar") [Var 1]]],Var 8],Comb ConsCall ("Prelude",":") [Var 3,Var 4],Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleFileGoodies","splitPath._#selFP9#ys") [Var 5,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleFileGoodies","splitPath._#selFP10#zs") [Var 5,Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFileGoodies","_case_11") [Var 6,Var 7,Comb FuncCall ("OraclePrelude","null") [Var 7,Var 12],Var 13]]))]))]))]))]])),Func ("OracleFileGoodies","_case_11") 4 Private (TVar (-42)) (Rule [6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 6,Comb FuncCall ("OracleFileGoodies","splitPath") [Comb FuncCall ("OraclePrelude","tail") [Var 7,Var 1],Var 9]]]))]])),Func ("OracleFileGoodies","_case_13") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFileGoodies","_case_14") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFileGoodies","_case_15") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 2,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","reverse") [Var 1],Comb FuncCall ("OraclePrelude","tail") [Var 5,Var 7],Var 8],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","reverse") [Var 9],Var 4,Var 10]]]))]])),Func ("OracleFileGoodies","_case_16") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFileGoodies","_case_17") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFileGoodies","_case_18") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","reverse") [Var 1],Var 4,Var 7]]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","reverse") [Var 1],Comb FuncCall ("OraclePrelude","tail") [Var 5,Var 8],Var 9],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","reverse") [Var 10],Var 4,Var 11]]]))]])),Func ("OracleFileGoodies","_case_19") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","==") [Var 3,Comb FuncCall ("OracleFileGoodies","separatorChar") [Var 1],Var 5]]))]]))] []
+ Curry/Module/OracleFileGoodies.fint view
@@ -0,0 +1,1 @@+Prog "OracleFileGoodies" ["CEventOracle","Oracle","IOExts","FileGoodies","Directory","List","Prelude","OracleDirectory","OracleList","OraclePrelude"] [] [Func ("OracleFileGoodies","separatorChar") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Charc '/')])),Func ("OracleFileGoodies","pathSeparatorChar") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Charc ':')])),Func ("OracleFileGoodies","suffixSeparatorChar") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Charc '.')])),Func ("OracleFileGoodies","isAbsolute") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_19") [Var 2,Var 1]])),Func ("OracleFileGoodies","dirName") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","fst") [Comb FuncCall ("OracleFileGoodies","splitDirectoryBaseName") [Var 2,Var 1],Var 3]]))),Func ("OracleFileGoodies","baseName") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","snd") [Comb FuncCall ("OracleFileGoodies","splitDirectoryBaseName") [Var 2,Var 1],Var 3]]))),Func ("OracleFileGoodies","splitDirectoryBaseName") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]],Let [(3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","break") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []],Comb FuncCall ("OracleFileGoodies","separatorChar") [Var 1]]],Var 6],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","reverse") [Var 7],Var 2,Var 8],Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleFileGoodies","splitDirectoryBaseName._#selFP3#rbase") [Var 3,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleFileGoodies","splitDirectoryBaseName._#selFP4#rdir") [Var 3,Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFileGoodies","_case_18") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","null") [Var 5,Var 12],Var 13]]))]))]))]))),Func ("OracleFileGoodies","splitDirectoryBaseName._#selFP3#rbase") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_17") [Var 2,Var 1]])),Func ("OracleFileGoodies","splitDirectoryBaseName._#selFP4#rdir") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_16") [Var 2,Var 1]])),Func ("OracleFileGoodies","stripSuffix") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","fst") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFileGoodies","splitBaseName") []],Var 1]])),Func ("OracleFileGoodies","fileSuffix") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFileGoodies","splitBaseName") []],Var 1]])),Func ("OracleFileGoodies","splitBaseName") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]],Let [(3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","break") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []],Comb FuncCall ("OracleFileGoodies","suffixSeparatorChar") [Var 1]]],Var 6],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","reverse") [Var 7],Var 2,Var 8],Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleFileGoodies","splitBaseName._#selFP6#rsuffix") [Var 3,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleFileGoodies","splitBaseName._#selFP7#rbase") [Var 3,Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleFileGoodies","_case_15") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","null") [Var 5,Var 12],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Comb FuncCall ("OracleFileGoodies","separatorChar") [Var 13],Var 14],Var 4,Var 15],Var 16],Var 17]]))]))]))]))),Func ("OracleFileGoodies","splitBaseName._#selFP6#rsuffix") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_14") [Var 2,Var 1]])),Func ("OracleFileGoodies","splitBaseName._#selFP7#rbase") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_13") [Var 2,Var 1]])),Func ("OracleFileGoodies","splitPath") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_12") [Var 2,Var 1]])),Func ("OracleFileGoodies","splitPath._#selFP9#ys") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_10") [Var 2,Var 1]])),Func ("OracleFileGoodies","splitPath._#selFP10#zs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_9") [Var 2,Var 1]])),Func ("OracleFileGoodies","findFileInPath") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))))))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleFileGoodies","lookupFileInPath") []]])),Func ("OracleFileGoodies","lookupFileInPath") 4 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFileGoodies","_case_8") [Var 2,Var 3,Var 4,Comb FuncCall ("OracleFileGoodies","isAbsolute") [Var 2,Var 1],Var 5]]))),Func ("OracleFileGoodies","lookupFileInPath.lookupFirstFileWithSuffix.36") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_7") [Var 2,Var 3,Var 1]])),Func ("OracleFileGoodies","lookupFileInPath.lookupFirstFileWithSuffix.36._#lambda3") 5 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_6") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleFileGoodies","lookupFileInPath.lookupFirstFile.36") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_5") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFileGoodies","lookupFileInPath.lookupFirstFile.36._#lambda2") 5 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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OracleFileGoodies","lookupFileInPath.lookupFirstFile.36") [Var 3,Var 4,Var 2,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude","Just") []],Var 6],Var 5,Var 7]]))),Func ("OracleFileGoodies","getFileInPath") 4 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFileGoodies","lookupFileInPath") [Var 2,Var 3,Var 4,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFileGoodies","getFileInPath._#lambda4") [Var 2,Var 4]],Var 5]]))),Func ("OracleFileGoodies","getFileInPath._#lambda4") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [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",":") [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 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFileGoodies","pathSeparatorChar") [Var 1],Comb ConsCall ("Prelude","[]") []],Var 3,Var 5],Var 6],Var 7],Var 8],Var 9],Var 10],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Var 4,Var 11]]))),Func ("OracleFileGoodies","replaceFileName") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleFileGoodies","splitDirectoryBaseName") [Var 3,Var 1])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleFileGoodies","replaceFileName._#selFP12#dir") [Var 4,Var 7])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleFileGoodies","replaceFileName._#selFP13#fn") [Var 4,Var 8])] (Comb FuncCall ("CEventOracle","replace") [Var 9,Comb FuncCall ("OracleFileGoodies","_case_4") [Var 2,Var 6,Var 5,Var 9]])]))]))]))),Func ("OracleFileGoodies","replaceFileName._#selFP12#dir") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_1") [Var 2,Var 1]])),Func ("OracleFileGoodies","replaceFileName._#selFP13#fn") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_0") [Var 2,Var 1]])),Func ("OracleFileGoodies","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFileGoodies","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFileGoodies","_case_4") 4 Private (TVar (-42)) (Rule [2,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude",":") [7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFileGoodies","_case_3") [Var 2,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OraclePrelude","==") [Var 7,Lit (Charc '.'),Var 1],Var 9]])),Branch (Pattern ("Prelude","[]") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFileGoodies","separatorChar") [Var 1],Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 10]],Var 11]]))]])),Func ("OracleFileGoodies","_case_3") 7 Private (TVar (-42)) (Rule [2,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","_case_2") [Var 2,Var 5,Var 6,Var 8,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFileGoodies","separatorChar") [Var 1],Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 10]],Var 11]]))]])),Func ("OracleFileGoodies","_case_2") 5 Private (TVar (-42)) (Rule [2,5,6,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 1]]),Branch (Pattern ("Prelude",":") [9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 5,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFileGoodies","separatorChar") [Var 1],Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 11]],Var 12]]))]])),Func ("OracleFileGoodies","_case_5") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","Nothing") [],Var 1]]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFileGoodies","lookupFileInPath.lookupFirstFileWithSuffix.36") [Comb FuncCall ("OraclePrelude","++") [Var 5,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFileGoodies","separatorChar") [Var 1],Var 2],Var 7],Var 3,Var 8],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFileGoodies","lookupFileInPath.lookupFirstFile.36._#lambda2") [Var 6,Var 2,Var 3]],Var 9]]))]])),Func ("OracleFileGoodies","_case_6") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","Just") [Var 3],Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","lookupFileInPath.lookupFirstFileWithSuffix.36") [Var 2,Var 4,Var 1]])]])),Func ("OracleFileGoodies","_case_7") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","Nothing") [],Var 1]]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePrelude","++") [Var 2,Var 4,Var 1])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Var 6,Var 7],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFileGoodies","lookupFileInPath.lookupFirstFileWithSuffix.36._#lambda3") [Var 2,Var 6,Var 5]],Var 8]]))]))]])),Func ("OracleFileGoodies","_case_8") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","lookupFileInPath.lookupFirstFileWithSuffix.36") [Var 2,Var 3,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFileGoodies","lookupFileInPath.lookupFirstFile.36") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleFileGoodies","_case_9") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFileGoodies","_case_10") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFileGoodies","_case_12") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Let [(5,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","break") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []],Comb FuncCall ("OracleFileGoodies","pathSeparatorChar") [Var 1]]],Var 8],Comb ConsCall ("Prelude",":") [Var 3,Var 4],Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleFileGoodies","splitPath._#selFP9#ys") [Var 5,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleFileGoodies","splitPath._#selFP10#zs") [Var 5,Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFileGoodies","_case_11") [Var 6,Var 7,Comb FuncCall ("OraclePrelude","null") [Var 7,Var 12],Var 13]]))]))]))]))]])),Func ("OracleFileGoodies","_case_11") 4 Private (TVar (-42)) (Rule [6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 6,Comb FuncCall ("OracleFileGoodies","splitPath") [Comb FuncCall ("OraclePrelude","tail") [Var 7,Var 1],Var 9]]]))]])),Func ("OracleFileGoodies","_case_13") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFileGoodies","_case_14") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFileGoodies","_case_15") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 2,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","reverse") [Var 1],Comb FuncCall ("OraclePrelude","tail") [Var 5,Var 7],Var 8],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","reverse") [Var 9],Var 4,Var 10]]]))]])),Func ("OracleFileGoodies","_case_16") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFileGoodies","_case_17") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFileGoodies","_case_18") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","reverse") [Var 1],Var 4,Var 7]]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","reverse") [Var 1],Comb FuncCall ("OraclePrelude","tail") [Var 5,Var 8],Var 9],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","reverse") [Var 10],Var 4,Var 11]]]))]])),Func ("OracleFileGoodies","_case_19") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","==") [Var 3,Comb FuncCall ("OracleFileGoodies","separatorChar") [Var 1],Var 5]]))]]))] []
+ Curry/Module/OracleFiniteMap.fcy view
@@ -0,0 +1,1 @@+Prog "OracleFiniteMap" ["CEventOracle","Oracle","IOExts","FiniteMap","Maybe","Prelude","OracleMaybe","OraclePrelude"] [TypeSyn ("OracleFiniteMap","FiniteSet") Private [0] (TCons ("FiniteMap","FM") [TVar 0,TCons ("Prelude","()") []]),Type ("OracleFiniteMap","FM") Public [0,1] [Cons ("OracleFiniteMap","FM") 2 Private [FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") [])))),TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]]]] [Func ("OracleFiniteMap","emptyFM") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 2,Comb ConsCall ("FiniteMap","EmptyFM") []]])),Func ("OracleFiniteMap","unitFM") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 2,Comb FuncCall ("OracleFiniteMap","unitFM'") [Var 3,Var 4,Var 1]]])),Func ("OracleFiniteMap","unitFM'") 3 Private (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","Branch") [Var 2,Var 3,Lit (Intc 1),Comb ConsCall ("FiniteMap","EmptyFM") [],Comb ConsCall ("FiniteMap","EmptyFM") []]])),Func ("OracleFiniteMap","listToFM") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFiniteMap","addListToFM") [Comb FuncCall ("OracleFiniteMap","emptyFM") [Var 2,Var 1]]]])),Func ("OracleFiniteMap","addToFM") 4 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_117") [Var 3,Var 4,Var 2,Var 1]])),Func ("OracleFiniteMap","addToFM'") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","addToFM_C'") [Var 2,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFiniteMap","addToFM'._#lambda2") []],Var 3,Var 4,Var 5,Var 1]])),Func ("OracleFiniteMap","addToFM'._#lambda2") 3 Private (FuncType (TVar 270) (FuncType (TVar 270) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 270)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFiniteMap","addToFM_C'") 6 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 1))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_116") [Var 2,Var 3,Var 5,Var 6,Var 4,Var 1]])),Func ("OracleFiniteMap","addListToFM") 3 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_113") [Var 3,Var 2,Var 1]])),Func ("OracleFiniteMap","addListToFM'") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","addListToFM_C'") [Var 2,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFiniteMap","addListToFM'._#lambda3") []],Var 3,Var 4,Var 1]])),Func ("OracleFiniteMap","addListToFM'._#lambda3") 3 Private (FuncType (TVar 246) (FuncType (TVar 246) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 246)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFiniteMap","addListToFM_C'") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 1))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldl") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFiniteMap","addListToFM_C'.add.30") [Var 3,Var 2]],Var 4,Var 5,Var 1]])),Func ("OracleFiniteMap","addListToFM_C'.add.30") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 235) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 235) (TVar 235))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 234) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 234) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 234,TVar 235]) (FuncType (TCons ("Prelude","(,)") [TVar 234,TVar 235]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 234,TVar 235])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_112") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleFiniteMap","addToFM_C") 5 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 1,TVar 0]) (FuncType (TVar 1) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 1,TVar 0])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_111") [Var 2,Var 4,Var 5,Var 3,Var 1]])),Func ("OracleFiniteMap","addListToFM_C") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 1,TVar 0]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 1,TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_110") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleFiniteMap","delFromFM") 3 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_109") [Var 3,Var 2,Var 1]])),Func ("OracleFiniteMap","delFromFM'") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_108") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleFiniteMap","delListFromFM") 3 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_105") [Var 3,Var 2,Var 1]])),Func ("OracleFiniteMap","updFM") 4 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 1))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_104") [Var 3,Var 4,Var 2,Var 1]])),Func ("OracleFiniteMap","updFM.upd.49") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 523) (TVar 523))) (FuncType (TVar 535) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 535) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 535) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 535,TVar 523]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 535,TVar 523])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_103") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleFiniteMap","splitFM") 3 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1],TCons ("Prelude","(,)") [TVar 0,TVar 1]]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","maybe") [Comb ConsCall ("Prelude","Nothing") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFiniteMap","splitFM._#lambda4") [Var 2,Var 3]],Comb FuncCall ("OracleFiniteMap","lookupFM") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OracleFiniteMap","splitFM._#lambda4") 4 Private (FuncType (TCons ("OracleFiniteMap","FM") [TVar 593,TVar 600]) (FuncType (TVar 593) (FuncType (TVar 600) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TVar 593,TVar 600],TCons ("Prelude","(,)") [TVar 593,TVar 600]]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleFiniteMap","delFromFM") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude","(,)") [Var 3,Var 4]]]])),Func ("OracleFiniteMap","plusFM") 3 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_99") [Var 3,Var 2,Var 1]])),Func ("OracleFiniteMap","plusFM'") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_97") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleFiniteMap","plusFM_C") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 1,TVar 0]) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 1,TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 1,TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_95") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleFiniteMap","plusFM_C'") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 1))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_93") [Var 2,Var 3,Var 5,Var 4,Var 1]])),Func ("OracleFiniteMap","minusFM") 3 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_90") [Var 3,Var 2,Var 1]])),Func ("OracleFiniteMap","minusFM'") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 2]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_88") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleFiniteMap","intersectFM") 3 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_86") [Var 3,Var 2,Var 1]])),Func ("OracleFiniteMap","intersectFM'") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 2]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 2]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","intersectFM_C'") [Var 2,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFiniteMap","intersectFM'._#lambda6") []],Var 3,Var 4,Var 1]])),Func ("OracleFiniteMap","intersectFM'._#lambda6") 3 Private (FuncType (TVar 1051) (FuncType (TVar 1052) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 1052)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFiniteMap","intersectFM_C") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1))))) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 2,TVar 0]) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 2,TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 2,TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_84") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleFiniteMap","intersectFM_C'") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TVar 3))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 2]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 3])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_82") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleFiniteMap","intersectFM_C'._#selFP3#elt1'") 2 Private (FuncType (TCons ("Prelude","Maybe") [TVar 1000]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 1000))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_78") [Var 2,Var 1]])),Func ("OracleFiniteMap","foldFM") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TVar 2))))))) (FuncType (TVar 2) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 2))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_77") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFiniteMap","foldFM'") 5 Private (FuncType (TVar 0) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 3) (TVar 3))))))) (FuncType (TVar 3) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 1,TVar 2]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 3)))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_76") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleFiniteMap","mapFM") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 2))))) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 2])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_75") [Var 2,Var 3,Var 1]])),Func ("OracleFiniteMap","mapFM'") 4 Private (FuncType (TVar 0) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TVar 3))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 1,TVar 2]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 1,TVar 3]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_74") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFiniteMap","filterFM") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_73") [Var 2,Var 3,Var 1]])),Func ("OracleFiniteMap","filterFM'") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_72") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFiniteMap","sizeFM") 2 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_69") [Var 2,Var 1]])),Func ("OracleFiniteMap","sizeFM'") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_67") [Var 2,Var 1]])),Func ("OracleFiniteMap","eqFM") 3 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleFiniteMap","sizeFM") [Var 2,Var 1],Comb FuncCall ("OracleFiniteMap","sizeFM") [Var 3,Var 4],Var 5],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleFiniteMap","fmToList") [Var 2,Var 6],Comb FuncCall ("OracleFiniteMap","fmToList") [Var 3,Var 7],Var 8],Var 9]]))),Func ("OracleFiniteMap","isEmptyFM") 2 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleFiniteMap","sizeFM") [Var 2,Var 1],Lit (Intc 0),Var 3]]))),Func ("OracleFiniteMap","elemFM") 3 Public (FuncType (TVar 0) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleMaybe","isJust") [Comb FuncCall ("OracleFiniteMap","lookupFM") [Var 3,Var 2,Var 1],Var 4]]))),Func ("OracleFiniteMap","lookupFM") 3 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_66") [Var 3,Var 2,Var 1]])),Func ("OracleFiniteMap","lookupFM'") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_65") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleFiniteMap","lookupWithDefaultFM") 4 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TVar 1) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 1))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_62") [Var 2,Var 3,Var 4,Comb FuncCall ("OracleFiniteMap","lookupFM") [Var 2,Var 4,Var 1],Var 5]]))),Func ("OracleFiniteMap","keyOrder") 2 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_61") [Var 2,Var 1]])),Func ("OracleFiniteMap","minFM") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TVar 0,TVar 1]])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFiniteMap","minFM.min.215") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFiniteMap","tree") []],Var 1]])),Func ("OracleFiniteMap","minFM.min.215") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_60") [Var 2,Var 1]])),Func ("OracleFiniteMap","maxFM") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TVar 0,TVar 1]])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFiniteMap","maxFM.max.223") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFiniteMap","tree") []],Var 1]])),Func ("OracleFiniteMap","maxFM.max.223") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_57") [Var 2,Var 1]])),Func ("OracleFiniteMap","fmToList") 2 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","foldFM") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleFiniteMap","fmToList._#lambda8") []],Comb ConsCall ("Prelude","[]") [],Var 2,Var 1]])),Func ("OracleFiniteMap","fmToList._#lambda8") 4 Private (FuncType (TVar 1237) (FuncType (TVar 1238) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1237,TVar 1238]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1237,TVar 1238]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 2,Var 3],Var 4]])),Func ("OracleFiniteMap","keysFM") 2 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","foldFM") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleFiniteMap","keysFM._#lambda9") []],Comb ConsCall ("Prelude","[]") [],Var 2,Var 1]])),Func ("OracleFiniteMap","keysFM._#lambda9") 4 Private (FuncType (TVar 1356) (FuncType (TVar 1353) (FuncType (TCons ("Prelude","[]") [TVar 1356]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 1356]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Var 4]])),Func ("OracleFiniteMap","eltsFM") 2 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 1]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","foldFM") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleFiniteMap","eltsFM._#lambda10") []],Comb ConsCall ("Prelude","[]") [],Var 2,Var 1]])),Func ("OracleFiniteMap","eltsFM._#lambda10") 4 Private (FuncType (TVar 1363) (FuncType (TVar 1367) (FuncType (TCons ("Prelude","[]") [TVar 1367]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 1367]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Var 4]])),Func ("OracleFiniteMap","fmToListPreOrder") 2 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_54") [Var 2,Var 1]])),Func ("OracleFiniteMap","fmToListPreOrder.pre.243") 3 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_53") [Var 3,Var 2,Var 1]])),Func ("OracleFiniteMap","fmSortBy") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFiniteMap","keysFM") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFiniteMap","listToFM") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","zip") [Var 3,Comb FuncCall ("OraclePrelude","repeat") [Comb ConsCall ("Prelude","()") [],Var 4],Var 5],Var 6],Var 7]]))),Func ("OracleFiniteMap","tree") 2 Private (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_52") [Var 2,Var 1]])),Func ("OracleFiniteMap","toGT") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Var 4,Var 5],Var 6],Comb FuncCall ("OraclePrelude","/=") [Var 3,Var 4,Var 7],Var 8]]))),Func ("OracleFiniteMap","isEmptyFM'") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 2,Var 1],Lit (Intc 0),Var 3]]))),Func ("OracleFiniteMap","sIZE_RATIO") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 5)])),Func ("OracleFiniteMap","mkBranch") 6 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))))) (Rule [2,3,4,5,6,1] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 5,Var 1])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 6,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("FiniteMap","Branch") [Var 3,Var 4,Comb FuncCall ("OracleFiniteMap","mkBranch.unbox.264") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","+") [Lit (Intc 1),Var 7,Var 10],Var 8,Var 11],Var 12],Var 5,Var 6]]))]))]))),Func ("OracleFiniteMap","mkBranch.unbox.264") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OracleFiniteMap","mkBalBranch") 5 Private (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1])))))) (Rule [2,3,4,5,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 4,Var 1])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 5,Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","_case_51") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OraclePrelude","+") [Var 6,Var 7,Var 9],Lit (Intc 2),Var 10],Var 11]]))]))]))),Func ("OracleFiniteMap","mkBalBranch.single_L.273") 5 Private (FuncType (TVar 170) (FuncType (TVar 169) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_43") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleFiniteMap","mkBalBranch.double_L.273") 5 Private (FuncType (TVar 170) (FuncType (TVar 169) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_42") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleFiniteMap","mkBalBranch.single_R.273") 5 Private (FuncType (TVar 170) (FuncType (TVar 169) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_40") [Var 2,Var 3,Var 5,Var 4,Var 1]])),Func ("OracleFiniteMap","mkBalBranch.double_R.273") 5 Private (FuncType (TVar 170) (FuncType (TVar 169) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_39") [Var 2,Var 3,Var 5,Var 4,Var 1]])),Func ("OracleFiniteMap","mkVBalBranch") 6 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_37") [Var 2,Var 3,Var 4,Var 6,Var 5,Var 1]])),Func ("OracleFiniteMap","glueBal") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_32") [Var 2,Var 3,Var 4,Comb FuncCall ("OracleFiniteMap","isEmptyFM'") [Var 3,Var 1],Var 5]]))),Func ("OracleFiniteMap","glueBal._#selFP8#mid_key1") 2 Private (FuncType (TCons ("Prelude","(,)") [TVar 439,TVar 440]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 439))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_29") [Var 2,Var 1]])),Func ("OracleFiniteMap","glueBal._#selFP9#mid_elt1") 2 Private (FuncType (TCons ("Prelude","(,)") [TVar 439,TVar 440]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 440))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_28") [Var 2,Var 1]])),Func ("OracleFiniteMap","glueBal._#selFP6#mid_key2") 2 Private (FuncType (TCons ("Prelude","(,)") [TVar 439,TVar 440]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 439))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_27") [Var 2,Var 1]])),Func ("OracleFiniteMap","glueBal._#selFP7#mid_elt2") 2 Private (FuncType (TCons ("Prelude","(,)") [TVar 439,TVar 440]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 440))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_26") [Var 2,Var 1]])),Func ("OracleFiniteMap","glueVBal") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_25") [Var 2,Var 3,Var 4,Comb FuncCall ("OracleFiniteMap","isEmptyFM'") [Var 3,Var 1],Var 5]]))),Func ("OracleFiniteMap","glueVBal._#selFP16#key_l") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 876))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_21") [Var 2,Var 1]])),Func ("OracleFiniteMap","glueVBal._#selFP17#elt_l") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 877))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_20") [Var 2,Var 1]])),Func ("OracleFiniteMap","glueVBal._#selFP18#fm_ll") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_19") [Var 2,Var 1]])),Func ("OracleFiniteMap","glueVBal._#selFP19#fm_lr") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_18") [Var 2,Var 1]])),Func ("OracleFiniteMap","glueVBal._#selFP12#key_r") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 876))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_17") [Var 2,Var 1]])),Func ("OracleFiniteMap","glueVBal._#selFP13#elt_r") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 877))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_16") [Var 2,Var 1]])),Func ("OracleFiniteMap","glueVBal._#selFP14#fm_rl") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_15") [Var 2,Var 1]])),Func ("OracleFiniteMap","glueVBal._#selFP15#fm_rr") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_14") [Var 2,Var 1]])),Func ("OracleFiniteMap","splitLT") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_13") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleFiniteMap","splitGT") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_10") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleFiniteMap","findMin") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TVar 0,TVar 1]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_7") [Var 2,Var 1]])),Func ("OracleFiniteMap","deleteMin") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_5") [Var 2,Var 3,Var 1]])),Func ("OracleFiniteMap","findMax") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TVar 0,TVar 1]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_3") [Var 2,Var 1]])),Func ("OracleFiniteMap","deleteMax") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_1") [Var 2,Var 3,Var 1]])),Func ("OracleFiniteMap","emptySet") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (TCons ("OracleFiniteMap","FM") [TVar 0,TCons ("Prelude","()") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFiniteMap","emptyFM") []]])),Func ("OracleFiniteMap","mkSet") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TCons ("Prelude","()") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFiniteMap","listToFM") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFiniteMap","mkSet._#lambda13") []],Var 3,Var 4],Var 5]]))),Func ("OracleFiniteMap","mkSet._#lambda13") 2 Private (FuncType (TVar 1421) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TVar 1421,TCons ("Prelude","()") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 2,Comb ConsCall ("Prelude","()") []]])),Func ("OracleFiniteMap","isEmptySet") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TCons ("Prelude","()") []]) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFiniteMap","isEmptyFM") []]])),Func ("OracleFiniteMap","elementOf") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TCons ("Prelude","()") []]) (TCons ("Prelude","Bool") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFiniteMap","elemFM") []]])),Func ("OracleFiniteMap","minusSet") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TCons ("Prelude","()") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TCons ("Prelude","()") []]) (TCons ("OracleFiniteMap","FM") [TVar 0,TCons ("Prelude","()") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFiniteMap","minusFM") []]])),Func ("OracleFiniteMap","setToList") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TCons ("Prelude","()") []]) (TCons ("Prelude","[]") [TVar 0])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFiniteMap","keysFM") []]])),Func ("OracleFiniteMap","union") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TCons ("Prelude","()") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TCons ("Prelude","()") []]) (TCons ("OracleFiniteMap","FM") [TVar 0,TCons ("Prelude","()") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFiniteMap","plusFM") []]])),Func ("OracleFiniteMap","_case_1") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FiniteMap","Branch") [4,5,6,7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_0") [Var 2,Var 4,Var 5,Var 7,Var 8,Var 1]])]])),Func ("OracleFiniteMap","_case_0") 6 Private (TVar (-42)) (Rule [2,4,5,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7]),Branch (Pattern ("FiniteMap","Branch") [9,10,11,12,13]) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 4,Var 5,Var 7,Comb FuncCall ("OracleFiniteMap","deleteMax") [Var 2,Comb ConsCall ("FiniteMap","Branch") [Var 9,Var 10,Var 11,Var 12,Var 13],Var 1],Var 14]]))]])),Func ("OracleFiniteMap","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_2") [Var 3,Var 4,Var 7,Var 1]])]])),Func ("OracleFiniteMap","_case_2") 4 Private (TVar (-42)) (Rule [3,4,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 3,Var 4]]),Branch (Pattern ("FiniteMap","Branch") [8,9,10,11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","findMax") [Comb ConsCall ("FiniteMap","Branch") [Var 8,Var 9,Var 10,Var 11,Var 12],Var 1]])]])),Func ("OracleFiniteMap","_case_5") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FiniteMap","Branch") [4,5,6,7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_4") [Var 2,Var 4,Var 5,Var 8,Var 7,Var 1]])]])),Func ("OracleFiniteMap","_case_4") 6 Private (TVar (-42)) (Rule [2,4,5,8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8]),Branch (Pattern ("FiniteMap","Branch") [9,10,11,12,13]) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 4,Var 5,Comb FuncCall ("OracleFiniteMap","deleteMin") [Var 2,Comb ConsCall ("FiniteMap","Branch") [Var 9,Var 10,Var 11,Var 12,Var 13],Var 1],Var 8,Var 14]]))]])),Func ("OracleFiniteMap","_case_7") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_6") [Var 3,Var 4,Var 6,Var 1]])]])),Func ("OracleFiniteMap","_case_6") 4 Private (TVar (-42)) (Rule [3,4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 3,Var 4]]),Branch (Pattern ("FiniteMap","Branch") [8,9,10,11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","findMin") [Comb ConsCall ("FiniteMap","Branch") [Var 8,Var 9,Var 10,Var 11,Var 12],Var 1]])]])),Func ("OracleFiniteMap","_case_10") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","EmptyFM") []]),Branch (Pattern ("FiniteMap","Branch") [5,6,7,8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","_case_9") [Var 2,Var 4,Var 5,Var 6,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5,Var 10],Var 11]]))]])),Func ("OracleFiniteMap","_case_9") 8 Private (TVar (-42)) (Rule [2,4,5,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkVBalBranch") [Var 2,Var 5,Var 6,Comb FuncCall ("OracleFiniteMap","splitGT") [Var 2,Var 8,Var 4,Var 1],Var 9,Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_8") [Var 2,Var 4,Var 5,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 4,Var 5,Var 1],Var 12]]))]])),Func ("OracleFiniteMap","_case_8") 6 Private (TVar (-42)) (Rule [2,4,5,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","splitGT") [Var 2,Var 9,Var 4,Var 1]])]])),Func ("OracleFiniteMap","_case_13") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","EmptyFM") []]),Branch (Pattern ("FiniteMap","Branch") [5,6,7,8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","_case_12") [Var 2,Var 4,Var 5,Var 6,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5,Var 10],Var 11]]))]])),Func ("OracleFiniteMap","_case_12") 8 Private (TVar (-42)) (Rule [2,4,5,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","splitLT") [Var 2,Var 8,Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_11") [Var 2,Var 4,Var 5,Var 6,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 4,Var 5,Var 1],Var 11]]))]])),Func ("OracleFiniteMap","_case_11") 8 Private (TVar (-42)) (Rule [2,4,5,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkVBalBranch") [Var 2,Var 5,Var 6,Var 8,Comb FuncCall ("OracleFiniteMap","splitLT") [Var 2,Var 9,Var 4,Var 1],Var 11]]))]])),Func ("OracleFiniteMap","_case_14") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7])]])),Func ("OracleFiniteMap","_case_15") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleFiniteMap","_case_16") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFiniteMap","_case_17") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFiniteMap","_case_18") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7])]])),Func ("OracleFiniteMap","_case_19") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleFiniteMap","_case_20") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFiniteMap","_case_21") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFiniteMap","_case_25") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_24") [Var 2,Var 3,Var 4,Comb FuncCall ("OracleFiniteMap","isEmptyFM'") [Var 4,Var 1],Var 6]]))]])),Func ("OracleFiniteMap","_case_24") 5 Private (TVar (-42)) (Rule [2,3,4,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(5,Var 3)] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleFiniteMap","glueVBal._#selFP16#key_l") [Var 5,Var 1])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleFiniteMap","glueVBal._#selFP17#elt_l") [Var 5,Var 18])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleFiniteMap","glueVBal._#selFP18#fm_ll") [Var 5,Var 19])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleFiniteMap","glueVBal._#selFP19#fm_lr") [Var 5,Var 20])] (Comb FuncCall ("CEventOracle","replace") [Var 21,Let [(10,Var 4)] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleFiniteMap","glueVBal._#selFP12#key_r") [Var 10,Var 21])] (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Let [(12,Comb FuncCall ("OracleFiniteMap","glueVBal._#selFP13#elt_r") [Var 10,Var 22])] (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OracleFiniteMap","glueVBal._#selFP14#fm_rl") [Var 10,Var 23])] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(14,Comb FuncCall ("OracleFiniteMap","glueVBal._#selFP15#fm_rr") [Var 10,Var 24])] (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Let [(15,Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 3,Var 25])] (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Let [(16,Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 4,Var 26])] (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFiniteMap","_case_23") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Var 11,Var 12,Var 13,Var 14,Var 15,Var 16,Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OraclePrelude","*") [Comb FuncCall ("OracleFiniteMap","sIZE_RATIO") [Var 27],Var 15,Var 28],Var 16,Var 29],Var 30]]))]))]))]))]))]))]))])]))]))]))]))])]])),Func ("OracleFiniteMap","_case_23") 15 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,11,12,13,14,15,16,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","True") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 11,Var 12,Comb FuncCall ("OracleFiniteMap","glueVBal") [Var 2,Var 3,Var 13,Var 1],Var 14,Var 18]])),Branch (Pattern ("Prelude","False") []) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFiniteMap","_case_22") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Var 15,Var 16,Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OraclePrelude","*") [Comb FuncCall ("OracleFiniteMap","sIZE_RATIO") [Var 1],Var 16,Var 19],Var 15,Var 20],Var 21]]))]])),Func ("OracleFiniteMap","_case_22") 11 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,15,16,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","True") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 6,Var 7,Var 8,Comb FuncCall ("OracleFiniteMap","glueVBal") [Var 2,Var 9,Var 4,Var 1],Var 18]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","glueBal") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleFiniteMap","_case_26") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFiniteMap","_case_27") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFiniteMap","_case_28") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFiniteMap","_case_29") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFiniteMap","_case_32") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_31") [Var 2,Var 3,Var 4,Comb FuncCall ("OracleFiniteMap","isEmptyFM'") [Var 4,Var 1],Var 6]]))]])),Func ("OracleFiniteMap","_case_31") 5 Private (TVar (-42)) (Rule [2,3,4,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleFiniteMap","findMax") [Var 3,Var 1])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleFiniteMap","glueBal._#selFP8#mid_key1") [Var 5,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleFiniteMap","glueBal._#selFP9#mid_elt1") [Var 5,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleFiniteMap","findMin") [Var 4,Var 14])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleFiniteMap","glueBal._#selFP6#mid_key2") [Var 8,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleFiniteMap","glueBal._#selFP7#mid_elt2") [Var 8,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFiniteMap","_case_30") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 9,Var 10,Comb FuncCall ("OraclePrelude",">") [Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 4,Var 17],Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 3,Var 18],Var 19],Var 20]]))]))]))]))]))]))]))]])),Func ("OracleFiniteMap","_case_30") 9 Private (TVar (-42)) (Rule [2,3,4,6,7,9,10,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude","True") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 9,Var 10,Var 3,Comb FuncCall ("OracleFiniteMap","deleteMin") [Var 2,Var 4,Var 1],Var 12]])),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 6,Var 7,Comb FuncCall ("OracleFiniteMap","deleteMax") [Var 2,Var 3,Var 1],Var 4,Var 13]]))]])),Func ("OracleFiniteMap","_case_37") 6 Private (TVar (-42)) (Rule [2,3,4,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","addToFM'") [Var 2,Var 6,Var 3,Var 4,Var 1]]),Branch (Pattern ("FiniteMap","Branch") [7,8,9,10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_36") [Var 2,Var 3,Var 4,Var 7,Var 8,Var 9,Var 10,Var 11,Var 6,Var 1]])]])),Func ("OracleFiniteMap","_case_36") 10 Private (TVar (-42)) (Rule [2,3,4,7,8,9,10,11,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","addToFM'") [Var 2,Comb ConsCall ("FiniteMap","Branch") [Var 7,Var 8,Var 9,Var 10,Var 11],Var 3,Var 4,Var 1]]),Branch (Pattern ("FiniteMap","Branch") [12,13,14,15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(17,Comb ConsCall ("FiniteMap","Branch") [Var 7,Var 8,Var 9,Var 10,Var 11])] (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(18,Comb ConsCall ("FiniteMap","Branch") [Var 12,Var 13,Var 14,Var 15,Var 16])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Let [(19,Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 17,Var 1])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Let [(20,Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 18,Var 21])] (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFiniteMap","_case_35") [Var 2,Var 3,Var 4,Var 7,Var 8,Var 10,Var 11,Var 12,Var 13,Var 15,Var 16,Var 17,Var 18,Var 19,Var 20,Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OraclePrelude","*") [Comb FuncCall ("OracleFiniteMap","sIZE_RATIO") [Var 22],Var 19,Var 23],Var 20,Var 24],Var 25]]))]))]))])])]])),Func ("OracleFiniteMap","_case_35") 17 Private (TVar (-42)) (Rule [2,3,4,7,8,10,11,12,13,15,16,17,18,19,20,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 21) [Branch (Pattern ("Prelude","True") []) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 12,Var 13,Comb FuncCall ("OracleFiniteMap","mkVBalBranch") [Var 2,Var 3,Var 4,Var 17,Var 15,Var 1],Var 16,Var 22]])),Branch (Pattern ("Prelude","False") []) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFiniteMap","_case_34") [Var 2,Var 3,Var 4,Var 7,Var 8,Var 10,Var 11,Var 17,Var 18,Var 19,Var 20,Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OraclePrelude","*") [Comb FuncCall ("OracleFiniteMap","sIZE_RATIO") [Var 1],Var 20,Var 23],Var 19,Var 24],Var 25]]))]])),Func ("OracleFiniteMap","_case_34") 13 Private (TVar (-42)) (Rule [2,3,4,7,8,10,11,17,18,19,20,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 21) [Branch (Pattern ("Prelude","True") []) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 7,Var 8,Var 10,Comb FuncCall ("OracleFiniteMap","mkVBalBranch") [Var 2,Var 3,Var 4,Var 11,Var 18,Var 1],Var 22]])),Branch (Pattern ("Prelude","False") []) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_33") [Var 3,Var 4,Var 17,Var 18,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 23]]))]])),Func ("OracleFiniteMap","_case_33") 6 Private (TVar (-42)) (Rule [3,4,17,18,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 19) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 13),Var 3,Var 4,Var 17,Var 18,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFiniteMap","_case_39") 5 Private (TVar (-42)) (Rule [2,3,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FiniteMap","Branch") [6,7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_38") [Var 2,Var 3,Var 5,Var 6,Var 7,Var 9,Var 10,Var 1]])]])),Func ("OracleFiniteMap","_case_38") 8 Private (TVar (-42)) (Rule [2,3,5,6,7,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("FiniteMap","Branch") [11,12,13,14,15]) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 10),Var 11,Var 12,Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 11),Var 6,Var 7,Var 9,Var 14,Var 1],Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 12),Var 3,Var 2,Var 15,Var 5,Var 16],Var 17]]))]])),Func ("OracleFiniteMap","_case_40") 5 Private (TVar (-42)) (Rule [2,3,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FiniteMap","Branch") [6,7,8,9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 8),Var 6,Var 7,Var 9,Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 9),Var 3,Var 2,Var 10,Var 5,Var 1],Var 11]]))]])),Func ("OracleFiniteMap","_case_42") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FiniteMap","Branch") [6,7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_41") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 10,Var 9,Var 1]])]])),Func ("OracleFiniteMap","_case_41") 8 Private (TVar (-42)) (Rule [2,3,4,6,7,10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("FiniteMap","Branch") [11,12,13,14,15]) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 5),Var 11,Var 12,Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 6),Var 3,Var 2,Var 4,Var 14,Var 1],Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 7),Var 6,Var 7,Var 15,Var 10,Var 16],Var 17]]))]])),Func ("OracleFiniteMap","_case_43") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FiniteMap","Branch") [6,7,8,9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 3),Var 6,Var 7,Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 4),Var 3,Var 2,Var 4,Var 9,Var 1],Var 10,Var 11]]))]])),Func ("OracleFiniteMap","_case_51") 8 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 1),Var 2,Var 3,Var 4,Var 5,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFiniteMap","_case_50") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Comb FuncCall ("OraclePrelude",">") [Var 7,Comb FuncCall ("OraclePrelude","*") [Comb FuncCall ("OracleFiniteMap","sIZE_RATIO") [Var 1],Var 6,Var 9],Var 10],Var 11]]))]])),Func ("OracleFiniteMap","_case_50") 8 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_49") [Var 2,Var 3,Var 4,Var 5,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFiniteMap","_case_47") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Comb FuncCall ("OraclePrelude",">") [Var 6,Comb FuncCall ("OraclePrelude","*") [Comb FuncCall ("OracleFiniteMap","sIZE_RATIO") [Var 1],Var 7,Var 9],Var 10],Var 11]]))]])),Func ("OracleFiniteMap","_case_47") 8 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_46") [Var 2,Var 3,Var 5,Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_44") [Var 2,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 9]]))]])),Func ("OracleFiniteMap","_case_44") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 2),Var 2,Var 3,Var 4,Var 5,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFiniteMap","_case_46") 5 Private (TVar (-42)) (Rule [2,3,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("FiniteMap","Branch") [13,14,15,16,17]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFiniteMap","_case_45") [Var 2,Var 3,Var 4,Var 5,Var 16,Var 17,Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 17,Var 1],Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 16,Var 18],Var 19],Var 20],Var 21]])),Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFiniteMap","_case_45") 8 Private (TVar (-42)) (Rule [2,3,4,5,16,17,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 18) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","mkBalBranch.single_R.273") [Var 3,Var 2,Var 4,Var 5,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","mkBalBranch.double_R.273") [Var 3,Var 2,Var 4,Var 5,Var 1]])]])),Func ("OracleFiniteMap","_case_49") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("FiniteMap","Branch") [8,9,10,11,12]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFiniteMap","_case_48") [Var 2,Var 3,Var 4,Var 5,Var 11,Var 12,Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 11,Var 1],Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 12,Var 13],Var 14],Var 15],Var 16]])),Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFiniteMap","_case_48") 8 Private (TVar (-42)) (Rule [2,3,4,5,11,12,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","mkBalBranch.single_L.273") [Var 3,Var 2,Var 4,Var 5,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","mkBalBranch.double_L.273") [Var 3,Var 2,Var 4,Var 5,Var 1]])]])),Func ("OracleFiniteMap","_case_52") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFiniteMap","_case_53") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("FiniteMap","Branch") [4,5,6,7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 4,Var 5],Comb FuncCall ("OracleFiniteMap","fmToListPreOrder.pre.243") [Var 7,Comb FuncCall ("OracleFiniteMap","fmToListPreOrder.pre.243") [Var 8,Var 3,Var 1],Var 9]]]))]])),Func ("OracleFiniteMap","_case_54") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","fmToListPreOrder.pre.243") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 1]])]])),Func ("OracleFiniteMap","_case_57") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_56") [Var 3,Var 4,Var 7,Comb FuncCall ("OraclePrelude","==") [Var 7,Comb ConsCall ("FiniteMap","EmptyFM") [],Var 1],Var 8]]))]])),Func ("OracleFiniteMap","_case_56") 5 Private (TVar (-42)) (Rule [3,4,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","(,)") [Var 3,Var 4]]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_55") [Var 7,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 9]]))]])),Func ("OracleFiniteMap","_case_55") 3 Private (TVar (-42)) (Rule [7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","maxFM.max.223") [Var 7,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFiniteMap","_case_60") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_59") [Var 3,Var 4,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 6,Comb ConsCall ("FiniteMap","EmptyFM") [],Var 1],Var 8]]))]])),Func ("OracleFiniteMap","_case_59") 5 Private (TVar (-42)) (Rule [3,4,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","(,)") [Var 3,Var 4]]]),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_58") [Var 6,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 8]]))]])),Func ("OracleFiniteMap","_case_58") 3 Private (TVar (-42)) (Rule [6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","minFM.min.215") [Var 6,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFiniteMap","_case_61") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFiniteMap","_case_62") 5 Private (TVar (-42)) (Rule [2,3,4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","Just") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleFiniteMap","_case_65") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FiniteMap","Branch") [5,6,7,8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","_case_64") [Var 2,Var 4,Var 5,Var 6,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5,Var 10],Var 11]]))]])),Func ("OracleFiniteMap","_case_64") 8 Private (TVar (-42)) (Rule [2,4,5,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","lookupFM'") [Var 2,Var 8,Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_63") [Var 2,Var 4,Var 5,Var 6,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 4,Var 5,Var 1],Var 11]]))]])),Func ("OracleFiniteMap","_case_63") 7 Private (TVar (-42)) (Rule [2,4,5,6,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Var 6]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","lookupFM'") [Var 2,Var 9,Var 4,Var 1]])]])),Func ("OracleFiniteMap","_case_66") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","lookupFM'") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFiniteMap","_case_67") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleFiniteMap","_case_69") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_68") [Var 4,Var 1]])]])),Func ("OracleFiniteMap","_case_68") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("FiniteMap","Branch") [5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7])]])),Func ("OracleFiniteMap","_case_72") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","EmptyFM") []]),Branch (Pattern ("FiniteMap","Branch") [5,6,7,8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","_case_71") [Var 2,Var 3,Var 5,Var 6,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 1],Var 6,Var 10],Var 11]]))]])),Func ("OracleFiniteMap","_case_71") 8 Private (TVar (-42)) (Rule [2,3,5,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","mkVBalBranch") [Var 2,Var 5,Var 6,Comb FuncCall ("OracleFiniteMap","filterFM'") [Var 2,Var 3,Var 8,Var 1],Comb FuncCall ("OracleFiniteMap","filterFM'") [Var 2,Var 3,Var 9,Var 11],Var 12]])),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_70") [Var 2,Var 3,Var 8,Var 9,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 13]]))]])),Func ("OracleFiniteMap","_case_70") 6 Private (TVar (-42)) (Rule [2,3,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","glueVBal") [Var 2,Comb FuncCall ("OracleFiniteMap","filterFM'") [Var 2,Var 3,Var 8,Var 1],Comb FuncCall ("OracleFiniteMap","filterFM'") [Var 2,Var 3,Var 9,Var 11],Var 12]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFiniteMap","_case_73") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleFiniteMap","FM") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 4,Comb FuncCall ("OracleFiniteMap","filterFM'") [Var 4,Var 2,Var 5,Var 1]]])]])),Func ("OracleFiniteMap","_case_74") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","EmptyFM") []]),Branch (Pattern ("FiniteMap","Branch") [5,6,7,8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("FiniteMap","Branch") [Var 5,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 1],Var 6,Var 10],Var 7,Comb FuncCall ("OracleFiniteMap","mapFM'") [Var 2,Var 3,Var 8,Var 11],Comb FuncCall ("OracleFiniteMap","mapFM'") [Var 2,Var 3,Var 9,Var 12]]]))]])),Func ("OracleFiniteMap","_case_75") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleFiniteMap","FM") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 4,Comb FuncCall ("OracleFiniteMap","mapFM'") [Var 4,Var 2,Var 5,Var 1]]])]])),Func ("OracleFiniteMap","_case_76") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("FiniteMap","Branch") [6,7,8,9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFiniteMap","foldFM'") [Var 2,Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 6,Var 1],Var 7,Var 11],Comb FuncCall ("OracleFiniteMap","foldFM'") [Var 2,Var 3,Var 4,Var 10,Var 12],Var 13],Var 9,Var 14]]))]])),Func ("OracleFiniteMap","_case_77") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("OracleFiniteMap","FM") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","foldFM'") [Var 5,Var 2,Var 3,Var 6,Var 1]])]])),Func ("OracleFiniteMap","_case_78") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Just") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFiniteMap","_case_82") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","EmptyFM") []]),Branch (Pattern ("FiniteMap","Branch") [6,7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_81") [Var 2,Var 3,Var 6,Var 7,Var 9,Var 10,Var 4,Var 1]])]])),Func ("OracleFiniteMap","_case_81") 8 Private (TVar (-42)) (Rule [2,3,6,7,9,10,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","EmptyFM") []]),Branch (Pattern ("FiniteMap","Branch") [11,12,13,14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(16,Comb ConsCall ("FiniteMap","Branch") [Var 11,Var 12,Var 13,Var 14,Var 15])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Let [(17,Comb FuncCall ("OracleFiniteMap","splitLT") [Var 2,Var 16,Var 6,Var 1])] (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Let [(18,Comb FuncCall ("OracleFiniteMap","splitGT") [Var 2,Var 16,Var 6,Var 22])] (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Let [(19,Comb FuncCall ("OracleFiniteMap","lookupFM'") [Var 2,Var 16,Var 6,Var 23])] (Comb FuncCall ("CEventOracle","replace") [Var 24,Let [(20,Var 19)] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(21,Comb FuncCall ("OracleFiniteMap","intersectFM_C'._#selFP3#elt1'") [Var 20,Var 24])] (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_80") [Var 2,Var 3,Var 6,Var 7,Var 9,Var 10,Var 17,Var 18,Var 19,Var 21,Comb FuncCall ("OracleMaybe","isJust") [Var 19,Var 25],Var 26]]))]))])]))]))]))])]])),Func ("OracleFiniteMap","_case_80") 12 Private (TVar (-42)) (Rule [2,3,6,7,9,10,17,18,19,21,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 22) [Branch (Pattern ("Prelude","True") []) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFiniteMap","mkVBalBranch") [Var 2,Var 6,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 21,Var 1],Var 7,Var 23],Comb FuncCall ("OracleFiniteMap","intersectFM_C'") [Var 2,Var 3,Var 17,Var 9,Var 24],Comb FuncCall ("OracleFiniteMap","intersectFM_C'") [Var 2,Var 3,Var 18,Var 10,Var 25],Var 26]])),Branch (Pattern ("Prelude","False") []) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_79") [Var 2,Var 3,Var 9,Var 10,Var 17,Var 18,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 27]]))]])),Func ("OracleFiniteMap","_case_79") 8 Private (TVar (-42)) (Rule [2,3,9,10,17,18,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 19) [Branch (Pattern ("Prelude","True") []) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","glueVBal") [Var 2,Comb FuncCall ("OracleFiniteMap","intersectFM_C'") [Var 2,Var 3,Var 17,Var 9,Var 1],Comb FuncCall ("OracleFiniteMap","intersectFM_C'") [Var 2,Var 3,Var 18,Var 10,Var 20],Var 21]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFiniteMap","_case_84") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleFiniteMap","FM") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_83") [Var 2,Var 5,Var 6,Var 4,Var 1]])]])),Func ("OracleFiniteMap","_case_83") 5 Private (TVar (-42)) (Rule [2,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("OracleFiniteMap","FM") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 5,Comb FuncCall ("OracleFiniteMap","intersectFM_C'") [Var 5,Var 2,Var 6,Var 8,Var 1]]])]])),Func ("OracleFiniteMap","_case_86") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_85") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFiniteMap","_case_85") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleFiniteMap","FM") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 4,Comb FuncCall ("OracleFiniteMap","intersectFM'") [Var 4,Var 5,Var 7,Var 1]]])]])),Func ("OracleFiniteMap","_case_88") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","EmptyFM") []]),Branch (Pattern ("FiniteMap","Branch") [5,6,7,8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_87") [Var 2,Var 5,Var 6,Var 7,Var 8,Var 9,Var 4,Var 1]])]])),Func ("OracleFiniteMap","_case_87") 8 Private (TVar (-42)) (Rule [2,5,6,7,8,9,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","Branch") [Var 5,Var 6,Var 7,Var 8,Var 9]]),Branch (Pattern ("FiniteMap","Branch") [10,11,12,13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(15,Comb ConsCall ("FiniteMap","Branch") [Var 5,Var 6,Var 7,Var 8,Var 9])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(16,Comb FuncCall ("OracleFiniteMap","splitLT") [Var 2,Var 15,Var 10,Var 1])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Let [(17,Comb FuncCall ("OracleFiniteMap","splitGT") [Var 2,Var 15,Var 10,Var 18])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","glueVBal") [Var 2,Comb FuncCall ("OracleFiniteMap","minusFM'") [Var 2,Var 16,Var 13,Var 19],Comb FuncCall ("OracleFiniteMap","minusFM'") [Var 2,Var 17,Var 14,Var 20],Var 21]]))]))]))])]])),Func ("OracleFiniteMap","_case_90") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_89") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFiniteMap","_case_89") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleFiniteMap","FM") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 4,Comb FuncCall ("OracleFiniteMap","minusFM'") [Var 4,Var 5,Var 7,Var 1]]])]])),Func ("OracleFiniteMap","_case_93") 5 Private (TVar (-42)) (Rule [2,3,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5]),Branch (Pattern ("FiniteMap","Branch") [6,7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_92") [Var 2,Var 3,Var 6,Var 7,Var 8,Var 9,Var 10,Var 5,Var 1]])]])),Func ("OracleFiniteMap","_case_92") 9 Private (TVar (-42)) (Rule [2,3,6,7,8,9,10,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","Branch") [Var 6,Var 7,Var 8,Var 9,Var 10]]),Branch (Pattern ("FiniteMap","Branch") [11,12,13,14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(16,Comb ConsCall ("FiniteMap","Branch") [Var 6,Var 7,Var 8,Var 9,Var 10])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Let [(17,Comb FuncCall ("OracleFiniteMap","splitLT") [Var 2,Var 16,Var 11,Var 1])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Let [(18,Comb FuncCall ("OracleFiniteMap","splitGT") [Var 2,Var 16,Var 11,Var 20])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]],Let [(19,Comb FuncCall ("OracleFiniteMap","_case_91") [Var 2,Var 3,Var 11,Var 12,Var 16,Comb FuncCall ("OracleFiniteMap","lookupFM'") [Var 2,Var 16,Var 11,Var 21],Var 22])] (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","mkVBalBranch") [Var 2,Var 11,Var 19,Comb FuncCall ("OracleFiniteMap","plusFM_C'") [Var 2,Var 3,Var 17,Var 14,Var 23],Comb FuncCall ("OracleFiniteMap","plusFM_C'") [Var 2,Var 3,Var 18,Var 15,Var 24],Var 25]]))]))]))]))])]])),Func ("OracleFiniteMap","_case_91") 7 Private (TVar (-42)) (Rule [2,3,11,12,16,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 21) [Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 12]),Branch (Pattern ("Prelude","Just") [20]) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 20,Var 1],Var 12,Var 22]]))]])),Func ("OracleFiniteMap","_case_95") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleFiniteMap","FM") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_94") [Var 2,Var 5,Var 6,Var 4,Var 1]])]])),Func ("OracleFiniteMap","_case_94") 5 Private (TVar (-42)) (Rule [2,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("OracleFiniteMap","FM") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 5,Comb FuncCall ("OracleFiniteMap","plusFM_C'") [Var 5,Var 2,Var 6,Var 8,Var 1]]])]])),Func ("OracleFiniteMap","_case_97") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("FiniteMap","Branch") [5,6,7,8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_96") [Var 2,Var 5,Var 6,Var 7,Var 8,Var 9,Var 4,Var 1]])]])),Func ("OracleFiniteMap","_case_96") 8 Private (TVar (-42)) (Rule [2,5,6,7,8,9,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","Branch") [Var 5,Var 6,Var 7,Var 8,Var 9]]),Branch (Pattern ("FiniteMap","Branch") [10,11,12,13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(15,Comb ConsCall ("FiniteMap","Branch") [Var 5,Var 6,Var 7,Var 8,Var 9])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(16,Comb FuncCall ("OracleFiniteMap","splitLT") [Var 2,Var 15,Var 10,Var 1])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Let [(17,Comb FuncCall ("OracleFiniteMap","splitGT") [Var 2,Var 15,Var 10,Var 18])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","mkVBalBranch") [Var 2,Var 10,Var 11,Comb FuncCall ("OracleFiniteMap","plusFM'") [Var 2,Var 16,Var 13,Var 19],Comb FuncCall ("OracleFiniteMap","plusFM'") [Var 2,Var 17,Var 14,Var 20],Var 21]]))]))]))])]])),Func ("OracleFiniteMap","_case_99") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_98") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFiniteMap","_case_98") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleFiniteMap","FM") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 4,Comb FuncCall ("OracleFiniteMap","plusFM'") [Var 4,Var 5,Var 7,Var 1]]])]])),Func ("OracleFiniteMap","_case_103") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","EmptyFM") []]),Branch (Pattern ("FiniteMap","Branch") [6,7,8,9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_102") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Var 10,Comb FuncCall ("OraclePrelude","==") [Var 3,Var 6,Var 1],Var 11]]))]])),Func ("OracleFiniteMap","_case_102") 10 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,10,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FiniteMap","Branch") [Var 6,Comb FuncCall ("Oracle","apply") [Var 2,Var 7,Var 1],Var 8,Var 9,Var 10]]),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","_case_101") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Var 10,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 4,Var 3,Var 1],Var 6,Var 12],Var 13]]))]])),Func ("OracleFiniteMap","_case_101") 10 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,10,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FiniteMap","Branch") [Var 6,Var 7,Var 8,Comb FuncCall ("OracleFiniteMap","updFM.upd.49") [Var 2,Var 3,Var 4,Var 9,Var 1],Var 10]]),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_100") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Var 10,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 12]]))]])),Func ("OracleFiniteMap","_case_100") 10 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,10,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FiniteMap","Branch") [Var 6,Var 7,Var 8,Var 9,Comb FuncCall ("OracleFiniteMap","updFM.upd.49") [Var 2,Var 3,Var 4,Var 10,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFiniteMap","_case_104") 4 Private (TVar (-42)) (Rule [3,4,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 5,Comb FuncCall ("OracleFiniteMap","updFM.upd.49") [Var 4,Var 3,Var 5,Var 6,Var 1]]])]])),Func ("OracleFiniteMap","_case_105") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 4,Comb FuncCall ("OraclePrelude","foldl") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFiniteMap","delFromFM'") [Var 4]],Var 5,Var 3,Var 1]]])]])),Func ("OracleFiniteMap","_case_108") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","EmptyFM") []]),Branch (Pattern ("FiniteMap","Branch") [5,6,7,8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","_case_107") [Var 2,Var 4,Var 5,Var 6,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5,Var 10],Var 11]]))]])),Func ("OracleFiniteMap","_case_107") 8 Private (TVar (-42)) (Rule [2,4,5,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 5,Var 6,Comb FuncCall ("OracleFiniteMap","delFromFM'") [Var 2,Var 8,Var 4,Var 1],Var 9,Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_106") [Var 2,Var 4,Var 5,Var 6,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 4,Var 5,Var 1],Var 12]]))]])),Func ("OracleFiniteMap","_case_106") 8 Private (TVar (-42)) (Rule [2,4,5,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","glueBal") [Var 2,Var 8,Var 9,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 5,Var 6,Var 8,Comb FuncCall ("OracleFiniteMap","delFromFM'") [Var 2,Var 9,Var 4,Var 1],Var 11]]))]])),Func ("OracleFiniteMap","_case_109") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 4,Comb FuncCall ("OracleFiniteMap","delFromFM'") [Var 4,Var 5,Var 3,Var 1]]])]])),Func ("OracleFiniteMap","_case_110") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleFiniteMap","FM") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 5,Comb FuncCall ("OracleFiniteMap","addListToFM_C'") [Var 5,Var 2,Var 6,Var 4,Var 1]]])]])),Func ("OracleFiniteMap","_case_111") 5 Private (TVar (-42)) (Rule [2,4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleFiniteMap","FM") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 6,Comb FuncCall ("OracleFiniteMap","addToFM_C'") [Var 6,Var 2,Var 7,Var 4,Var 5,Var 1]]])]])),Func ("OracleFiniteMap","_case_112") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","addToFM_C'") [Var 3,Var 2,Var 4,Var 6,Var 7,Var 1]])]])),Func ("OracleFiniteMap","_case_113") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 4,Comb FuncCall ("OracleFiniteMap","addListToFM'") [Var 4,Var 5,Var 3,Var 1]]])]])),Func ("OracleFiniteMap","_case_116") 6 Private (TVar (-42)) (Rule [2,3,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","unitFM'") [Var 5,Var 6,Var 1]]),Branch (Pattern ("FiniteMap","Branch") [7,8,9,10,11]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","_case_115") [Var 2,Var 3,Var 5,Var 6,Var 7,Var 8,Var 9,Var 10,Var 11,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 7,Var 12],Var 13]]))]])),Func ("OracleFiniteMap","_case_115") 11 Private (TVar (-42)) (Rule [2,3,5,6,7,8,9,10,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 7,Var 8,Comb FuncCall ("OracleFiniteMap","addToFM_C'") [Var 2,Var 3,Var 10,Var 5,Var 6,Var 1],Var 11,Var 13]])),Branch (Pattern ("Prelude","False") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_114") [Var 2,Var 3,Var 5,Var 6,Var 7,Var 8,Var 9,Var 10,Var 11,Comb FuncCall ("OraclePrelude","==") [Var 5,Var 7,Var 1],Var 14]]))]])),Func ("OracleFiniteMap","_case_114") 11 Private (TVar (-42)) (Rule [2,3,5,6,7,8,9,10,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FiniteMap","Branch") [Var 5,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 8,Var 1],Var 6,Var 13],Var 9,Var 10,Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 7,Var 8,Var 10,Comb FuncCall ("OracleFiniteMap","addToFM_C'") [Var 2,Var 3,Var 11,Var 5,Var 6,Var 1],Var 14]]))]])),Func ("OracleFiniteMap","_case_117") 4 Private (TVar (-42)) (Rule [3,4,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 5,Comb FuncCall ("OracleFiniteMap","addToFM'") [Var 5,Var 6,Var 3,Var 4,Var 1]]])]]))] []
+ Curry/Module/OracleFiniteMap.fint view
@@ -0,0 +1,1 @@+Prog "OracleFiniteMap" ["CEventOracle","Oracle","IOExts","FiniteMap","Maybe","Prelude","OracleMaybe","OraclePrelude"] [TypeSyn ("OracleFiniteMap","FiniteSet") Private [0] (TCons ("FiniteMap","FM") [TVar 0,TCons ("Prelude","()") []]),Type ("OracleFiniteMap","FM") Public [0,1] [Cons ("OracleFiniteMap","FM") 2 Private [FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") [])))),TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]]]] [Func ("OracleFiniteMap","emptyFM") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 2,Comb ConsCall ("FiniteMap","EmptyFM") []]])),Func ("OracleFiniteMap","unitFM") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 2,Comb FuncCall ("OracleFiniteMap","unitFM'") [Var 3,Var 4,Var 1]]])),Func ("OracleFiniteMap","unitFM'") 3 Private (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","Branch") [Var 2,Var 3,Lit (Intc 1),Comb ConsCall ("FiniteMap","EmptyFM") [],Comb ConsCall ("FiniteMap","EmptyFM") []]])),Func ("OracleFiniteMap","listToFM") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFiniteMap","addListToFM") [Comb FuncCall ("OracleFiniteMap","emptyFM") [Var 2,Var 1]]]])),Func ("OracleFiniteMap","addToFM") 4 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_117") [Var 3,Var 4,Var 2,Var 1]])),Func ("OracleFiniteMap","addToFM'") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","addToFM_C'") [Var 2,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFiniteMap","addToFM'._#lambda2") []],Var 3,Var 4,Var 5,Var 1]])),Func ("OracleFiniteMap","addToFM'._#lambda2") 3 Private (FuncType (TVar 270) (FuncType (TVar 270) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 270)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFiniteMap","addToFM_C'") 6 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 1))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_116") [Var 2,Var 3,Var 5,Var 6,Var 4,Var 1]])),Func ("OracleFiniteMap","addListToFM") 3 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_113") [Var 3,Var 2,Var 1]])),Func ("OracleFiniteMap","addListToFM'") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","addListToFM_C'") [Var 2,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFiniteMap","addListToFM'._#lambda3") []],Var 3,Var 4,Var 1]])),Func ("OracleFiniteMap","addListToFM'._#lambda3") 3 Private (FuncType (TVar 246) (FuncType (TVar 246) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 246)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFiniteMap","addListToFM_C'") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 1))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldl") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFiniteMap","addListToFM_C'.add.30") [Var 3,Var 2]],Var 4,Var 5,Var 1]])),Func ("OracleFiniteMap","addListToFM_C'.add.30") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 235) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 235) (TVar 235))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 234) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 234) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 234,TVar 235]) (FuncType (TCons ("Prelude","(,)") [TVar 234,TVar 235]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 234,TVar 235])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_112") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleFiniteMap","addToFM_C") 5 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 1,TVar 0]) (FuncType (TVar 1) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 1,TVar 0])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_111") [Var 2,Var 4,Var 5,Var 3,Var 1]])),Func ("OracleFiniteMap","addListToFM_C") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 1,TVar 0]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 1,TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_110") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleFiniteMap","delFromFM") 3 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_109") [Var 3,Var 2,Var 1]])),Func ("OracleFiniteMap","delFromFM'") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_108") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleFiniteMap","delListFromFM") 3 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_105") [Var 3,Var 2,Var 1]])),Func ("OracleFiniteMap","updFM") 4 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 1))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_104") [Var 3,Var 4,Var 2,Var 1]])),Func ("OracleFiniteMap","updFM.upd.49") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 523) (TVar 523))) (FuncType (TVar 535) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 535) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 535) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 535,TVar 523]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 535,TVar 523])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_103") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleFiniteMap","splitFM") 3 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1],TCons ("Prelude","(,)") [TVar 0,TVar 1]]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","maybe") [Comb ConsCall ("Prelude","Nothing") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFiniteMap","splitFM._#lambda4") [Var 2,Var 3]],Comb FuncCall ("OracleFiniteMap","lookupFM") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OracleFiniteMap","splitFM._#lambda4") 4 Private (FuncType (TCons ("OracleFiniteMap","FM") [TVar 593,TVar 600]) (FuncType (TVar 593) (FuncType (TVar 600) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TVar 593,TVar 600],TCons ("Prelude","(,)") [TVar 593,TVar 600]]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleFiniteMap","delFromFM") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude","(,)") [Var 3,Var 4]]]])),Func ("OracleFiniteMap","plusFM") 3 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_99") [Var 3,Var 2,Var 1]])),Func ("OracleFiniteMap","plusFM'") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_97") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleFiniteMap","plusFM_C") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 1,TVar 0]) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 1,TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 1,TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_95") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleFiniteMap","plusFM_C'") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 1))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_93") [Var 2,Var 3,Var 5,Var 4,Var 1]])),Func ("OracleFiniteMap","minusFM") 3 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_90") [Var 3,Var 2,Var 1]])),Func ("OracleFiniteMap","minusFM'") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 2]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_88") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleFiniteMap","intersectFM") 3 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_86") [Var 3,Var 2,Var 1]])),Func ("OracleFiniteMap","intersectFM'") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 2]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 2]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","intersectFM_C'") [Var 2,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFiniteMap","intersectFM'._#lambda6") []],Var 3,Var 4,Var 1]])),Func ("OracleFiniteMap","intersectFM'._#lambda6") 3 Private (FuncType (TVar 1051) (FuncType (TVar 1052) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 1052)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFiniteMap","intersectFM_C") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1))))) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 2,TVar 0]) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 2,TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 2,TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_84") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleFiniteMap","intersectFM_C'") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TVar 3))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 2]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 3])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_82") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleFiniteMap","intersectFM_C'._#selFP3#elt1'") 2 Private (FuncType (TCons ("Prelude","Maybe") [TVar 1000]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 1000))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_78") [Var 2,Var 1]])),Func ("OracleFiniteMap","foldFM") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TVar 2))))))) (FuncType (TVar 2) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 2))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_77") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFiniteMap","foldFM'") 5 Private (FuncType (TVar 0) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 3) (TVar 3))))))) (FuncType (TVar 3) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 1,TVar 2]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 3)))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_76") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleFiniteMap","mapFM") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 2))))) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 2])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_75") [Var 2,Var 3,Var 1]])),Func ("OracleFiniteMap","mapFM'") 4 Private (FuncType (TVar 0) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TVar 3))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 1,TVar 2]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 1,TVar 3]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_74") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFiniteMap","filterFM") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_73") [Var 2,Var 3,Var 1]])),Func ("OracleFiniteMap","filterFM'") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_72") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFiniteMap","sizeFM") 2 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_69") [Var 2,Var 1]])),Func ("OracleFiniteMap","sizeFM'") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_67") [Var 2,Var 1]])),Func ("OracleFiniteMap","eqFM") 3 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleFiniteMap","sizeFM") [Var 2,Var 1],Comb FuncCall ("OracleFiniteMap","sizeFM") [Var 3,Var 4],Var 5],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleFiniteMap","fmToList") [Var 2,Var 6],Comb FuncCall ("OracleFiniteMap","fmToList") [Var 3,Var 7],Var 8],Var 9]]))),Func ("OracleFiniteMap","isEmptyFM") 2 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleFiniteMap","sizeFM") [Var 2,Var 1],Lit (Intc 0),Var 3]]))),Func ("OracleFiniteMap","elemFM") 3 Public (FuncType (TVar 0) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleMaybe","isJust") [Comb FuncCall ("OracleFiniteMap","lookupFM") [Var 3,Var 2,Var 1],Var 4]]))),Func ("OracleFiniteMap","lookupFM") 3 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_66") [Var 3,Var 2,Var 1]])),Func ("OracleFiniteMap","lookupFM'") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_65") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleFiniteMap","lookupWithDefaultFM") 4 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TVar 1) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 1))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_62") [Var 2,Var 3,Var 4,Comb FuncCall ("OracleFiniteMap","lookupFM") [Var 2,Var 4,Var 1],Var 5]]))),Func ("OracleFiniteMap","keyOrder") 2 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_61") [Var 2,Var 1]])),Func ("OracleFiniteMap","minFM") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TVar 0,TVar 1]])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFiniteMap","minFM.min.215") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFiniteMap","tree") []],Var 1]])),Func ("OracleFiniteMap","minFM.min.215") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_60") [Var 2,Var 1]])),Func ("OracleFiniteMap","maxFM") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TVar 0,TVar 1]])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFiniteMap","maxFM.max.223") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFiniteMap","tree") []],Var 1]])),Func ("OracleFiniteMap","maxFM.max.223") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_57") [Var 2,Var 1]])),Func ("OracleFiniteMap","fmToList") 2 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","foldFM") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleFiniteMap","fmToList._#lambda8") []],Comb ConsCall ("Prelude","[]") [],Var 2,Var 1]])),Func ("OracleFiniteMap","fmToList._#lambda8") 4 Private (FuncType (TVar 1237) (FuncType (TVar 1238) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1237,TVar 1238]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1237,TVar 1238]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 2,Var 3],Var 4]])),Func ("OracleFiniteMap","keysFM") 2 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","foldFM") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleFiniteMap","keysFM._#lambda9") []],Comb ConsCall ("Prelude","[]") [],Var 2,Var 1]])),Func ("OracleFiniteMap","keysFM._#lambda9") 4 Private (FuncType (TVar 1356) (FuncType (TVar 1353) (FuncType (TCons ("Prelude","[]") [TVar 1356]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 1356]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Var 4]])),Func ("OracleFiniteMap","eltsFM") 2 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 1]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","foldFM") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleFiniteMap","eltsFM._#lambda10") []],Comb ConsCall ("Prelude","[]") [],Var 2,Var 1]])),Func ("OracleFiniteMap","eltsFM._#lambda10") 4 Private (FuncType (TVar 1363) (FuncType (TVar 1367) (FuncType (TCons ("Prelude","[]") [TVar 1367]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 1367]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Var 4]])),Func ("OracleFiniteMap","fmToListPreOrder") 2 Public (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_54") [Var 2,Var 1]])),Func ("OracleFiniteMap","fmToListPreOrder.pre.243") 3 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_53") [Var 3,Var 2,Var 1]])),Func ("OracleFiniteMap","fmSortBy") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFiniteMap","keysFM") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFiniteMap","listToFM") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","zip") [Var 3,Comb FuncCall ("OraclePrelude","repeat") [Comb ConsCall ("Prelude","()") [],Var 4],Var 5],Var 6],Var 7]]))),Func ("OracleFiniteMap","tree") 2 Private (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_52") [Var 2,Var 1]])),Func ("OracleFiniteMap","toGT") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Var 4,Var 5],Var 6],Comb FuncCall ("OraclePrelude","/=") [Var 3,Var 4,Var 7],Var 8]]))),Func ("OracleFiniteMap","isEmptyFM'") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 2,Var 1],Lit (Intc 0),Var 3]]))),Func ("OracleFiniteMap","sIZE_RATIO") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 5)])),Func ("OracleFiniteMap","mkBranch") 6 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))))) (Rule [2,3,4,5,6,1] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 5,Var 1])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 6,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("FiniteMap","Branch") [Var 3,Var 4,Comb FuncCall ("OracleFiniteMap","mkBranch.unbox.264") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","+") [Lit (Intc 1),Var 7,Var 10],Var 8,Var 11],Var 12],Var 5,Var 6]]))]))]))),Func ("OracleFiniteMap","mkBranch.unbox.264") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OracleFiniteMap","mkBalBranch") 5 Private (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1])))))) (Rule [2,3,4,5,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 4,Var 1])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 5,Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","_case_51") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OraclePrelude","+") [Var 6,Var 7,Var 9],Lit (Intc 2),Var 10],Var 11]]))]))]))),Func ("OracleFiniteMap","mkBalBranch.single_L.273") 5 Private (FuncType (TVar 170) (FuncType (TVar 169) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_43") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleFiniteMap","mkBalBranch.double_L.273") 5 Private (FuncType (TVar 170) (FuncType (TVar 169) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_42") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleFiniteMap","mkBalBranch.single_R.273") 5 Private (FuncType (TVar 170) (FuncType (TVar 169) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_40") [Var 2,Var 3,Var 5,Var 4,Var 1]])),Func ("OracleFiniteMap","mkBalBranch.double_R.273") 5 Private (FuncType (TVar 170) (FuncType (TVar 169) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 169,TVar 170])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_39") [Var 2,Var 3,Var 5,Var 4,Var 1]])),Func ("OracleFiniteMap","mkVBalBranch") 6 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_37") [Var 2,Var 3,Var 4,Var 6,Var 5,Var 1]])),Func ("OracleFiniteMap","glueBal") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_32") [Var 2,Var 3,Var 4,Comb FuncCall ("OracleFiniteMap","isEmptyFM'") [Var 3,Var 1],Var 5]]))),Func ("OracleFiniteMap","glueBal._#selFP8#mid_key1") 2 Private (FuncType (TCons ("Prelude","(,)") [TVar 439,TVar 440]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 439))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_29") [Var 2,Var 1]])),Func ("OracleFiniteMap","glueBal._#selFP9#mid_elt1") 2 Private (FuncType (TCons ("Prelude","(,)") [TVar 439,TVar 440]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 440))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_28") [Var 2,Var 1]])),Func ("OracleFiniteMap","glueBal._#selFP6#mid_key2") 2 Private (FuncType (TCons ("Prelude","(,)") [TVar 439,TVar 440]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 439))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_27") [Var 2,Var 1]])),Func ("OracleFiniteMap","glueBal._#selFP7#mid_elt2") 2 Private (FuncType (TCons ("Prelude","(,)") [TVar 439,TVar 440]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 440))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_26") [Var 2,Var 1]])),Func ("OracleFiniteMap","glueVBal") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_25") [Var 2,Var 3,Var 4,Comb FuncCall ("OracleFiniteMap","isEmptyFM'") [Var 3,Var 1],Var 5]]))),Func ("OracleFiniteMap","glueVBal._#selFP16#key_l") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 876))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_21") [Var 2,Var 1]])),Func ("OracleFiniteMap","glueVBal._#selFP17#elt_l") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 877))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_20") [Var 2,Var 1]])),Func ("OracleFiniteMap","glueVBal._#selFP18#fm_ll") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_19") [Var 2,Var 1]])),Func ("OracleFiniteMap","glueVBal._#selFP19#fm_lr") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_18") [Var 2,Var 1]])),Func ("OracleFiniteMap","glueVBal._#selFP12#key_r") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 876))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_17") [Var 2,Var 1]])),Func ("OracleFiniteMap","glueVBal._#selFP13#elt_r") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 877))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_16") [Var 2,Var 1]])),Func ("OracleFiniteMap","glueVBal._#selFP14#fm_rl") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_15") [Var 2,Var 1]])),Func ("OracleFiniteMap","glueVBal._#selFP15#fm_rr") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 876,TVar 877]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_14") [Var 2,Var 1]])),Func ("OracleFiniteMap","splitLT") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_13") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleFiniteMap","splitGT") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_10") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleFiniteMap","findMin") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TVar 0,TVar 1]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_7") [Var 2,Var 1]])),Func ("OracleFiniteMap","deleteMin") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_5") [Var 2,Var 3,Var 1]])),Func ("OracleFiniteMap","findMax") 2 Private (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TVar 0,TVar 1]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_3") [Var 2,Var 1]])),Func ("OracleFiniteMap","deleteMax") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FiniteMap","FiniteMap") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_1") [Var 2,Var 3,Var 1]])),Func ("OracleFiniteMap","emptySet") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (TCons ("OracleFiniteMap","FM") [TVar 0,TCons ("Prelude","()") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFiniteMap","emptyFM") []]])),Func ("OracleFiniteMap","mkSet") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TVar 0,TCons ("Prelude","()") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFiniteMap","listToFM") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFiniteMap","mkSet._#lambda13") []],Var 3,Var 4],Var 5]]))),Func ("OracleFiniteMap","mkSet._#lambda13") 2 Private (FuncType (TVar 1421) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TVar 1421,TCons ("Prelude","()") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 2,Comb ConsCall ("Prelude","()") []]])),Func ("OracleFiniteMap","isEmptySet") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TCons ("Prelude","()") []]) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFiniteMap","isEmptyFM") []]])),Func ("OracleFiniteMap","elementOf") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TCons ("Prelude","()") []]) (TCons ("Prelude","Bool") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFiniteMap","elemFM") []]])),Func ("OracleFiniteMap","minusSet") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TCons ("Prelude","()") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TCons ("Prelude","()") []]) (TCons ("OracleFiniteMap","FM") [TVar 0,TCons ("Prelude","()") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFiniteMap","minusFM") []]])),Func ("OracleFiniteMap","setToList") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TCons ("Prelude","()") []]) (TCons ("Prelude","[]") [TVar 0])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFiniteMap","keysFM") []]])),Func ("OracleFiniteMap","union") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TCons ("Prelude","()") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleFiniteMap","FM") [TVar 0,TCons ("Prelude","()") []]) (TCons ("OracleFiniteMap","FM") [TVar 0,TCons ("Prelude","()") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFiniteMap","plusFM") []]])),Func ("OracleFiniteMap","_case_1") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FiniteMap","Branch") [4,5,6,7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_0") [Var 2,Var 4,Var 5,Var 7,Var 8,Var 1]])]])),Func ("OracleFiniteMap","_case_0") 6 Private (TVar (-42)) (Rule [2,4,5,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7]),Branch (Pattern ("FiniteMap","Branch") [9,10,11,12,13]) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 4,Var 5,Var 7,Comb FuncCall ("OracleFiniteMap","deleteMax") [Var 2,Comb ConsCall ("FiniteMap","Branch") [Var 9,Var 10,Var 11,Var 12,Var 13],Var 1],Var 14]]))]])),Func ("OracleFiniteMap","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_2") [Var 3,Var 4,Var 7,Var 1]])]])),Func ("OracleFiniteMap","_case_2") 4 Private (TVar (-42)) (Rule [3,4,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 3,Var 4]]),Branch (Pattern ("FiniteMap","Branch") [8,9,10,11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","findMax") [Comb ConsCall ("FiniteMap","Branch") [Var 8,Var 9,Var 10,Var 11,Var 12],Var 1]])]])),Func ("OracleFiniteMap","_case_5") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FiniteMap","Branch") [4,5,6,7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_4") [Var 2,Var 4,Var 5,Var 8,Var 7,Var 1]])]])),Func ("OracleFiniteMap","_case_4") 6 Private (TVar (-42)) (Rule [2,4,5,8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8]),Branch (Pattern ("FiniteMap","Branch") [9,10,11,12,13]) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 4,Var 5,Comb FuncCall ("OracleFiniteMap","deleteMin") [Var 2,Comb ConsCall ("FiniteMap","Branch") [Var 9,Var 10,Var 11,Var 12,Var 13],Var 1],Var 8,Var 14]]))]])),Func ("OracleFiniteMap","_case_7") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_6") [Var 3,Var 4,Var 6,Var 1]])]])),Func ("OracleFiniteMap","_case_6") 4 Private (TVar (-42)) (Rule [3,4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 3,Var 4]]),Branch (Pattern ("FiniteMap","Branch") [8,9,10,11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","findMin") [Comb ConsCall ("FiniteMap","Branch") [Var 8,Var 9,Var 10,Var 11,Var 12],Var 1]])]])),Func ("OracleFiniteMap","_case_10") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","EmptyFM") []]),Branch (Pattern ("FiniteMap","Branch") [5,6,7,8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","_case_9") [Var 2,Var 4,Var 5,Var 6,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5,Var 10],Var 11]]))]])),Func ("OracleFiniteMap","_case_9") 8 Private (TVar (-42)) (Rule [2,4,5,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkVBalBranch") [Var 2,Var 5,Var 6,Comb FuncCall ("OracleFiniteMap","splitGT") [Var 2,Var 8,Var 4,Var 1],Var 9,Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_8") [Var 2,Var 4,Var 5,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 4,Var 5,Var 1],Var 12]]))]])),Func ("OracleFiniteMap","_case_8") 6 Private (TVar (-42)) (Rule [2,4,5,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","splitGT") [Var 2,Var 9,Var 4,Var 1]])]])),Func ("OracleFiniteMap","_case_13") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","EmptyFM") []]),Branch (Pattern ("FiniteMap","Branch") [5,6,7,8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","_case_12") [Var 2,Var 4,Var 5,Var 6,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5,Var 10],Var 11]]))]])),Func ("OracleFiniteMap","_case_12") 8 Private (TVar (-42)) (Rule [2,4,5,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","splitLT") [Var 2,Var 8,Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_11") [Var 2,Var 4,Var 5,Var 6,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 4,Var 5,Var 1],Var 11]]))]])),Func ("OracleFiniteMap","_case_11") 8 Private (TVar (-42)) (Rule [2,4,5,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkVBalBranch") [Var 2,Var 5,Var 6,Var 8,Comb FuncCall ("OracleFiniteMap","splitLT") [Var 2,Var 9,Var 4,Var 1],Var 11]]))]])),Func ("OracleFiniteMap","_case_14") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7])]])),Func ("OracleFiniteMap","_case_15") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleFiniteMap","_case_16") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFiniteMap","_case_17") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFiniteMap","_case_18") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7])]])),Func ("OracleFiniteMap","_case_19") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleFiniteMap","_case_20") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFiniteMap","_case_21") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFiniteMap","_case_25") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_24") [Var 2,Var 3,Var 4,Comb FuncCall ("OracleFiniteMap","isEmptyFM'") [Var 4,Var 1],Var 6]]))]])),Func ("OracleFiniteMap","_case_24") 5 Private (TVar (-42)) (Rule [2,3,4,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(5,Var 3)] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleFiniteMap","glueVBal._#selFP16#key_l") [Var 5,Var 1])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleFiniteMap","glueVBal._#selFP17#elt_l") [Var 5,Var 18])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleFiniteMap","glueVBal._#selFP18#fm_ll") [Var 5,Var 19])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleFiniteMap","glueVBal._#selFP19#fm_lr") [Var 5,Var 20])] (Comb FuncCall ("CEventOracle","replace") [Var 21,Let [(10,Var 4)] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleFiniteMap","glueVBal._#selFP12#key_r") [Var 10,Var 21])] (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Let [(12,Comb FuncCall ("OracleFiniteMap","glueVBal._#selFP13#elt_r") [Var 10,Var 22])] (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OracleFiniteMap","glueVBal._#selFP14#fm_rl") [Var 10,Var 23])] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(14,Comb FuncCall ("OracleFiniteMap","glueVBal._#selFP15#fm_rr") [Var 10,Var 24])] (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Let [(15,Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 3,Var 25])] (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Let [(16,Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 4,Var 26])] (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFiniteMap","_case_23") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Var 11,Var 12,Var 13,Var 14,Var 15,Var 16,Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OraclePrelude","*") [Comb FuncCall ("OracleFiniteMap","sIZE_RATIO") [Var 27],Var 15,Var 28],Var 16,Var 29],Var 30]]))]))]))]))]))]))]))])]))]))]))]))])]])),Func ("OracleFiniteMap","_case_23") 15 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,11,12,13,14,15,16,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","True") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 11,Var 12,Comb FuncCall ("OracleFiniteMap","glueVBal") [Var 2,Var 3,Var 13,Var 1],Var 14,Var 18]])),Branch (Pattern ("Prelude","False") []) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFiniteMap","_case_22") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Var 15,Var 16,Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OraclePrelude","*") [Comb FuncCall ("OracleFiniteMap","sIZE_RATIO") [Var 1],Var 16,Var 19],Var 15,Var 20],Var 21]]))]])),Func ("OracleFiniteMap","_case_22") 11 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,15,16,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","True") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 6,Var 7,Var 8,Comb FuncCall ("OracleFiniteMap","glueVBal") [Var 2,Var 9,Var 4,Var 1],Var 18]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","glueBal") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OracleFiniteMap","_case_26") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFiniteMap","_case_27") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFiniteMap","_case_28") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFiniteMap","_case_29") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFiniteMap","_case_32") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_31") [Var 2,Var 3,Var 4,Comb FuncCall ("OracleFiniteMap","isEmptyFM'") [Var 4,Var 1],Var 6]]))]])),Func ("OracleFiniteMap","_case_31") 5 Private (TVar (-42)) (Rule [2,3,4,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleFiniteMap","findMax") [Var 3,Var 1])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleFiniteMap","glueBal._#selFP8#mid_key1") [Var 5,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleFiniteMap","glueBal._#selFP9#mid_elt1") [Var 5,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleFiniteMap","findMin") [Var 4,Var 14])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleFiniteMap","glueBal._#selFP6#mid_key2") [Var 8,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleFiniteMap","glueBal._#selFP7#mid_elt2") [Var 8,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFiniteMap","_case_30") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 9,Var 10,Comb FuncCall ("OraclePrelude",">") [Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 4,Var 17],Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 3,Var 18],Var 19],Var 20]]))]))]))]))]))]))]))]])),Func ("OracleFiniteMap","_case_30") 9 Private (TVar (-42)) (Rule [2,3,4,6,7,9,10,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude","True") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 9,Var 10,Var 3,Comb FuncCall ("OracleFiniteMap","deleteMin") [Var 2,Var 4,Var 1],Var 12]])),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 6,Var 7,Comb FuncCall ("OracleFiniteMap","deleteMax") [Var 2,Var 3,Var 1],Var 4,Var 13]]))]])),Func ("OracleFiniteMap","_case_37") 6 Private (TVar (-42)) (Rule [2,3,4,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","addToFM'") [Var 2,Var 6,Var 3,Var 4,Var 1]]),Branch (Pattern ("FiniteMap","Branch") [7,8,9,10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_36") [Var 2,Var 3,Var 4,Var 7,Var 8,Var 9,Var 10,Var 11,Var 6,Var 1]])]])),Func ("OracleFiniteMap","_case_36") 10 Private (TVar (-42)) (Rule [2,3,4,7,8,9,10,11,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","addToFM'") [Var 2,Comb ConsCall ("FiniteMap","Branch") [Var 7,Var 8,Var 9,Var 10,Var 11],Var 3,Var 4,Var 1]]),Branch (Pattern ("FiniteMap","Branch") [12,13,14,15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(17,Comb ConsCall ("FiniteMap","Branch") [Var 7,Var 8,Var 9,Var 10,Var 11])] (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(18,Comb ConsCall ("FiniteMap","Branch") [Var 12,Var 13,Var 14,Var 15,Var 16])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Let [(19,Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 17,Var 1])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Let [(20,Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 18,Var 21])] (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFiniteMap","_case_35") [Var 2,Var 3,Var 4,Var 7,Var 8,Var 10,Var 11,Var 12,Var 13,Var 15,Var 16,Var 17,Var 18,Var 19,Var 20,Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OraclePrelude","*") [Comb FuncCall ("OracleFiniteMap","sIZE_RATIO") [Var 22],Var 19,Var 23],Var 20,Var 24],Var 25]]))]))]))])])]])),Func ("OracleFiniteMap","_case_35") 17 Private (TVar (-42)) (Rule [2,3,4,7,8,10,11,12,13,15,16,17,18,19,20,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 21) [Branch (Pattern ("Prelude","True") []) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 12,Var 13,Comb FuncCall ("OracleFiniteMap","mkVBalBranch") [Var 2,Var 3,Var 4,Var 17,Var 15,Var 1],Var 16,Var 22]])),Branch (Pattern ("Prelude","False") []) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFiniteMap","_case_34") [Var 2,Var 3,Var 4,Var 7,Var 8,Var 10,Var 11,Var 17,Var 18,Var 19,Var 20,Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OraclePrelude","*") [Comb FuncCall ("OracleFiniteMap","sIZE_RATIO") [Var 1],Var 20,Var 23],Var 19,Var 24],Var 25]]))]])),Func ("OracleFiniteMap","_case_34") 13 Private (TVar (-42)) (Rule [2,3,4,7,8,10,11,17,18,19,20,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 21) [Branch (Pattern ("Prelude","True") []) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 7,Var 8,Var 10,Comb FuncCall ("OracleFiniteMap","mkVBalBranch") [Var 2,Var 3,Var 4,Var 11,Var 18,Var 1],Var 22]])),Branch (Pattern ("Prelude","False") []) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_33") [Var 3,Var 4,Var 17,Var 18,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 23]]))]])),Func ("OracleFiniteMap","_case_33") 6 Private (TVar (-42)) (Rule [3,4,17,18,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 19) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 13),Var 3,Var 4,Var 17,Var 18,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFiniteMap","_case_39") 5 Private (TVar (-42)) (Rule [2,3,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FiniteMap","Branch") [6,7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_38") [Var 2,Var 3,Var 5,Var 6,Var 7,Var 9,Var 10,Var 1]])]])),Func ("OracleFiniteMap","_case_38") 8 Private (TVar (-42)) (Rule [2,3,5,6,7,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("FiniteMap","Branch") [11,12,13,14,15]) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 10),Var 11,Var 12,Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 11),Var 6,Var 7,Var 9,Var 14,Var 1],Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 12),Var 3,Var 2,Var 15,Var 5,Var 16],Var 17]]))]])),Func ("OracleFiniteMap","_case_40") 5 Private (TVar (-42)) (Rule [2,3,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FiniteMap","Branch") [6,7,8,9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 8),Var 6,Var 7,Var 9,Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 9),Var 3,Var 2,Var 10,Var 5,Var 1],Var 11]]))]])),Func ("OracleFiniteMap","_case_42") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FiniteMap","Branch") [6,7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_41") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 10,Var 9,Var 1]])]])),Func ("OracleFiniteMap","_case_41") 8 Private (TVar (-42)) (Rule [2,3,4,6,7,10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("FiniteMap","Branch") [11,12,13,14,15]) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 5),Var 11,Var 12,Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 6),Var 3,Var 2,Var 4,Var 14,Var 1],Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 7),Var 6,Var 7,Var 15,Var 10,Var 16],Var 17]]))]])),Func ("OracleFiniteMap","_case_43") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FiniteMap","Branch") [6,7,8,9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 3),Var 6,Var 7,Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 4),Var 3,Var 2,Var 4,Var 9,Var 1],Var 10,Var 11]]))]])),Func ("OracleFiniteMap","_case_51") 8 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 1),Var 2,Var 3,Var 4,Var 5,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFiniteMap","_case_50") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Comb FuncCall ("OraclePrelude",">") [Var 7,Comb FuncCall ("OraclePrelude","*") [Comb FuncCall ("OracleFiniteMap","sIZE_RATIO") [Var 1],Var 6,Var 9],Var 10],Var 11]]))]])),Func ("OracleFiniteMap","_case_50") 8 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_49") [Var 2,Var 3,Var 4,Var 5,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFiniteMap","_case_47") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Comb FuncCall ("OraclePrelude",">") [Var 6,Comb FuncCall ("OraclePrelude","*") [Comb FuncCall ("OracleFiniteMap","sIZE_RATIO") [Var 1],Var 7,Var 9],Var 10],Var 11]]))]])),Func ("OracleFiniteMap","_case_47") 8 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_46") [Var 2,Var 3,Var 5,Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_44") [Var 2,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 9]]))]])),Func ("OracleFiniteMap","_case_44") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","mkBranch") [Lit (Intc 2),Var 2,Var 3,Var 4,Var 5,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFiniteMap","_case_46") 5 Private (TVar (-42)) (Rule [2,3,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("FiniteMap","Branch") [13,14,15,16,17]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFiniteMap","_case_45") [Var 2,Var 3,Var 4,Var 5,Var 16,Var 17,Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 17,Var 1],Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 16,Var 18],Var 19],Var 20],Var 21]])),Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFiniteMap","_case_45") 8 Private (TVar (-42)) (Rule [2,3,4,5,16,17,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 18) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","mkBalBranch.single_R.273") [Var 3,Var 2,Var 4,Var 5,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","mkBalBranch.double_R.273") [Var 3,Var 2,Var 4,Var 5,Var 1]])]])),Func ("OracleFiniteMap","_case_49") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("FiniteMap","Branch") [8,9,10,11,12]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFiniteMap","_case_48") [Var 2,Var 3,Var 4,Var 5,Var 11,Var 12,Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 11,Var 1],Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Comb FuncCall ("OracleFiniteMap","sizeFM'") [Var 12,Var 13],Var 14],Var 15],Var 16]])),Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFiniteMap","_case_48") 8 Private (TVar (-42)) (Rule [2,3,4,5,11,12,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","mkBalBranch.single_L.273") [Var 3,Var 2,Var 4,Var 5,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","mkBalBranch.double_L.273") [Var 3,Var 2,Var 4,Var 5,Var 1]])]])),Func ("OracleFiniteMap","_case_52") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFiniteMap","_case_53") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("FiniteMap","Branch") [4,5,6,7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 4,Var 5],Comb FuncCall ("OracleFiniteMap","fmToListPreOrder.pre.243") [Var 7,Comb FuncCall ("OracleFiniteMap","fmToListPreOrder.pre.243") [Var 8,Var 3,Var 1],Var 9]]]))]])),Func ("OracleFiniteMap","_case_54") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","fmToListPreOrder.pre.243") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 1]])]])),Func ("OracleFiniteMap","_case_57") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_56") [Var 3,Var 4,Var 7,Comb FuncCall ("OraclePrelude","==") [Var 7,Comb ConsCall ("FiniteMap","EmptyFM") [],Var 1],Var 8]]))]])),Func ("OracleFiniteMap","_case_56") 5 Private (TVar (-42)) (Rule [3,4,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","(,)") [Var 3,Var 4]]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_55") [Var 7,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 9]]))]])),Func ("OracleFiniteMap","_case_55") 3 Private (TVar (-42)) (Rule [7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","maxFM.max.223") [Var 7,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFiniteMap","_case_60") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_59") [Var 3,Var 4,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 6,Comb ConsCall ("FiniteMap","EmptyFM") [],Var 1],Var 8]]))]])),Func ("OracleFiniteMap","_case_59") 5 Private (TVar (-42)) (Rule [3,4,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","(,)") [Var 3,Var 4]]]),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_58") [Var 6,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 8]]))]])),Func ("OracleFiniteMap","_case_58") 3 Private (TVar (-42)) (Rule [6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","minFM.min.215") [Var 6,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFiniteMap","_case_61") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFiniteMap","_case_62") 5 Private (TVar (-42)) (Rule [2,3,4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","Just") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleFiniteMap","_case_65") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FiniteMap","Branch") [5,6,7,8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","_case_64") [Var 2,Var 4,Var 5,Var 6,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5,Var 10],Var 11]]))]])),Func ("OracleFiniteMap","_case_64") 8 Private (TVar (-42)) (Rule [2,4,5,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","lookupFM'") [Var 2,Var 8,Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_63") [Var 2,Var 4,Var 5,Var 6,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 4,Var 5,Var 1],Var 11]]))]])),Func ("OracleFiniteMap","_case_63") 7 Private (TVar (-42)) (Rule [2,4,5,6,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Var 6]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","lookupFM'") [Var 2,Var 9,Var 4,Var 1]])]])),Func ("OracleFiniteMap","_case_66") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","lookupFM'") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFiniteMap","_case_67") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("FiniteMap","Branch") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleFiniteMap","_case_69") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_68") [Var 4,Var 1]])]])),Func ("OracleFiniteMap","_case_68") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("FiniteMap","Branch") [5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7])]])),Func ("OracleFiniteMap","_case_72") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","EmptyFM") []]),Branch (Pattern ("FiniteMap","Branch") [5,6,7,8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","_case_71") [Var 2,Var 3,Var 5,Var 6,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 1],Var 6,Var 10],Var 11]]))]])),Func ("OracleFiniteMap","_case_71") 8 Private (TVar (-42)) (Rule [2,3,5,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","mkVBalBranch") [Var 2,Var 5,Var 6,Comb FuncCall ("OracleFiniteMap","filterFM'") [Var 2,Var 3,Var 8,Var 1],Comb FuncCall ("OracleFiniteMap","filterFM'") [Var 2,Var 3,Var 9,Var 11],Var 12]])),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_70") [Var 2,Var 3,Var 8,Var 9,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 13]]))]])),Func ("OracleFiniteMap","_case_70") 6 Private (TVar (-42)) (Rule [2,3,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","glueVBal") [Var 2,Comb FuncCall ("OracleFiniteMap","filterFM'") [Var 2,Var 3,Var 8,Var 1],Comb FuncCall ("OracleFiniteMap","filterFM'") [Var 2,Var 3,Var 9,Var 11],Var 12]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFiniteMap","_case_73") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleFiniteMap","FM") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 4,Comb FuncCall ("OracleFiniteMap","filterFM'") [Var 4,Var 2,Var 5,Var 1]]])]])),Func ("OracleFiniteMap","_case_74") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","EmptyFM") []]),Branch (Pattern ("FiniteMap","Branch") [5,6,7,8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("FiniteMap","Branch") [Var 5,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 1],Var 6,Var 10],Var 7,Comb FuncCall ("OracleFiniteMap","mapFM'") [Var 2,Var 3,Var 8,Var 11],Comb FuncCall ("OracleFiniteMap","mapFM'") [Var 2,Var 3,Var 9,Var 12]]]))]])),Func ("OracleFiniteMap","_case_75") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleFiniteMap","FM") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 4,Comb FuncCall ("OracleFiniteMap","mapFM'") [Var 4,Var 2,Var 5,Var 1]]])]])),Func ("OracleFiniteMap","_case_76") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("FiniteMap","Branch") [6,7,8,9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFiniteMap","foldFM'") [Var 2,Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 6,Var 1],Var 7,Var 11],Comb FuncCall ("OracleFiniteMap","foldFM'") [Var 2,Var 3,Var 4,Var 10,Var 12],Var 13],Var 9,Var 14]]))]])),Func ("OracleFiniteMap","_case_77") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("OracleFiniteMap","FM") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","foldFM'") [Var 5,Var 2,Var 3,Var 6,Var 1]])]])),Func ("OracleFiniteMap","_case_78") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Just") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFiniteMap","_case_82") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","EmptyFM") []]),Branch (Pattern ("FiniteMap","Branch") [6,7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_81") [Var 2,Var 3,Var 6,Var 7,Var 9,Var 10,Var 4,Var 1]])]])),Func ("OracleFiniteMap","_case_81") 8 Private (TVar (-42)) (Rule [2,3,6,7,9,10,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","EmptyFM") []]),Branch (Pattern ("FiniteMap","Branch") [11,12,13,14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(16,Comb ConsCall ("FiniteMap","Branch") [Var 11,Var 12,Var 13,Var 14,Var 15])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Let [(17,Comb FuncCall ("OracleFiniteMap","splitLT") [Var 2,Var 16,Var 6,Var 1])] (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Let [(18,Comb FuncCall ("OracleFiniteMap","splitGT") [Var 2,Var 16,Var 6,Var 22])] (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Let [(19,Comb FuncCall ("OracleFiniteMap","lookupFM'") [Var 2,Var 16,Var 6,Var 23])] (Comb FuncCall ("CEventOracle","replace") [Var 24,Let [(20,Var 19)] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(21,Comb FuncCall ("OracleFiniteMap","intersectFM_C'._#selFP3#elt1'") [Var 20,Var 24])] (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_80") [Var 2,Var 3,Var 6,Var 7,Var 9,Var 10,Var 17,Var 18,Var 19,Var 21,Comb FuncCall ("OracleMaybe","isJust") [Var 19,Var 25],Var 26]]))]))])]))]))]))])]])),Func ("OracleFiniteMap","_case_80") 12 Private (TVar (-42)) (Rule [2,3,6,7,9,10,17,18,19,21,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 22) [Branch (Pattern ("Prelude","True") []) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFiniteMap","mkVBalBranch") [Var 2,Var 6,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 21,Var 1],Var 7,Var 23],Comb FuncCall ("OracleFiniteMap","intersectFM_C'") [Var 2,Var 3,Var 17,Var 9,Var 24],Comb FuncCall ("OracleFiniteMap","intersectFM_C'") [Var 2,Var 3,Var 18,Var 10,Var 25],Var 26]])),Branch (Pattern ("Prelude","False") []) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_79") [Var 2,Var 3,Var 9,Var 10,Var 17,Var 18,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 27]]))]])),Func ("OracleFiniteMap","_case_79") 8 Private (TVar (-42)) (Rule [2,3,9,10,17,18,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 19) [Branch (Pattern ("Prelude","True") []) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","glueVBal") [Var 2,Comb FuncCall ("OracleFiniteMap","intersectFM_C'") [Var 2,Var 3,Var 17,Var 9,Var 1],Comb FuncCall ("OracleFiniteMap","intersectFM_C'") [Var 2,Var 3,Var 18,Var 10,Var 20],Var 21]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFiniteMap","_case_84") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleFiniteMap","FM") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_83") [Var 2,Var 5,Var 6,Var 4,Var 1]])]])),Func ("OracleFiniteMap","_case_83") 5 Private (TVar (-42)) (Rule [2,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("OracleFiniteMap","FM") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 5,Comb FuncCall ("OracleFiniteMap","intersectFM_C'") [Var 5,Var 2,Var 6,Var 8,Var 1]]])]])),Func ("OracleFiniteMap","_case_86") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_85") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFiniteMap","_case_85") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleFiniteMap","FM") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 4,Comb FuncCall ("OracleFiniteMap","intersectFM'") [Var 4,Var 5,Var 7,Var 1]]])]])),Func ("OracleFiniteMap","_case_88") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","EmptyFM") []]),Branch (Pattern ("FiniteMap","Branch") [5,6,7,8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_87") [Var 2,Var 5,Var 6,Var 7,Var 8,Var 9,Var 4,Var 1]])]])),Func ("OracleFiniteMap","_case_87") 8 Private (TVar (-42)) (Rule [2,5,6,7,8,9,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","Branch") [Var 5,Var 6,Var 7,Var 8,Var 9]]),Branch (Pattern ("FiniteMap","Branch") [10,11,12,13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(15,Comb ConsCall ("FiniteMap","Branch") [Var 5,Var 6,Var 7,Var 8,Var 9])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(16,Comb FuncCall ("OracleFiniteMap","splitLT") [Var 2,Var 15,Var 10,Var 1])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Let [(17,Comb FuncCall ("OracleFiniteMap","splitGT") [Var 2,Var 15,Var 10,Var 18])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","glueVBal") [Var 2,Comb FuncCall ("OracleFiniteMap","minusFM'") [Var 2,Var 16,Var 13,Var 19],Comb FuncCall ("OracleFiniteMap","minusFM'") [Var 2,Var 17,Var 14,Var 20],Var 21]]))]))]))])]])),Func ("OracleFiniteMap","_case_90") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_89") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFiniteMap","_case_89") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleFiniteMap","FM") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 4,Comb FuncCall ("OracleFiniteMap","minusFM'") [Var 4,Var 5,Var 7,Var 1]]])]])),Func ("OracleFiniteMap","_case_93") 5 Private (TVar (-42)) (Rule [2,3,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5]),Branch (Pattern ("FiniteMap","Branch") [6,7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_92") [Var 2,Var 3,Var 6,Var 7,Var 8,Var 9,Var 10,Var 5,Var 1]])]])),Func ("OracleFiniteMap","_case_92") 9 Private (TVar (-42)) (Rule [2,3,6,7,8,9,10,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","Branch") [Var 6,Var 7,Var 8,Var 9,Var 10]]),Branch (Pattern ("FiniteMap","Branch") [11,12,13,14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(16,Comb ConsCall ("FiniteMap","Branch") [Var 6,Var 7,Var 8,Var 9,Var 10])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Let [(17,Comb FuncCall ("OracleFiniteMap","splitLT") [Var 2,Var 16,Var 11,Var 1])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Let [(18,Comb FuncCall ("OracleFiniteMap","splitGT") [Var 2,Var 16,Var 11,Var 20])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]],Let [(19,Comb FuncCall ("OracleFiniteMap","_case_91") [Var 2,Var 3,Var 11,Var 12,Var 16,Comb FuncCall ("OracleFiniteMap","lookupFM'") [Var 2,Var 16,Var 11,Var 21],Var 22])] (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","mkVBalBranch") [Var 2,Var 11,Var 19,Comb FuncCall ("OracleFiniteMap","plusFM_C'") [Var 2,Var 3,Var 17,Var 14,Var 23],Comb FuncCall ("OracleFiniteMap","plusFM_C'") [Var 2,Var 3,Var 18,Var 15,Var 24],Var 25]]))]))]))]))])]])),Func ("OracleFiniteMap","_case_91") 7 Private (TVar (-42)) (Rule [2,3,11,12,16,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 21) [Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 12]),Branch (Pattern ("Prelude","Just") [20]) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 20,Var 1],Var 12,Var 22]]))]])),Func ("OracleFiniteMap","_case_95") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleFiniteMap","FM") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_94") [Var 2,Var 5,Var 6,Var 4,Var 1]])]])),Func ("OracleFiniteMap","_case_94") 5 Private (TVar (-42)) (Rule [2,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("OracleFiniteMap","FM") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 5,Comb FuncCall ("OracleFiniteMap","plusFM_C'") [Var 5,Var 2,Var 6,Var 8,Var 1]]])]])),Func ("OracleFiniteMap","_case_97") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("FiniteMap","Branch") [5,6,7,8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_96") [Var 2,Var 5,Var 6,Var 7,Var 8,Var 9,Var 4,Var 1]])]])),Func ("OracleFiniteMap","_case_96") 8 Private (TVar (-42)) (Rule [2,5,6,7,8,9,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","Branch") [Var 5,Var 6,Var 7,Var 8,Var 9]]),Branch (Pattern ("FiniteMap","Branch") [10,11,12,13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(15,Comb ConsCall ("FiniteMap","Branch") [Var 5,Var 6,Var 7,Var 8,Var 9])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(16,Comb FuncCall ("OracleFiniteMap","splitLT") [Var 2,Var 15,Var 10,Var 1])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Let [(17,Comb FuncCall ("OracleFiniteMap","splitGT") [Var 2,Var 15,Var 10,Var 18])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","mkVBalBranch") [Var 2,Var 10,Var 11,Comb FuncCall ("OracleFiniteMap","plusFM'") [Var 2,Var 16,Var 13,Var 19],Comb FuncCall ("OracleFiniteMap","plusFM'") [Var 2,Var 17,Var 14,Var 20],Var 21]]))]))]))])]])),Func ("OracleFiniteMap","_case_99") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","_case_98") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFiniteMap","_case_98") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleFiniteMap","FM") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 4,Comb FuncCall ("OracleFiniteMap","plusFM'") [Var 4,Var 5,Var 7,Var 1]]])]])),Func ("OracleFiniteMap","_case_103") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","EmptyFM") []]),Branch (Pattern ("FiniteMap","Branch") [6,7,8,9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_102") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Var 10,Comb FuncCall ("OraclePrelude","==") [Var 3,Var 6,Var 1],Var 11]]))]])),Func ("OracleFiniteMap","_case_102") 10 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,10,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FiniteMap","Branch") [Var 6,Comb FuncCall ("Oracle","apply") [Var 2,Var 7,Var 1],Var 8,Var 9,Var 10]]),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","_case_101") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Var 10,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 4,Var 3,Var 1],Var 6,Var 12],Var 13]]))]])),Func ("OracleFiniteMap","_case_101") 10 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,10,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FiniteMap","Branch") [Var 6,Var 7,Var 8,Comb FuncCall ("OracleFiniteMap","updFM.upd.49") [Var 2,Var 3,Var 4,Var 9,Var 1],Var 10]]),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_100") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Var 10,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 12]]))]])),Func ("OracleFiniteMap","_case_100") 10 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,10,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FiniteMap","Branch") [Var 6,Var 7,Var 8,Var 9,Comb FuncCall ("OracleFiniteMap","updFM.upd.49") [Var 2,Var 3,Var 4,Var 10,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFiniteMap","_case_104") 4 Private (TVar (-42)) (Rule [3,4,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 5,Comb FuncCall ("OracleFiniteMap","updFM.upd.49") [Var 4,Var 3,Var 5,Var 6,Var 1]]])]])),Func ("OracleFiniteMap","_case_105") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 4,Comb FuncCall ("OraclePrelude","foldl") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFiniteMap","delFromFM'") [Var 4]],Var 5,Var 3,Var 1]]])]])),Func ("OracleFiniteMap","_case_108") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FiniteMap","EmptyFM") []]),Branch (Pattern ("FiniteMap","Branch") [5,6,7,8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","_case_107") [Var 2,Var 4,Var 5,Var 6,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5,Var 10],Var 11]]))]])),Func ("OracleFiniteMap","_case_107") 8 Private (TVar (-42)) (Rule [2,4,5,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 5,Var 6,Comb FuncCall ("OracleFiniteMap","delFromFM'") [Var 2,Var 8,Var 4,Var 1],Var 9,Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_106") [Var 2,Var 4,Var 5,Var 6,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 4,Var 5,Var 1],Var 12]]))]])),Func ("OracleFiniteMap","_case_106") 8 Private (TVar (-42)) (Rule [2,4,5,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","glueBal") [Var 2,Var 8,Var 9,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 5,Var 6,Var 8,Comb FuncCall ("OracleFiniteMap","delFromFM'") [Var 2,Var 9,Var 4,Var 1],Var 11]]))]])),Func ("OracleFiniteMap","_case_109") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 4,Comb FuncCall ("OracleFiniteMap","delFromFM'") [Var 4,Var 5,Var 3,Var 1]]])]])),Func ("OracleFiniteMap","_case_110") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleFiniteMap","FM") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 5,Comb FuncCall ("OracleFiniteMap","addListToFM_C'") [Var 5,Var 2,Var 6,Var 4,Var 1]]])]])),Func ("OracleFiniteMap","_case_111") 5 Private (TVar (-42)) (Rule [2,4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleFiniteMap","FM") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 6,Comb FuncCall ("OracleFiniteMap","addToFM_C'") [Var 6,Var 2,Var 7,Var 4,Var 5,Var 1]]])]])),Func ("OracleFiniteMap","_case_112") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","addToFM_C'") [Var 3,Var 2,Var 4,Var 6,Var 7,Var 1]])]])),Func ("OracleFiniteMap","_case_113") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 4,Comb FuncCall ("OracleFiniteMap","addListToFM'") [Var 4,Var 5,Var 3,Var 1]]])]])),Func ("OracleFiniteMap","_case_116") 6 Private (TVar (-42)) (Rule [2,3,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FiniteMap","EmptyFM") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","unitFM'") [Var 5,Var 6,Var 1]]),Branch (Pattern ("FiniteMap","Branch") [7,8,9,10,11]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFiniteMap","_case_115") [Var 2,Var 3,Var 5,Var 6,Var 7,Var 8,Var 9,Var 10,Var 11,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 7,Var 12],Var 13]]))]])),Func ("OracleFiniteMap","_case_115") 11 Private (TVar (-42)) (Rule [2,3,5,6,7,8,9,10,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 7,Var 8,Comb FuncCall ("OracleFiniteMap","addToFM_C'") [Var 2,Var 3,Var 10,Var 5,Var 6,Var 1],Var 11,Var 13]])),Branch (Pattern ("Prelude","False") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","_case_114") [Var 2,Var 3,Var 5,Var 6,Var 7,Var 8,Var 9,Var 10,Var 11,Comb FuncCall ("OraclePrelude","==") [Var 5,Var 7,Var 1],Var 14]]))]])),Func ("OracleFiniteMap","_case_114") 11 Private (TVar (-42)) (Rule [2,3,5,6,7,8,9,10,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FiniteMap","Branch") [Var 5,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 8,Var 1],Var 6,Var 13],Var 9,Var 10,Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFiniteMap","mkBalBranch") [Var 7,Var 8,Var 10,Comb FuncCall ("OracleFiniteMap","addToFM_C'") [Var 2,Var 3,Var 11,Var 5,Var 6,Var 1],Var 14]]))]])),Func ("OracleFiniteMap","_case_117") 4 Private (TVar (-42)) (Rule [3,4,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleFiniteMap","FM") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleFiniteMap","FM") [Var 5,Comb FuncCall ("OracleFiniteMap","addToFM'") [Var 5,Var 6,Var 3,Var 4,Var 1]]])]]))] []
+ Curry/Module/OracleFlatCurry.fcy view
@@ -0,0 +1,1 @@+Prog "OracleFlatCurry" ["CEventOracle","Oracle","IOExts","FlatCurry","Directory","Distribution","FileGoodies","Prelude","ReadShowTerm","OracleDirectory","OracleDistribution","OracleFileGoodies","OraclePrelude","OracleReadShowTerm"] [] [Func ("OracleFlatCurry","readFlatCurry") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurry","readFlatCurryWithParseOptions") [Var 2,Comb FuncCall ("OracleDistribution","setQuiet") [Comb ConsCall ("Prelude","True") [],Comb FuncCall ("OracleDistribution","defaultParams") [Var 1],Var 3],Var 4]]))),Func ("OracleFlatCurry","readFlatCurryWithParseOptions") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","lookupFileInLoadPath") [Comb FuncCall ("OraclePrelude","++") [Var 2,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","[]") []]]]]]],Var 1],Var 4],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurry","readFlatCurryWithParseOptions._#lambda2") [Var 3,Var 2]],Var 5]]))),Func ("OracleFlatCurry","readFlatCurryWithParseOptions._#lambda2") 4 Private (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","lookupFileInLoadPath") [Comb FuncCall ("OraclePrelude","++") [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","[]") []]]]]]]],Var 1],Var 5],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurry","readFlatCurryWithParseOptions._#lambda2._#lambda3") [Var 4,Var 2,Var 3]],Var 6]]))),Func ("OracleFlatCurry","readFlatCurryWithParseOptions._#lambda2._#lambda3") 5 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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleFlatCurry","_case_5") [Var 2,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude","Nothing") [],Var 1],Comb FuncCall ("OraclePrelude","==") [Var 5,Comb ConsCall ("Prelude","Nothing") [],Var 6],Var 7],Var 8],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","findFileInLoadPath") [Comb FuncCall ("OraclePrelude","++") [Var 4,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","[]") []]]]],Var 9],Var 10],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurry","readFlatCurryWithParseOptions._#lambda2._#lambda3._#lambda4") []],Var 11],Var 12]]))),Func ("OracleFlatCurry","readFlatCurryWithParseOptions._#lambda2._#lambda3._#lambda4") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurry","readFlatCurryFile") [Var 2,Var 1]])),Func ("OracleFlatCurry","flatCurryFileName") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleDistribution","inCurrySubdir") [Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFileGoodies","stripSuffix") [Var 1],Var 2,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","[]") []]]]],Var 4],Var 5]]))),Func ("OracleFlatCurry","flatCurryIntName") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleDistribution","inCurrySubdir") [Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFileGoodies","stripSuffix") [Var 1],Var 2,Var 3],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","[]") []]]]]],Var 4],Var 5]]))),Func ("OracleFlatCurry","readFlatCurryFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurry","readFlatCurryFile._#lambda6") [Var 2]],Var 3]]))),Func ("OracleFlatCurry","readFlatCurryFile.readExistingFCY.14") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurry","readFlatCurryFile.readExistingFCY.14._#lambda5") []],Var 3]]))),Func ("OracleFlatCurry","readFlatCurryFile.readExistingFCY.14._#lambda5") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 1]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OracleReadShowTerm","readTerm") [Var 2,Var 1],Var 3]]))),Func ("OracleFlatCurry","readFlatCurryFile._#lambda6") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 2])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurry","_case_4") [Var 2,Var 3,Var 1]])),Func ("OracleFlatCurry","readFlatCurryFile._#lambda6._#lambda7") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 3]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurry","_case_3") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurry","readFlatCurryInt") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Comb FuncCall ("OraclePrelude","++") [Var 2,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","[]") []]]]]]],Var 1],Var 3],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurry","readFlatCurryInt._#lambda8") [Var 2]],Var 4]]))),Func ("OracleFlatCurry","readFlatCurryInt._#lambda8") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Comb FuncCall ("OraclePrelude","++") [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","[]") []]]]]]]],Var 1],Var 4],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurry","readFlatCurryInt._#lambda8._#lambda9") [Var 3,Var 2]],Var 5]]))),Func ("OracleFlatCurry","readFlatCurryInt._#lambda8._#lambda9") 4 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleFlatCurry","_case_2") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","||") [Var 2,Var 4,Var 1],Var 5],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","findFileInLoadPath") [Comb FuncCall ("OraclePrelude","++") [Var 3,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","[]") []]]]]],Var 6],Var 7],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurry","readFlatCurryInt._#lambda8._#lambda9._#lambda10") []],Var 8],Var 9]]))),Func ("OracleFlatCurry","readFlatCurryInt._#lambda8._#lambda9._#lambda10") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurry","readFlatCurryFile") [Var 2,Var 1]])),Func ("OracleFlatCurry","writeFCY") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","writeFile") [Var 2,Comb FuncCall ("OracleReadShowTerm","showTerm") [Var 3,Var 1],Var 4]]))),Func ("OracleFlatCurry","showQNameInModule") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurry","_case_1") [Var 2,Var 3,Var 1]])),Func ("OracleFlatCurry","_case_1") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurry","_case_0") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 4,Var 2,Var 1],Comb FuncCall ("OraclePrelude","==") [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","[]") []]]]]]]],Var 6],Var 7],Var 8]]))]])),Func ("OracleFlatCurry","_case_0") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 4,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []],Var 5,Var 1],Var 7]]))]])),Func ("OracleFlatCurry","_case_2") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleDistribution","callFrontend") [Comb ConsCall ("Distribution","FINT") [],Var 1],Var 3,Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","done") [Var 1]])]])),Func ("OracleFlatCurry","_case_3") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurry","readFlatCurryFile.readExistingFCY.14") [Var 3,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 2,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","[]") []]]]]]]]]]]]]]]]],Var 1],Var 5],Var 6]]))]])),Func ("OracleFlatCurry","_case_4") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurry","readFlatCurryFile.readExistingFCY.14") [Var 2,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleDistribution","inCurrySubdir") [Var 2,Var 1])] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Var 4,Var 5],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurry","readFlatCurryFile._#lambda6._#lambda7") [Var 2,Var 4]],Var 6]]))]))]])),Func ("OracleFlatCurry","_case_5") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","done") [Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","callFrontendWithParams") [Comb ConsCall ("Distribution","FCY") [],Var 3,Var 4,Var 1]])]]))] []
+ Curry/Module/OracleFlatCurry.fint view
@@ -0,0 +1,1 @@+Prog "OracleFlatCurry" ["CEventOracle","Oracle","IOExts","FlatCurry","Directory","Distribution","FileGoodies","Prelude","ReadShowTerm","OracleDirectory","OracleDistribution","OracleFileGoodies","OraclePrelude","OracleReadShowTerm"] [] [Func ("OracleFlatCurry","readFlatCurry") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurry","readFlatCurryWithParseOptions") [Var 2,Comb FuncCall ("OracleDistribution","setQuiet") [Comb ConsCall ("Prelude","True") [],Comb FuncCall ("OracleDistribution","defaultParams") [Var 1],Var 3],Var 4]]))),Func ("OracleFlatCurry","readFlatCurryWithParseOptions") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","lookupFileInLoadPath") [Comb FuncCall ("OraclePrelude","++") [Var 2,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","[]") []]]]]]],Var 1],Var 4],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurry","readFlatCurryWithParseOptions._#lambda2") [Var 3,Var 2]],Var 5]]))),Func ("OracleFlatCurry","readFlatCurryWithParseOptions._#lambda2") 4 Private (FuncType (TCons ("Distribution","FrontendParams") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","lookupFileInLoadPath") [Comb FuncCall ("OraclePrelude","++") [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","[]") []]]]]]]],Var 1],Var 5],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurry","readFlatCurryWithParseOptions._#lambda2._#lambda3") [Var 4,Var 2,Var 3]],Var 6]]))),Func ("OracleFlatCurry","readFlatCurryWithParseOptions._#lambda2._#lambda3") 5 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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleFlatCurry","_case_5") [Var 2,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude","Nothing") [],Var 1],Comb FuncCall ("OraclePrelude","==") [Var 5,Comb ConsCall ("Prelude","Nothing") [],Var 6],Var 7],Var 8],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","findFileInLoadPath") [Comb FuncCall ("OraclePrelude","++") [Var 4,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","[]") []]]]],Var 9],Var 10],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurry","readFlatCurryWithParseOptions._#lambda2._#lambda3._#lambda4") []],Var 11],Var 12]]))),Func ("OracleFlatCurry","readFlatCurryWithParseOptions._#lambda2._#lambda3._#lambda4") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurry","readFlatCurryFile") [Var 2,Var 1]])),Func ("OracleFlatCurry","flatCurryFileName") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleDistribution","inCurrySubdir") [Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFileGoodies","stripSuffix") [Var 1],Var 2,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","[]") []]]]],Var 4],Var 5]]))),Func ("OracleFlatCurry","flatCurryIntName") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleDistribution","inCurrySubdir") [Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFileGoodies","stripSuffix") [Var 1],Var 2,Var 3],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","[]") []]]]]],Var 4],Var 5]]))),Func ("OracleFlatCurry","readFlatCurryFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurry","readFlatCurryFile._#lambda6") [Var 2]],Var 3]]))),Func ("OracleFlatCurry","readFlatCurryFile.readExistingFCY.14") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurry","readFlatCurryFile.readExistingFCY.14._#lambda5") []],Var 3]]))),Func ("OracleFlatCurry","readFlatCurryFile.readExistingFCY.14._#lambda5") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 1]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OracleReadShowTerm","readTerm") [Var 2,Var 1],Var 3]]))),Func ("OracleFlatCurry","readFlatCurryFile._#lambda6") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 2])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurry","_case_4") [Var 2,Var 3,Var 1]])),Func ("OracleFlatCurry","readFlatCurryFile._#lambda6._#lambda7") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 3]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurry","_case_3") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurry","readFlatCurryInt") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Comb FuncCall ("OraclePrelude","++") [Var 2,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","[]") []]]]]]],Var 1],Var 3],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurry","readFlatCurryInt._#lambda8") [Var 2]],Var 4]]))),Func ("OracleFlatCurry","readFlatCurryInt._#lambda8") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Comb FuncCall ("OraclePrelude","++") [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","[]") []]]]]]]],Var 1],Var 4],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurry","readFlatCurryInt._#lambda8._#lambda9") [Var 3,Var 2]],Var 5]]))),Func ("OracleFlatCurry","readFlatCurryInt._#lambda8._#lambda9") 4 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleFlatCurry","_case_2") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","||") [Var 2,Var 4,Var 1],Var 5],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","findFileInLoadPath") [Comb FuncCall ("OraclePrelude","++") [Var 3,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","[]") []]]]]],Var 6],Var 7],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurry","readFlatCurryInt._#lambda8._#lambda9._#lambda10") []],Var 8],Var 9]]))),Func ("OracleFlatCurry","readFlatCurryInt._#lambda8._#lambda9._#lambda10") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurry","readFlatCurryFile") [Var 2,Var 1]])),Func ("OracleFlatCurry","writeFCY") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","writeFile") [Var 2,Comb FuncCall ("OracleReadShowTerm","showTerm") [Var 3,Var 1],Var 4]]))),Func ("OracleFlatCurry","showQNameInModule") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurry","_case_1") [Var 2,Var 3,Var 1]])),Func ("OracleFlatCurry","_case_1") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurry","_case_0") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 4,Var 2,Var 1],Comb FuncCall ("OraclePrelude","==") [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","[]") []]]]]]]],Var 6],Var 7],Var 8]]))]])),Func ("OracleFlatCurry","_case_0") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 4,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []],Var 5,Var 1],Var 7]]))]])),Func ("OracleFlatCurry","_case_2") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleDistribution","callFrontend") [Comb ConsCall ("Distribution","FINT") [],Var 1],Var 3,Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","done") [Var 1]])]])),Func ("OracleFlatCurry","_case_3") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurry","readFlatCurryFile.readExistingFCY.14") [Var 3,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 2,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","[]") []]]]]]]]]]]]]]]]],Var 1],Var 5],Var 6]]))]])),Func ("OracleFlatCurry","_case_4") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurry","readFlatCurryFile.readExistingFCY.14") [Var 2,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleDistribution","inCurrySubdir") [Var 2,Var 1])] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Var 4,Var 5],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurry","readFlatCurryFile._#lambda6._#lambda7") [Var 2,Var 4]],Var 6]]))]))]])),Func ("OracleFlatCurry","_case_5") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","done") [Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleDistribution","callFrontendWithParams") [Comb ConsCall ("Distribution","FCY") [],Var 3,Var 4,Var 1]])]]))] []
+ Curry/Module/OracleFlatCurryGoodies.fcy view
@@ -0,0 +1,1 @@+Prog "OracleFlatCurryGoodies" ["CEventOracle","Oracle","IOExts","FlatCurryGoodies","FlatCurry","Prelude","OracleFlatCurry","OraclePrelude"] [] [Func ("OracleFlatCurryGoodies","trProg") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TVar 0))))))))))) (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_53") [Var 2,Var 3,Var 1]])),Func ("OracleFlatCurryGoodies","progName") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trProg") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","progName._#lambda2") []]]]])),Func ("OracleFlatCurryGoodies","progName._#lambda2") 6 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OracleFlatCurryGoodies","progImports") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trProg") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","progImports._#lambda3") []]]]])),Func ("OracleFlatCurryGoodies","progImports._#lambda3") 6 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFlatCurryGoodies","progTypes") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trProg") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","progTypes._#lambda4") []]]]])),Func ("OracleFlatCurryGoodies","progTypes._#lambda4") 6 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])),Func ("OracleFlatCurryGoodies","progFuncs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trProg") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","progFuncs._#lambda5") []]]]])),Func ("OracleFlatCurryGoodies","progFuncs._#lambda5") 6 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])),Func ("OracleFlatCurryGoodies","progOps") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trProg") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","progOps._#lambda6") []]]]])),Func ("OracleFlatCurryGoodies","progOps._#lambda6") 6 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])),Func ("OracleFlatCurryGoodies","updProg") 6 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trProg") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","updProg.prog.40") [Var 5,Var 3,Var 2,Var 6,Var 4]]]]])),Func ("OracleFlatCurryGoodies","updProg.prog.40") 11 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Prog") [])))))))))))) (Rule [2,3,4,5,6,7,8,9,10,11,1] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("FlatCurry","Prog") [Comb FuncCall ("Oracle","apply") [Var 4,Var 7,Var 1],Comb FuncCall ("Oracle","apply") [Var 3,Var 8,Var 12],Comb FuncCall ("Oracle","apply") [Var 6,Var 9,Var 13],Comb FuncCall ("Oracle","apply") [Var 2,Var 10,Var 14],Comb FuncCall ("Oracle","apply") [Var 5,Var 11,Var 15]]]))),Func ("OracleFlatCurryGoodies","updProgName") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updProg") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updProgImports") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updProg") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updProgTypes") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updProg") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updProgFuncs") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updProg") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updProgOps") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updProg") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleFlatCurryGoodies","allVarsInProg") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePrelude","concatMap") [Comb FuncCall ("OracleFlatCurryGoodies","allVarsInFunc") [Var 1],Var 2],Comb FuncCall ("OracleFlatCurryGoodies","progFuncs") [Var 3],Var 4]]))),Func ("OracleFlatCurryGoodies","updProgExps") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") [])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updProgFuncs") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","map") []],Comb FuncCall ("OracleFlatCurryGoodies","updFuncBody") [Var 1],Var 2],Var 3]]))),Func ("OracleFlatCurryGoodies","rnmAllVarsInProg") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") [])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updProgFuncs") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","map") []],Comb FuncCall ("OracleFlatCurryGoodies","rnmAllVarsInFunc") [Var 1],Var 2],Var 3]]))),Func ("OracleFlatCurryGoodies","updQNamesInProg") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryGoodies","updProg") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb FuncCall ("OracleFlatCurryGoodies","updQNamesInType") [Var 2,Var 1]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb FuncCall ("OracleFlatCurryGoodies","updQNamesInFunc") [Var 2,Var 3]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb FuncCall ("OracleFlatCurryGoodies","updOpName") [Var 2,Var 4]]],Var 5]]))),Func ("OracleFlatCurryGoodies","rnmProg") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Prog") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","updProgName") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","const") [Var 2]],Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","updQNamesInProg") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","rnmProg.rnm.62") [Var 2,Var 3]],Var 4],Var 3,Var 5],Var 6]]))),Func ("OracleFlatCurryGoodies","rnmProg.rnm.62") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_52") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryGoodies","trType") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TVar 0))))))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TVar 0))))))))) (FuncType (TCons ("FlatCurry","TypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_49") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryGoodies","typeName") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trType") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","typeName._#lambda7") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","typeName._#lambda8") []]]]])),Func ("OracleFlatCurryGoodies","typeName._#lambda7") 5 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OracleFlatCurryGoodies","typeName._#lambda8") 5 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OracleFlatCurryGoodies","typeVisibility") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","Visibility") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trType") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","typeVisibility._#lambda9") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","typeVisibility._#lambda10") []]]]])),Func ("OracleFlatCurryGoodies","typeVisibility._#lambda9") 5 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Visibility") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFlatCurryGoodies","typeVisibility._#lambda10") 5 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Visibility") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFlatCurryGoodies","typeParams") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trType") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","typeParams._#lambda11") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","typeParams._#lambda12") []]]]])),Func ("OracleFlatCurryGoodies","typeParams._#lambda11") 5 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])),Func ("OracleFlatCurryGoodies","typeParams._#lambda12") 5 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])),Func ("OracleFlatCurryGoodies","typeConsDecls") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trType") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","typeConsDecls._#lambda13") []],Comb FuncCall ("OraclePrelude","failed") [Var 1]]]])),Func ("OracleFlatCurryGoodies","typeConsDecls._#lambda13") 5 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])),Func ("OracleFlatCurryGoodies","typeSyn") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeExpr") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trType") [Comb FuncCall ("OraclePrelude","failed") [Var 1],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","typeSyn._#lambda14") []]]]])),Func ("OracleFlatCurryGoodies","typeSyn._#lambda14") 5 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","TypeExpr") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])),Func ("OracleFlatCurryGoodies","isTypeSyn") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trType") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","isTypeSyn._#lambda15") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","isTypeSyn._#lambda16") []]]]])),Func ("OracleFlatCurryGoodies","isTypeSyn._#lambda15") 5 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isTypeSyn._#lambda16") 5 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])),Func ("OracleFlatCurryGoodies","isDataTypeDecl") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trType") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","isDataTypeDecl._#lambda17") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","isDataTypeDecl._#lambda18") []]]]])),Func ("OracleFlatCurryGoodies","isDataTypeDecl._#lambda17") 5 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("OraclePrelude","null") [Var 5,Var 1],Var 6]]))),Func ("OracleFlatCurryGoodies","isDataTypeDecl._#lambda18") 5 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isExternalType") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trType") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","isExternalType._#lambda19") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","isExternalType._#lambda20") []]]]])),Func ("OracleFlatCurryGoodies","isExternalType._#lambda19") 5 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","null") [Var 5,Var 1]])),Func ("OracleFlatCurryGoodies","isExternalType._#lambda20") 5 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","updType") 6 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trType") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","updType.typ.148") [Var 5,Var 2,Var 4,Var 3]],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","updType.typesyn.148") [Var 2,Var 4,Var 6,Var 3]]]]])),Func ("OracleFlatCurryGoodies","updType.typ.148") 9 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","TypeDecl") [])))))))))) (Rule [2,3,4,5,6,7,8,9,1] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("FlatCurry","Type") [Comb FuncCall ("Oracle","apply") [Var 3,Var 6,Var 1],Comb FuncCall ("Oracle","apply") [Var 5,Var 7,Var 10],Comb FuncCall ("Oracle","apply") [Var 4,Var 8,Var 11],Comb FuncCall ("Oracle","apply") [Var 2,Var 9,Var 12]]]))),Func ("OracleFlatCurryGoodies","updType.typesyn.148") 9 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","TypeDecl") [])))))))))) (Rule [2,3,4,5,6,7,8,9,1] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("FlatCurry","TypeSyn") [Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 1],Comb FuncCall ("Oracle","apply") [Var 5,Var 7,Var 10],Comb FuncCall ("Oracle","apply") [Var 3,Var 8,Var 11],Comb FuncCall ("Oracle","apply") [Var 4,Var 9,Var 12]]]))),Func ("OracleFlatCurryGoodies","updTypeName") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updType") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updTypeVisibility") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updType") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updTypeParams") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updType") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updTypeConsDecls") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updType") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updTypeSynonym") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updType") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleFlatCurryGoodies","updQNamesInType") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryGoodies","updType") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb FuncCall ("OracleFlatCurryGoodies","updQNamesInConsDecl") [Var 2,Var 1]]],Comb FuncCall ("OracleFlatCurryGoodies","updQNamesInTypeExpr") [Var 2,Var 3],Var 4]]))),Func ("OracleFlatCurryGoodies","trCons") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TVar 0))))))))) (FuncType (TCons ("FlatCurry","ConsDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_48") [Var 2,Var 3,Var 1]])),Func ("OracleFlatCurryGoodies","consName") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trCons") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","consName._#lambda21") []]]]])),Func ("OracleFlatCurryGoodies","consName._#lambda21") 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 ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OracleFlatCurryGoodies","consArity") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("Prelude","Int") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trCons") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","consArity._#lambda22") []]]]])),Func ("OracleFlatCurryGoodies","consArity._#lambda22") 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 ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFlatCurryGoodies","consVisibility") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","Visibility") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trCons") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","consVisibility._#lambda23") []]]]])),Func ("OracleFlatCurryGoodies","consVisibility._#lambda23") 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 ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Visibility") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])),Func ("OracleFlatCurryGoodies","consArgs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trCons") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","consArgs._#lambda24") []]]]])),Func ("OracleFlatCurryGoodies","consArgs._#lambda24") 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 ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])),Func ("OracleFlatCurryGoodies","updCons") 5 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") [])))))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trCons") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","updCons.cons.192") [Var 3,Var 5,Var 2,Var 4]]]]])),Func ("OracleFlatCurryGoodies","updCons.cons.192") 9 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","ConsDecl") [])))))))))) (Rule [2,3,4,5,6,7,8,9,1] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("FlatCurry","Cons") [Comb FuncCall ("Oracle","apply") [Var 4,Var 6,Var 1],Comb FuncCall ("Oracle","apply") [Var 2,Var 7,Var 10],Comb FuncCall ("Oracle","apply") [Var 5,Var 8,Var 11],Comb FuncCall ("Oracle","apply") [Var 3,Var 9,Var 12]]]))),Func ("OracleFlatCurryGoodies","updConsName") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updCons") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updConsArity") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updCons") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updConsVisibility") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updCons") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updConsArgs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updCons") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleFlatCurryGoodies","updQNamesInConsDecl") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryGoodies","updCons") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb FuncCall ("OracleFlatCurryGoodies","updQNamesInTypeExpr") [Var 2,Var 1]]],Var 3]]))),Func ("OracleFlatCurryGoodies","tVarIndex") 2 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_47") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","domain") 2 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","TypeExpr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_46") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","range") 2 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","TypeExpr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_45") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","tConsName") 2 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_44") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","tConsArgs") 2 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_43") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","trTypeExpr") 5 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 0))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_42") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleFlatCurryGoodies","isTVar") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trTypeExpr") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isTVar._#lambda25") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","isTVar._#lambda26") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","isTVar._#lambda27") []]]]])),Func ("OracleFlatCurryGoodies","isTVar._#lambda25") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])),Func ("OracleFlatCurryGoodies","isTVar._#lambda26") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Bool") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isTVar._#lambda27") 3 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isTCons") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trTypeExpr") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isTCons._#lambda28") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","isTCons._#lambda29") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","isTCons._#lambda30") []]]]])),Func ("OracleFlatCurryGoodies","isTCons._#lambda28") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isTCons._#lambda29") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Bool") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])),Func ("OracleFlatCurryGoodies","isTCons._#lambda30") 3 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isFuncType") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trTypeExpr") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isFuncType._#lambda31") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","isFuncType._#lambda32") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","isFuncType._#lambda33") []]]]])),Func ("OracleFlatCurryGoodies","isFuncType._#lambda31") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isFuncType._#lambda32") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Bool") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isFuncType._#lambda33") 3 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])),Func ("OracleFlatCurryGoodies","updTVars") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("FlatCurry","TypeExpr") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trTypeExpr") [Var 2,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","TCons") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","FuncType") []]]]])),Func ("OracleFlatCurryGoodies","updTCons") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TCons ("FlatCurry","TypeExpr") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trTypeExpr") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","TVar") []],Var 2,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","FuncType") []]]]])),Func ("OracleFlatCurryGoodies","updFuncTypes") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","trTypeExpr") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","TVar") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","TCons") []]]]])),Func ("OracleFlatCurryGoodies","argTypes") 2 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_41") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","resultType") 2 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","TypeExpr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_40") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","allVarsInTypeExpr") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trTypeExpr") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("Prelude",":") []],Comb ConsCall ("Prelude","[]") []]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","const") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","concat") []]]],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","++") []]]]])),Func ("OracleFlatCurryGoodies","rnmAllVarsInTypeExpr") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryGoodies","updTVars") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","TVar") []],Var 2,Var 1],Var 3]]))),Func ("OracleFlatCurryGoodies","updQNamesInTypeExpr") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updTCons") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","updQNamesInTypeExpr._#lambda34") [Var 2]],Var 1]])),Func ("OracleFlatCurryGoodies","updQNamesInTypeExpr._#lambda34") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","TypeExpr") []))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FlatCurry","TCons") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Var 4]])),Func ("OracleFlatCurryGoodies","trOp") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Fixity") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 0))))))) (FuncType (TCons ("FlatCurry","OpDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_39") [Var 2,Var 3,Var 1]])),Func ("OracleFlatCurryGoodies","opName") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trOp") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleFlatCurryGoodies","opName._#lambda35") []]]]])),Func ("OracleFlatCurryGoodies","opName._#lambda35") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Fixity") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OracleFlatCurryGoodies","opFixity") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("FlatCurry","Fixity") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trOp") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleFlatCurryGoodies","opFixity._#lambda36") []]]]])),Func ("OracleFlatCurryGoodies","opFixity._#lambda36") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Fixity") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Fixity") []))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFlatCurryGoodies","opPrecedence") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("Prelude","Int") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trOp") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleFlatCurryGoodies","opPrecedence._#lambda37") []]]]])),Func ("OracleFlatCurryGoodies","opPrecedence._#lambda37") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Fixity") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])),Func ("OracleFlatCurryGoodies","updOp") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Fixity") []) (TCons ("FlatCurry","Fixity") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("FlatCurry","OpDecl") []))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trOp") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleFlatCurryGoodies","updOp.op.305") [Var 3,Var 2,Var 4]]]]])),Func ("OracleFlatCurryGoodies","updOp.op.305") 7 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Fixity") []) (TCons ("FlatCurry","Fixity") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","OpDecl") [])))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("FlatCurry","Op") [Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 1],Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 8],Comb FuncCall ("Oracle","apply") [Var 4,Var 7,Var 9]]]))),Func ("OracleFlatCurryGoodies","updOpName") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("FlatCurry","OpDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updOp") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updOpFixity") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Fixity") []) (TCons ("FlatCurry","Fixity") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("FlatCurry","OpDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updOp") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updOpPrecedence") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("FlatCurry","OpDecl") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updOp") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleFlatCurryGoodies","trFunc") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TVar 0))))))))))) (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_38") [Var 2,Var 3,Var 1]])),Func ("OracleFlatCurryGoodies","funcName") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trFunc") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","funcName._#lambda38") []]]]])),Func ("OracleFlatCurryGoodies","funcName._#lambda38") 6 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OracleFlatCurryGoodies","funcArity") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","Int") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trFunc") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","funcArity._#lambda39") []]]]])),Func ("OracleFlatCurryGoodies","funcArity._#lambda39") 6 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFlatCurryGoodies","funcVisibility") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","Visibility") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trFunc") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","funcVisibility._#lambda40") []]]]])),Func ("OracleFlatCurryGoodies","funcVisibility._#lambda40") 6 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Visibility") []))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])),Func ("OracleFlatCurryGoodies","funcType") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","TypeExpr") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trFunc") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","funcType._#lambda41") []]]]])),Func ("OracleFlatCurryGoodies","funcType._#lambda41") 6 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","TypeExpr") []))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])),Func ("OracleFlatCurryGoodies","funcRule") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","Rule") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trFunc") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","funcRule._#lambda42") []]]]])),Func ("OracleFlatCurryGoodies","funcRule._#lambda42") 6 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Rule") []))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])),Func ("OracleFlatCurryGoodies","updFunc") 6 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trFunc") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","updFunc.func.352") [Var 3,Var 2,Var 6,Var 5,Var 4]]]]])),Func ("OracleFlatCurryGoodies","updFunc.func.352") 11 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","FuncDecl") [])))))))))))) (Rule [2,3,4,5,6,7,8,9,10,11,1] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("FlatCurry","Func") [Comb FuncCall ("Oracle","apply") [Var 3,Var 7,Var 1],Comb FuncCall ("Oracle","apply") [Var 2,Var 8,Var 12],Comb FuncCall ("Oracle","apply") [Var 6,Var 9,Var 13],Comb FuncCall ("Oracle","apply") [Var 5,Var 10,Var 14],Comb FuncCall ("Oracle","apply") [Var 4,Var 11,Var 15]]]))),Func ("OracleFlatCurryGoodies","updFuncName") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updFunc") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updFuncArity") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updFunc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updFuncVisibility") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updFunc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updFuncType") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updFunc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updFuncRule") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updFunc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleFlatCurryGoodies","isExternal") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleFlatCurryGoodies","isRuleExternal") [Var 1],Comb FuncCall ("OracleFlatCurryGoodies","funcRule") [Var 2],Var 3]]))),Func ("OracleFlatCurryGoodies","allVarsInFunc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleFlatCurryGoodies","allVarsInRule") [Var 1],Comb FuncCall ("OracleFlatCurryGoodies","funcRule") [Var 2],Var 3]]))),Func ("OracleFlatCurryGoodies","funcArgs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleFlatCurryGoodies","ruleArgs") [Var 1],Comb FuncCall ("OracleFlatCurryGoodies","funcRule") [Var 2],Var 3]]))),Func ("OracleFlatCurryGoodies","funcBody") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","Expr") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleFlatCurryGoodies","ruleBody") [Var 1],Comb FuncCall ("OracleFlatCurryGoodies","funcRule") [Var 2],Var 3]]))),Func ("OracleFlatCurryGoodies","funcRHS") 2 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryGoodies","_case_37") [Var 2,Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","isExternal") [Var 1],Var 2,Var 3],Var 4],Var 5]]))),Func ("OracleFlatCurryGoodies","funcRHS.orCase.374") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryGoodies","_case_35") [Var 2,Comb FuncCall ("OracleFlatCurryGoodies","isOr") [Var 2,Var 1],Var 3]]))),Func ("OracleFlatCurryGoodies","rnmAllVarsInFunc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updFunc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","rnmAllVarsInRule") []],Var 1]])),Func ("OracleFlatCurryGoodies","updQNamesInFunc") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryGoodies","updFunc") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb FuncCall ("OracleFlatCurryGoodies","updQNamesInTypeExpr") [Var 2,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","updQNamesInRule") [Var 3],Var 2,Var 4],Var 5]]))),Func ("OracleFlatCurryGoodies","updFuncArgs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") [])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleFlatCurryGoodies","updFuncRule") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updRuleArgs") []],Var 2]]))),Func ("OracleFlatCurryGoodies","updFuncBody") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") [])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleFlatCurryGoodies","updFuncRule") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updRuleBody") []],Var 2]]))),Func ("OracleFlatCurryGoodies","trRule") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TVar 0))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TVar 0))) (FuncType (TCons ("FlatCurry","Rule") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_32") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryGoodies","ruleArgs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trRule") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","ruleArgs._#lambda43") []],Comb FuncCall ("OraclePrelude","failed") [Var 1]]]])),Func ("OracleFlatCurryGoodies","ruleArgs._#lambda43") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OracleFlatCurryGoodies","ruleBody") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Expr") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trRule") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","ruleBody._#lambda44") []],Comb FuncCall ("OraclePrelude","failed") [Var 1]]]])),Func ("OracleFlatCurryGoodies","ruleBody._#lambda44") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFlatCurryGoodies","ruleExtDecl") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trRule") [Comb FuncCall ("OraclePrelude","failed") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleFlatCurryGoodies","isRuleExternal") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trRule") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","isRuleExternal._#lambda45") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isRuleExternal._#lambda46") []]]]])),Func ("OracleFlatCurryGoodies","isRuleExternal._#lambda45") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isRuleExternal._#lambda46") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])),Func ("OracleFlatCurryGoodies","updRule") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trRule") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","updRule.rule.409") [Var 2,Var 3]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updRule.ext.409") [Var 4]]]]])),Func ("OracleFlatCurryGoodies","updRule.rule.409") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Rule") [])))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Rule") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 6]]]))),Func ("OracleFlatCurryGoodies","updRule.ext.409") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Rule") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FlatCurry","External") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1]]])),Func ("OracleFlatCurryGoodies","updRuleArgs") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updRule") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updRuleBody") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updRule") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updRuleExtDecl") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updRule") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","allVarsInRule") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trRule") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","allVarsInRule._#lambda47") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","allVarsInRule._#lambda48") []]]]])),Func ("OracleFlatCurryGoodies","allVarsInRule._#lambda47") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OracleFlatCurryGoodies","allVars") [Var 3,Var 1],Var 4]]))),Func ("OracleFlatCurryGoodies","allVarsInRule._#lambda48") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 1003]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])),Func ("OracleFlatCurryGoodies","rnmAllVarsInRule") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryGoodies","updRule") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Var 2]],Comb FuncCall ("OracleFlatCurryGoodies","rnmAllVars") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 3]]))),Func ("OracleFlatCurryGoodies","updQNamesInRule") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updRuleBody") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updQNames") []],Var 1]])),Func ("OracleFlatCurryGoodies","trCombType") 6 Public (FuncType (TVar 0) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 0))) (FuncType (TVar 0) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 0))) (FuncType (TCons ("FlatCurry","CombType") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_31") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 1]])),Func ("OracleFlatCurryGoodies","isCombTypeFuncCall") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","CombType") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trCombType") [Comb ConsCall ("Prelude","True") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isCombTypeFuncCall._#lambda49") []],Comb ConsCall ("Prelude","False") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isCombTypeFuncCall._#lambda50") []]]]])),Func ("OracleFlatCurryGoodies","isCombTypeFuncCall._#lambda49") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isCombTypeFuncCall._#lambda50") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isCombTypeFuncPartCall") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","CombType") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trCombType") [Comb ConsCall ("Prelude","False") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isCombTypeFuncPartCall._#lambda51") []],Comb ConsCall ("Prelude","False") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isCombTypeFuncPartCall._#lambda52") []]]]])),Func ("OracleFlatCurryGoodies","isCombTypeFuncPartCall._#lambda51") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])),Func ("OracleFlatCurryGoodies","isCombTypeFuncPartCall._#lambda52") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isCombTypeConsCall") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","CombType") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trCombType") [Comb ConsCall ("Prelude","False") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isCombTypeConsCall._#lambda53") []],Comb ConsCall ("Prelude","True") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isCombTypeConsCall._#lambda54") []]]]])),Func ("OracleFlatCurryGoodies","isCombTypeConsCall._#lambda53") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isCombTypeConsCall._#lambda54") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isCombTypeConsPartCall") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","CombType") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trCombType") [Comb ConsCall ("Prelude","False") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isCombTypeConsPartCall._#lambda55") []],Comb ConsCall ("Prelude","False") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isCombTypeConsPartCall._#lambda56") []]]]])),Func ("OracleFlatCurryGoodies","isCombTypeConsPartCall._#lambda55") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isCombTypeConsPartCall._#lambda56") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])),Func ("OracleFlatCurryGoodies","missingArgs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","CombType") []) (TCons ("Prelude","Int") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trCombType") [Lit (Intc 0),Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Lit (Intc 0),Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleFlatCurryGoodies","varNr") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_30") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","literal") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Literal") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_29") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","combType") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","CombType") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_28") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","combName") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_27") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","combArgs") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_26") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","missingCombArgs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Int") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleFlatCurryGoodies","missingArgs") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","combType") []],Var 2]]))),Func ("OracleFlatCurryGoodies","letBinds") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_25") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","letBody") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_24") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","freeVars") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_23") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","freeExpr") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_22") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","orExps") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_21") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","caseType") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","CaseType") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_20") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","caseExpr") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_19") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","caseBranches") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","BranchExpr") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_18") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","isVar") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_17") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","isLit") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_16") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","isComb") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_15") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","isLet") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_14") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","isFree") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_13") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","isOr") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_12") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","isCase") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_11") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","trExpr") 10 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 0))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Literal") []) (TVar 0))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","CombType") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0))))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","CaseType") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1))))) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))))))))) (Rule [2,3,4,5,6,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_10") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9,Var 10,Var 1]])),Func ("OracleFlatCurryGoodies","trExpr._#lambda64") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TVar 231))) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 231])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_9") [Var 2,Var 3,Var 1]])),Func ("OracleFlatCurryGoodies","trExpr._#lambda65") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 231) (TVar 232))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TVar 231))) (FuncType (TCons ("FlatCurry","BranchExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 232))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_8") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryGoodies","updVars") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("FlatCurry","Expr") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Var 2,Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Lit") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Comb") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Let") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Free") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Or") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Case") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Branch") []]]]])),Func ("OracleFlatCurryGoodies","updLiterals") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("FlatCurry","Expr") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Var") []],Var 2,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Comb") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Let") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Free") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Or") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Case") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Branch") []]]]])),Func ("OracleFlatCurryGoodies","updCombs") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","CombType") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []]) (TCons ("FlatCurry","Expr") []))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Var") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Lit") []],Var 2,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Let") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Free") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Or") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Case") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Branch") []]]]])),Func ("OracleFlatCurryGoodies","updLets") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Var") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Lit") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Comb") []],Var 2,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Free") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Or") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Case") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Branch") []]]]])),Func ("OracleFlatCurryGoodies","updFrees") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Var") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Lit") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Comb") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Let") []],Var 2,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Or") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Case") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Branch") []]]]])),Func ("OracleFlatCurryGoodies","updOrs") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Var") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Lit") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Comb") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Let") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Free") []],Var 2,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Case") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Branch") []]]]])),Func ("OracleFlatCurryGoodies","updCases") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","CaseType") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","BranchExpr") []]) (TCons ("FlatCurry","Expr") []))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Var") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Lit") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Comb") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Let") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Free") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Or") []],Var 2,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Branch") []]]]])),Func ("OracleFlatCurryGoodies","updBranches") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","BranchExpr") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Var") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Lit") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Comb") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Let") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Free") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Or") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Case") []],Var 2]]])),Func ("OracleFlatCurryGoodies","isFuncCall") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleFlatCurryGoodies","isComb") [Var 2,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","isCombTypeFuncCall") [Var 3],Comb FuncCall ("OracleFlatCurryGoodies","combType") [Var 2,Var 4],Var 5],Var 6]]))),Func ("OracleFlatCurryGoodies","isFuncPartCall") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleFlatCurryGoodies","isComb") [Var 2,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","isCombTypeFuncPartCall") [Var 3],Comb FuncCall ("OracleFlatCurryGoodies","combType") [Var 2,Var 4],Var 5],Var 6]]))),Func ("OracleFlatCurryGoodies","isConsCall") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleFlatCurryGoodies","isComb") [Var 2,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","isCombTypeConsCall") [Var 3],Comb FuncCall ("OracleFlatCurryGoodies","combType") [Var 2,Var 4],Var 5],Var 6]]))),Func ("OracleFlatCurryGoodies","isConsPartCall") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleFlatCurryGoodies","isComb") [Var 2,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","isCombTypeConsPartCall") [Var 3],Comb FuncCall ("OracleFlatCurryGoodies","combType") [Var 2,Var 4],Var 5],Var 6]]))),Func ("OracleFlatCurryGoodies","isGround") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_7") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","allVars") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","trExpr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("Prelude",":") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","const") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","allVars.comb.650") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","allVars.lt.650") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","allVars.fr.650") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude",".") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleFlatCurryGoodies","allVars.cas.650") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","allVars.branch.650") []],Var 2,Var 1],Comb ConsCall ("Prelude","[]") [],Var 3]]))),Func ("OracleFlatCurryGoodies","allVars.comb.650") 3 Private (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TVar 2))]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TVar 2)))))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude",".") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleFlatCurryGoodies","allVars.lt.650") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))]]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 1))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 1)))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Var 3,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude",".") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","allVars.lt.650._#lambda67") []],Var 2,Var 1],Var 4],Var 5]]))),Func ("OracleFlatCurryGoodies","allVars.lt.650._#lambda67") 2 Private (FuncType (TCons ("Prelude","(,)") [TVar 283,FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 283]) (TCons ("Prelude","[]") [TVar 283]))]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 283]) (TCons ("Prelude","[]") [TVar 283]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_5") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","allVars.fr.650") 3 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","[]") [TVar 0]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","[]") [TVar 0])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [Var 2]],Var 3,Var 1]])),Func ("OracleFlatCurryGoodies","allVars.cas.650") 4 Private (FuncType (TVar 0) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 2))) (FuncType (TCons ("Prelude","[]") [FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 1))]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 2))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Var 3,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude",".") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 4,Var 1],Var 5]]))),Func ("OracleFlatCurryGoodies","allVars.args.650") 2 Private (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryGoodies","_case_4") [Var 2,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","isConsPattern") [Var 1],Var 2,Var 3],Var 4]]))),Func ("OracleFlatCurryGoodies","allVars.branch.650") 3 Private (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryGoodies","allVars.args.650") [Var 2,Var 1]]],Var 3,Var 4]]))),Func ("OracleFlatCurryGoodies","rnmAllVars") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (Rule [2,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Let") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","rnmAllVars._#lambda68") [Var 2]]]],Var 1])] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Let [(4,Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Branch") []],Comb FuncCall ("OracleFlatCurryGoodies","updPatArgs") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Var 2]],Var 5],Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Var") []],Var 2,Var 7],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Lit") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Comb") []],Var 3,Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Free") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Var 2]],Var 8],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Or") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Case") []],Var 4]]]))]))]))),Func ("OracleFlatCurryGoodies","rnmAllVars._#lambda68") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_2") [Var 2,Var 3,Var 1]])),Func ("OracleFlatCurryGoodies","updQNames") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Var") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Lit") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleFlatCurryGoodies","updQNames.comb.673") [Var 2]],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Let") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Free") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Or") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Case") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Branch") []],Comb FuncCall ("OracleFlatCurryGoodies","updPatCons") [Var 2,Var 1],Var 3]]]]))),Func ("OracleFlatCurryGoodies","updQNames.comb.673") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FlatCurry","Comb") [Var 3,Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5]])),Func ("OracleFlatCurryGoodies","trBranch") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TVar 0))))) (FuncType (TCons ("FlatCurry","BranchExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_1") [Var 2,Var 3,Var 1]])),Func ("OracleFlatCurryGoodies","branchPattern") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("FlatCurry","Pattern") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trBranch") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","branchPattern._#lambda69") []]]]])),Func ("OracleFlatCurryGoodies","branchPattern._#lambda69") 3 Private (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Pattern") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OracleFlatCurryGoodies","branchExpr") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("FlatCurry","Expr") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trBranch") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","branchExpr._#lambda70") []]]]])),Func ("OracleFlatCurryGoodies","branchExpr._#lambda70") 3 Private (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFlatCurryGoodies","updBranch") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("FlatCurry","BranchExpr") [])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trBranch") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","updBranch.branch.687") [Var 3,Var 2]]]]])),Func ("OracleFlatCurryGoodies","updBranch.branch.687") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") []))) (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","BranchExpr") [])))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Branch") [Comb FuncCall ("Oracle","apply") [Var 3,Var 4,Var 1],Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 6]]]))),Func ("OracleFlatCurryGoodies","updBranchPattern") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("FlatCurry","BranchExpr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updBranch") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updBranchExpr") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("FlatCurry","BranchExpr") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updBranch") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleFlatCurryGoodies","trPattern") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TVar 0))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Literal") []) (TVar 0))) (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_0") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryGoodies","patCons") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trPattern") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","patCons._#lambda71") []],Comb FuncCall ("OraclePrelude","failed") [Var 1]]]])),Func ("OracleFlatCurryGoodies","patCons._#lambda71") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OracleFlatCurryGoodies","patArgs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trPattern") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","patArgs._#lambda72") []],Comb FuncCall ("OraclePrelude","failed") [Var 1]]]])),Func ("OracleFlatCurryGoodies","patArgs._#lambda72") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFlatCurryGoodies","patLiteral") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Literal") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trPattern") [Comb FuncCall ("OraclePrelude","failed") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleFlatCurryGoodies","isConsPattern") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trPattern") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","isConsPattern._#lambda73") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isConsPattern._#lambda74") []]]]])),Func ("OracleFlatCurryGoodies","isConsPattern._#lambda73") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])),Func ("OracleFlatCurryGoodies","isConsPattern._#lambda74") 2 Private (FuncType (TCons ("FlatCurry","Literal") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","updPattern") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("FlatCurry","Literal") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") []))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trPattern") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","updPattern.pattern.718") [Var 3,Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updPattern.lpattern.718") [Var 4]]]]])),Func ("OracleFlatCurryGoodies","updPattern.pattern.718") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Pattern") [])))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Pattern") [Comb FuncCall ("Oracle","apply") [Var 3,Var 4,Var 1],Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 6]]]))),Func ("OracleFlatCurryGoodies","updPattern.lpattern.718") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("FlatCurry","Literal") []))) (FuncType (TCons ("FlatCurry","Literal") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Pattern") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FlatCurry","LPattern") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1]]])),Func ("OracleFlatCurryGoodies","updPatCons") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updPattern") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updPatArgs") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updPattern") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updPatLiteral") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("FlatCurry","Literal") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updPattern") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","patExpr") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Expr") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trPattern") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","patExpr._#lambda75") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Lit") []]]]])),Func ("OracleFlatCurryGoodies","patExpr._#lambda75") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("FlatCurry","Expr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Comb") [Comb ConsCall ("FlatCurry","ConsCall") [],Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Var") []]]],Var 1]])),Func ("OracleFlatCurryGoodies","_case_0") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","Pattern") [5,6]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 6,Var 8]])),Branch (Pattern ("FlatCurry","LPattern") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 3,Var 7,Var 1]])]])),Func ("OracleFlatCurryGoodies","_case_1") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Branch") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5,Var 6]]))]])),Func ("OracleFlatCurryGoodies","_case_2") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5]])]])),Func ("OracleFlatCurryGoodies","_case_4") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","patArgs") [Var 1],Var 2,Var 4]])),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryGoodies","_case_3") [Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 5]]))]])),Func ("OracleFlatCurryGoodies","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryGoodies","_case_5") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude",":") [Var 3]],Var 4,Var 1]])]])),Func ("OracleFlatCurryGoodies","_case_7") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Comb") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_6") [Var 2,Var 5,Var 3,Var 1]]),Branch (Pattern ("FlatCurry","Var") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","isLit") [Var 2,Var 1]]),Branch (Pattern ("FlatCurry","Lit") [9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","isLit") [Var 2,Var 1]]),Branch (Pattern ("FlatCurry","Let") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","isLit") [Var 2,Var 1]]),Branch (Pattern ("FlatCurry","Free") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","isLit") [Var 2,Var 1]]),Branch (Pattern ("FlatCurry","Or") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","isLit") [Var 2,Var 1]]),Branch (Pattern ("FlatCurry","Case") [16,17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","isLit") [Var 2,Var 1]])]])),Func ("OracleFlatCurryGoodies","_case_6") 4 Private (TVar (-42)) (Rule [2,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("FlatCurry","ConsCall") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","all") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isGround") []],Var 1],Var 5,Var 8]])),Branch (Pattern ("FlatCurry","FuncCall") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","isLit") [Var 2,Var 1]]),Branch (Pattern ("FlatCurry","FuncPartCall") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","isLit") [Var 2,Var 1]]),Branch (Pattern ("FlatCurry","ConsPartCall") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","isLit") [Var 2,Var 1]])]])),Func ("OracleFlatCurryGoodies","_case_8") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","Branch") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Comb FuncCall ("Oracle","apply") [Var 3,Var 6,Var 7],Var 8]]))]])),Func ("OracleFlatCurryGoodies","_case_9") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 4,Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1]]])]])),Func ("OracleFlatCurryGoodies","_case_10") 10 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("FlatCurry","Var") [11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Var 11,Var 1]]),Branch (Pattern ("FlatCurry","Lit") [12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 3,Var 12,Var 1]]),Branch (Pattern ("FlatCurry","Comb") [13,14,15]) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 4,Var 13,Var 1],Var 14,Var 28],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9]],Var 15,Var 29],Var 30]])),Branch (Pattern ("FlatCurry","Let") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(18,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9]])] (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 5,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr._#lambda64") [Var 18]],Var 16,Var 1],Var 31],Comb FuncCall ("Oracle","apply") [Var 18,Var 17,Var 32],Var 33]]))]),Branch (Pattern ("FlatCurry","Free") [19,20]) (Let [(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 6,Var 19,Var 1],Comb FuncCall ("OracleFlatCurryGoodies","trExpr") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9,Var 20,Var 34],Var 35]])),Branch (Pattern ("FlatCurry","Or") [21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(23,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9]])] (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 7,Comb FuncCall ("Oracle","apply") [Var 23,Var 21,Var 1],Var 36],Comb FuncCall ("Oracle","apply") [Var 23,Var 22,Var 37],Var 38]]))]),Branch (Pattern ("FlatCurry","Case") [24,25,26]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(27,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9]])] (Let [(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 8,Var 24,Var 1],Comb FuncCall ("Oracle","apply") [Var 27,Var 25,Var 39],Var 40],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr._#lambda65") [Var 9,Var 27]],Var 26,Var 41],Var 42]]))])]])),Func ("OracleFlatCurryGoodies","_case_11") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Case") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("FlatCurry","Var") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Lit") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Comb") [8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Let") [11,12]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryGoodies","_case_12") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Or") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("FlatCurry","Var") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Lit") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Comb") [7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Let") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryGoodies","_case_13") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Free") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("FlatCurry","Var") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Lit") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Comb") [7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Let") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryGoodies","_case_14") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Let") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("FlatCurry","Var") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Lit") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Comb") [7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryGoodies","_case_15") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Comb") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("FlatCurry","Var") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Lit") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Let") [8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryGoodies","_case_16") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Lit") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("FlatCurry","Var") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Let") [8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryGoodies","_case_17") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Var") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("FlatCurry","Lit") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Let") [8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryGoodies","_case_18") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Case") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleFlatCurryGoodies","_case_19") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Case") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFlatCurryGoodies","_case_20") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Case") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryGoodies","_case_21") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Or") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]])]])),Func ("OracleFlatCurryGoodies","_case_22") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Free") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFlatCurryGoodies","_case_23") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Free") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryGoodies","_case_24") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Let") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFlatCurryGoodies","_case_25") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Let") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryGoodies","_case_26") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Comb") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleFlatCurryGoodies","_case_27") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Comb") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFlatCurryGoodies","_case_28") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Comb") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryGoodies","_case_29") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Lit") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryGoodies","_case_30") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Var") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryGoodies","_case_31") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("FlatCurry","FuncCall") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("FlatCurry","FuncPartCall") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 3,Var 7,Var 1]]),Branch (Pattern ("FlatCurry","ConsCall") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("FlatCurry","ConsPartCall") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 5,Var 8,Var 1]])]])),Func ("OracleFlatCurryGoodies","_case_32") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","Rule") [5,6]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 6,Var 8]])),Branch (Pattern ("FlatCurry","External") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 3,Var 7,Var 1]])]])),Func ("OracleFlatCurryGoodies","_case_35") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","funcRHS.orCase.374") []],Var 1],Comb FuncCall ("OracleFlatCurryGoodies","orExps") [Var 2,Var 4],Var 5]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryGoodies","_case_34") [Var 2,Comb FuncCall ("OracleFlatCurryGoodies","isCase") [Var 2,Var 1],Var 6]]))]])),Func ("OracleFlatCurryGoodies","_case_34") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","funcRHS.orCase.374") []],Var 1],Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OracleFlatCurryGoodies","branchExpr") [Var 4],Comb FuncCall ("OracleFlatCurryGoodies","caseBranches") [Var 2,Var 5],Var 6],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryGoodies","_case_33") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 8]]))]])),Func ("OracleFlatCurryGoodies","_case_33") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryGoodies","_case_37") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryGoodies","funcRHS.orCase.374") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","funcBody") [Var 1],Var 2,Var 4],Var 5]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryGoodies","_case_36") [Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 6]]))]])),Func ("OracleFlatCurryGoodies","_case_36") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryGoodies","_case_38") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Func") [4,5,6,7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5,Var 9],Var 6,Var 10],Var 7,Var 11],Var 8,Var 12]]))]])),Func ("OracleFlatCurryGoodies","_case_39") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Op") [4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5,Var 7],Var 6,Var 8]]))]])),Func ("OracleFlatCurryGoodies","_case_40") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","TVar") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlatCurry","TVar") [Var 3]]),Branch (Pattern ("FlatCurry","TCons") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlatCurry","TCons") [Var 4,Var 5]]),Branch (Pattern ("FlatCurry","FuncType") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","resultType") [Var 7,Var 1]])]])),Func ("OracleFlatCurryGoodies","_case_41") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","TVar") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("FlatCurry","TCons") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("FlatCurry","FuncType") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb FuncCall ("OracleFlatCurryGoodies","argTypes") [Var 7,Var 1]]])]])),Func ("OracleFlatCurryGoodies","_case_42") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FlatCurry","TVar") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 1]]),Branch (Pattern ("FlatCurry","TCons") [7,8]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 7,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trTypeExpr") [Var 2,Var 3,Var 4]],Var 8,Var 12],Var 13]])),Branch (Pattern ("FlatCurry","FuncType") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(11,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trTypeExpr") [Var 2,Var 3,Var 4]])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 4,Comb FuncCall ("Oracle","apply") [Var 11,Var 9,Var 1],Var 14],Comb FuncCall ("Oracle","apply") [Var 11,Var 10,Var 15],Var 16]]))])]])),Func ("OracleFlatCurryGoodies","_case_43") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","TCons") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFlatCurryGoodies","_case_44") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","TCons") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryGoodies","_case_45") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","FuncType") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFlatCurryGoodies","_case_46") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","FuncType") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryGoodies","_case_47") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","TVar") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryGoodies","_case_48") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Cons") [4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5,Var 8],Var 6,Var 9],Var 7,Var 10]]))]])),Func ("OracleFlatCurryGoodies","_case_49") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","Type") [5,6,7,8]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 6,Var 13],Var 7,Var 14],Var 8,Var 15]])),Branch (Pattern ("FlatCurry","TypeSyn") [9,10,11,12]) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 9,Var 1],Var 10,Var 16],Var 11,Var 17],Var 12,Var 18]]))]])),Func ("OracleFlatCurryGoodies","_case_52") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryGoodies","_case_51") [Var 2,Var 3,Var 5,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 5,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","progName") [Var 1],Var 3,Var 7],Var 8],Var 9]]))]])),Func ("OracleFlatCurryGoodies","_case_51") 6 Private (TVar (-42)) (Rule [2,3,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 2,Var 6]]),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryGoodies","_case_50") [Var 5,Var 6,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 8]]))]])),Func ("OracleFlatCurryGoodies","_case_50") 4 Private (TVar (-42)) (Rule [5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 5,Var 6]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryGoodies","_case_53") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Prog") [4,5,6,7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5,Var 9],Var 6,Var 10],Var 7,Var 11],Var 8,Var 12]]))]]))] []
+ Curry/Module/OracleFlatCurryGoodies.fint view
@@ -0,0 +1,1 @@+Prog "OracleFlatCurryGoodies" ["CEventOracle","Oracle","IOExts","FlatCurryGoodies","FlatCurry","Prelude","OracleFlatCurry","OraclePrelude"] [] [Func ("OracleFlatCurryGoodies","trProg") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TVar 0))))))))))) (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_53") [Var 2,Var 3,Var 1]])),Func ("OracleFlatCurryGoodies","progName") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trProg") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","progName._#lambda2") []]]]])),Func ("OracleFlatCurryGoodies","progName._#lambda2") 6 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OracleFlatCurryGoodies","progImports") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trProg") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","progImports._#lambda3") []]]]])),Func ("OracleFlatCurryGoodies","progImports._#lambda3") 6 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFlatCurryGoodies","progTypes") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trProg") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","progTypes._#lambda4") []]]]])),Func ("OracleFlatCurryGoodies","progTypes._#lambda4") 6 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])),Func ("OracleFlatCurryGoodies","progFuncs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trProg") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","progFuncs._#lambda5") []]]]])),Func ("OracleFlatCurryGoodies","progFuncs._#lambda5") 6 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])),Func ("OracleFlatCurryGoodies","progOps") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trProg") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","progOps._#lambda6") []]]]])),Func ("OracleFlatCurryGoodies","progOps._#lambda6") 6 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])),Func ("OracleFlatCurryGoodies","updProg") 6 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trProg") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","updProg.prog.40") [Var 5,Var 3,Var 2,Var 6,Var 4]]]]])),Func ("OracleFlatCurryGoodies","updProg.prog.40") 11 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Prog") [])))))))))))) (Rule [2,3,4,5,6,7,8,9,10,11,1] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("FlatCurry","Prog") [Comb FuncCall ("Oracle","apply") [Var 4,Var 7,Var 1],Comb FuncCall ("Oracle","apply") [Var 3,Var 8,Var 12],Comb FuncCall ("Oracle","apply") [Var 6,Var 9,Var 13],Comb FuncCall ("Oracle","apply") [Var 2,Var 10,Var 14],Comb FuncCall ("Oracle","apply") [Var 5,Var 11,Var 15]]]))),Func ("OracleFlatCurryGoodies","updProgName") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updProg") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updProgImports") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updProg") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updProgTypes") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updProg") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updProgFuncs") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","FuncDecl") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updProg") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updProgOps") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updProg") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleFlatCurryGoodies","allVarsInProg") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePrelude","concatMap") [Comb FuncCall ("OracleFlatCurryGoodies","allVarsInFunc") [Var 1],Var 2],Comb FuncCall ("OracleFlatCurryGoodies","progFuncs") [Var 3],Var 4]]))),Func ("OracleFlatCurryGoodies","updProgExps") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") [])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updProgFuncs") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","map") []],Comb FuncCall ("OracleFlatCurryGoodies","updFuncBody") [Var 1],Var 2],Var 3]]))),Func ("OracleFlatCurryGoodies","rnmAllVarsInProg") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") [])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updProgFuncs") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","map") []],Comb FuncCall ("OracleFlatCurryGoodies","rnmAllVarsInFunc") [Var 1],Var 2],Var 3]]))),Func ("OracleFlatCurryGoodies","updQNamesInProg") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("FlatCurry","Prog") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryGoodies","updProg") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb FuncCall ("OracleFlatCurryGoodies","updQNamesInType") [Var 2,Var 1]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb FuncCall ("OracleFlatCurryGoodies","updQNamesInFunc") [Var 2,Var 3]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb FuncCall ("OracleFlatCurryGoodies","updOpName") [Var 2,Var 4]]],Var 5]]))),Func ("OracleFlatCurryGoodies","rnmProg") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Prog") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","updProgName") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","const") [Var 2]],Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","updQNamesInProg") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","rnmProg.rnm.62") [Var 2,Var 3]],Var 4],Var 3,Var 5],Var 6]]))),Func ("OracleFlatCurryGoodies","rnmProg.rnm.62") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_52") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryGoodies","trType") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TVar 0))))))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TVar 0))))))))) (FuncType (TCons ("FlatCurry","TypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_49") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryGoodies","typeName") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trType") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","typeName._#lambda7") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","typeName._#lambda8") []]]]])),Func ("OracleFlatCurryGoodies","typeName._#lambda7") 5 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OracleFlatCurryGoodies","typeName._#lambda8") 5 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OracleFlatCurryGoodies","typeVisibility") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","Visibility") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trType") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","typeVisibility._#lambda9") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","typeVisibility._#lambda10") []]]]])),Func ("OracleFlatCurryGoodies","typeVisibility._#lambda9") 5 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Visibility") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFlatCurryGoodies","typeVisibility._#lambda10") 5 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Visibility") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFlatCurryGoodies","typeParams") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trType") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","typeParams._#lambda11") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","typeParams._#lambda12") []]]]])),Func ("OracleFlatCurryGoodies","typeParams._#lambda11") 5 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])),Func ("OracleFlatCurryGoodies","typeParams._#lambda12") 5 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])),Func ("OracleFlatCurryGoodies","typeConsDecls") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trType") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","typeConsDecls._#lambda13") []],Comb FuncCall ("OraclePrelude","failed") [Var 1]]]])),Func ("OracleFlatCurryGoodies","typeConsDecls._#lambda13") 5 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])),Func ("OracleFlatCurryGoodies","typeSyn") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeExpr") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trType") [Comb FuncCall ("OraclePrelude","failed") [Var 1],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","typeSyn._#lambda14") []]]]])),Func ("OracleFlatCurryGoodies","typeSyn._#lambda14") 5 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","TypeExpr") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])),Func ("OracleFlatCurryGoodies","isTypeSyn") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trType") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","isTypeSyn._#lambda15") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","isTypeSyn._#lambda16") []]]]])),Func ("OracleFlatCurryGoodies","isTypeSyn._#lambda15") 5 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isTypeSyn._#lambda16") 5 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])),Func ("OracleFlatCurryGoodies","isDataTypeDecl") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trType") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","isDataTypeDecl._#lambda17") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","isDataTypeDecl._#lambda18") []]]]])),Func ("OracleFlatCurryGoodies","isDataTypeDecl._#lambda17") 5 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("OraclePrelude","null") [Var 5,Var 1],Var 6]]))),Func ("OracleFlatCurryGoodies","isDataTypeDecl._#lambda18") 5 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isExternalType") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trType") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","isExternalType._#lambda19") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","isExternalType._#lambda20") []]]]])),Func ("OracleFlatCurryGoodies","isExternalType._#lambda19") 5 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","null") [Var 5,Var 1]])),Func ("OracleFlatCurryGoodies","isExternalType._#lambda20") 5 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","updType") 6 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trType") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","updType.typ.148") [Var 5,Var 2,Var 4,Var 3]],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","updType.typesyn.148") [Var 2,Var 4,Var 6,Var 3]]]]])),Func ("OracleFlatCurryGoodies","updType.typ.148") 9 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","TypeDecl") [])))))))))) (Rule [2,3,4,5,6,7,8,9,1] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("FlatCurry","Type") [Comb FuncCall ("Oracle","apply") [Var 3,Var 6,Var 1],Comb FuncCall ("Oracle","apply") [Var 5,Var 7,Var 10],Comb FuncCall ("Oracle","apply") [Var 4,Var 8,Var 11],Comb FuncCall ("Oracle","apply") [Var 2,Var 9,Var 12]]]))),Func ("OracleFlatCurryGoodies","updType.typesyn.148") 9 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","TypeDecl") [])))))))))) (Rule [2,3,4,5,6,7,8,9,1] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("FlatCurry","TypeSyn") [Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 1],Comb FuncCall ("Oracle","apply") [Var 5,Var 7,Var 10],Comb FuncCall ("Oracle","apply") [Var 3,Var 8,Var 11],Comb FuncCall ("Oracle","apply") [Var 4,Var 9,Var 12]]]))),Func ("OracleFlatCurryGoodies","updTypeName") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updType") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updTypeVisibility") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updType") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updTypeParams") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updType") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updTypeConsDecls") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updType") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updTypeSynonym") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updType") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleFlatCurryGoodies","updQNamesInType") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeDecl") []) (TCons ("FlatCurry","TypeDecl") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryGoodies","updType") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb FuncCall ("OracleFlatCurryGoodies","updQNamesInConsDecl") [Var 2,Var 1]]],Comb FuncCall ("OracleFlatCurryGoodies","updQNamesInTypeExpr") [Var 2,Var 3],Var 4]]))),Func ("OracleFlatCurryGoodies","trCons") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TVar 0))))))))) (FuncType (TCons ("FlatCurry","ConsDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_48") [Var 2,Var 3,Var 1]])),Func ("OracleFlatCurryGoodies","consName") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trCons") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","consName._#lambda21") []]]]])),Func ("OracleFlatCurryGoodies","consName._#lambda21") 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 ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OracleFlatCurryGoodies","consArity") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("Prelude","Int") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trCons") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","consArity._#lambda22") []]]]])),Func ("OracleFlatCurryGoodies","consArity._#lambda22") 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 ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFlatCurryGoodies","consVisibility") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","Visibility") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trCons") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","consVisibility._#lambda23") []]]]])),Func ("OracleFlatCurryGoodies","consVisibility._#lambda23") 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 ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Visibility") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])),Func ("OracleFlatCurryGoodies","consArgs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trCons") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","consArgs._#lambda24") []]]]])),Func ("OracleFlatCurryGoodies","consArgs._#lambda24") 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 ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])),Func ("OracleFlatCurryGoodies","updCons") 5 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") [])))))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trCons") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OracleFlatCurryGoodies","updCons.cons.192") [Var 3,Var 5,Var 2,Var 4]]]]])),Func ("OracleFlatCurryGoodies","updCons.cons.192") 9 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","ConsDecl") [])))))))))) (Rule [2,3,4,5,6,7,8,9,1] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("FlatCurry","Cons") [Comb FuncCall ("Oracle","apply") [Var 4,Var 6,Var 1],Comb FuncCall ("Oracle","apply") [Var 2,Var 7,Var 10],Comb FuncCall ("Oracle","apply") [Var 5,Var 8,Var 11],Comb FuncCall ("Oracle","apply") [Var 3,Var 9,Var 12]]]))),Func ("OracleFlatCurryGoodies","updConsName") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updCons") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updConsArity") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updCons") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updConsVisibility") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updCons") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updConsArgs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updCons") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleFlatCurryGoodies","updQNamesInConsDecl") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","ConsDecl") []) (TCons ("FlatCurry","ConsDecl") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryGoodies","updCons") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb FuncCall ("OracleFlatCurryGoodies","updQNamesInTypeExpr") [Var 2,Var 1]]],Var 3]]))),Func ("OracleFlatCurryGoodies","tVarIndex") 2 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_47") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","domain") 2 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","TypeExpr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_46") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","range") 2 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","TypeExpr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_45") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","tConsName") 2 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_44") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","tConsArgs") 2 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_43") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","trTypeExpr") 5 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 0))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_42") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleFlatCurryGoodies","isTVar") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trTypeExpr") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isTVar._#lambda25") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","isTVar._#lambda26") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","isTVar._#lambda27") []]]]])),Func ("OracleFlatCurryGoodies","isTVar._#lambda25") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])),Func ("OracleFlatCurryGoodies","isTVar._#lambda26") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Bool") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isTVar._#lambda27") 3 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isTCons") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trTypeExpr") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isTCons._#lambda28") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","isTCons._#lambda29") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","isTCons._#lambda30") []]]]])),Func ("OracleFlatCurryGoodies","isTCons._#lambda28") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isTCons._#lambda29") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Bool") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])),Func ("OracleFlatCurryGoodies","isTCons._#lambda30") 3 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isFuncType") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trTypeExpr") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isFuncType._#lambda31") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","isFuncType._#lambda32") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","isFuncType._#lambda33") []]]]])),Func ("OracleFlatCurryGoodies","isFuncType._#lambda31") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isFuncType._#lambda32") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Bool") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isFuncType._#lambda33") 3 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])),Func ("OracleFlatCurryGoodies","updTVars") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("FlatCurry","TypeExpr") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trTypeExpr") [Var 2,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","TCons") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","FuncType") []]]]])),Func ("OracleFlatCurryGoodies","updTCons") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (TCons ("FlatCurry","TypeExpr") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trTypeExpr") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","TVar") []],Var 2,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","FuncType") []]]]])),Func ("OracleFlatCurryGoodies","updFuncTypes") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","trTypeExpr") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","TVar") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","TCons") []]]]])),Func ("OracleFlatCurryGoodies","argTypes") 2 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_41") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","resultType") 2 Public (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","TypeExpr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_40") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","allVarsInTypeExpr") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trTypeExpr") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("Prelude",":") []],Comb ConsCall ("Prelude","[]") []]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","const") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","concat") []]]],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","++") []]]]])),Func ("OracleFlatCurryGoodies","rnmAllVarsInTypeExpr") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryGoodies","updTVars") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","TVar") []],Var 2,Var 1],Var 3]]))),Func ("OracleFlatCurryGoodies","updQNamesInTypeExpr") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updTCons") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","updQNamesInTypeExpr._#lambda34") [Var 2]],Var 1]])),Func ("OracleFlatCurryGoodies","updQNamesInTypeExpr._#lambda34") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","TypeExpr") []))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FlatCurry","TCons") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Var 4]])),Func ("OracleFlatCurryGoodies","trOp") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Fixity") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 0))))))) (FuncType (TCons ("FlatCurry","OpDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_39") [Var 2,Var 3,Var 1]])),Func ("OracleFlatCurryGoodies","opName") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trOp") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleFlatCurryGoodies","opName._#lambda35") []]]]])),Func ("OracleFlatCurryGoodies","opName._#lambda35") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Fixity") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OracleFlatCurryGoodies","opFixity") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("FlatCurry","Fixity") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trOp") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleFlatCurryGoodies","opFixity._#lambda36") []]]]])),Func ("OracleFlatCurryGoodies","opFixity._#lambda36") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Fixity") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Fixity") []))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFlatCurryGoodies","opPrecedence") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("Prelude","Int") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trOp") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleFlatCurryGoodies","opPrecedence._#lambda37") []]]]])),Func ("OracleFlatCurryGoodies","opPrecedence._#lambda37") 4 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Fixity") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])),Func ("OracleFlatCurryGoodies","updOp") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Fixity") []) (TCons ("FlatCurry","Fixity") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("FlatCurry","OpDecl") []))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trOp") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleFlatCurryGoodies","updOp.op.305") [Var 3,Var 2,Var 4]]]]])),Func ("OracleFlatCurryGoodies","updOp.op.305") 7 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Fixity") []) (TCons ("FlatCurry","Fixity") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","OpDecl") [])))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("FlatCurry","Op") [Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 1],Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 8],Comb FuncCall ("Oracle","apply") [Var 4,Var 7,Var 9]]]))),Func ("OracleFlatCurryGoodies","updOpName") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("FlatCurry","OpDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updOp") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updOpFixity") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Fixity") []) (TCons ("FlatCurry","Fixity") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("FlatCurry","OpDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updOp") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updOpPrecedence") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","OpDecl") []) (TCons ("FlatCurry","OpDecl") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updOp") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleFlatCurryGoodies","trFunc") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TVar 0))))))))))) (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_38") [Var 2,Var 3,Var 1]])),Func ("OracleFlatCurryGoodies","funcName") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trFunc") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","funcName._#lambda38") []]]]])),Func ("OracleFlatCurryGoodies","funcName._#lambda38") 6 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OracleFlatCurryGoodies","funcArity") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","Int") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trFunc") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","funcArity._#lambda39") []]]]])),Func ("OracleFlatCurryGoodies","funcArity._#lambda39") 6 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFlatCurryGoodies","funcVisibility") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","Visibility") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trFunc") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","funcVisibility._#lambda40") []]]]])),Func ("OracleFlatCurryGoodies","funcVisibility._#lambda40") 6 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Visibility") []))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])),Func ("OracleFlatCurryGoodies","funcType") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","TypeExpr") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trFunc") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","funcType._#lambda41") []]]]])),Func ("OracleFlatCurryGoodies","funcType._#lambda41") 6 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","TypeExpr") []))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])),Func ("OracleFlatCurryGoodies","funcRule") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","Rule") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trFunc") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","funcRule._#lambda42") []]]]])),Func ("OracleFlatCurryGoodies","funcRule._#lambda42") 6 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Rule") []))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])),Func ("OracleFlatCurryGoodies","updFunc") 6 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trFunc") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]]]],Comb (FuncPartCall 6) ("OracleFlatCurryGoodies","updFunc.func.352") [Var 3,Var 2,Var 6,Var 5,Var 4]]]]])),Func ("OracleFlatCurryGoodies","updFunc.func.352") 11 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","FuncDecl") [])))))))))))) (Rule [2,3,4,5,6,7,8,9,10,11,1] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("FlatCurry","Func") [Comb FuncCall ("Oracle","apply") [Var 3,Var 7,Var 1],Comb FuncCall ("Oracle","apply") [Var 2,Var 8,Var 12],Comb FuncCall ("Oracle","apply") [Var 6,Var 9,Var 13],Comb FuncCall ("Oracle","apply") [Var 5,Var 10,Var 14],Comb FuncCall ("Oracle","apply") [Var 4,Var 11,Var 15]]]))),Func ("OracleFlatCurryGoodies","updFuncName") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updFunc") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updFuncArity") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updFunc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updFuncVisibility") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Visibility") []) (TCons ("FlatCurry","Visibility") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updFunc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updFuncType") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("FlatCurry","TypeExpr") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updFunc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updFuncRule") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updFunc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleFlatCurryGoodies","isExternal") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleFlatCurryGoodies","isRuleExternal") [Var 1],Comb FuncCall ("OracleFlatCurryGoodies","funcRule") [Var 2],Var 3]]))),Func ("OracleFlatCurryGoodies","allVarsInFunc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleFlatCurryGoodies","allVarsInRule") [Var 1],Comb FuncCall ("OracleFlatCurryGoodies","funcRule") [Var 2],Var 3]]))),Func ("OracleFlatCurryGoodies","funcArgs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleFlatCurryGoodies","ruleArgs") [Var 1],Comb FuncCall ("OracleFlatCurryGoodies","funcRule") [Var 2],Var 3]]))),Func ("OracleFlatCurryGoodies","funcBody") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","Expr") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleFlatCurryGoodies","ruleBody") [Var 1],Comb FuncCall ("OracleFlatCurryGoodies","funcRule") [Var 2],Var 3]]))),Func ("OracleFlatCurryGoodies","funcRHS") 2 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryGoodies","_case_37") [Var 2,Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","isExternal") [Var 1],Var 2,Var 3],Var 4],Var 5]]))),Func ("OracleFlatCurryGoodies","funcRHS.orCase.374") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryGoodies","_case_35") [Var 2,Comb FuncCall ("OracleFlatCurryGoodies","isOr") [Var 2,Var 1],Var 3]]))),Func ("OracleFlatCurryGoodies","rnmAllVarsInFunc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updFunc") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","rnmAllVarsInRule") []],Var 1]])),Func ("OracleFlatCurryGoodies","updQNamesInFunc") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryGoodies","updFunc") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb FuncCall ("OracleFlatCurryGoodies","updQNamesInTypeExpr") [Var 2,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","updQNamesInRule") [Var 3],Var 2,Var 4],Var 5]]))),Func ("OracleFlatCurryGoodies","updFuncArgs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") [])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleFlatCurryGoodies","updFuncRule") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updRuleArgs") []],Var 2]]))),Func ("OracleFlatCurryGoodies","updFuncBody") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","FuncDecl") []) (TCons ("FlatCurry","FuncDecl") [])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleFlatCurryGoodies","updFuncRule") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updRuleBody") []],Var 2]]))),Func ("OracleFlatCurryGoodies","trRule") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TVar 0))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TVar 0))) (FuncType (TCons ("FlatCurry","Rule") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_32") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryGoodies","ruleArgs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trRule") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","ruleArgs._#lambda43") []],Comb FuncCall ("OraclePrelude","failed") [Var 1]]]])),Func ("OracleFlatCurryGoodies","ruleArgs._#lambda43") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OracleFlatCurryGoodies","ruleBody") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Expr") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trRule") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","ruleBody._#lambda44") []],Comb FuncCall ("OraclePrelude","failed") [Var 1]]]])),Func ("OracleFlatCurryGoodies","ruleBody._#lambda44") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFlatCurryGoodies","ruleExtDecl") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trRule") [Comb FuncCall ("OraclePrelude","failed") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleFlatCurryGoodies","isRuleExternal") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trRule") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","isRuleExternal._#lambda45") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isRuleExternal._#lambda46") []]]]])),Func ("OracleFlatCurryGoodies","isRuleExternal._#lambda45") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isRuleExternal._#lambda46") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])),Func ("OracleFlatCurryGoodies","updRule") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trRule") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","updRule.rule.409") [Var 2,Var 3]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updRule.ext.409") [Var 4]]]]])),Func ("OracleFlatCurryGoodies","updRule.rule.409") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Rule") [])))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Rule") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 6]]]))),Func ("OracleFlatCurryGoodies","updRule.ext.409") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Rule") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FlatCurry","External") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1]]])),Func ("OracleFlatCurryGoodies","updRuleArgs") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updRule") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updRuleBody") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updRule") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updRuleExtDecl") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updRule") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","allVarsInRule") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trRule") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","allVarsInRule._#lambda47") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","allVarsInRule._#lambda48") []]]]])),Func ("OracleFlatCurryGoodies","allVarsInRule._#lambda47") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OracleFlatCurryGoodies","allVars") [Var 3,Var 1],Var 4]]))),Func ("OracleFlatCurryGoodies","allVarsInRule._#lambda48") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 1003]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])),Func ("OracleFlatCurryGoodies","rnmAllVarsInRule") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryGoodies","updRule") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Var 2]],Comb FuncCall ("OracleFlatCurryGoodies","rnmAllVars") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 3]]))),Func ("OracleFlatCurryGoodies","updQNamesInRule") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Rule") []) (TCons ("FlatCurry","Rule") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updRuleBody") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updQNames") []],Var 1]])),Func ("OracleFlatCurryGoodies","trCombType") 6 Public (FuncType (TVar 0) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 0))) (FuncType (TVar 0) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 0))) (FuncType (TCons ("FlatCurry","CombType") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_31") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 1]])),Func ("OracleFlatCurryGoodies","isCombTypeFuncCall") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","CombType") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trCombType") [Comb ConsCall ("Prelude","True") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isCombTypeFuncCall._#lambda49") []],Comb ConsCall ("Prelude","False") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isCombTypeFuncCall._#lambda50") []]]]])),Func ("OracleFlatCurryGoodies","isCombTypeFuncCall._#lambda49") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isCombTypeFuncCall._#lambda50") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isCombTypeFuncPartCall") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","CombType") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trCombType") [Comb ConsCall ("Prelude","False") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isCombTypeFuncPartCall._#lambda51") []],Comb ConsCall ("Prelude","False") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isCombTypeFuncPartCall._#lambda52") []]]]])),Func ("OracleFlatCurryGoodies","isCombTypeFuncPartCall._#lambda51") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])),Func ("OracleFlatCurryGoodies","isCombTypeFuncPartCall._#lambda52") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isCombTypeConsCall") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","CombType") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trCombType") [Comb ConsCall ("Prelude","False") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isCombTypeConsCall._#lambda53") []],Comb ConsCall ("Prelude","True") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isCombTypeConsCall._#lambda54") []]]]])),Func ("OracleFlatCurryGoodies","isCombTypeConsCall._#lambda53") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isCombTypeConsCall._#lambda54") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isCombTypeConsPartCall") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","CombType") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trCombType") [Comb ConsCall ("Prelude","False") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isCombTypeConsPartCall._#lambda55") []],Comb ConsCall ("Prelude","False") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isCombTypeConsPartCall._#lambda56") []]]]])),Func ("OracleFlatCurryGoodies","isCombTypeConsPartCall._#lambda55") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","isCombTypeConsPartCall._#lambda56") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])),Func ("OracleFlatCurryGoodies","missingArgs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","CombType") []) (TCons ("Prelude","Int") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trCombType") [Lit (Intc 0),Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Lit (Intc 0),Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleFlatCurryGoodies","varNr") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_30") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","literal") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Literal") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_29") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","combType") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","CombType") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_28") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","combName") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_27") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","combArgs") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_26") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","missingCombArgs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("Prelude","Int") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleFlatCurryGoodies","missingArgs") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","combType") []],Var 2]]))),Func ("OracleFlatCurryGoodies","letBinds") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_25") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","letBody") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_24") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","freeVars") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_23") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","freeExpr") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_22") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","orExps") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_21") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","caseType") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","CaseType") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_20") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","caseExpr") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_19") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","caseBranches") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","BranchExpr") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_18") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","isVar") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_17") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","isLit") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_16") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","isComb") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_15") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","isLet") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_14") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","isFree") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_13") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","isOr") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_12") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","isCase") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_11") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","trExpr") 10 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TVar 0))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Literal") []) (TVar 0))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","CombType") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0))))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","CaseType") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1))))) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))))))))) (Rule [2,3,4,5,6,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_10") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9,Var 10,Var 1]])),Func ("OracleFlatCurryGoodies","trExpr._#lambda64") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TVar 231))) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 231])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_9") [Var 2,Var 3,Var 1]])),Func ("OracleFlatCurryGoodies","trExpr._#lambda65") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 231) (TVar 232))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TVar 231))) (FuncType (TCons ("FlatCurry","BranchExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 232))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_8") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryGoodies","updVars") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("FlatCurry","Expr") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Var 2,Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Lit") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Comb") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Let") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Free") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Or") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Case") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Branch") []]]]])),Func ("OracleFlatCurryGoodies","updLiterals") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("FlatCurry","Expr") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Var") []],Var 2,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Comb") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Let") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Free") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Or") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Case") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Branch") []]]]])),Func ("OracleFlatCurryGoodies","updCombs") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","CombType") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []]) (TCons ("FlatCurry","Expr") []))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Var") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Lit") []],Var 2,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Let") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Free") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Or") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Case") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Branch") []]]]])),Func ("OracleFlatCurryGoodies","updLets") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Var") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Lit") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Comb") []],Var 2,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Free") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Or") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Case") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Branch") []]]]])),Func ("OracleFlatCurryGoodies","updFrees") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Var") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Lit") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Comb") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Let") []],Var 2,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Or") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Case") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Branch") []]]]])),Func ("OracleFlatCurryGoodies","updOrs") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Var") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Lit") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Comb") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Let") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Free") []],Var 2,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Case") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Branch") []]]]])),Func ("OracleFlatCurryGoodies","updCases") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","CaseType") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","BranchExpr") []]) (TCons ("FlatCurry","Expr") []))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Var") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Lit") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Comb") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Let") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Free") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Or") []],Var 2,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Branch") []]]]])),Func ("OracleFlatCurryGoodies","updBranches") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","BranchExpr") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Var") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Lit") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Comb") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Let") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Free") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Or") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Case") []],Var 2]]])),Func ("OracleFlatCurryGoodies","isFuncCall") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleFlatCurryGoodies","isComb") [Var 2,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","isCombTypeFuncCall") [Var 3],Comb FuncCall ("OracleFlatCurryGoodies","combType") [Var 2,Var 4],Var 5],Var 6]]))),Func ("OracleFlatCurryGoodies","isFuncPartCall") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleFlatCurryGoodies","isComb") [Var 2,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","isCombTypeFuncPartCall") [Var 3],Comb FuncCall ("OracleFlatCurryGoodies","combType") [Var 2,Var 4],Var 5],Var 6]]))),Func ("OracleFlatCurryGoodies","isConsCall") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleFlatCurryGoodies","isComb") [Var 2,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","isCombTypeConsCall") [Var 3],Comb FuncCall ("OracleFlatCurryGoodies","combType") [Var 2,Var 4],Var 5],Var 6]]))),Func ("OracleFlatCurryGoodies","isConsPartCall") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleFlatCurryGoodies","isComb") [Var 2,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","isCombTypeConsPartCall") [Var 3],Comb FuncCall ("OracleFlatCurryGoodies","combType") [Var 2,Var 4],Var 5],Var 6]]))),Func ("OracleFlatCurryGoodies","isGround") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_7") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","allVars") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","trExpr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("Prelude",":") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","const") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","allVars.comb.650") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","allVars.lt.650") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","allVars.fr.650") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude",".") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleFlatCurryGoodies","allVars.cas.650") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","allVars.branch.650") []],Var 2,Var 1],Comb ConsCall ("Prelude","[]") [],Var 3]]))),Func ("OracleFlatCurryGoodies","allVars.comb.650") 3 Private (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TVar 2))]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TVar 2)))))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude",".") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleFlatCurryGoodies","allVars.lt.650") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))]]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 1))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 1)))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Var 3,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude",".") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","allVars.lt.650._#lambda67") []],Var 2,Var 1],Var 4],Var 5]]))),Func ("OracleFlatCurryGoodies","allVars.lt.650._#lambda67") 2 Private (FuncType (TCons ("Prelude","(,)") [TVar 283,FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 283]) (TCons ("Prelude","[]") [TVar 283]))]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 283]) (TCons ("Prelude","[]") [TVar 283]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_5") [Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","allVars.fr.650") 3 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","[]") [TVar 0]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","[]") [TVar 0])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [Var 2]],Var 3,Var 1]])),Func ("OracleFlatCurryGoodies","allVars.cas.650") 4 Private (FuncType (TVar 0) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 2))) (FuncType (TCons ("Prelude","[]") [FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 1))]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 2))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Var 3,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude",".") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 4,Var 1],Var 5]]))),Func ("OracleFlatCurryGoodies","allVars.args.650") 2 Private (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryGoodies","_case_4") [Var 2,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","isConsPattern") [Var 1],Var 2,Var 3],Var 4]]))),Func ("OracleFlatCurryGoodies","allVars.branch.650") 3 Private (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryGoodies","allVars.args.650") [Var 2,Var 1]]],Var 3,Var 4]]))),Func ("OracleFlatCurryGoodies","rnmAllVars") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (Rule [2,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Let") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","rnmAllVars._#lambda68") [Var 2]]]],Var 1])] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Let [(4,Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Branch") []],Comb FuncCall ("OracleFlatCurryGoodies","updPatArgs") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Var 2]],Var 5],Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Var") []],Var 2,Var 7],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Lit") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Comb") []],Var 3,Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Free") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Var 2]],Var 8],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Or") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Case") []],Var 4]]]))]))]))),Func ("OracleFlatCurryGoodies","rnmAllVars._#lambda68") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_2") [Var 2,Var 3,Var 1]])),Func ("OracleFlatCurryGoodies","updQNames") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Var") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Lit") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleFlatCurryGoodies","updQNames.comb.673") [Var 2]],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Let") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Free") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Or") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []]]],Comb (ConsPartCall 3) ("FlatCurry","Case") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("FlatCurry","Branch") []],Comb FuncCall ("OracleFlatCurryGoodies","updPatCons") [Var 2,Var 1],Var 3]]]]))),Func ("OracleFlatCurryGoodies","updQNames.comb.673") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FlatCurry","Comb") [Var 3,Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5]])),Func ("OracleFlatCurryGoodies","trBranch") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TVar 0))))) (FuncType (TCons ("FlatCurry","BranchExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_1") [Var 2,Var 3,Var 1]])),Func ("OracleFlatCurryGoodies","branchPattern") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("FlatCurry","Pattern") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trBranch") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","branchPattern._#lambda69") []]]]])),Func ("OracleFlatCurryGoodies","branchPattern._#lambda69") 3 Private (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Pattern") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OracleFlatCurryGoodies","branchExpr") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("FlatCurry","Expr") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trBranch") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","branchExpr._#lambda70") []]]]])),Func ("OracleFlatCurryGoodies","branchExpr._#lambda70") 3 Private (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFlatCurryGoodies","updBranch") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("FlatCurry","BranchExpr") [])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trBranch") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","updBranch.branch.687") [Var 3,Var 2]]]]])),Func ("OracleFlatCurryGoodies","updBranch.branch.687") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") []))) (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","BranchExpr") [])))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Branch") [Comb FuncCall ("Oracle","apply") [Var 3,Var 4,Var 1],Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 6]]]))),Func ("OracleFlatCurryGoodies","updBranchPattern") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("FlatCurry","BranchExpr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updBranch") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updBranchExpr") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","BranchExpr") []) (TCons ("FlatCurry","BranchExpr") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updBranch") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleFlatCurryGoodies","trPattern") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TVar 0))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Literal") []) (TVar 0))) (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_0") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryGoodies","patCons") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trPattern") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","patCons._#lambda71") []],Comb FuncCall ("OraclePrelude","failed") [Var 1]]]])),Func ("OracleFlatCurryGoodies","patCons._#lambda71") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OracleFlatCurryGoodies","patArgs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trPattern") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","patArgs._#lambda72") []],Comb FuncCall ("OraclePrelude","failed") [Var 1]]]])),Func ("OracleFlatCurryGoodies","patArgs._#lambda72") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OracleFlatCurryGoodies","patLiteral") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Literal") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trPattern") [Comb FuncCall ("OraclePrelude","failed") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OracleFlatCurryGoodies","isConsPattern") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trPattern") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","isConsPattern._#lambda73") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isConsPattern._#lambda74") []]]]])),Func ("OracleFlatCurryGoodies","isConsPattern._#lambda73") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])),Func ("OracleFlatCurryGoodies","isConsPattern._#lambda74") 2 Private (FuncType (TCons ("FlatCurry","Literal") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleFlatCurryGoodies","updPattern") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("FlatCurry","Literal") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") []))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trPattern") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlatCurryGoodies","updPattern.pattern.718") [Var 3,Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","updPattern.lpattern.718") [Var 4]]]]])),Func ("OracleFlatCurryGoodies","updPattern.pattern.718") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Pattern") [])))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Pattern") [Comb FuncCall ("Oracle","apply") [Var 3,Var 4,Var 1],Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 6]]]))),Func ("OracleFlatCurryGoodies","updPattern.lpattern.718") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("FlatCurry","Literal") []))) (FuncType (TCons ("FlatCurry","Literal") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Pattern") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FlatCurry","LPattern") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1]]])),Func ("OracleFlatCurryGoodies","updPatCons") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updPattern") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updPatArgs") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updPattern") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 1]])),Func ("OracleFlatCurryGoodies","updPatLiteral") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Literal") []) (TCons ("FlatCurry","Literal") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Pattern") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updPattern") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Var 2,Var 1]])),Func ("OracleFlatCurryGoodies","patExpr") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Pattern") []) (TCons ("FlatCurry","Expr") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trPattern") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","patExpr._#lambda75") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Lit") []]]]])),Func ("OracleFlatCurryGoodies","patExpr._#lambda75") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("FlatCurry","Expr") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Comb") [Comb ConsCall ("FlatCurry","ConsCall") [],Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("FlatCurry","Var") []]]],Var 1]])),Func ("OracleFlatCurryGoodies","_case_0") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","Pattern") [5,6]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 6,Var 8]])),Branch (Pattern ("FlatCurry","LPattern") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 3,Var 7,Var 1]])]])),Func ("OracleFlatCurryGoodies","_case_1") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Branch") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5,Var 6]]))]])),Func ("OracleFlatCurryGoodies","_case_2") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5]])]])),Func ("OracleFlatCurryGoodies","_case_4") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","patArgs") [Var 1],Var 2,Var 4]])),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryGoodies","_case_3") [Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 5]]))]])),Func ("OracleFlatCurryGoodies","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryGoodies","_case_5") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude",":") [Var 3]],Var 4,Var 1]])]])),Func ("OracleFlatCurryGoodies","_case_7") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Comb") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","_case_6") [Var 2,Var 5,Var 3,Var 1]]),Branch (Pattern ("FlatCurry","Var") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","isLit") [Var 2,Var 1]]),Branch (Pattern ("FlatCurry","Lit") [9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","isLit") [Var 2,Var 1]]),Branch (Pattern ("FlatCurry","Let") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","isLit") [Var 2,Var 1]]),Branch (Pattern ("FlatCurry","Free") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","isLit") [Var 2,Var 1]]),Branch (Pattern ("FlatCurry","Or") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","isLit") [Var 2,Var 1]]),Branch (Pattern ("FlatCurry","Case") [16,17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","isLit") [Var 2,Var 1]])]])),Func ("OracleFlatCurryGoodies","_case_6") 4 Private (TVar (-42)) (Rule [2,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("FlatCurry","ConsCall") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","all") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","isGround") []],Var 1],Var 5,Var 8]])),Branch (Pattern ("FlatCurry","FuncCall") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","isLit") [Var 2,Var 1]]),Branch (Pattern ("FlatCurry","FuncPartCall") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","isLit") [Var 2,Var 1]]),Branch (Pattern ("FlatCurry","ConsPartCall") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","isLit") [Var 2,Var 1]])]])),Func ("OracleFlatCurryGoodies","_case_8") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","Branch") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Comb FuncCall ("Oracle","apply") [Var 3,Var 6,Var 7],Var 8]]))]])),Func ("OracleFlatCurryGoodies","_case_9") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 4,Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1]]])]])),Func ("OracleFlatCurryGoodies","_case_10") 10 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("FlatCurry","Var") [11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Var 11,Var 1]]),Branch (Pattern ("FlatCurry","Lit") [12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 3,Var 12,Var 1]]),Branch (Pattern ("FlatCurry","Comb") [13,14,15]) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 4,Var 13,Var 1],Var 14,Var 28],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9]],Var 15,Var 29],Var 30]])),Branch (Pattern ("FlatCurry","Let") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(18,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9]])] (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 5,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr._#lambda64") [Var 18]],Var 16,Var 1],Var 31],Comb FuncCall ("Oracle","apply") [Var 18,Var 17,Var 32],Var 33]]))]),Branch (Pattern ("FlatCurry","Free") [19,20]) (Let [(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 6,Var 19,Var 1],Comb FuncCall ("OracleFlatCurryGoodies","trExpr") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9,Var 20,Var 34],Var 35]])),Branch (Pattern ("FlatCurry","Or") [21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(23,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9]])] (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 7,Comb FuncCall ("Oracle","apply") [Var 23,Var 21,Var 1],Var 36],Comb FuncCall ("Oracle","apply") [Var 23,Var 22,Var 37],Var 38]]))]),Branch (Pattern ("FlatCurry","Case") [24,25,26]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(27,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9]])] (Let [(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 8,Var 24,Var 1],Comb FuncCall ("Oracle","apply") [Var 27,Var 25,Var 39],Var 40],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trExpr._#lambda65") [Var 9,Var 27]],Var 26,Var 41],Var 42]]))])]])),Func ("OracleFlatCurryGoodies","_case_11") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Case") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("FlatCurry","Var") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Lit") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Comb") [8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Let") [11,12]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryGoodies","_case_12") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Or") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("FlatCurry","Var") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Lit") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Comb") [7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Let") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryGoodies","_case_13") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Free") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("FlatCurry","Var") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Lit") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Comb") [7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Let") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryGoodies","_case_14") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Let") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("FlatCurry","Var") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Lit") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Comb") [7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryGoodies","_case_15") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Comb") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("FlatCurry","Var") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Lit") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Let") [8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryGoodies","_case_16") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Lit") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("FlatCurry","Var") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Let") [8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryGoodies","_case_17") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Var") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("FlatCurry","Lit") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Let") [8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryGoodies","_case_18") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Case") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleFlatCurryGoodies","_case_19") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Case") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFlatCurryGoodies","_case_20") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Case") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryGoodies","_case_21") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Or") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]])]])),Func ("OracleFlatCurryGoodies","_case_22") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Free") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFlatCurryGoodies","_case_23") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Free") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryGoodies","_case_24") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Let") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFlatCurryGoodies","_case_25") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Let") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryGoodies","_case_26") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Comb") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleFlatCurryGoodies","_case_27") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Comb") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFlatCurryGoodies","_case_28") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Comb") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryGoodies","_case_29") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Lit") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryGoodies","_case_30") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Var") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryGoodies","_case_31") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("FlatCurry","FuncCall") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("FlatCurry","FuncPartCall") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 3,Var 7,Var 1]]),Branch (Pattern ("FlatCurry","ConsCall") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("FlatCurry","ConsPartCall") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 5,Var 8,Var 1]])]])),Func ("OracleFlatCurryGoodies","_case_32") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","Rule") [5,6]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 6,Var 8]])),Branch (Pattern ("FlatCurry","External") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 3,Var 7,Var 1]])]])),Func ("OracleFlatCurryGoodies","_case_35") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","funcRHS.orCase.374") []],Var 1],Comb FuncCall ("OracleFlatCurryGoodies","orExps") [Var 2,Var 4],Var 5]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryGoodies","_case_34") [Var 2,Comb FuncCall ("OracleFlatCurryGoodies","isCase") [Var 2,Var 1],Var 6]]))]])),Func ("OracleFlatCurryGoodies","_case_34") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","funcRHS.orCase.374") []],Var 1],Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OracleFlatCurryGoodies","branchExpr") [Var 4],Comb FuncCall ("OracleFlatCurryGoodies","caseBranches") [Var 2,Var 5],Var 6],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryGoodies","_case_33") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 8]]))]])),Func ("OracleFlatCurryGoodies","_case_33") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryGoodies","_case_37") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryGoodies","funcRHS.orCase.374") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","funcBody") [Var 1],Var 2,Var 4],Var 5]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryGoodies","_case_36") [Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 6]]))]])),Func ("OracleFlatCurryGoodies","_case_36") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryGoodies","_case_38") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Func") [4,5,6,7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5,Var 9],Var 6,Var 10],Var 7,Var 11],Var 8,Var 12]]))]])),Func ("OracleFlatCurryGoodies","_case_39") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Op") [4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5,Var 7],Var 6,Var 8]]))]])),Func ("OracleFlatCurryGoodies","_case_40") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","TVar") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlatCurry","TVar") [Var 3]]),Branch (Pattern ("FlatCurry","TCons") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlatCurry","TCons") [Var 4,Var 5]]),Branch (Pattern ("FlatCurry","FuncType") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","resultType") [Var 7,Var 1]])]])),Func ("OracleFlatCurryGoodies","_case_41") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","TVar") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("FlatCurry","TCons") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("FlatCurry","FuncType") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb FuncCall ("OracleFlatCurryGoodies","argTypes") [Var 7,Var 1]]])]])),Func ("OracleFlatCurryGoodies","_case_42") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FlatCurry","TVar") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 1]]),Branch (Pattern ("FlatCurry","TCons") [7,8]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 7,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trTypeExpr") [Var 2,Var 3,Var 4]],Var 8,Var 12],Var 13]])),Branch (Pattern ("FlatCurry","FuncType") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(11,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryGoodies","trTypeExpr") [Var 2,Var 3,Var 4]])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 4,Comb FuncCall ("Oracle","apply") [Var 11,Var 9,Var 1],Var 14],Comb FuncCall ("Oracle","apply") [Var 11,Var 10,Var 15],Var 16]]))])]])),Func ("OracleFlatCurryGoodies","_case_43") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","TCons") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFlatCurryGoodies","_case_44") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","TCons") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryGoodies","_case_45") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","FuncType") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFlatCurryGoodies","_case_46") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","FuncType") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryGoodies","_case_47") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","TVar") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryGoodies","_case_48") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Cons") [4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5,Var 8],Var 6,Var 9],Var 7,Var 10]]))]])),Func ("OracleFlatCurryGoodies","_case_49") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","Type") [5,6,7,8]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 6,Var 13],Var 7,Var 14],Var 8,Var 15]])),Branch (Pattern ("FlatCurry","TypeSyn") [9,10,11,12]) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 9,Var 1],Var 10,Var 16],Var 11,Var 17],Var 12,Var 18]]))]])),Func ("OracleFlatCurryGoodies","_case_52") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryGoodies","_case_51") [Var 2,Var 3,Var 5,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 5,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","progName") [Var 1],Var 3,Var 7],Var 8],Var 9]]))]])),Func ("OracleFlatCurryGoodies","_case_51") 6 Private (TVar (-42)) (Rule [2,3,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 2,Var 6]]),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryGoodies","_case_50") [Var 5,Var 6,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 8]]))]])),Func ("OracleFlatCurryGoodies","_case_50") 4 Private (TVar (-42)) (Rule [5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 5,Var 6]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryGoodies","_case_53") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Prog") [4,5,6,7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5,Var 9],Var 6,Var 10],Var 7,Var 11],Var 8,Var 12]]))]]))] []
+ Curry/Module/OracleFlatCurryRead.fcy view
@@ -0,0 +1,1 @@+Prog "OracleFlatCurryRead" ["CEventOracle","Oracle","IOExts","FlatCurryRead","Directory","Distribution","FileGoodies","FlatCurry","Prelude","Time","System","List","OracleDirectory","OracleDistribution","OracleFileGoodies","OracleFlatCurry","OraclePrelude","OracleTime","OracleSystem","OracleList"] [] [Func ("OracleFlatCurryRead","readFlatCurryWithImports") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","getLoadPathForFile") [Comb FuncCall ("OracleFlatCurry","flatCurryFileName") [Var 2,Var 1],Var 3],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","readFlatCurryWithImports._#lambda2") [Var 2]],Var 4]]))),Func ("OracleFlatCurryRead","readFlatCurryWithImports._#lambda2") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryRead","readFlatCurryFileWithImports") [Var 3,Comb FuncCall ("OracleFileGoodies","baseName") [Var 2,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","[]") []],Var 4]]))),Func ("OracleFlatCurryRead","readFlatCurryWithImportsInPath") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryRead","readFlatCurryFileWithImports") [Var 2,Var 3,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","[]") []],Var 1]])),Func ("OracleFlatCurryRead","readFlatCurryIntWithImports") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","getLoadPathForFile") [Comb FuncCall ("OracleFlatCurry","flatCurryIntName") [Var 2,Var 1],Var 3],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","readFlatCurryIntWithImports._#lambda3") [Var 2]],Var 4]]))),Func ("OracleFlatCurryRead","readFlatCurryIntWithImports._#lambda3") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryRead","readFlatCurryFileWithImports") [Var 3,Comb FuncCall ("OracleFileGoodies","baseName") [Var 2,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","[]") []]],Var 4]]))),Func ("OracleFlatCurryRead","readFlatCurryIntWithImportsInPath") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryRead","readFlatCurryFileWithImports") [Var 2,Var 3,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","[]") []]],Var 1]])),Func ("OracleFlatCurryRead","readFlatCurryFileWithImports") 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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]],Var 1],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports") [Var 2,Var 3,Var 4,Var 5],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","readFlatCurryFileWithImports._#lambda4") [Var 2,Var 3,Var 4]],Var 6],Var 7]]))),Func ("OracleFlatCurryRead","readFlatCurryFileWithImports._#lambda4") 5 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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OracleFlatCurryRead","parseFlatCurryFileWithImports") [Var 2,Var 3,Var 4,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Var 5,Var 6]]))),Func ("OracleFlatCurryRead","parseFlatCurryFileWithImports") 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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","putStrLn") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []]]]],Var 1],Var 5],Var 6],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleDistribution","callFrontendWithParams") [Comb ConsCall ("Distribution","FCY") [],Comb FuncCall ("OracleDistribution","setQuiet") [Comb ConsCall ("Prelude","True") [],Comb FuncCall ("OracleDistribution","setFullPath") [Var 2,Comb FuncCall ("OracleDistribution","defaultParams") [Var 7],Var 8],Var 9],Var 3,Var 10],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]],Var 11],Comb FuncCall ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16") [Var 2,Var 4,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","[]") [],Var 12],Var 13],Var 14],Var 15]]))),Func ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16") 5 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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryRead","_case_5") [Var 2,Var 3,Var 5,Var 4,Var 1]])),Func ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5") 7 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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 4,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","[]") []]]]]]]]]]]]],Var 1],Var 8],Var 9],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6") [Var 2,Var 3,Var 4,Var 5,Var 6]],Var 7,Var 10]]))),Func ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6") 7 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","putStr") [Comb FuncCall ("OraclePrelude","++") [Var 7,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 1],Var 8],Comb FuncCall ("OracleFlatCurry","readFlatCurryFile") [Var 7,Var 9],Var 10],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6._#lambda7") [Var 2,Var 3,Var 4,Var 5,Var 6]],Var 11]]))),Func ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6._#lambda7") 7 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16") [Var 3,Var 6,Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("OracleFlatCurryRead","importsOf") [Var 7,Var 1],Var 8],Comb ConsCall ("Prelude",":") [Var 4,Var 2],Var 9],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6._#lambda7._#lambda8") [Var 7]],Var 10]]))),Func ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6._#lambda7._#lambda8") 3 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude",":") [Var 2,Var 3],Var 1]])),Func ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports") 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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27") [Var 2,Var 4,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","[]") [],Var 1]])),Func ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27") 5 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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]])))))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryRead","_case_3") [Var 2,Var 3,Var 5,Var 4,Var 1]])),Func ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9") 7 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]])))))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","Nothing") [],Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10") [Var 2,Var 3,Var 4,Var 5,Var 6]],Var 7,Var 8]]))),Func ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10") 7 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]])))))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27") [Var 3,Var 6,Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("OracleFlatCurryRead","importsOf") [Var 7,Var 1],Var 8],Comb ConsCall ("Prelude",":") [Var 4,Var 2],Var 9],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10._#lambda11") [Var 7]],Var 10]]))),Func ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10._#lambda11") 3 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OraclePrelude","maybe") [Comb ConsCall ("Prelude","Nothing") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10._#lambda11._#lambda12") [Var 2]],Var 3,Var 1],Var 4]]))),Func ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10._#lambda11._#lambda12") 3 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude",":") [Var 2,Var 3]]])),Func ("OracleFlatCurryRead","importsOf") 2 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryRead","_case_1") [Var 2,Var 1]])),Func ("OracleFlatCurryRead","readFlatCurryIfPossible") 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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFileGoodies","lookupFileInPath") [Var 3,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,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13") [Var 2,Var 3,Var 4]],Var 5]]))),Func ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13") 5 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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]])))))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFileGoodies","lookupFileInPath") [Var 3,Var 4,Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda14") []],Var 6],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16") [Var 3,Var 4]],Var 5,Var 7]]))),Func ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda14") 2 Private (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","Nothing") [],Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda14._#lambda15") []],Var 2,Var 3]]))),Func ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda14._#lambda15") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFlatCurry","readFlatCurryFile") [Var 2,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude","Just") []],Var 3],Var 4]]))),Func ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]]))))))) (Rule [2,3,4,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleFileGoodies","dirName") [Var 4,Var 1])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleDistribution","addCurrySubdir") [Var 5,Var 7],Comb ConsCall ("Prelude","[]") []]])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFileGoodies","lookupFileInPath") [Var 2,Var 3,Var 6,Var 8],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17") [Var 4]],Var 9]]))]))]))),Func ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","Nothing") [],Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18") [Var 2]],Var 3,Var 4]]))),Func ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","getModificationTime") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18._#lambda19") [Var 3]],Var 4]]))),Func ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18._#lambda19") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","getModificationTime") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18._#lambda19._#lambda20") [Var 3,Var 2]],Var 4]]))),Func ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18._#lambda19._#lambda20") 4 Private (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryRead","_case_0") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude",">") [Comb FuncCall ("OracleTime","clockTimeToInt") [Var 2,Var 1],Comb FuncCall ("OracleTime","clockTimeToInt") [Var 4,Var 5],Var 6],Var 7]]))),Func ("OracleFlatCurryRead","_case_0") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","Nothing") [],Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","putStr") [Comb FuncCall ("OraclePrelude","++") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 1],Var 6],Comb FuncCall ("OracleFlatCurry","readFlatCurryFile") [Var 3,Var 7],Var 8],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude","Just") []],Var 9],Var 10]]))]])),Func ("OracleFlatCurryRead","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Prog") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFlatCurryRead","_case_3") 5 Private (TVar (-42)) (Rule [2,3,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","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","[]") []]]]],Var 1],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","[]") []],Var 8],Var 9]])),Branch (Pattern ("Prelude",":") [6,7]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryRead","_case_2") [Var 2,Var 3,Var 5,Var 6,Var 7,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 6,Var 1],Var 5,Var 10],Var 11]]))]])),Func ("OracleFlatCurryRead","_case_2") 7 Private (TVar (-42)) (Rule [2,3,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27") [Var 2,Var 3,Var 7,Var 5,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFlatCurryRead","readFlatCurryIfPossible") [Var 2,Var 6,Var 3,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9") [Var 5,Var 2,Var 6,Var 7,Var 3]],Var 9]]))]])),Func ("OracleFlatCurryRead","_case_5") 5 Private (TVar (-42)) (Rule [2,3,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","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","[]") []]]]],Var 1],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","[]") [],Var 8],Var 9]])),Branch (Pattern ("Prelude",":") [6,7]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryRead","_case_4") [Var 2,Var 3,Var 5,Var 6,Var 7,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 6,Var 1],Var 5,Var 10],Var 11]]))]])),Func ("OracleFlatCurryRead","_case_4") 7 Private (TVar (-42)) (Rule [2,3,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16") [Var 2,Var 3,Var 7,Var 5,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFileGoodies","lookupFileInPath") [Var 6,Var 3,Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5") [Var 5,Var 2,Var 6,Var 7,Var 3]],Var 9]]))]]))] []
+ Curry/Module/OracleFlatCurryRead.fint view
@@ -0,0 +1,1 @@+Prog "OracleFlatCurryRead" ["CEventOracle","Oracle","IOExts","FlatCurryRead","Directory","Distribution","FileGoodies","FlatCurry","Prelude","Time","System","List","OracleDirectory","OracleDistribution","OracleFileGoodies","OracleFlatCurry","OraclePrelude","OracleTime","OracleSystem","OracleList"] [] [Func ("OracleFlatCurryRead","readFlatCurryWithImports") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","getLoadPathForFile") [Comb FuncCall ("OracleFlatCurry","flatCurryFileName") [Var 2,Var 1],Var 3],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","readFlatCurryWithImports._#lambda2") [Var 2]],Var 4]]))),Func ("OracleFlatCurryRead","readFlatCurryWithImports._#lambda2") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryRead","readFlatCurryFileWithImports") [Var 3,Comb FuncCall ("OracleFileGoodies","baseName") [Var 2,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","[]") []],Var 4]]))),Func ("OracleFlatCurryRead","readFlatCurryWithImportsInPath") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryRead","readFlatCurryFileWithImports") [Var 2,Var 3,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","[]") []],Var 1]])),Func ("OracleFlatCurryRead","readFlatCurryIntWithImports") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDistribution","getLoadPathForFile") [Comb FuncCall ("OracleFlatCurry","flatCurryIntName") [Var 2,Var 1],Var 3],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","readFlatCurryIntWithImports._#lambda3") [Var 2]],Var 4]]))),Func ("OracleFlatCurryRead","readFlatCurryIntWithImports._#lambda3") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryRead","readFlatCurryFileWithImports") [Var 3,Comb FuncCall ("OracleFileGoodies","baseName") [Var 2,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","[]") []]],Var 4]]))),Func ("OracleFlatCurryRead","readFlatCurryIntWithImportsInPath") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryRead","readFlatCurryFileWithImports") [Var 2,Var 3,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","[]") []]],Var 1]])),Func ("OracleFlatCurryRead","readFlatCurryFileWithImports") 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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]],Var 1],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports") [Var 2,Var 3,Var 4,Var 5],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","readFlatCurryFileWithImports._#lambda4") [Var 2,Var 3,Var 4]],Var 6],Var 7]]))),Func ("OracleFlatCurryRead","readFlatCurryFileWithImports._#lambda4") 5 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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OracleFlatCurryRead","parseFlatCurryFileWithImports") [Var 2,Var 3,Var 4,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Var 5,Var 6]]))),Func ("OracleFlatCurryRead","parseFlatCurryFileWithImports") 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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","putStrLn") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []]]]],Var 1],Var 5],Var 6],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleDistribution","callFrontendWithParams") [Comb ConsCall ("Distribution","FCY") [],Comb FuncCall ("OracleDistribution","setQuiet") [Comb ConsCall ("Prelude","True") [],Comb FuncCall ("OracleDistribution","setFullPath") [Var 2,Comb FuncCall ("OracleDistribution","defaultParams") [Var 7],Var 8],Var 9],Var 3,Var 10],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]],Var 11],Comb FuncCall ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16") [Var 2,Var 4,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","[]") [],Var 12],Var 13],Var 14],Var 15]]))),Func ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16") 5 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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryRead","_case_5") [Var 2,Var 3,Var 5,Var 4,Var 1]])),Func ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5") 7 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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 4,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","[]") []]]]]]]]]]]]],Var 1],Var 8],Var 9],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6") [Var 2,Var 3,Var 4,Var 5,Var 6]],Var 7,Var 10]]))),Func ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6") 7 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","putStr") [Comb FuncCall ("OraclePrelude","++") [Var 7,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 1],Var 8],Comb FuncCall ("OracleFlatCurry","readFlatCurryFile") [Var 7,Var 9],Var 10],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6._#lambda7") [Var 2,Var 3,Var 4,Var 5,Var 6]],Var 11]]))),Func ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6._#lambda7") 7 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16") [Var 3,Var 6,Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("OracleFlatCurryRead","importsOf") [Var 7,Var 1],Var 8],Comb ConsCall ("Prelude",":") [Var 4,Var 2],Var 9],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6._#lambda7._#lambda8") [Var 7]],Var 10]]))),Func ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5._#lambda6._#lambda7._#lambda8") 3 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude",":") [Var 2,Var 3],Var 1]])),Func ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports") 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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27") [Var 2,Var 4,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","[]") [],Var 1]])),Func ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27") 5 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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]])))))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryRead","_case_3") [Var 2,Var 3,Var 5,Var 4,Var 1]])),Func ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9") 7 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]])))))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","Nothing") [],Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10") [Var 2,Var 3,Var 4,Var 5,Var 6]],Var 7,Var 8]]))),Func ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10") 7 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]])))))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27") [Var 3,Var 6,Comb FuncCall ("OraclePrelude","++") [Var 5,Comb FuncCall ("OracleFlatCurryRead","importsOf") [Var 7,Var 1],Var 8],Comb ConsCall ("Prelude",":") [Var 4,Var 2],Var 9],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10._#lambda11") [Var 7]],Var 10]]))),Func ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10._#lambda11") 3 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OraclePrelude","maybe") [Comb ConsCall ("Prelude","Nothing") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10._#lambda11._#lambda12") [Var 2]],Var 3,Var 1],Var 4]]))),Func ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9._#lambda10._#lambda11._#lambda12") 3 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Prog") []]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude",":") [Var 2,Var 3]]])),Func ("OracleFlatCurryRead","importsOf") 2 Private (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryRead","_case_1") [Var 2,Var 1]])),Func ("OracleFlatCurryRead","readFlatCurryIfPossible") 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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFileGoodies","lookupFileInPath") [Var 3,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,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13") [Var 2,Var 3,Var 4]],Var 5]]))),Func ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13") 5 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") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]])))))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFileGoodies","lookupFileInPath") [Var 3,Var 4,Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda14") []],Var 6],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16") [Var 3,Var 4]],Var 5,Var 7]]))),Func ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda14") 2 Private (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","Nothing") [],Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda14._#lambda15") []],Var 2,Var 3]]))),Func ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda14._#lambda15") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFlatCurry","readFlatCurryFile") [Var 2,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude","Just") []],Var 3],Var 4]]))),Func ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]]))))))) (Rule [2,3,4,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleFileGoodies","dirName") [Var 4,Var 1])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleDistribution","addCurrySubdir") [Var 5,Var 7],Comb ConsCall ("Prelude","[]") []]])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFileGoodies","lookupFileInPath") [Var 2,Var 3,Var 6,Var 8],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17") [Var 4]],Var 9]]))]))]))),Func ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","Nothing") [],Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18") [Var 2]],Var 3,Var 4]]))),Func ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","getModificationTime") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18._#lambda19") [Var 3]],Var 4]]))),Func ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18._#lambda19") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","getModificationTime") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18._#lambda19._#lambda20") [Var 3,Var 2]],Var 4]]))),Func ("OracleFlatCurryRead","readFlatCurryIfPossible._#lambda13._#lambda16._#lambda17._#lambda18._#lambda19._#lambda20") 4 Private (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("FlatCurry","Prog") []]]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryRead","_case_0") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude",">") [Comb FuncCall ("OracleTime","clockTimeToInt") [Var 2,Var 1],Comb FuncCall ("OracleTime","clockTimeToInt") [Var 4,Var 5],Var 6],Var 7]]))),Func ("OracleFlatCurryRead","_case_0") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","Nothing") [],Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","putStr") [Comb FuncCall ("OraclePrelude","++") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 1],Var 6],Comb FuncCall ("OracleFlatCurry","readFlatCurryFile") [Var 3,Var 7],Var 8],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude","Just") []],Var 9],Var 10]]))]])),Func ("OracleFlatCurryRead","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Prog") [3,4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFlatCurryRead","_case_3") 5 Private (TVar (-42)) (Rule [2,3,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","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","[]") []]]]],Var 1],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","[]") []],Var 8],Var 9]])),Branch (Pattern ("Prelude",":") [6,7]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryRead","_case_2") [Var 2,Var 3,Var 5,Var 6,Var 7,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 6,Var 1],Var 5,Var 10],Var 11]]))]])),Func ("OracleFlatCurryRead","_case_2") 7 Private (TVar (-42)) (Rule [2,3,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27") [Var 2,Var 3,Var 7,Var 5,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFlatCurryRead","readFlatCurryIfPossible") [Var 2,Var 6,Var 3,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","tryReadFlatCurryFileWithImports.collectMods.27._#lambda9") [Var 5,Var 2,Var 6,Var 7,Var 3]],Var 9]]))]])),Func ("OracleFlatCurryRead","_case_5") 5 Private (TVar (-42)) (Rule [2,3,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","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","[]") []]]]],Var 1],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","[]") [],Var 8],Var 9]])),Branch (Pattern ("Prelude",":") [6,7]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryRead","_case_4") [Var 2,Var 3,Var 5,Var 6,Var 7,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 6,Var 1],Var 5,Var 10],Var 11]]))]])),Func ("OracleFlatCurryRead","_case_4") 7 Private (TVar (-42)) (Rule [2,3,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16") [Var 2,Var 3,Var 7,Var 5,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFileGoodies","lookupFileInPath") [Var 6,Var 3,Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryRead","parseFlatCurryFileWithImports.collectMods.16._#lambda5") [Var 5,Var 2,Var 6,Var 7,Var 3]],Var 9]]))]]))] []
+ Curry/Module/OracleFlatCurryShow.fcy view
@@ -0,0 +1,1 @@+Prog "OracleFlatCurryShow" ["CEventOracle","Oracle","IOExts","FlatCurryShow","Char","FlatCurry","List","Prelude","OracleChar","OracleFlatCurry","OracleList","OraclePrelude"] [] [Func ("OracleFlatCurryShow","showFlatProg") 2 Public (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_122") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatVisibility") 2 Private (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_119") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatFixity") 2 Private (FuncType (TCons ("FlatCurry","Fixity") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_118") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatOp") 2 Private (FuncType (TCons ("FlatCurry","OpDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_117") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatType") 2 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_116") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatCons") 2 Private (FuncType (TCons ("FlatCurry","ConsDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_115") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatFunc") 2 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_114") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatRule") 2 Private (FuncType (TCons ("FlatCurry","Rule") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_113") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatTypeExpr") 2 Private (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_112") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatCombType") 2 Private (FuncType (TCons ("FlatCurry","CombType") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_111") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatExpr") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_110") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatExpr.showFlatBinding.49") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_108") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatLit") 2 Private (FuncType (TCons ("FlatCurry","Literal") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_107") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatBranch") 2 Private (FuncType (TCons ("FlatCurry","BranchExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_106") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatPattern") 2 Private (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_105") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatList") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatListElems") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Var 4],Var 5]]))),Func ("OracleFlatCurryShow","showFlatListElems") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Var 2,Var 3,Var 1],Var 4],Var 5]]))),Func ("OracleFlatCurryShow","showCurryType") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_104") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryShow","showCurryType._#lambda2") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb FuncCall ("OracleFlatCurryShow","showCurryType") [Var 2,Comb ConsCall ("Prelude","True") [],Var 3,Var 1]]])),Func ("OracleFlatCurryShow","isFuncType") 2 Private (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_97") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showCurryExpr") 5 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_96") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleFlatCurryShow","showCurryExpr._#lambda3") 4 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_81") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryShow","showCurryVar") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'v'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],Var 3]]))),Func ("OracleFlatCurryShow","showCurryId") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryShow","_case_80") [Var 2,Comb FuncCall ("OracleChar","isAlpha") [Comb FuncCall ("OraclePrelude","head") [Var 2,Var 1],Var 3],Var 4]]))),Func ("OracleFlatCurryShow","showCurryLit") 2 Private (FuncType (TCons ("FlatCurry","Literal") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_77") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showCurryCase") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_76") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryShow","showCurryCase.showPattern.151") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_74") [Var 2,Var 3,Var 1]])),Func ("OracleFlatCurryShow","showCurryFiniteList") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_68") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryShow","showCurryStringConstant") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_41") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showCharExpr") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_14") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showCurryElems") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Var 2,Var 3,Var 1],Var 4],Var 5]]))),Func ("OracleFlatCurryShow","showBracketsIf") 3 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_7") [Var 3,Var 2,Var 1]])),Func ("OracleFlatCurryShow","sceBlanks") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","take") [Var 2,Comb FuncCall ("OraclePrelude","repeat") [Lit (Charc ' '),Var 1],Var 3]]))),Func ("OracleFlatCurryShow","isFiniteList") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_6") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","isStringConstant") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_2") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","isCharConstant") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_1") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Lit") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_0") [Var 3,Var 1]]),Branch (Pattern ("FlatCurry","Var") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Comb") [8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Let") [11,12]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [17,18,19]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryShow","_case_0") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("FlatCurry","Charc") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("FlatCurry","Intc") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Floatc") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryShow","_case_2") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Comb") [3,4,5]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 4,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","[]") []]]],Var 1],Comb FuncCall ("OraclePrelude","null") [Var 5,Var 17],Var 18],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 4,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","[]") []]],Var 19],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","length") [Var 5,Var 20],Lit (Intc 2),Var 21],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleFlatCurryShow","isCharConstant") [Comb FuncCall ("OraclePrelude","head") [Var 5,Var 22],Var 23],Comb FuncCall ("OracleFlatCurryShow","isStringConstant") [Comb FuncCall ("OraclePrelude","!!") [Var 5,Lit (Intc 1),Var 24],Var 25],Var 26],Var 27],Var 28],Var 29]])),Branch (Pattern ("FlatCurry","Var") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Lit") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Let") [8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryShow","_case_6") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Var") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Lit") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryShow","_case_5") [Var 6,Var 7,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 6,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","[]") []]]],Var 1],Comb FuncCall ("OraclePrelude","==") [Var 7,Comb ConsCall ("Prelude","[]") [],Var 17],Var 18],Var 19]])),Branch (Pattern ("FlatCurry","Let") [8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryShow","_case_5") 4 Private (TVar (-42)) (Rule [6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryShow","_case_4") [Var 6,Var 7,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 6,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","[]") []]],Var 1],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","length") [Var 7,Var 9],Lit (Intc 2),Var 10],Var 11],Var 12]]))]])),Func ("OracleFlatCurryShow","_case_4") 4 Private (TVar (-42)) (Rule [6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","isFiniteList") [Comb FuncCall ("OraclePrelude","!!") [Var 7,Lit (Intc 1),Var 1],Var 9]])),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_3") [Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 10]]))]])),Func ("OracleFlatCurryShow","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryShow","_case_7") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb FuncCall ("OraclePrelude","++") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryShow","_case_14") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Lit") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_13") [Var 3,Var 1]])]])),Func ("OracleFlatCurryShow","_case_13") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Charc") [4]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OraclePrelude","ord") [Var 4,Var 1])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_12") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc '"'),Var 6],Var 7]]))]))]])),Func ("OracleFlatCurryShow","_case_12") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_11") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc '\''),Var 1],Var 7]]))]])),Func ("OracleFlatCurryShow","_case_11") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc '\''),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_10") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc '\n'),Var 1],Var 7]]))]])),Func ("OracleFlatCurryShow","_case_10") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryShow","_case_9") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","<") [Var 5,Lit (Intc 32),Var 1],Comb FuncCall ("OraclePrelude",">") [Var 5,Lit (Intc 126),Var 7],Var 8],Var 9]]))]])),Func ("OracleFlatCurryShow","_case_9") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","div") [Var 5,Lit (Intc 100),Var 1],Lit (Intc 48),Var 7],Var 8],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","div") [Comb FuncCall ("OraclePrelude","mod") [Var 5,Lit (Intc 100),Var 9],Lit (Intc 10),Var 10],Lit (Intc 48),Var 11],Var 12],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","mod") [Var 5,Lit (Intc 10),Var 13],Lit (Intc 48),Var 14],Var 15],Comb ConsCall ("Prelude","[]") []]]]]])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_8") [Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 16]]))]])),Func ("OracleFlatCurryShow","_case_8") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryShow","_case_41") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Comb") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_40") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryShow","_case_40") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_39") [Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryShow","_case_39") 4 Private (TVar (-42)) (Rule [5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_38") [Var 5,Var 7,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryShow","_case_38") 5 Private (TVar (-42)) (Rule [5,7,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'P')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_37") [Var 5,Var 7,Var 9,Var 1]])]])),Func ("OracleFlatCurryShow","_case_37") 4 Private (TVar (-42)) (Rule [5,7,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_36") [Var 5,Var 7,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryShow","_case_36") 5 Private (TVar (-42)) (Rule [5,7,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_35") [Var 5,Var 7,Var 11,Var 1]])]])),Func ("OracleFlatCurryShow","_case_35") 4 Private (TVar (-42)) (Rule [5,7,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_34") [Var 5,Var 7,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryShow","_case_34") 5 Private (TVar (-42)) (Rule [5,7,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_33") [Var 5,Var 7,Var 13,Var 1]])]])),Func ("OracleFlatCurryShow","_case_33") 4 Private (TVar (-42)) (Rule [5,7,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_32") [Var 5,Var 7,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryShow","_case_32") 5 Private (TVar (-42)) (Rule [5,7,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_31") [Var 5,Var 7,Var 15,Var 1]])]])),Func ("OracleFlatCurryShow","_case_31") 4 Private (TVar (-42)) (Rule [5,7,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_30") [Var 5,Var 7,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryShow","_case_30") 5 Private (TVar (-42)) (Rule [5,7,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_29") [Var 5,Var 7,Var 17,Var 1]])]])),Func ("OracleFlatCurryShow","_case_29") 4 Private (TVar (-42)) (Rule [5,7,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_28") [Var 5,Var 7,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryShow","_case_28") 5 Private (TVar (-42)) (Rule [5,7,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_27") [Var 5,Var 7,Var 19,Var 1]])]])),Func ("OracleFlatCurryShow","_case_27") 4 Private (TVar (-42)) (Rule [5,7,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_26") [Var 5,Var 7,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryShow","_case_26") 5 Private (TVar (-42)) (Rule [5,7,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_25") [Var 5,Var 7,Var 21,Var 1]])]])),Func ("OracleFlatCurryShow","_case_25") 4 Private (TVar (-42)) (Rule [5,7,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_24") [Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryShow","_case_24") 3 Private (TVar (-42)) (Rule [5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_23") [Var 5,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryShow","_case_23") 4 Private (TVar (-42)) (Rule [5,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (LPattern (Charc '[')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_22") [Var 5,Var 23,Var 1]]),Branch (LPattern (Charc ':')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_18") [Var 5,Var 23,Var 1]])]])),Func ("OracleFlatCurryShow","_case_18") 3 Private (TVar (-42)) (Rule [5,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_17") [Var 5,Var 1]])]])),Func ("OracleFlatCurryShow","_case_17") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_16") [Var 26,Var 27,Var 1]])]])),Func ("OracleFlatCurryShow","_case_16") 3 Private (TVar (-42)) (Rule [26,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_15") [Var 26,Var 28,Var 29,Var 1]])]])),Func ("OracleFlatCurryShow","_case_15") 4 Private (TVar (-42)) (Rule [26,28,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (Pattern ("Prelude","[]") []) (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCharExpr") [Var 26,Var 1],Comb FuncCall ("OracleFlatCurryShow","showCurryStringConstant") [Var 28,Var 30],Var 31]]))]])),Func ("OracleFlatCurryShow","_case_22") 3 Private (TVar (-42)) (Rule [5,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_21") [Var 5,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryShow","_case_21") 4 Private (TVar (-42)) (Rule [5,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (LPattern (Charc ']')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_20") [Var 5,Var 25,Var 1]])]])),Func ("OracleFlatCurryShow","_case_20") 3 Private (TVar (-42)) (Rule [5,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_19") [Var 5,Var 1]])]])),Func ("OracleFlatCurryShow","_case_19") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleFlatCurryShow","_case_68") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_67") [Var 2,Var 3,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryShow","_case_67") 5 Private (TVar (-42)) (Rule [2,3,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude","(,)") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_66") [Var 2,Var 3,Var 7,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryShow","_case_66") 6 Private (TVar (-42)) (Rule [2,3,7,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_65") [Var 2,Var 3,Var 7,Var 9,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryShow","_case_65") 7 Private (TVar (-42)) (Rule [2,3,7,9,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'P')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_64") [Var 2,Var 3,Var 7,Var 9,Var 11,Var 1]])]])),Func ("OracleFlatCurryShow","_case_64") 6 Private (TVar (-42)) (Rule [2,3,7,9,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_63") [Var 2,Var 3,Var 7,Var 9,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryShow","_case_63") 7 Private (TVar (-42)) (Rule [2,3,7,9,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_62") [Var 2,Var 3,Var 7,Var 9,Var 13,Var 1]])]])),Func ("OracleFlatCurryShow","_case_62") 6 Private (TVar (-42)) (Rule [2,3,7,9,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_61") [Var 2,Var 3,Var 7,Var 9,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryShow","_case_61") 7 Private (TVar (-42)) (Rule [2,3,7,9,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_60") [Var 2,Var 3,Var 7,Var 9,Var 15,Var 1]])]])),Func ("OracleFlatCurryShow","_case_60") 6 Private (TVar (-42)) (Rule [2,3,7,9,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_59") [Var 2,Var 3,Var 7,Var 9,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryShow","_case_59") 7 Private (TVar (-42)) (Rule [2,3,7,9,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_58") [Var 2,Var 3,Var 7,Var 9,Var 17,Var 1]])]])),Func ("OracleFlatCurryShow","_case_58") 6 Private (TVar (-42)) (Rule [2,3,7,9,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_57") [Var 2,Var 3,Var 7,Var 9,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryShow","_case_57") 7 Private (TVar (-42)) (Rule [2,3,7,9,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_56") [Var 2,Var 3,Var 7,Var 9,Var 19,Var 1]])]])),Func ("OracleFlatCurryShow","_case_56") 6 Private (TVar (-42)) (Rule [2,3,7,9,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_55") [Var 2,Var 3,Var 7,Var 9,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryShow","_case_55") 7 Private (TVar (-42)) (Rule [2,3,7,9,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_54") [Var 2,Var 3,Var 7,Var 9,Var 21,Var 1]])]])),Func ("OracleFlatCurryShow","_case_54") 6 Private (TVar (-42)) (Rule [2,3,7,9,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude",":") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_53") [Var 2,Var 3,Var 7,Var 9,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryShow","_case_53") 7 Private (TVar (-42)) (Rule [2,3,7,9,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_52") [Var 2,Var 3,Var 7,Var 9,Var 23,Var 1]])]])),Func ("OracleFlatCurryShow","_case_52") 6 Private (TVar (-42)) (Rule [2,3,7,9,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_51") [Var 2,Var 3,Var 7,Var 9,Var 1]])]])),Func ("OracleFlatCurryShow","_case_51") 5 Private (TVar (-42)) (Rule [2,3,7,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_50") [Var 2,Var 3,Var 7,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryShow","_case_50") 6 Private (TVar (-42)) (Rule [2,3,7,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (LPattern (Charc '[')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_49") [Var 7,Var 25,Var 1]]),Branch (LPattern (Charc ':')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_45") [Var 2,Var 3,Var 7,Var 25,Var 1]])]])),Func ("OracleFlatCurryShow","_case_45") 5 Private (TVar (-42)) (Rule [2,3,7,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_44") [Var 2,Var 3,Var 7,Var 1]])]])),Func ("OracleFlatCurryShow","_case_44") 4 Private (TVar (-42)) (Rule [2,3,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_43") [Var 2,Var 3,Var 28,Var 29,Var 1]])]])),Func ("OracleFlatCurryShow","_case_43") 5 Private (TVar (-42)) (Rule [2,3,28,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (Pattern ("Prelude",":") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_42") [Var 2,Var 3,Var 28,Var 30,Var 31,Var 1]])]])),Func ("OracleFlatCurryShow","_case_42") 6 Private (TVar (-42)) (Rule [2,3,28,30,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (Pattern ("Prelude","[]") []) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 3,Var 28,Var 1],Comb FuncCall ("OracleFlatCurryShow","showCurryFiniteList") [Var 2,Var 3,Var 30,Var 32]]]))]])),Func ("OracleFlatCurryShow","_case_49") 3 Private (TVar (-42)) (Rule [7,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_48") [Var 7,Var 27,Var 26,Var 1]])]])),Func ("OracleFlatCurryShow","_case_48") 4 Private (TVar (-42)) (Rule [7,27,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (LPattern (Charc ']')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_47") [Var 7,Var 27,Var 1]])]])),Func ("OracleFlatCurryShow","_case_47") 3 Private (TVar (-42)) (Rule [7,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_46") [Var 7,Var 1]])]])),Func ("OracleFlatCurryShow","_case_46") 2 Private (TVar (-42)) (Rule [7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleFlatCurryShow","_case_74") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_73") [Var 2,Var 4,Var 5,Var 1]])]])),Func ("OracleFlatCurryShow","_case_73") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","showCurryVar") [Var 4,Var 1],Var 8],Var 9]])),Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_72") [Var 2,Var 4,Var 6,Var 7,Var 1]])]])),Func ("OracleFlatCurryShow","_case_72") 5 Private (TVar (-42)) (Rule [2,4,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude","[]") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryShow","_case_71") [Var 2,Var 4,Var 6,Comb FuncCall ("OracleChar","isAlpha") [Comb FuncCall ("OraclePrelude","head") [Var 2,Var 1],Var 10],Var 11]])),Branch (Pattern ("Prelude",":") [8,9]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryShow","_case_69") [Var 2,Var 4,Var 6,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","take") [Lit (Intc 2),Var 2,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []]],Var 12],Var 13]]))]])),Func ("OracleFlatCurryShow","_case_69") 7 Private (TVar (-42)) (Rule [2,4,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showCurryVar") []],Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 8,Var 9]]],Var 1],Var 11],Var 12],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 13],Var 14]])),Branch (Pattern ("Prelude","False") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","showCurryElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showCurryVar") []],Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 8,Var 9]]],Var 1],Var 15],Var 16]]))]])),Func ("OracleFlatCurryShow","_case_71") 5 Private (TVar (-42)) (Rule [2,4,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryVar") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","showCurryVar") [Var 6,Var 8],Var 9],Var 10],Var 11],Var 12]])),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_70") [Var 2,Var 4,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 13]]))]])),Func ("OracleFlatCurryShow","_case_70") 5 Private (TVar (-42)) (Rule [2,4,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryVar") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryVar") [Var 6,Var 8],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 9],Var 10],Var 11],Var 12]])),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryVar") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","showCurryVar") [Var 6,Var 13],Var 14],Var 15],Var 16],Var 17]]))]])),Func ("OracleFlatCurryShow","_case_76") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","Branch") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_75") [Var 2,Var 3,Var 6,Var 5,Var 1]])]])),Func ("OracleFlatCurryShow","_case_75") 5 Private (TVar (-42)) (Rule [2,3,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FlatCurry","Pattern") [7,8]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","sceBlanks") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryCase.showPattern.151") [Comb FuncCall ("Oracle","apply") [Var 2,Var 7,Var 10],Var 8,Var 11],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 3,Var 6,Var 12],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 13],Var 14],Var 15],Var 16]])),Branch (Pattern ("FlatCurry","LPattern") [9]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","sceBlanks") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryLit") [Var 9,Var 17],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 3,Var 6,Var 18],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 19],Var 20],Var 21],Var 22],Var 23]]))]])),Func ("OracleFlatCurryShow","_case_77") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Intc") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1]]),Branch (Pattern ("FlatCurry","Floatc") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","show") [Var 4,Var 1]]),Branch (Pattern ("FlatCurry","Charc") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1]])]])),Func ("OracleFlatCurryShow","_case_80") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_79") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]],Var 1],Var 4]]))]])),Func ("OracleFlatCurryShow","_case_79") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_78") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 4]]))]])),Func ("OracleFlatCurryShow","_case_78") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Var 2],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryShow","_case_81") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryVar") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 3,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","+") [Var 2,Lit (Intc 4),Var 7],Var 6,Var 8],Var 9],Var 10]]))]])),Func ("OracleFlatCurryShow","_case_96") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FlatCurry","Var") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","showCurryVar") [Var 6,Var 1]]),Branch (Pattern ("FlatCurry","Lit") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","showCurryLit") [Var 7,Var 1]]),Branch (Pattern ("FlatCurry","Comb") [8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_95") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 10,Var 1]]),Branch (Pattern ("FlatCurry","Let") [17,18]) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","sceBlanks") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb FuncCall ("OraclePrelude","++") [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 ("OracleFlatCurryShow","sceBlanks") [Var 4,Var 28],Var 29],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showCurryExpr._#lambda3") [Var 4,Var 2]],Var 17,Var 30],Var 31],Var 32],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","sceBlanks") [Var 4,Var 33],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","[]") []]]]],Var 34],Var 35],Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 4),Var 36],Var 18,Var 37],Var 38],Var 39],Var 40],Var 41],Var 42],Var 43]])),Branch (Pattern ("FlatCurry","Free") [19,20]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_83") [Var 2,Var 3,Var 4,Var 20,Var 19,Var 1]]),Branch (Pattern ("FlatCurry","Or") [23,24]) (Let [(44,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(45,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(46,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(47,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 44,Comb ConsCall ("Prelude",":") [Var 45,Comb ConsCall ("Prelude",":") [Var 46,Comb ConsCall ("Prelude",":") [Var 47,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 23,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '?'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 24,Var 44],Var 45],Var 46],Var 47]])),Branch (Pattern ("FlatCurry","Case") [25,26,27]) (Let [(48,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(49,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(50,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(51,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(52,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(53,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(54,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(55,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(56,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(57,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 48,Comb ConsCall ("Prelude",":") [Var 49,Comb ConsCall ("Prelude",":") [Var 50,Comb ConsCall ("Prelude",":") [Var 51,Comb ConsCall ("Prelude",":") [Var 52,Comb ConsCall ("Prelude",":") [Var 53,Comb ConsCall ("Prelude",":") [Var 54,Comb ConsCall ("Prelude",":") [Var 55,Comb ConsCall ("Prelude",":") [Var 56,Comb ConsCall ("Prelude",":") [Var 57,Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","_case_82") [Var 25,Comb FuncCall ("OraclePrelude","==") [Var 25,Comb ConsCall ("FlatCurry","Rigid") [],Var 1],Var 48],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 26,Var 49],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showCurryCase") [Var 2,Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 2),Var 50]]],Var 27,Var 51],Comb FuncCall ("OracleFlatCurryShow","sceBlanks") [Var 4,Var 52],Var 53],Var 54],Var 55],Var 56],Var 57]]))]])),Func ("OracleFlatCurryShow","_case_82") 3 Private (TVar (-42)) (Rule [25,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 26) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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","[]") []]]]]]]])]])),Func ("OracleFlatCurryShow","_case_83") 6 Private (TVar (-42)) (Rule [2,3,4,20,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Var 3,Var 4,Var 20,Var 1]]),Branch (Pattern ("Prelude",":") [21,22]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showCurryVar") []],Comb ConsCall ("Prelude",":") [Var 21,Var 22],Var 1],Var 23],Var 24],Comb FuncCall ("OraclePrelude","++") [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 ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 4,Var 20,Var 25],Var 26],Var 27],Var 28],Var 29]]))]])),Func ("OracleFlatCurryShow","_case_95") 7 Private (TVar (-42)) (Rule [2,3,4,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude","[]") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","showCurryId") [Comb FuncCall ("Oracle","apply") [Var 2,Var 9,Var 1],Var 13]])),Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_94") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 11,Var 12,Var 1]])]])),Func ("OracleFlatCurryShow","_case_94") 8 Private (TVar (-42)) (Rule [2,3,4,8,9,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude","[]") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryId") [Comb FuncCall ("Oracle","apply") [Var 2,Var 9,Var 1],Var 15],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 11,Var 16],Var 17],Var 18],Var 19]])),Branch (Pattern ("Prelude",":") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_93") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 11,Var 13,Var 14,Var 1]])]])),Func ("OracleFlatCurryShow","_case_93") 9 Private (TVar (-42)) (Rule [2,3,4,8,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude","[]") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_92") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 11,Var 13,Comb FuncCall ("OraclePrelude","==") [Var 9,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","[]") []]]]]]],Var 1],Var 17]])),Branch (Pattern ("Prelude",":") [15,16]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryShow","_case_86") [Var 2,Var 3,Var 4,Var 9,Var 11,Var 13,Var 15,Var 16,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 9,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","[]") []]]]]]]]]]]]]],Var 1],Comb FuncCall ("OraclePrelude","==") [Var 16,Comb ConsCall ("Prelude","[]") [],Var 18],Var 19],Var 20]]))]])),Func ("OracleFlatCurryShow","_case_86") 10 Private (TVar (-42)) (Rule [2,3,4,9,11,13,15,16,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","True") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","sceBlanks") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 2),Var 18],Var 11,Var 19],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","sceBlanks") [Var 4,Var 20],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 2),Var 21],Var 13,Var 22],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","sceBlanks") [Var 4,Var 23],Comb FuncCall ("OraclePrelude","++") [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 ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 2),Var 24],Var 15,Var 25],Var 26],Var 27],Var 28],Var 29],Var 30],Var 31],Var 32],Var 33],Var 34],Var 35],Var 36],Var 37]])),Branch (Pattern ("Prelude","False") []) (Let [(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryShow","_case_85") [Var 2,Var 3,Var 4,Var 9,Var 11,Var 13,Var 15,Var 16,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","take") [Lit (Intc 2),Comb FuncCall ("OraclePrelude","snd") [Var 9,Var 1],Var 38],Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []]],Var 39],Var 40]]))]])),Func ("OracleFlatCurryShow","_case_85") 10 Private (TVar (-42)) (Rule [2,3,4,9,11,13,15,16,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","True") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 4]],Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 15,Var 16]]],Var 1],Var 18],Var 19],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 20],Var 21]])),Branch (Pattern ("Prelude","False") []) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_84") [Var 2,Var 3,Var 4,Var 9,Var 11,Var 13,Var 15,Var 16,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 22]]))]])),Func ("OracleFlatCurryShow","_case_84") 10 Private (TVar (-42)) (Rule [2,3,4,9,11,13,15,16,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","True") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryId") [Comb FuncCall ("Oracle","apply") [Var 2,Var 9,Var 1],Var 18],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","showCurryElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4]],Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 15,Var 16]]],Var 19],Var 20],Var 21],Var 22]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryShow","_case_92") 9 Private (TVar (-42)) (Rule [2,3,4,8,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 11,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 13,Var 15],Var 16],Var 17],Var 18]])),Branch (Pattern ("Prelude","False") []) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryShow","_case_91") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 11,Var 13,Comb FuncCall ("OracleChar","isAlpha") [Comb FuncCall ("OraclePrelude","head") [Comb FuncCall ("OraclePrelude","snd") [Var 9,Var 1],Var 19],Var 20],Var 21]]))]])),Func ("OracleFlatCurryShow","_case_91") 9 Private (TVar (-42)) (Rule [2,3,4,8,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Var 2,Var 9,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","showCurryElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4]],Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Var 15],Var 16],Var 17],Var 18]])),Branch (Pattern ("Prelude","False") []) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_90") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 11,Var 13,Comb FuncCall ("OracleFlatCurryShow","isFiniteList") [Comb ConsCall ("FlatCurry","Comb") [Var 8,Var 9,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 19]]))]])),Func ("OracleFlatCurryShow","_case_90") 9 Private (TVar (-42)) (Rule [2,3,4,8,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_89") [Var 2,Var 4,Var 8,Var 9,Var 11,Var 13,Comb FuncCall ("OracleFlatCurryShow","isStringConstant") [Comb ConsCall ("FlatCurry","Comb") [Var 8,Var 9,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 15]])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryShow","_case_88") [Var 2,Var 3,Var 4,Var 9,Var 11,Var 13,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","snd") [Var 9,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []]]],Var 16],Var 17]]))]])),Func ("OracleFlatCurryShow","_case_88") 8 Private (TVar (-42)) (Rule [2,3,4,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 4,Var 11,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 4,Var 13,Var 15],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 16],Var 17],Var 18],Var 19]])),Branch (Pattern ("Prelude","False") []) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_87") [Var 2,Var 3,Var 4,Var 9,Var 11,Var 13,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 20]]))]])),Func ("OracleFlatCurryShow","_case_87") 8 Private (TVar (-42)) (Rule [2,3,4,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 11,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Var 2,Var 9,Var 15],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 13,Var 16],Var 17],Var 18],Var 19],Var 20],Var 21]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryShow","_case_89") 8 Private (TVar (-42)) (Rule [2,4,8,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryStringConstant") [Comb ConsCall ("FlatCurry","Comb") [Var 8,Var 9,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []],Var 15],Var 16]])),Branch (Pattern ("Prelude","False") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","showCurryFiniteList") [Var 2,Var 4,Comb ConsCall ("FlatCurry","Comb") [Var 8,Var 9,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 17],Var 18],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []],Var 19],Var 20]]))]])),Func ("OracleFlatCurryShow","_case_97") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","TVar") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","FuncType") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("FlatCurry","TCons") [6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryShow","_case_104") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","TVar") [5]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_103") [Var 5,Comb FuncCall ("OraclePrelude","<") [Var 5,Lit (Intc 5),Var 1],Var 10]])),Branch (Pattern ("FlatCurry","FuncType") [6,7]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryType") [Var 2,Comb FuncCall ("OracleFlatCurryShow","isFuncType") [Var 6,Var 1],Var 6,Var 11],Comb FuncCall ("OraclePrelude","++") [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 ("OracleFlatCurryShow","showCurryType") [Var 2,Comb ConsCall ("Prelude","False") [],Var 7,Var 12],Var 13],Var 14],Var 15]])),Branch (Pattern ("FlatCurry","TCons") [8,9]) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_102") [Var 2,Var 3,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 9,Comb ConsCall ("Prelude","[]") [],Var 1],Var 16]]))]])),Func ("OracleFlatCurryShow","_case_102") 6 Private (TVar (-42)) (Rule [2,3,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Var 8,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryShow","_case_101") [Var 2,Var 3,Var 8,Var 9,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [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 '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]]],Var 1],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","head") [Var 9,Var 11],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","[]") []],Var 12],Var 13],Var 14]]))]])),Func ("OracleFlatCurryShow","_case_101") 6 Private (TVar (-42)) (Rule [2,3,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_100") [Var 2,Var 3,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [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 '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 11]]))]])),Func ("OracleFlatCurryShow","_case_100") 6 Private (TVar (-42)) (Rule [2,3,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryType") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","head") [Var 9,Var 1],Var 11],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []],Var 12],Var 13]])),Branch (Pattern ("Prelude","False") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryShow","_case_99") [Var 2,Var 3,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","take") [Lit (Intc 2),Comb FuncCall ("OraclePrelude","snd") [Var 8,Var 1],Var 14],Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []]],Var 15],Var 16]]))]])),Func ("OracleFlatCurryShow","_case_99") 6 Private (TVar (-42)) (Rule [2,3,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showCurryType") [Var 2,Comb ConsCall ("Prelude","False") []]],Var 9,Var 1],Var 11],Var 12],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 13],Var 14]])),Branch (Pattern ("Prelude","False") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_98") [Var 2,Var 3,Var 8,Var 9,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 15]]))]])),Func ("OracleFlatCurryShow","_case_98") 6 Private (TVar (-42)) (Rule [2,3,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Var 2,Var 8,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showCurryType._#lambda2") [Var 2]],Var 11],Var 9,Var 12],Var 13],Var 14]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryShow","_case_103") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Lit (Intc 97),Var 5,Var 1],Var 7],Comb ConsCall ("Prelude","[]") []]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1]]])]])),Func ("OracleFlatCurryShow","_case_105") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Pattern") [3,4]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 4,Var 6],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 7],Var 8],Var 9]])),Branch (Pattern ("FlatCurry","LPattern") [5]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatLit") [Var 5,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11]]))]])),Func ("OracleFlatCurryShow","_case_106") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Branch") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatPattern") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatExpr") [Var 4,Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7],Var 8]]))]])),Func ("OracleFlatCurryShow","_case_107") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Intc") [3]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7]])),Branch (Pattern ("FlatCurry","Floatc") [4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 8],Var 9]])),Branch (Pattern ("FlatCurry","Charc") [5]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11]]))]])),Func ("OracleFlatCurryShow","_case_108") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatExpr") [Var 4,Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7],Var 8],Var 9]]))]])),Func ("OracleFlatCurryShow","_case_110") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Var") [3]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 17],Var 18]])),Branch (Pattern ("FlatCurry","Lit") [4]) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatLit") [Var 4,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 19],Var 20]])),Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatCombType") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 6,Var 21],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showFlatExpr") []],Var 7,Var 22],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 23],Var 24],Var 25],Var 26],Var 27]])),Branch (Pattern ("FlatCurry","Let") [8,9]) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showFlatExpr.showFlatBinding.49") []],Var 8,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatExpr") [Var 9,Var 28],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 29],Var 30],Var 31]])),Branch (Pattern ("FlatCurry","Free") [10,11]) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 10,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatExpr") [Var 11,Var 32],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 33],Var 34],Var 35]])),Branch (Pattern ("FlatCurry","Or") [12,13]) (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatExpr") [Var 12,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatExpr") [Var 13,Var 36],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 37],Var 38],Var 39],Var 40]])),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_109") [Var 15,Var 16,Var 14,Var 1]])]])),Func ("OracleFlatCurryShow","_case_109") 4 Private (TVar (-42)) (Rule [15,16,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("FlatCurry","Rigid") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatExpr") [Var 15,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showFlatBranch") []],Var 16,Var 17],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 18],Var 19],Var 20]])),Branch (Pattern ("FlatCurry","Flex") []) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatExpr") [Var 15,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showFlatBranch") []],Var 16,Var 21],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 22],Var 23],Var 24]]))]])),Func ("OracleFlatCurryShow","_case_111") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","FuncCall") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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") [3]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 5],Var 6]])),Branch (Pattern ("FlatCurry","ConsPartCall") [4]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 7],Var 8]]))]])),Func ("OracleFlatCurryShow","_case_112") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","FuncType") [3,4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatTypeExpr") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatTypeExpr") [Var 4,Var 8],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 9],Var 10],Var 11],Var 12]])),Branch (Pattern ("FlatCurry","TCons") [5,6]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showFlatTypeExpr") []],Var 6,Var 13],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 14],Var 15],Var 16]])),Branch (Pattern ("FlatCurry","TVar") [7]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 7,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 17],Var 18]]))]])),Func ("OracleFlatCurryShow","_case_113") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Rule") [3,4]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatExpr") [Var 4,Var 6],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 7],Var 8],Var 9]])),Branch (Pattern ("FlatCurry","External") [5]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11]]))]])),Func ("OracleFlatCurryShow","_case_114") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Func") [3,4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 8],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatVisibility") [Var 5,Var 9],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatTypeExpr") [Var 6,Var 10],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatRule") [Var 7,Var 11],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 12],Var 13],Var 14],Var 15],Var 16],Var 17],Var 18],Var 19],Var 20],Var 21]]))]])),Func ("OracleFlatCurryShow","_case_115") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Cons") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 7],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatVisibility") [Var 5,Var 8],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showFlatTypeExpr") []],Var 6,Var 9],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11],Var 12],Var 13],Var 14],Var 15]]))]])),Func ("OracleFlatCurryShow","_case_116") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Type") [3,4,5,6]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatVisibility") [Var 4,Var 11],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 5,Var 12],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showFlatCons") []],Var 6,Var 13],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 14],Var 15],Var 16],Var 17],Var 18]])),Branch (Pattern ("FlatCurry","TypeSyn") [7,8,9,10]) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatVisibility") [Var 8,Var 19],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 9,Var 20],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatTypeExpr") [Var 10,Var 21],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 22],Var 23],Var 24],Var 25],Var 26]]))]])),Func ("OracleFlatCurryShow","_case_117") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Op") [3,4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatFixity") [Var 4,Var 6],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 7],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 8],Var 9],Var 10],Var 11]]))]])),Func ("OracleFlatCurryShow","_case_118") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","InfixOp") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleFlatCurryShow","_case_119") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Public") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [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 '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 ("OracleFlatCurryShow","_case_122") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Prog") [3,4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","_case_121") [Var 4,Comb FuncCall ("OraclePrelude","==") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 8],Var 9],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","_case_120") [Var 5,Comb FuncCall ("OraclePrelude","==") [Var 5,Comb ConsCall ("Prelude","[]") [],Var 10],Var 11],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatListElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showFlatFunc") []],Var 6,Var 12],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showFlatOp") []],Var 7,Var 13],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","[]") []]]]],Var 14],Var 15],Var 16],Var 17],Var 18],Var 19],Var 20],Var 21],Var 22]]))]])),Func ("OracleFlatCurryShow","_case_120") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatListElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showFlatType") []],Var 5,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]]],Var 7],Var 8]]))]])),Func ("OracleFlatCurryShow","_case_121") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatListElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 4,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7]]))]]))] []
+ Curry/Module/OracleFlatCurryShow.fint view
@@ -0,0 +1,1 @@+Prog "OracleFlatCurryShow" ["CEventOracle","Oracle","IOExts","FlatCurryShow","Char","FlatCurry","List","Prelude","OracleChar","OracleFlatCurry","OracleList","OraclePrelude"] [] [Func ("OracleFlatCurryShow","showFlatProg") 2 Public (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_122") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatVisibility") 2 Private (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_119") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatFixity") 2 Private (FuncType (TCons ("FlatCurry","Fixity") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_118") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatOp") 2 Private (FuncType (TCons ("FlatCurry","OpDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_117") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatType") 2 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_116") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatCons") 2 Private (FuncType (TCons ("FlatCurry","ConsDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_115") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatFunc") 2 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_114") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatRule") 2 Private (FuncType (TCons ("FlatCurry","Rule") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_113") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatTypeExpr") 2 Private (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_112") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatCombType") 2 Private (FuncType (TCons ("FlatCurry","CombType") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_111") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatExpr") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_110") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatExpr.showFlatBinding.49") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_108") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatLit") 2 Private (FuncType (TCons ("FlatCurry","Literal") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_107") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatBranch") 2 Private (FuncType (TCons ("FlatCurry","BranchExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_106") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatPattern") 2 Private (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_105") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showFlatList") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatListElems") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Var 4],Var 5]]))),Func ("OracleFlatCurryShow","showFlatListElems") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Var 2,Var 3,Var 1],Var 4],Var 5]]))),Func ("OracleFlatCurryShow","showCurryType") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_104") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryShow","showCurryType._#lambda2") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb FuncCall ("OracleFlatCurryShow","showCurryType") [Var 2,Comb ConsCall ("Prelude","True") [],Var 3,Var 1]]])),Func ("OracleFlatCurryShow","isFuncType") 2 Private (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_97") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showCurryExpr") 5 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_96") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleFlatCurryShow","showCurryExpr._#lambda3") 4 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_81") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryShow","showCurryVar") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'v'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],Var 3]]))),Func ("OracleFlatCurryShow","showCurryId") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryShow","_case_80") [Var 2,Comb FuncCall ("OracleChar","isAlpha") [Comb FuncCall ("OraclePrelude","head") [Var 2,Var 1],Var 3],Var 4]]))),Func ("OracleFlatCurryShow","showCurryLit") 2 Private (FuncType (TCons ("FlatCurry","Literal") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_77") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showCurryCase") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_76") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryShow","showCurryCase.showPattern.151") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_74") [Var 2,Var 3,Var 1]])),Func ("OracleFlatCurryShow","showCurryFiniteList") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_68") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryShow","showCurryStringConstant") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_41") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showCharExpr") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_14") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","showCurryElems") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Var 2,Var 3,Var 1],Var 4],Var 5]]))),Func ("OracleFlatCurryShow","showBracketsIf") 3 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_7") [Var 3,Var 2,Var 1]])),Func ("OracleFlatCurryShow","sceBlanks") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","take") [Var 2,Comb FuncCall ("OraclePrelude","repeat") [Lit (Charc ' '),Var 1],Var 3]]))),Func ("OracleFlatCurryShow","isFiniteList") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_6") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","isStringConstant") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_2") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","isCharConstant") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_1") [Var 2,Var 1]])),Func ("OracleFlatCurryShow","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Lit") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_0") [Var 3,Var 1]]),Branch (Pattern ("FlatCurry","Var") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Comb") [8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Let") [11,12]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [17,18,19]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryShow","_case_0") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("FlatCurry","Charc") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("FlatCurry","Intc") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Floatc") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryShow","_case_2") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Comb") [3,4,5]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 4,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","[]") []]]],Var 1],Comb FuncCall ("OraclePrelude","null") [Var 5,Var 17],Var 18],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 4,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","[]") []]],Var 19],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","length") [Var 5,Var 20],Lit (Intc 2),Var 21],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleFlatCurryShow","isCharConstant") [Comb FuncCall ("OraclePrelude","head") [Var 5,Var 22],Var 23],Comb FuncCall ("OracleFlatCurryShow","isStringConstant") [Comb FuncCall ("OraclePrelude","!!") [Var 5,Lit (Intc 1),Var 24],Var 25],Var 26],Var 27],Var 28],Var 29]])),Branch (Pattern ("FlatCurry","Var") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Lit") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Let") [8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryShow","_case_6") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Var") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Lit") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryShow","_case_5") [Var 6,Var 7,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 6,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","[]") []]]],Var 1],Comb FuncCall ("OraclePrelude","==") [Var 7,Comb ConsCall ("Prelude","[]") [],Var 17],Var 18],Var 19]])),Branch (Pattern ("FlatCurry","Let") [8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryShow","_case_5") 4 Private (TVar (-42)) (Rule [6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryShow","_case_4") [Var 6,Var 7,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 6,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","[]") []]],Var 1],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","length") [Var 7,Var 9],Lit (Intc 2),Var 10],Var 11],Var 12]]))]])),Func ("OracleFlatCurryShow","_case_4") 4 Private (TVar (-42)) (Rule [6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","isFiniteList") [Comb FuncCall ("OraclePrelude","!!") [Var 7,Lit (Intc 1),Var 1],Var 9]])),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_3") [Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 10]]))]])),Func ("OracleFlatCurryShow","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryShow","_case_7") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb FuncCall ("OraclePrelude","++") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryShow","_case_14") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Lit") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_13") [Var 3,Var 1]])]])),Func ("OracleFlatCurryShow","_case_13") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Charc") [4]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OraclePrelude","ord") [Var 4,Var 1])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_12") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc '"'),Var 6],Var 7]]))]))]])),Func ("OracleFlatCurryShow","_case_12") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_11") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc '\''),Var 1],Var 7]]))]])),Func ("OracleFlatCurryShow","_case_11") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc '\''),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_10") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc '\n'),Var 1],Var 7]]))]])),Func ("OracleFlatCurryShow","_case_10") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryShow","_case_9") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","<") [Var 5,Lit (Intc 32),Var 1],Comb FuncCall ("OraclePrelude",">") [Var 5,Lit (Intc 126),Var 7],Var 8],Var 9]]))]])),Func ("OracleFlatCurryShow","_case_9") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","div") [Var 5,Lit (Intc 100),Var 1],Lit (Intc 48),Var 7],Var 8],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","div") [Comb FuncCall ("OraclePrelude","mod") [Var 5,Lit (Intc 100),Var 9],Lit (Intc 10),Var 10],Lit (Intc 48),Var 11],Var 12],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","mod") [Var 5,Lit (Intc 10),Var 13],Lit (Intc 48),Var 14],Var 15],Comb ConsCall ("Prelude","[]") []]]]]])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_8") [Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 16]]))]])),Func ("OracleFlatCurryShow","_case_8") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryShow","_case_41") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Comb") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_40") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryShow","_case_40") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_39") [Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryShow","_case_39") 4 Private (TVar (-42)) (Rule [5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_38") [Var 5,Var 7,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryShow","_case_38") 5 Private (TVar (-42)) (Rule [5,7,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'P')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_37") [Var 5,Var 7,Var 9,Var 1]])]])),Func ("OracleFlatCurryShow","_case_37") 4 Private (TVar (-42)) (Rule [5,7,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_36") [Var 5,Var 7,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryShow","_case_36") 5 Private (TVar (-42)) (Rule [5,7,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_35") [Var 5,Var 7,Var 11,Var 1]])]])),Func ("OracleFlatCurryShow","_case_35") 4 Private (TVar (-42)) (Rule [5,7,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_34") [Var 5,Var 7,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryShow","_case_34") 5 Private (TVar (-42)) (Rule [5,7,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_33") [Var 5,Var 7,Var 13,Var 1]])]])),Func ("OracleFlatCurryShow","_case_33") 4 Private (TVar (-42)) (Rule [5,7,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_32") [Var 5,Var 7,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryShow","_case_32") 5 Private (TVar (-42)) (Rule [5,7,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_31") [Var 5,Var 7,Var 15,Var 1]])]])),Func ("OracleFlatCurryShow","_case_31") 4 Private (TVar (-42)) (Rule [5,7,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_30") [Var 5,Var 7,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryShow","_case_30") 5 Private (TVar (-42)) (Rule [5,7,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_29") [Var 5,Var 7,Var 17,Var 1]])]])),Func ("OracleFlatCurryShow","_case_29") 4 Private (TVar (-42)) (Rule [5,7,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_28") [Var 5,Var 7,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryShow","_case_28") 5 Private (TVar (-42)) (Rule [5,7,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_27") [Var 5,Var 7,Var 19,Var 1]])]])),Func ("OracleFlatCurryShow","_case_27") 4 Private (TVar (-42)) (Rule [5,7,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_26") [Var 5,Var 7,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryShow","_case_26") 5 Private (TVar (-42)) (Rule [5,7,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_25") [Var 5,Var 7,Var 21,Var 1]])]])),Func ("OracleFlatCurryShow","_case_25") 4 Private (TVar (-42)) (Rule [5,7,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_24") [Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryShow","_case_24") 3 Private (TVar (-42)) (Rule [5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_23") [Var 5,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryShow","_case_23") 4 Private (TVar (-42)) (Rule [5,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (LPattern (Charc '[')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_22") [Var 5,Var 23,Var 1]]),Branch (LPattern (Charc ':')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_18") [Var 5,Var 23,Var 1]])]])),Func ("OracleFlatCurryShow","_case_18") 3 Private (TVar (-42)) (Rule [5,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_17") [Var 5,Var 1]])]])),Func ("OracleFlatCurryShow","_case_17") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_16") [Var 26,Var 27,Var 1]])]])),Func ("OracleFlatCurryShow","_case_16") 3 Private (TVar (-42)) (Rule [26,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_15") [Var 26,Var 28,Var 29,Var 1]])]])),Func ("OracleFlatCurryShow","_case_15") 4 Private (TVar (-42)) (Rule [26,28,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (Pattern ("Prelude","[]") []) (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCharExpr") [Var 26,Var 1],Comb FuncCall ("OracleFlatCurryShow","showCurryStringConstant") [Var 28,Var 30],Var 31]]))]])),Func ("OracleFlatCurryShow","_case_22") 3 Private (TVar (-42)) (Rule [5,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_21") [Var 5,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryShow","_case_21") 4 Private (TVar (-42)) (Rule [5,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (LPattern (Charc ']')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_20") [Var 5,Var 25,Var 1]])]])),Func ("OracleFlatCurryShow","_case_20") 3 Private (TVar (-42)) (Rule [5,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_19") [Var 5,Var 1]])]])),Func ("OracleFlatCurryShow","_case_19") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleFlatCurryShow","_case_68") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_67") [Var 2,Var 3,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryShow","_case_67") 5 Private (TVar (-42)) (Rule [2,3,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude","(,)") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_66") [Var 2,Var 3,Var 7,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryShow","_case_66") 6 Private (TVar (-42)) (Rule [2,3,7,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_65") [Var 2,Var 3,Var 7,Var 9,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryShow","_case_65") 7 Private (TVar (-42)) (Rule [2,3,7,9,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'P')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_64") [Var 2,Var 3,Var 7,Var 9,Var 11,Var 1]])]])),Func ("OracleFlatCurryShow","_case_64") 6 Private (TVar (-42)) (Rule [2,3,7,9,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_63") [Var 2,Var 3,Var 7,Var 9,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryShow","_case_63") 7 Private (TVar (-42)) (Rule [2,3,7,9,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_62") [Var 2,Var 3,Var 7,Var 9,Var 13,Var 1]])]])),Func ("OracleFlatCurryShow","_case_62") 6 Private (TVar (-42)) (Rule [2,3,7,9,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_61") [Var 2,Var 3,Var 7,Var 9,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryShow","_case_61") 7 Private (TVar (-42)) (Rule [2,3,7,9,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_60") [Var 2,Var 3,Var 7,Var 9,Var 15,Var 1]])]])),Func ("OracleFlatCurryShow","_case_60") 6 Private (TVar (-42)) (Rule [2,3,7,9,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_59") [Var 2,Var 3,Var 7,Var 9,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryShow","_case_59") 7 Private (TVar (-42)) (Rule [2,3,7,9,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_58") [Var 2,Var 3,Var 7,Var 9,Var 17,Var 1]])]])),Func ("OracleFlatCurryShow","_case_58") 6 Private (TVar (-42)) (Rule [2,3,7,9,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_57") [Var 2,Var 3,Var 7,Var 9,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryShow","_case_57") 7 Private (TVar (-42)) (Rule [2,3,7,9,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_56") [Var 2,Var 3,Var 7,Var 9,Var 19,Var 1]])]])),Func ("OracleFlatCurryShow","_case_56") 6 Private (TVar (-42)) (Rule [2,3,7,9,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_55") [Var 2,Var 3,Var 7,Var 9,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryShow","_case_55") 7 Private (TVar (-42)) (Rule [2,3,7,9,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_54") [Var 2,Var 3,Var 7,Var 9,Var 21,Var 1]])]])),Func ("OracleFlatCurryShow","_case_54") 6 Private (TVar (-42)) (Rule [2,3,7,9,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude",":") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_53") [Var 2,Var 3,Var 7,Var 9,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryShow","_case_53") 7 Private (TVar (-42)) (Rule [2,3,7,9,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_52") [Var 2,Var 3,Var 7,Var 9,Var 23,Var 1]])]])),Func ("OracleFlatCurryShow","_case_52") 6 Private (TVar (-42)) (Rule [2,3,7,9,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_51") [Var 2,Var 3,Var 7,Var 9,Var 1]])]])),Func ("OracleFlatCurryShow","_case_51") 5 Private (TVar (-42)) (Rule [2,3,7,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_50") [Var 2,Var 3,Var 7,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryShow","_case_50") 6 Private (TVar (-42)) (Rule [2,3,7,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (LPattern (Charc '[')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_49") [Var 7,Var 25,Var 1]]),Branch (LPattern (Charc ':')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_45") [Var 2,Var 3,Var 7,Var 25,Var 1]])]])),Func ("OracleFlatCurryShow","_case_45") 5 Private (TVar (-42)) (Rule [2,3,7,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_44") [Var 2,Var 3,Var 7,Var 1]])]])),Func ("OracleFlatCurryShow","_case_44") 4 Private (TVar (-42)) (Rule [2,3,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_43") [Var 2,Var 3,Var 28,Var 29,Var 1]])]])),Func ("OracleFlatCurryShow","_case_43") 5 Private (TVar (-42)) (Rule [2,3,28,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (Pattern ("Prelude",":") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_42") [Var 2,Var 3,Var 28,Var 30,Var 31,Var 1]])]])),Func ("OracleFlatCurryShow","_case_42") 6 Private (TVar (-42)) (Rule [2,3,28,30,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (Pattern ("Prelude","[]") []) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 3,Var 28,Var 1],Comb FuncCall ("OracleFlatCurryShow","showCurryFiniteList") [Var 2,Var 3,Var 30,Var 32]]]))]])),Func ("OracleFlatCurryShow","_case_49") 3 Private (TVar (-42)) (Rule [7,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_48") [Var 7,Var 27,Var 26,Var 1]])]])),Func ("OracleFlatCurryShow","_case_48") 4 Private (TVar (-42)) (Rule [7,27,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (LPattern (Charc ']')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_47") [Var 7,Var 27,Var 1]])]])),Func ("OracleFlatCurryShow","_case_47") 3 Private (TVar (-42)) (Rule [7,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_46") [Var 7,Var 1]])]])),Func ("OracleFlatCurryShow","_case_46") 2 Private (TVar (-42)) (Rule [7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleFlatCurryShow","_case_74") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_73") [Var 2,Var 4,Var 5,Var 1]])]])),Func ("OracleFlatCurryShow","_case_73") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","showCurryVar") [Var 4,Var 1],Var 8],Var 9]])),Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_72") [Var 2,Var 4,Var 6,Var 7,Var 1]])]])),Func ("OracleFlatCurryShow","_case_72") 5 Private (TVar (-42)) (Rule [2,4,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude","[]") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryShow","_case_71") [Var 2,Var 4,Var 6,Comb FuncCall ("OracleChar","isAlpha") [Comb FuncCall ("OraclePrelude","head") [Var 2,Var 1],Var 10],Var 11]])),Branch (Pattern ("Prelude",":") [8,9]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryShow","_case_69") [Var 2,Var 4,Var 6,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","take") [Lit (Intc 2),Var 2,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []]],Var 12],Var 13]]))]])),Func ("OracleFlatCurryShow","_case_69") 7 Private (TVar (-42)) (Rule [2,4,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showCurryVar") []],Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 8,Var 9]]],Var 1],Var 11],Var 12],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 13],Var 14]])),Branch (Pattern ("Prelude","False") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","showCurryElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showCurryVar") []],Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 8,Var 9]]],Var 1],Var 15],Var 16]]))]])),Func ("OracleFlatCurryShow","_case_71") 5 Private (TVar (-42)) (Rule [2,4,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryVar") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","showCurryVar") [Var 6,Var 8],Var 9],Var 10],Var 11],Var 12]])),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_70") [Var 2,Var 4,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 13]]))]])),Func ("OracleFlatCurryShow","_case_70") 5 Private (TVar (-42)) (Rule [2,4,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryVar") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryVar") [Var 6,Var 8],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 9],Var 10],Var 11],Var 12]])),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryVar") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","showCurryVar") [Var 6,Var 13],Var 14],Var 15],Var 16],Var 17]]))]])),Func ("OracleFlatCurryShow","_case_76") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","Branch") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_75") [Var 2,Var 3,Var 6,Var 5,Var 1]])]])),Func ("OracleFlatCurryShow","_case_75") 5 Private (TVar (-42)) (Rule [2,3,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FlatCurry","Pattern") [7,8]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","sceBlanks") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryCase.showPattern.151") [Comb FuncCall ("Oracle","apply") [Var 2,Var 7,Var 10],Var 8,Var 11],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 3,Var 6,Var 12],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 13],Var 14],Var 15],Var 16]])),Branch (Pattern ("FlatCurry","LPattern") [9]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","sceBlanks") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryLit") [Var 9,Var 17],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 3,Var 6,Var 18],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 19],Var 20],Var 21],Var 22],Var 23]]))]])),Func ("OracleFlatCurryShow","_case_77") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Intc") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1]]),Branch (Pattern ("FlatCurry","Floatc") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","show") [Var 4,Var 1]]),Branch (Pattern ("FlatCurry","Charc") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1]])]])),Func ("OracleFlatCurryShow","_case_80") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_79") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]],Var 1],Var 4]]))]])),Func ("OracleFlatCurryShow","_case_79") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_78") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 4]]))]])),Func ("OracleFlatCurryShow","_case_78") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Var 2],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryShow","_case_81") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryVar") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 3,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","+") [Var 2,Lit (Intc 4),Var 7],Var 6,Var 8],Var 9],Var 10]]))]])),Func ("OracleFlatCurryShow","_case_96") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FlatCurry","Var") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","showCurryVar") [Var 6,Var 1]]),Branch (Pattern ("FlatCurry","Lit") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","showCurryLit") [Var 7,Var 1]]),Branch (Pattern ("FlatCurry","Comb") [8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_95") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 10,Var 1]]),Branch (Pattern ("FlatCurry","Let") [17,18]) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","sceBlanks") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb FuncCall ("OraclePrelude","++") [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 ("OracleFlatCurryShow","sceBlanks") [Var 4,Var 28],Var 29],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showCurryExpr._#lambda3") [Var 4,Var 2]],Var 17,Var 30],Var 31],Var 32],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","sceBlanks") [Var 4,Var 33],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","[]") []]]]],Var 34],Var 35],Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 4),Var 36],Var 18,Var 37],Var 38],Var 39],Var 40],Var 41],Var 42],Var 43]])),Branch (Pattern ("FlatCurry","Free") [19,20]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_83") [Var 2,Var 3,Var 4,Var 20,Var 19,Var 1]]),Branch (Pattern ("FlatCurry","Or") [23,24]) (Let [(44,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(45,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(46,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(47,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 44,Comb ConsCall ("Prelude",":") [Var 45,Comb ConsCall ("Prelude",":") [Var 46,Comb ConsCall ("Prelude",":") [Var 47,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 23,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '?'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 24,Var 44],Var 45],Var 46],Var 47]])),Branch (Pattern ("FlatCurry","Case") [25,26,27]) (Let [(48,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(49,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(50,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(51,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(52,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(53,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(54,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(55,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(56,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(57,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 48,Comb ConsCall ("Prelude",":") [Var 49,Comb ConsCall ("Prelude",":") [Var 50,Comb ConsCall ("Prelude",":") [Var 51,Comb ConsCall ("Prelude",":") [Var 52,Comb ConsCall ("Prelude",":") [Var 53,Comb ConsCall ("Prelude",":") [Var 54,Comb ConsCall ("Prelude",":") [Var 55,Comb ConsCall ("Prelude",":") [Var 56,Comb ConsCall ("Prelude",":") [Var 57,Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","_case_82") [Var 25,Comb FuncCall ("OraclePrelude","==") [Var 25,Comb ConsCall ("FlatCurry","Rigid") [],Var 1],Var 48],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 26,Var 49],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showCurryCase") [Var 2,Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 2),Var 50]]],Var 27,Var 51],Comb FuncCall ("OracleFlatCurryShow","sceBlanks") [Var 4,Var 52],Var 53],Var 54],Var 55],Var 56],Var 57]]))]])),Func ("OracleFlatCurryShow","_case_82") 3 Private (TVar (-42)) (Rule [25,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 26) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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","[]") []]]]]]]])]])),Func ("OracleFlatCurryShow","_case_83") 6 Private (TVar (-42)) (Rule [2,3,4,20,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Var 3,Var 4,Var 20,Var 1]]),Branch (Pattern ("Prelude",":") [21,22]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showCurryVar") []],Comb ConsCall ("Prelude",":") [Var 21,Var 22],Var 1],Var 23],Var 24],Comb FuncCall ("OraclePrelude","++") [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 ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 4,Var 20,Var 25],Var 26],Var 27],Var 28],Var 29]]))]])),Func ("OracleFlatCurryShow","_case_95") 7 Private (TVar (-42)) (Rule [2,3,4,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude","[]") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","showCurryId") [Comb FuncCall ("Oracle","apply") [Var 2,Var 9,Var 1],Var 13]])),Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_94") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 11,Var 12,Var 1]])]])),Func ("OracleFlatCurryShow","_case_94") 8 Private (TVar (-42)) (Rule [2,3,4,8,9,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude","[]") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryId") [Comb FuncCall ("Oracle","apply") [Var 2,Var 9,Var 1],Var 15],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 11,Var 16],Var 17],Var 18],Var 19]])),Branch (Pattern ("Prelude",":") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_93") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 11,Var 13,Var 14,Var 1]])]])),Func ("OracleFlatCurryShow","_case_93") 9 Private (TVar (-42)) (Rule [2,3,4,8,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude","[]") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_92") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 11,Var 13,Comb FuncCall ("OraclePrelude","==") [Var 9,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","[]") []]]]]]],Var 1],Var 17]])),Branch (Pattern ("Prelude",":") [15,16]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryShow","_case_86") [Var 2,Var 3,Var 4,Var 9,Var 11,Var 13,Var 15,Var 16,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 9,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","[]") []]]]]]]]]]]]]],Var 1],Comb FuncCall ("OraclePrelude","==") [Var 16,Comb ConsCall ("Prelude","[]") [],Var 18],Var 19],Var 20]]))]])),Func ("OracleFlatCurryShow","_case_86") 10 Private (TVar (-42)) (Rule [2,3,4,9,11,13,15,16,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","True") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","sceBlanks") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 2),Var 18],Var 11,Var 19],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","sceBlanks") [Var 4,Var 20],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 2),Var 21],Var 13,Var 22],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","sceBlanks") [Var 4,Var 23],Comb FuncCall ("OraclePrelude","++") [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 ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 2),Var 24],Var 15,Var 25],Var 26],Var 27],Var 28],Var 29],Var 30],Var 31],Var 32],Var 33],Var 34],Var 35],Var 36],Var 37]])),Branch (Pattern ("Prelude","False") []) (Let [(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryShow","_case_85") [Var 2,Var 3,Var 4,Var 9,Var 11,Var 13,Var 15,Var 16,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","take") [Lit (Intc 2),Comb FuncCall ("OraclePrelude","snd") [Var 9,Var 1],Var 38],Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []]],Var 39],Var 40]]))]])),Func ("OracleFlatCurryShow","_case_85") 10 Private (TVar (-42)) (Rule [2,3,4,9,11,13,15,16,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","True") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 4]],Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 15,Var 16]]],Var 1],Var 18],Var 19],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 20],Var 21]])),Branch (Pattern ("Prelude","False") []) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_84") [Var 2,Var 3,Var 4,Var 9,Var 11,Var 13,Var 15,Var 16,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 22]]))]])),Func ("OracleFlatCurryShow","_case_84") 10 Private (TVar (-42)) (Rule [2,3,4,9,11,13,15,16,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","True") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryId") [Comb FuncCall ("Oracle","apply") [Var 2,Var 9,Var 1],Var 18],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","showCurryElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4]],Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 15,Var 16]]],Var 19],Var 20],Var 21],Var 22]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryShow","_case_92") 9 Private (TVar (-42)) (Rule [2,3,4,8,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 11,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 13,Var 15],Var 16],Var 17],Var 18]])),Branch (Pattern ("Prelude","False") []) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryShow","_case_91") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 11,Var 13,Comb FuncCall ("OracleChar","isAlpha") [Comb FuncCall ("OraclePrelude","head") [Comb FuncCall ("OraclePrelude","snd") [Var 9,Var 1],Var 19],Var 20],Var 21]]))]])),Func ("OracleFlatCurryShow","_case_91") 9 Private (TVar (-42)) (Rule [2,3,4,8,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Var 2,Var 9,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","showCurryElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4]],Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Var 15],Var 16],Var 17],Var 18]])),Branch (Pattern ("Prelude","False") []) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_90") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 11,Var 13,Comb FuncCall ("OracleFlatCurryShow","isFiniteList") [Comb ConsCall ("FlatCurry","Comb") [Var 8,Var 9,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 19]]))]])),Func ("OracleFlatCurryShow","_case_90") 9 Private (TVar (-42)) (Rule [2,3,4,8,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_89") [Var 2,Var 4,Var 8,Var 9,Var 11,Var 13,Comb FuncCall ("OracleFlatCurryShow","isStringConstant") [Comb ConsCall ("FlatCurry","Comb") [Var 8,Var 9,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 15]])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryShow","_case_88") [Var 2,Var 3,Var 4,Var 9,Var 11,Var 13,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","snd") [Var 9,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []]]],Var 16],Var 17]]))]])),Func ("OracleFlatCurryShow","_case_88") 8 Private (TVar (-42)) (Rule [2,3,4,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 4,Var 11,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 4,Var 13,Var 15],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 16],Var 17],Var 18],Var 19]])),Branch (Pattern ("Prelude","False") []) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_87") [Var 2,Var 3,Var 4,Var 9,Var 11,Var 13,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 20]]))]])),Func ("OracleFlatCurryShow","_case_87") 8 Private (TVar (-42)) (Rule [2,3,4,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 11,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Var 2,Var 9,Var 15],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 13,Var 16],Var 17],Var 18],Var 19],Var 20],Var 21]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryShow","_case_89") 8 Private (TVar (-42)) (Rule [2,4,8,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryStringConstant") [Comb ConsCall ("FlatCurry","Comb") [Var 8,Var 9,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []],Var 15],Var 16]])),Branch (Pattern ("Prelude","False") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","showCurryFiniteList") [Var 2,Var 4,Comb ConsCall ("FlatCurry","Comb") [Var 8,Var 9,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 17],Var 18],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []],Var 19],Var 20]]))]])),Func ("OracleFlatCurryShow","_case_97") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","TVar") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","FuncType") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("FlatCurry","TCons") [6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryShow","_case_104") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","TVar") [5]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_103") [Var 5,Comb FuncCall ("OraclePrelude","<") [Var 5,Lit (Intc 5),Var 1],Var 10]])),Branch (Pattern ("FlatCurry","FuncType") [6,7]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryType") [Var 2,Comb FuncCall ("OracleFlatCurryShow","isFuncType") [Var 6,Var 1],Var 6,Var 11],Comb FuncCall ("OraclePrelude","++") [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 ("OracleFlatCurryShow","showCurryType") [Var 2,Comb ConsCall ("Prelude","False") [],Var 7,Var 12],Var 13],Var 14],Var 15]])),Branch (Pattern ("FlatCurry","TCons") [8,9]) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_102") [Var 2,Var 3,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 9,Comb ConsCall ("Prelude","[]") [],Var 1],Var 16]]))]])),Func ("OracleFlatCurryShow","_case_102") 6 Private (TVar (-42)) (Rule [2,3,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Var 8,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryShow","_case_101") [Var 2,Var 3,Var 8,Var 9,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [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 '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]]],Var 1],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","head") [Var 9,Var 11],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","[]") []],Var 12],Var 13],Var 14]]))]])),Func ("OracleFlatCurryShow","_case_101") 6 Private (TVar (-42)) (Rule [2,3,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_100") [Var 2,Var 3,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [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 '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 11]]))]])),Func ("OracleFlatCurryShow","_case_100") 6 Private (TVar (-42)) (Rule [2,3,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showCurryType") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","head") [Var 9,Var 1],Var 11],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []],Var 12],Var 13]])),Branch (Pattern ("Prelude","False") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryShow","_case_99") [Var 2,Var 3,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","take") [Lit (Intc 2),Comb FuncCall ("OraclePrelude","snd") [Var 8,Var 1],Var 14],Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []]],Var 15],Var 16]]))]])),Func ("OracleFlatCurryShow","_case_99") 6 Private (TVar (-42)) (Rule [2,3,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showCurryType") [Var 2,Comb ConsCall ("Prelude","False") []]],Var 9,Var 1],Var 11],Var 12],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 13],Var 14]])),Branch (Pattern ("Prelude","False") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryShow","_case_98") [Var 2,Var 3,Var 8,Var 9,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 15]]))]])),Func ("OracleFlatCurryShow","_case_98") 6 Private (TVar (-42)) (Rule [2,3,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryShow","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Var 2,Var 8,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showCurryType._#lambda2") [Var 2]],Var 11],Var 9,Var 12],Var 13],Var 14]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryShow","_case_103") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Lit (Intc 97),Var 5,Var 1],Var 7],Comb ConsCall ("Prelude","[]") []]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1]]])]])),Func ("OracleFlatCurryShow","_case_105") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Pattern") [3,4]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 4,Var 6],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 7],Var 8],Var 9]])),Branch (Pattern ("FlatCurry","LPattern") [5]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatLit") [Var 5,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11]]))]])),Func ("OracleFlatCurryShow","_case_106") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Branch") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatPattern") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatExpr") [Var 4,Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7],Var 8]]))]])),Func ("OracleFlatCurryShow","_case_107") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Intc") [3]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7]])),Branch (Pattern ("FlatCurry","Floatc") [4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 8],Var 9]])),Branch (Pattern ("FlatCurry","Charc") [5]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11]]))]])),Func ("OracleFlatCurryShow","_case_108") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatExpr") [Var 4,Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7],Var 8],Var 9]]))]])),Func ("OracleFlatCurryShow","_case_110") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Var") [3]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 17],Var 18]])),Branch (Pattern ("FlatCurry","Lit") [4]) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatLit") [Var 4,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 19],Var 20]])),Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatCombType") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 6,Var 21],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showFlatExpr") []],Var 7,Var 22],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 23],Var 24],Var 25],Var 26],Var 27]])),Branch (Pattern ("FlatCurry","Let") [8,9]) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showFlatExpr.showFlatBinding.49") []],Var 8,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatExpr") [Var 9,Var 28],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 29],Var 30],Var 31]])),Branch (Pattern ("FlatCurry","Free") [10,11]) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 10,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatExpr") [Var 11,Var 32],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 33],Var 34],Var 35]])),Branch (Pattern ("FlatCurry","Or") [12,13]) (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatExpr") [Var 12,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatExpr") [Var 13,Var 36],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 37],Var 38],Var 39],Var 40]])),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryShow","_case_109") [Var 15,Var 16,Var 14,Var 1]])]])),Func ("OracleFlatCurryShow","_case_109") 4 Private (TVar (-42)) (Rule [15,16,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("FlatCurry","Rigid") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatExpr") [Var 15,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showFlatBranch") []],Var 16,Var 17],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 18],Var 19],Var 20]])),Branch (Pattern ("FlatCurry","Flex") []) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatExpr") [Var 15,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showFlatBranch") []],Var 16,Var 21],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 22],Var 23],Var 24]]))]])),Func ("OracleFlatCurryShow","_case_111") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","FuncCall") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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") [3]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 5],Var 6]])),Branch (Pattern ("FlatCurry","ConsPartCall") [4]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 7],Var 8]]))]])),Func ("OracleFlatCurryShow","_case_112") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","FuncType") [3,4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatTypeExpr") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatTypeExpr") [Var 4,Var 8],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 9],Var 10],Var 11],Var 12]])),Branch (Pattern ("FlatCurry","TCons") [5,6]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showFlatTypeExpr") []],Var 6,Var 13],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 14],Var 15],Var 16]])),Branch (Pattern ("FlatCurry","TVar") [7]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 7,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 17],Var 18]]))]])),Func ("OracleFlatCurryShow","_case_113") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Rule") [3,4]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatExpr") [Var 4,Var 6],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 7],Var 8],Var 9]])),Branch (Pattern ("FlatCurry","External") [5]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11]]))]])),Func ("OracleFlatCurryShow","_case_114") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Func") [3,4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 8],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatVisibility") [Var 5,Var 9],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatTypeExpr") [Var 6,Var 10],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatRule") [Var 7,Var 11],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 12],Var 13],Var 14],Var 15],Var 16],Var 17],Var 18],Var 19],Var 20],Var 21]]))]])),Func ("OracleFlatCurryShow","_case_115") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Cons") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 7],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatVisibility") [Var 5,Var 8],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showFlatTypeExpr") []],Var 6,Var 9],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11],Var 12],Var 13],Var 14],Var 15]]))]])),Func ("OracleFlatCurryShow","_case_116") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Type") [3,4,5,6]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatVisibility") [Var 4,Var 11],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 5,Var 12],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showFlatCons") []],Var 6,Var 13],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 14],Var 15],Var 16],Var 17],Var 18]])),Branch (Pattern ("FlatCurry","TypeSyn") [7,8,9,10]) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatVisibility") [Var 8,Var 19],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 9,Var 20],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatTypeExpr") [Var 10,Var 21],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 22],Var 23],Var 24],Var 25],Var 26]]))]])),Func ("OracleFlatCurryShow","_case_117") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Op") [3,4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatFixity") [Var 4,Var 6],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 7],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 8],Var 9],Var 10],Var 11]]))]])),Func ("OracleFlatCurryShow","_case_118") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","InfixOp") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleFlatCurryShow","_case_119") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Public") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [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 '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 ("OracleFlatCurryShow","_case_122") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Prog") [3,4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","_case_121") [Var 4,Comb FuncCall ("OraclePrelude","==") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 8],Var 9],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","_case_120") [Var 5,Comb FuncCall ("OraclePrelude","==") [Var 5,Comb ConsCall ("Prelude","[]") [],Var 10],Var 11],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatListElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showFlatFunc") []],Var 6,Var 12],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showFlatOp") []],Var 7,Var 13],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","[]") []]]]],Var 14],Var 15],Var 16],Var 17],Var 18],Var 19],Var 20],Var 21],Var 22]]))]])),Func ("OracleFlatCurryShow","_case_120") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatListElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryShow","showFlatType") []],Var 5,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]]],Var 7],Var 8]]))]])),Func ("OracleFlatCurryShow","_case_121") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryShow","showFlatListElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 4,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7]]))]]))] []
+ Curry/Module/OracleFlatCurryTools.fcy view
@@ -0,0 +1,1 @@+Prog "OracleFlatCurryTools" ["CEventOracle","Oracle","IOExts","FlatCurryTools","Char","FlatCurry","List","Prelude","OracleChar","OracleFlatCurry","OracleList","OraclePrelude"] [] [Func ("OracleFlatCurryTools","showFlatProg") 2 Public (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_123") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatVisibility") 2 Private (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_120") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatFixity") 2 Private (FuncType (TCons ("FlatCurry","Fixity") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_119") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatOp") 2 Private (FuncType (TCons ("FlatCurry","OpDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_118") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatType") 2 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_117") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatCons") 2 Private (FuncType (TCons ("FlatCurry","ConsDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_116") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatFunc") 2 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_115") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatRule") 2 Private (FuncType (TCons ("FlatCurry","Rule") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_114") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatTypeExpr") 2 Private (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_113") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatCombType") 2 Private (FuncType (TCons ("FlatCurry","CombType") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_112") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatExpr") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_111") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatExpr.showFlatBinding.49") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_109") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatLit") 2 Private (FuncType (TCons ("FlatCurry","Literal") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_108") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatBranch") 2 Private (FuncType (TCons ("FlatCurry","BranchExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_106") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatPattern") 2 Private (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_105") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatList") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatListElems") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Var 4],Var 5]]))),Func ("OracleFlatCurryTools","showFlatListElems") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Var 2,Var 3,Var 1],Var 4],Var 5]]))),Func ("OracleFlatCurryTools","showCurryType") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_104") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryTools","showCurryType._#lambda2") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb FuncCall ("OracleFlatCurryTools","showCurryType") [Var 2,Comb ConsCall ("Prelude","True") [],Var 3,Var 1]]])),Func ("OracleFlatCurryTools","isFuncType") 2 Private (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_97") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showCurryExpr") 5 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_96") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleFlatCurryTools","showCurryExpr._#lambda3") 4 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_81") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryTools","showCurryVar") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'v'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],Var 3]]))),Func ("OracleFlatCurryTools","showCurryId") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryTools","_case_80") [Var 2,Comb FuncCall ("OracleChar","isAlpha") [Comb FuncCall ("OraclePrelude","head") [Var 2,Var 1],Var 3],Var 4]]))),Func ("OracleFlatCurryTools","showCurryLit") 2 Private (FuncType (TCons ("FlatCurry","Literal") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_77") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showCurryCase") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_76") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryTools","showCurryCase.showPattern.153") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_74") [Var 2,Var 3,Var 1]])),Func ("OracleFlatCurryTools","showCurryFiniteList") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_68") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryTools","showCurryStringConstant") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_41") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showCharExpr") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_14") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showCurryElems") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Var 2,Var 3,Var 1],Var 4],Var 5]]))),Func ("OracleFlatCurryTools","showBracketsIf") 3 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_7") [Var 3,Var 2,Var 1]])),Func ("OracleFlatCurryTools","sceBlanks") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","take") [Var 2,Comb FuncCall ("OraclePrelude","repeat") [Lit (Charc ' '),Var 1],Var 3]]))),Func ("OracleFlatCurryTools","isFiniteList") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_6") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","isStringConstant") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_2") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","isCharConstant") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_1") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Lit") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_0") [Var 3,Var 1]]),Branch (Pattern ("FlatCurry","Var") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Comb") [8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Let") [11,12]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [17,18,19]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryTools","_case_0") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("FlatCurry","Charc") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("FlatCurry","Intc") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Floatc") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryTools","_case_2") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Comb") [3,4,5]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 4,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","[]") []]]],Var 1],Comb FuncCall ("OraclePrelude","null") [Var 5,Var 17],Var 18],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 4,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","[]") []]],Var 19],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","length") [Var 5,Var 20],Lit (Intc 2),Var 21],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleFlatCurryTools","isCharConstant") [Comb FuncCall ("OraclePrelude","head") [Var 5,Var 22],Var 23],Comb FuncCall ("OracleFlatCurryTools","isStringConstant") [Comb FuncCall ("OraclePrelude","!!") [Var 5,Lit (Intc 1),Var 24],Var 25],Var 26],Var 27],Var 28],Var 29]])),Branch (Pattern ("FlatCurry","Var") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Lit") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Let") [8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryTools","_case_6") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Var") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Lit") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryTools","_case_5") [Var 6,Var 7,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 6,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","[]") []]]],Var 1],Comb FuncCall ("OraclePrelude","==") [Var 7,Comb ConsCall ("Prelude","[]") [],Var 17],Var 18],Var 19]])),Branch (Pattern ("FlatCurry","Let") [8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryTools","_case_5") 4 Private (TVar (-42)) (Rule [6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryTools","_case_4") [Var 6,Var 7,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 6,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","[]") []]],Var 1],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","length") [Var 7,Var 9],Lit (Intc 2),Var 10],Var 11],Var 12]]))]])),Func ("OracleFlatCurryTools","_case_4") 4 Private (TVar (-42)) (Rule [6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","isFiniteList") [Comb FuncCall ("OraclePrelude","!!") [Var 7,Lit (Intc 1),Var 1],Var 9]])),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_3") [Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 10]]))]])),Func ("OracleFlatCurryTools","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryTools","_case_7") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb FuncCall ("OraclePrelude","++") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryTools","_case_14") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Lit") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_13") [Var 3,Var 1]])]])),Func ("OracleFlatCurryTools","_case_13") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Charc") [4]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OraclePrelude","ord") [Var 4,Var 1])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_12") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc '"'),Var 6],Var 7]]))]))]])),Func ("OracleFlatCurryTools","_case_12") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_11") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc '\''),Var 1],Var 7]]))]])),Func ("OracleFlatCurryTools","_case_11") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc '\''),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_10") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc '\n'),Var 1],Var 7]]))]])),Func ("OracleFlatCurryTools","_case_10") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryTools","_case_9") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","<") [Var 5,Lit (Intc 32),Var 1],Comb FuncCall ("OraclePrelude",">") [Var 5,Lit (Intc 126),Var 7],Var 8],Var 9]]))]])),Func ("OracleFlatCurryTools","_case_9") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","div") [Var 5,Lit (Intc 100),Var 1],Lit (Intc 48),Var 7],Var 8],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","div") [Comb FuncCall ("OraclePrelude","mod") [Var 5,Lit (Intc 100),Var 9],Lit (Intc 10),Var 10],Lit (Intc 48),Var 11],Var 12],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","mod") [Var 5,Lit (Intc 10),Var 13],Lit (Intc 48),Var 14],Var 15],Comb ConsCall ("Prelude","[]") []]]]]])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_8") [Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 16]]))]])),Func ("OracleFlatCurryTools","_case_8") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryTools","_case_41") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Comb") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_40") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryTools","_case_40") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_39") [Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryTools","_case_39") 4 Private (TVar (-42)) (Rule [5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_38") [Var 5,Var 7,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryTools","_case_38") 5 Private (TVar (-42)) (Rule [5,7,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_37") [Var 5,Var 7,Var 9,Var 1]])]])),Func ("OracleFlatCurryTools","_case_37") 4 Private (TVar (-42)) (Rule [5,7,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_36") [Var 5,Var 7,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryTools","_case_36") 5 Private (TVar (-42)) (Rule [5,7,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_35") [Var 5,Var 7,Var 11,Var 1]])]])),Func ("OracleFlatCurryTools","_case_35") 4 Private (TVar (-42)) (Rule [5,7,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_34") [Var 5,Var 7,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryTools","_case_34") 5 Private (TVar (-42)) (Rule [5,7,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_33") [Var 5,Var 7,Var 13,Var 1]])]])),Func ("OracleFlatCurryTools","_case_33") 4 Private (TVar (-42)) (Rule [5,7,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_32") [Var 5,Var 7,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryTools","_case_32") 5 Private (TVar (-42)) (Rule [5,7,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_31") [Var 5,Var 7,Var 15,Var 1]])]])),Func ("OracleFlatCurryTools","_case_31") 4 Private (TVar (-42)) (Rule [5,7,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_30") [Var 5,Var 7,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryTools","_case_30") 5 Private (TVar (-42)) (Rule [5,7,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_29") [Var 5,Var 7,Var 17,Var 1]])]])),Func ("OracleFlatCurryTools","_case_29") 4 Private (TVar (-42)) (Rule [5,7,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_28") [Var 5,Var 7,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryTools","_case_28") 5 Private (TVar (-42)) (Rule [5,7,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_27") [Var 5,Var 7,Var 19,Var 1]])]])),Func ("OracleFlatCurryTools","_case_27") 4 Private (TVar (-42)) (Rule [5,7,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_26") [Var 5,Var 7,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryTools","_case_26") 5 Private (TVar (-42)) (Rule [5,7,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_25") [Var 5,Var 7,Var 21,Var 1]])]])),Func ("OracleFlatCurryTools","_case_25") 4 Private (TVar (-42)) (Rule [5,7,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_24") [Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryTools","_case_24") 3 Private (TVar (-42)) (Rule [5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_23") [Var 5,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryTools","_case_23") 4 Private (TVar (-42)) (Rule [5,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (LPattern (Charc '[')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_22") [Var 5,Var 23,Var 1]]),Branch (LPattern (Charc ':')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_18") [Var 5,Var 23,Var 1]])]])),Func ("OracleFlatCurryTools","_case_18") 3 Private (TVar (-42)) (Rule [5,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_17") [Var 5,Var 1]])]])),Func ("OracleFlatCurryTools","_case_17") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_16") [Var 26,Var 27,Var 1]])]])),Func ("OracleFlatCurryTools","_case_16") 3 Private (TVar (-42)) (Rule [26,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_15") [Var 26,Var 28,Var 29,Var 1]])]])),Func ("OracleFlatCurryTools","_case_15") 4 Private (TVar (-42)) (Rule [26,28,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (Pattern ("Prelude","[]") []) (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCharExpr") [Var 26,Var 1],Comb FuncCall ("OracleFlatCurryTools","showCurryStringConstant") [Var 28,Var 30],Var 31]]))]])),Func ("OracleFlatCurryTools","_case_22") 3 Private (TVar (-42)) (Rule [5,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_21") [Var 5,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryTools","_case_21") 4 Private (TVar (-42)) (Rule [5,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (LPattern (Charc ']')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_20") [Var 5,Var 25,Var 1]])]])),Func ("OracleFlatCurryTools","_case_20") 3 Private (TVar (-42)) (Rule [5,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_19") [Var 5,Var 1]])]])),Func ("OracleFlatCurryTools","_case_19") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleFlatCurryTools","_case_68") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_67") [Var 2,Var 3,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryTools","_case_67") 5 Private (TVar (-42)) (Rule [2,3,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude","(,)") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_66") [Var 2,Var 3,Var 7,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryTools","_case_66") 6 Private (TVar (-42)) (Rule [2,3,7,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_65") [Var 2,Var 3,Var 7,Var 9,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryTools","_case_65") 7 Private (TVar (-42)) (Rule [2,3,7,9,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_64") [Var 2,Var 3,Var 7,Var 9,Var 11,Var 1]])]])),Func ("OracleFlatCurryTools","_case_64") 6 Private (TVar (-42)) (Rule [2,3,7,9,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_63") [Var 2,Var 3,Var 7,Var 9,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryTools","_case_63") 7 Private (TVar (-42)) (Rule [2,3,7,9,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_62") [Var 2,Var 3,Var 7,Var 9,Var 13,Var 1]])]])),Func ("OracleFlatCurryTools","_case_62") 6 Private (TVar (-42)) (Rule [2,3,7,9,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_61") [Var 2,Var 3,Var 7,Var 9,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryTools","_case_61") 7 Private (TVar (-42)) (Rule [2,3,7,9,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_60") [Var 2,Var 3,Var 7,Var 9,Var 15,Var 1]])]])),Func ("OracleFlatCurryTools","_case_60") 6 Private (TVar (-42)) (Rule [2,3,7,9,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_59") [Var 2,Var 3,Var 7,Var 9,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryTools","_case_59") 7 Private (TVar (-42)) (Rule [2,3,7,9,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_58") [Var 2,Var 3,Var 7,Var 9,Var 17,Var 1]])]])),Func ("OracleFlatCurryTools","_case_58") 6 Private (TVar (-42)) (Rule [2,3,7,9,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_57") [Var 2,Var 3,Var 7,Var 9,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryTools","_case_57") 7 Private (TVar (-42)) (Rule [2,3,7,9,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_56") [Var 2,Var 3,Var 7,Var 9,Var 19,Var 1]])]])),Func ("OracleFlatCurryTools","_case_56") 6 Private (TVar (-42)) (Rule [2,3,7,9,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_55") [Var 2,Var 3,Var 7,Var 9,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryTools","_case_55") 7 Private (TVar (-42)) (Rule [2,3,7,9,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_54") [Var 2,Var 3,Var 7,Var 9,Var 21,Var 1]])]])),Func ("OracleFlatCurryTools","_case_54") 6 Private (TVar (-42)) (Rule [2,3,7,9,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude",":") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_53") [Var 2,Var 3,Var 7,Var 9,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryTools","_case_53") 7 Private (TVar (-42)) (Rule [2,3,7,9,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_52") [Var 2,Var 3,Var 7,Var 9,Var 23,Var 1]])]])),Func ("OracleFlatCurryTools","_case_52") 6 Private (TVar (-42)) (Rule [2,3,7,9,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_51") [Var 2,Var 3,Var 7,Var 9,Var 1]])]])),Func ("OracleFlatCurryTools","_case_51") 5 Private (TVar (-42)) (Rule [2,3,7,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_50") [Var 2,Var 3,Var 7,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryTools","_case_50") 6 Private (TVar (-42)) (Rule [2,3,7,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (LPattern (Charc '[')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_49") [Var 7,Var 25,Var 1]]),Branch (LPattern (Charc ':')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_45") [Var 2,Var 3,Var 7,Var 25,Var 1]])]])),Func ("OracleFlatCurryTools","_case_45") 5 Private (TVar (-42)) (Rule [2,3,7,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_44") [Var 2,Var 3,Var 7,Var 1]])]])),Func ("OracleFlatCurryTools","_case_44") 4 Private (TVar (-42)) (Rule [2,3,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_43") [Var 2,Var 3,Var 28,Var 29,Var 1]])]])),Func ("OracleFlatCurryTools","_case_43") 5 Private (TVar (-42)) (Rule [2,3,28,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (Pattern ("Prelude",":") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_42") [Var 2,Var 3,Var 28,Var 30,Var 31,Var 1]])]])),Func ("OracleFlatCurryTools","_case_42") 6 Private (TVar (-42)) (Rule [2,3,28,30,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (Pattern ("Prelude","[]") []) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 3,Var 28,Var 1],Comb FuncCall ("OracleFlatCurryTools","showCurryFiniteList") [Var 2,Var 3,Var 30,Var 32]]]))]])),Func ("OracleFlatCurryTools","_case_49") 3 Private (TVar (-42)) (Rule [7,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_48") [Var 7,Var 27,Var 26,Var 1]])]])),Func ("OracleFlatCurryTools","_case_48") 4 Private (TVar (-42)) (Rule [7,27,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (LPattern (Charc ']')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_47") [Var 7,Var 27,Var 1]])]])),Func ("OracleFlatCurryTools","_case_47") 3 Private (TVar (-42)) (Rule [7,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_46") [Var 7,Var 1]])]])),Func ("OracleFlatCurryTools","_case_46") 2 Private (TVar (-42)) (Rule [7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleFlatCurryTools","_case_74") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_73") [Var 2,Var 4,Var 5,Var 1]])]])),Func ("OracleFlatCurryTools","_case_73") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","showCurryVar") [Var 4,Var 1],Var 8],Var 9]])),Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_72") [Var 2,Var 4,Var 6,Var 7,Var 1]])]])),Func ("OracleFlatCurryTools","_case_72") 5 Private (TVar (-42)) (Rule [2,4,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude","[]") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryTools","_case_71") [Var 2,Var 4,Var 6,Comb FuncCall ("OracleChar","isAlpha") [Comb FuncCall ("OraclePrelude","head") [Var 2,Var 1],Var 10],Var 11]])),Branch (Pattern ("Prelude",":") [8,9]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryTools","_case_69") [Var 2,Var 4,Var 6,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","take") [Lit (Intc 2),Var 2,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []]],Var 12],Var 13]]))]])),Func ("OracleFlatCurryTools","_case_69") 7 Private (TVar (-42)) (Rule [2,4,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showCurryVar") []],Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 8,Var 9]]],Var 1],Var 11],Var 12],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 13],Var 14]])),Branch (Pattern ("Prelude","False") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","showCurryElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showCurryVar") []],Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 8,Var 9]]],Var 1],Var 15],Var 16]]))]])),Func ("OracleFlatCurryTools","_case_71") 5 Private (TVar (-42)) (Rule [2,4,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryVar") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","showCurryVar") [Var 6,Var 8],Var 9],Var 10],Var 11],Var 12]])),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_70") [Var 2,Var 4,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 13]]))]])),Func ("OracleFlatCurryTools","_case_70") 5 Private (TVar (-42)) (Rule [2,4,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryVar") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryVar") [Var 6,Var 8],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 9],Var 10],Var 11],Var 12]])),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryVar") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","showCurryVar") [Var 6,Var 13],Var 14],Var 15],Var 16],Var 17]]))]])),Func ("OracleFlatCurryTools","_case_76") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","Branch") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_75") [Var 2,Var 3,Var 6,Var 5,Var 1]])]])),Func ("OracleFlatCurryTools","_case_75") 5 Private (TVar (-42)) (Rule [2,3,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FlatCurry","Pattern") [7,8]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","sceBlanks") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryCase.showPattern.153") [Comb FuncCall ("Oracle","apply") [Var 2,Var 7,Var 10],Var 8,Var 11],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 3,Var 6,Var 12],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 13],Var 14],Var 15],Var 16]])),Branch (Pattern ("FlatCurry","LPattern") [9]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","sceBlanks") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryLit") [Var 9,Var 17],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 3,Var 6,Var 18],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 19],Var 20],Var 21],Var 22],Var 23]]))]])),Func ("OracleFlatCurryTools","_case_77") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Intc") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1]]),Branch (Pattern ("FlatCurry","Floatc") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","show") [Var 4,Var 1]]),Branch (Pattern ("FlatCurry","Charc") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1]])]])),Func ("OracleFlatCurryTools","_case_80") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_79") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]],Var 1],Var 4]]))]])),Func ("OracleFlatCurryTools","_case_79") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_78") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 4]]))]])),Func ("OracleFlatCurryTools","_case_78") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Var 2],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryTools","_case_81") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryVar") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 3,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","+") [Var 2,Lit (Intc 4),Var 7],Var 6,Var 8],Var 9],Var 10]]))]])),Func ("OracleFlatCurryTools","_case_96") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FlatCurry","Var") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","showCurryVar") [Var 6,Var 1]]),Branch (Pattern ("FlatCurry","Lit") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","showCurryLit") [Var 7,Var 1]]),Branch (Pattern ("FlatCurry","Comb") [8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_95") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 10,Var 1]]),Branch (Pattern ("FlatCurry","Let") [17,18]) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","sceBlanks") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb FuncCall ("OraclePrelude","++") [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 ("OracleFlatCurryTools","sceBlanks") [Var 4,Var 28],Var 29],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showCurryExpr._#lambda3") [Var 4,Var 2]],Var 17,Var 30],Var 31],Var 32],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","sceBlanks") [Var 4,Var 33],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","[]") []]]]],Var 34],Var 35],Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 4),Var 36],Var 18,Var 37],Var 38],Var 39],Var 40],Var 41],Var 42],Var 43]])),Branch (Pattern ("FlatCurry","Free") [19,20]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_83") [Var 2,Var 3,Var 4,Var 20,Var 19,Var 1]]),Branch (Pattern ("FlatCurry","Or") [23,24]) (Let [(44,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(45,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(46,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(47,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 44,Comb ConsCall ("Prelude",":") [Var 45,Comb ConsCall ("Prelude",":") [Var 46,Comb ConsCall ("Prelude",":") [Var 47,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 23,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '?'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 24,Var 44],Var 45],Var 46],Var 47]])),Branch (Pattern ("FlatCurry","Case") [25,26,27]) (Let [(48,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(49,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(50,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(51,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(52,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(53,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(54,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(55,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(56,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(57,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 48,Comb ConsCall ("Prelude",":") [Var 49,Comb ConsCall ("Prelude",":") [Var 50,Comb ConsCall ("Prelude",":") [Var 51,Comb ConsCall ("Prelude",":") [Var 52,Comb ConsCall ("Prelude",":") [Var 53,Comb ConsCall ("Prelude",":") [Var 54,Comb ConsCall ("Prelude",":") [Var 55,Comb ConsCall ("Prelude",":") [Var 56,Comb ConsCall ("Prelude",":") [Var 57,Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","_case_82") [Var 25,Comb FuncCall ("OraclePrelude","==") [Var 25,Comb ConsCall ("FlatCurry","Rigid") [],Var 1],Var 48],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 26,Var 49],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showCurryCase") [Var 2,Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 2),Var 50]]],Var 27,Var 51],Comb FuncCall ("OracleFlatCurryTools","sceBlanks") [Var 4,Var 52],Var 53],Var 54],Var 55],Var 56],Var 57]]))]])),Func ("OracleFlatCurryTools","_case_82") 3 Private (TVar (-42)) (Rule [25,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 26) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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","[]") []]]]]]]])]])),Func ("OracleFlatCurryTools","_case_83") 6 Private (TVar (-42)) (Rule [2,3,4,20,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Var 3,Var 4,Var 20,Var 1]]),Branch (Pattern ("Prelude",":") [21,22]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showCurryVar") []],Comb ConsCall ("Prelude",":") [Var 21,Var 22],Var 1],Var 23],Var 24],Comb FuncCall ("OraclePrelude","++") [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 ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 4,Var 20,Var 25],Var 26],Var 27],Var 28],Var 29]]))]])),Func ("OracleFlatCurryTools","_case_95") 7 Private (TVar (-42)) (Rule [2,3,4,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude","[]") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","showCurryId") [Comb FuncCall ("Oracle","apply") [Var 2,Var 9,Var 1],Var 13]])),Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_94") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 11,Var 12,Var 1]])]])),Func ("OracleFlatCurryTools","_case_94") 8 Private (TVar (-42)) (Rule [2,3,4,8,9,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude","[]") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryId") [Comb FuncCall ("Oracle","apply") [Var 2,Var 9,Var 1],Var 15],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 11,Var 16],Var 17],Var 18],Var 19]])),Branch (Pattern ("Prelude",":") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_93") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 11,Var 13,Var 14,Var 1]])]])),Func ("OracleFlatCurryTools","_case_93") 9 Private (TVar (-42)) (Rule [2,3,4,8,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude","[]") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_92") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 11,Var 13,Comb FuncCall ("OraclePrelude","==") [Var 9,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","[]") []]]]]]],Var 1],Var 17]])),Branch (Pattern ("Prelude",":") [15,16]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryTools","_case_86") [Var 2,Var 3,Var 4,Var 9,Var 11,Var 13,Var 15,Var 16,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 9,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","[]") []]]]]]]]]]]]]],Var 1],Comb FuncCall ("OraclePrelude","==") [Var 16,Comb ConsCall ("Prelude","[]") [],Var 18],Var 19],Var 20]]))]])),Func ("OracleFlatCurryTools","_case_86") 10 Private (TVar (-42)) (Rule [2,3,4,9,11,13,15,16,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","True") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","sceBlanks") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 2),Var 18],Var 11,Var 19],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","sceBlanks") [Var 4,Var 20],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 2),Var 21],Var 13,Var 22],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","sceBlanks") [Var 4,Var 23],Comb FuncCall ("OraclePrelude","++") [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 ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 2),Var 24],Var 15,Var 25],Var 26],Var 27],Var 28],Var 29],Var 30],Var 31],Var 32],Var 33],Var 34],Var 35],Var 36],Var 37]])),Branch (Pattern ("Prelude","False") []) (Let [(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryTools","_case_85") [Var 2,Var 3,Var 4,Var 9,Var 11,Var 13,Var 15,Var 16,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","take") [Lit (Intc 2),Comb FuncCall ("OraclePrelude","snd") [Var 9,Var 1],Var 38],Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []]],Var 39],Var 40]]))]])),Func ("OracleFlatCurryTools","_case_85") 10 Private (TVar (-42)) (Rule [2,3,4,9,11,13,15,16,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","True") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 4]],Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 15,Var 16]]],Var 1],Var 18],Var 19],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 20],Var 21]])),Branch (Pattern ("Prelude","False") []) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_84") [Var 2,Var 3,Var 4,Var 9,Var 11,Var 13,Var 15,Var 16,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 22]]))]])),Func ("OracleFlatCurryTools","_case_84") 10 Private (TVar (-42)) (Rule [2,3,4,9,11,13,15,16,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","True") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryId") [Comb FuncCall ("Oracle","apply") [Var 2,Var 9,Var 1],Var 18],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","showCurryElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4]],Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 15,Var 16]]],Var 19],Var 20],Var 21],Var 22]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryTools","_case_92") 9 Private (TVar (-42)) (Rule [2,3,4,8,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 11,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 13,Var 15],Var 16],Var 17],Var 18]])),Branch (Pattern ("Prelude","False") []) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryTools","_case_91") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 11,Var 13,Comb FuncCall ("OracleChar","isAlpha") [Comb FuncCall ("OraclePrelude","head") [Comb FuncCall ("OraclePrelude","snd") [Var 9,Var 1],Var 19],Var 20],Var 21]]))]])),Func ("OracleFlatCurryTools","_case_91") 9 Private (TVar (-42)) (Rule [2,3,4,8,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Var 2,Var 9,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","showCurryElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4]],Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Var 15],Var 16],Var 17],Var 18]])),Branch (Pattern ("Prelude","False") []) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_90") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 11,Var 13,Comb FuncCall ("OracleFlatCurryTools","isFiniteList") [Comb ConsCall ("FlatCurry","Comb") [Var 8,Var 9,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 19]]))]])),Func ("OracleFlatCurryTools","_case_90") 9 Private (TVar (-42)) (Rule [2,3,4,8,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_89") [Var 2,Var 4,Var 8,Var 9,Var 11,Var 13,Comb FuncCall ("OracleFlatCurryTools","isStringConstant") [Comb ConsCall ("FlatCurry","Comb") [Var 8,Var 9,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 15]])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryTools","_case_88") [Var 2,Var 3,Var 4,Var 9,Var 11,Var 13,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","snd") [Var 9,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []]]],Var 16],Var 17]]))]])),Func ("OracleFlatCurryTools","_case_88") 8 Private (TVar (-42)) (Rule [2,3,4,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 4,Var 11,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 4,Var 13,Var 15],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 16],Var 17],Var 18],Var 19]])),Branch (Pattern ("Prelude","False") []) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_87") [Var 2,Var 3,Var 4,Var 9,Var 11,Var 13,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 20]]))]])),Func ("OracleFlatCurryTools","_case_87") 8 Private (TVar (-42)) (Rule [2,3,4,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 11,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Var 2,Var 9,Var 15],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 13,Var 16],Var 17],Var 18],Var 19],Var 20],Var 21]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryTools","_case_89") 8 Private (TVar (-42)) (Rule [2,4,8,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryStringConstant") [Comb ConsCall ("FlatCurry","Comb") [Var 8,Var 9,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []],Var 15],Var 16]])),Branch (Pattern ("Prelude","False") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","showCurryFiniteList") [Var 2,Var 4,Comb ConsCall ("FlatCurry","Comb") [Var 8,Var 9,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 17],Var 18],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []],Var 19],Var 20]]))]])),Func ("OracleFlatCurryTools","_case_97") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","TVar") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","FuncType") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("FlatCurry","TCons") [6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryTools","_case_104") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","TVar") [5]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_103") [Var 5,Comb FuncCall ("OraclePrelude","<") [Var 5,Lit (Intc 5),Var 1],Var 10]])),Branch (Pattern ("FlatCurry","FuncType") [6,7]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryType") [Var 2,Comb FuncCall ("OracleFlatCurryTools","isFuncType") [Var 6,Var 1],Var 6,Var 11],Comb FuncCall ("OraclePrelude","++") [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 ("OracleFlatCurryTools","showCurryType") [Var 2,Comb ConsCall ("Prelude","False") [],Var 7,Var 12],Var 13],Var 14],Var 15]])),Branch (Pattern ("FlatCurry","TCons") [8,9]) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_102") [Var 2,Var 3,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 9,Comb ConsCall ("Prelude","[]") [],Var 1],Var 16]]))]])),Func ("OracleFlatCurryTools","_case_102") 6 Private (TVar (-42)) (Rule [2,3,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Var 8,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryTools","_case_101") [Var 2,Var 3,Var 8,Var 9,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [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 '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]]],Var 1],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","head") [Var 9,Var 11],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","[]") []],Var 12],Var 13],Var 14]]))]])),Func ("OracleFlatCurryTools","_case_101") 6 Private (TVar (-42)) (Rule [2,3,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_100") [Var 2,Var 3,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [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 '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 11]]))]])),Func ("OracleFlatCurryTools","_case_100") 6 Private (TVar (-42)) (Rule [2,3,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryType") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","head") [Var 9,Var 1],Var 11],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []],Var 12],Var 13]])),Branch (Pattern ("Prelude","False") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryTools","_case_99") [Var 2,Var 3,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","take") [Lit (Intc 2),Comb FuncCall ("OraclePrelude","snd") [Var 8,Var 1],Var 14],Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []]],Var 15],Var 16]]))]])),Func ("OracleFlatCurryTools","_case_99") 6 Private (TVar (-42)) (Rule [2,3,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showCurryType") [Var 2,Comb ConsCall ("Prelude","False") []]],Var 9,Var 1],Var 11],Var 12],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 13],Var 14]])),Branch (Pattern ("Prelude","False") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_98") [Var 2,Var 3,Var 8,Var 9,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 15]]))]])),Func ("OracleFlatCurryTools","_case_98") 6 Private (TVar (-42)) (Rule [2,3,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Var 2,Var 8,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showCurryType._#lambda2") [Var 2]],Var 11],Var 9,Var 12],Var 13],Var 14]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryTools","_case_103") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Lit (Intc 97),Var 5,Var 1],Var 7],Comb ConsCall ("Prelude","[]") []]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1]]])]])),Func ("OracleFlatCurryTools","_case_105") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Pattern") [3,4]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 4,Var 6],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 7],Var 8],Var 9]])),Branch (Pattern ("FlatCurry","LPattern") [5]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatLit") [Var 5,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11]]))]])),Func ("OracleFlatCurryTools","_case_106") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Branch") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatPattern") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatExpr") [Var 4,Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7],Var 8]]))]])),Func ("OracleFlatCurryTools","_case_108") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Intc") [3]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7]])),Branch (Pattern ("FlatCurry","Floatc") [4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 8],Var 9]])),Branch (Pattern ("FlatCurry","Charc") [5]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleFlatCurryTools","_case_107") [Var 5,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Comb FuncCall ("OraclePrelude","ord") [Var 5,Var 1],Lit (Intc 32),Var 10],Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OraclePrelude","ord") [Var 5,Var 11],Lit (Intc 127),Var 12],Var 13],Var 14]]))]])),Func ("OracleFlatCurryTools","_case_107") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Lit (Charc '\''),Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []]],Var 1],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Comb FuncCall ("OraclePrelude","ord") [Var 5,Var 1],Var 8],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []]],Var 9],Var 10]]))]])),Func ("OracleFlatCurryTools","_case_109") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatExpr") [Var 4,Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7],Var 8],Var 9]]))]])),Func ("OracleFlatCurryTools","_case_111") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Var") [3]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 17],Var 18]])),Branch (Pattern ("FlatCurry","Lit") [4]) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatLit") [Var 4,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 19],Var 20]])),Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatCombType") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 6,Var 21],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showFlatExpr") []],Var 7,Var 22],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 23],Var 24],Var 25],Var 26],Var 27]])),Branch (Pattern ("FlatCurry","Let") [8,9]) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showFlatExpr.showFlatBinding.49") []],Var 8,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatExpr") [Var 9,Var 28],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 29],Var 30],Var 31]])),Branch (Pattern ("FlatCurry","Free") [10,11]) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 10,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatExpr") [Var 11,Var 32],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 33],Var 34],Var 35]])),Branch (Pattern ("FlatCurry","Or") [12,13]) (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatExpr") [Var 12,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatExpr") [Var 13,Var 36],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 37],Var 38],Var 39],Var 40]])),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_110") [Var 15,Var 16,Var 14,Var 1]])]])),Func ("OracleFlatCurryTools","_case_110") 4 Private (TVar (-42)) (Rule [15,16,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("FlatCurry","Rigid") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatExpr") [Var 15,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showFlatBranch") []],Var 16,Var 17],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 18],Var 19],Var 20]])),Branch (Pattern ("FlatCurry","Flex") []) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatExpr") [Var 15,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showFlatBranch") []],Var 16,Var 21],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 22],Var 23],Var 24]]))]])),Func ("OracleFlatCurryTools","_case_112") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","FuncCall") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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") [3]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 5],Var 6]])),Branch (Pattern ("FlatCurry","ConsPartCall") [4]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 7],Var 8]]))]])),Func ("OracleFlatCurryTools","_case_113") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","FuncType") [3,4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatTypeExpr") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatTypeExpr") [Var 4,Var 8],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 9],Var 10],Var 11],Var 12]])),Branch (Pattern ("FlatCurry","TCons") [5,6]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showFlatTypeExpr") []],Var 6,Var 13],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 14],Var 15],Var 16]])),Branch (Pattern ("FlatCurry","TVar") [7]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 7,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 17],Var 18]]))]])),Func ("OracleFlatCurryTools","_case_114") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Rule") [3,4]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatExpr") [Var 4,Var 6],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 7],Var 8],Var 9]])),Branch (Pattern ("FlatCurry","External") [5]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11]]))]])),Func ("OracleFlatCurryTools","_case_115") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Func") [3,4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 8],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatVisibility") [Var 5,Var 9],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatTypeExpr") [Var 6,Var 10],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatRule") [Var 7,Var 11],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 12],Var 13],Var 14],Var 15],Var 16],Var 17],Var 18],Var 19],Var 20],Var 21]]))]])),Func ("OracleFlatCurryTools","_case_116") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Cons") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 7],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatVisibility") [Var 5,Var 8],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showFlatTypeExpr") []],Var 6,Var 9],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11],Var 12],Var 13],Var 14],Var 15]]))]])),Func ("OracleFlatCurryTools","_case_117") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Type") [3,4,5,6]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatVisibility") [Var 4,Var 11],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 5,Var 12],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showFlatCons") []],Var 6,Var 13],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 14],Var 15],Var 16],Var 17],Var 18]])),Branch (Pattern ("FlatCurry","TypeSyn") [7,8,9,10]) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatVisibility") [Var 8,Var 19],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 9,Var 20],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatTypeExpr") [Var 10,Var 21],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 22],Var 23],Var 24],Var 25],Var 26]]))]])),Func ("OracleFlatCurryTools","_case_118") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Op") [3,4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatFixity") [Var 4,Var 6],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 7],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 8],Var 9],Var 10],Var 11]]))]])),Func ("OracleFlatCurryTools","_case_119") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","InfixOp") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleFlatCurryTools","_case_120") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Public") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [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 '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 ("OracleFlatCurryTools","_case_123") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Prog") [3,4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","_case_122") [Var 4,Comb FuncCall ("OraclePrelude","==") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 8],Var 9],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","_case_121") [Var 5,Comb FuncCall ("OraclePrelude","==") [Var 5,Comb ConsCall ("Prelude","[]") [],Var 10],Var 11],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatListElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showFlatFunc") []],Var 6,Var 12],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showFlatOp") []],Var 7,Var 13],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","[]") []]]]],Var 14],Var 15],Var 16],Var 17],Var 18],Var 19],Var 20],Var 21],Var 22]]))]])),Func ("OracleFlatCurryTools","_case_121") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatListElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showFlatType") []],Var 5,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]]],Var 7],Var 8]]))]])),Func ("OracleFlatCurryTools","_case_122") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatListElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 4,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7]]))]]))] []
+ Curry/Module/OracleFlatCurryTools.fint view
@@ -0,0 +1,1 @@+Prog "OracleFlatCurryTools" ["CEventOracle","Oracle","IOExts","FlatCurryTools","Char","FlatCurry","List","Prelude","OracleChar","OracleFlatCurry","OracleList","OraclePrelude"] [] [Func ("OracleFlatCurryTools","showFlatProg") 2 Public (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_123") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatVisibility") 2 Private (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_120") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatFixity") 2 Private (FuncType (TCons ("FlatCurry","Fixity") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_119") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatOp") 2 Private (FuncType (TCons ("FlatCurry","OpDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_118") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatType") 2 Public (FuncType (TCons ("FlatCurry","TypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_117") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatCons") 2 Private (FuncType (TCons ("FlatCurry","ConsDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_116") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatFunc") 2 Public (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_115") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatRule") 2 Private (FuncType (TCons ("FlatCurry","Rule") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_114") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatTypeExpr") 2 Private (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_113") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatCombType") 2 Private (FuncType (TCons ("FlatCurry","CombType") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_112") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatExpr") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_111") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatExpr.showFlatBinding.49") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_109") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatLit") 2 Private (FuncType (TCons ("FlatCurry","Literal") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_108") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatBranch") 2 Private (FuncType (TCons ("FlatCurry","BranchExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_106") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatPattern") 2 Private (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_105") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showFlatList") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatListElems") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Var 4],Var 5]]))),Func ("OracleFlatCurryTools","showFlatListElems") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Var 2,Var 3,Var 1],Var 4],Var 5]]))),Func ("OracleFlatCurryTools","showCurryType") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_104") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryTools","showCurryType._#lambda2") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb FuncCall ("OracleFlatCurryTools","showCurryType") [Var 2,Comb ConsCall ("Prelude","True") [],Var 3,Var 1]]])),Func ("OracleFlatCurryTools","isFuncType") 2 Private (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_97") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showCurryExpr") 5 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_96") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleFlatCurryTools","showCurryExpr._#lambda3") 4 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_81") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryTools","showCurryVar") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'v'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],Var 3]]))),Func ("OracleFlatCurryTools","showCurryId") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryTools","_case_80") [Var 2,Comb FuncCall ("OracleChar","isAlpha") [Comb FuncCall ("OraclePrelude","head") [Var 2,Var 1],Var 3],Var 4]]))),Func ("OracleFlatCurryTools","showCurryLit") 2 Private (FuncType (TCons ("FlatCurry","Literal") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_77") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showCurryCase") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_76") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryTools","showCurryCase.showPattern.153") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_74") [Var 2,Var 3,Var 1]])),Func ("OracleFlatCurryTools","showCurryFiniteList") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_68") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleFlatCurryTools","showCurryStringConstant") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_41") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showCharExpr") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_14") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","showCurryElems") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Var 2,Var 3,Var 1],Var 4],Var 5]]))),Func ("OracleFlatCurryTools","showBracketsIf") 3 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_7") [Var 3,Var 2,Var 1]])),Func ("OracleFlatCurryTools","sceBlanks") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","take") [Var 2,Comb FuncCall ("OraclePrelude","repeat") [Lit (Charc ' '),Var 1],Var 3]]))),Func ("OracleFlatCurryTools","isFiniteList") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_6") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","isStringConstant") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_2") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","isCharConstant") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_1") [Var 2,Var 1]])),Func ("OracleFlatCurryTools","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Lit") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_0") [Var 3,Var 1]]),Branch (Pattern ("FlatCurry","Var") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Comb") [8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Let") [11,12]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [17,18,19]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryTools","_case_0") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("FlatCurry","Charc") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("FlatCurry","Intc") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Floatc") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryTools","_case_2") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Comb") [3,4,5]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 4,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","[]") []]]],Var 1],Comb FuncCall ("OraclePrelude","null") [Var 5,Var 17],Var 18],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 4,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","[]") []]],Var 19],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","length") [Var 5,Var 20],Lit (Intc 2),Var 21],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleFlatCurryTools","isCharConstant") [Comb FuncCall ("OraclePrelude","head") [Var 5,Var 22],Var 23],Comb FuncCall ("OracleFlatCurryTools","isStringConstant") [Comb FuncCall ("OraclePrelude","!!") [Var 5,Lit (Intc 1),Var 24],Var 25],Var 26],Var 27],Var 28],Var 29]])),Branch (Pattern ("FlatCurry","Var") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Lit") [7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Let") [8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryTools","_case_6") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Var") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Lit") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryTools","_case_5") [Var 6,Var 7,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 6,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","[]") []]]],Var 1],Comb FuncCall ("OraclePrelude","==") [Var 7,Comb ConsCall ("Prelude","[]") [],Var 17],Var 18],Var 19]])),Branch (Pattern ("FlatCurry","Let") [8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Free") [10,11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Or") [12,13]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryTools","_case_5") 4 Private (TVar (-42)) (Rule [6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryTools","_case_4") [Var 6,Var 7,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 6,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","[]") []]],Var 1],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","length") [Var 7,Var 9],Lit (Intc 2),Var 10],Var 11],Var 12]]))]])),Func ("OracleFlatCurryTools","_case_4") 4 Private (TVar (-42)) (Rule [6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","isFiniteList") [Comb FuncCall ("OraclePrelude","!!") [Var 7,Lit (Intc 1),Var 1],Var 9]])),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_3") [Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 10]]))]])),Func ("OracleFlatCurryTools","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryTools","_case_7") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb FuncCall ("OraclePrelude","++") [Var 3,Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryTools","_case_14") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Lit") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_13") [Var 3,Var 1]])]])),Func ("OracleFlatCurryTools","_case_13") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Charc") [4]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OraclePrelude","ord") [Var 4,Var 1])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_12") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc '"'),Var 6],Var 7]]))]))]])),Func ("OracleFlatCurryTools","_case_12") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_11") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc '\''),Var 1],Var 7]]))]])),Func ("OracleFlatCurryTools","_case_11") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc '\''),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_10") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc '\n'),Var 1],Var 7]]))]])),Func ("OracleFlatCurryTools","_case_10") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryTools","_case_9") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","<") [Var 5,Lit (Intc 32),Var 1],Comb FuncCall ("OraclePrelude",">") [Var 5,Lit (Intc 126),Var 7],Var 8],Var 9]]))]])),Func ("OracleFlatCurryTools","_case_9") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb ConsCall ("Prelude",":") [Lit (Charc '\\'),Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","div") [Var 5,Lit (Intc 100),Var 1],Lit (Intc 48),Var 7],Var 8],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","div") [Comb FuncCall ("OraclePrelude","mod") [Var 5,Lit (Intc 100),Var 9],Lit (Intc 10),Var 10],Lit (Intc 48),Var 11],Var 12],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","mod") [Var 5,Lit (Intc 10),Var 13],Lit (Intc 48),Var 14],Var 15],Comb ConsCall ("Prelude","[]") []]]]]])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_8") [Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 16]]))]])),Func ("OracleFlatCurryTools","_case_8") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryTools","_case_41") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Comb") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_40") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryTools","_case_40") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_39") [Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryTools","_case_39") 4 Private (TVar (-42)) (Rule [5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_38") [Var 5,Var 7,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryTools","_case_38") 5 Private (TVar (-42)) (Rule [5,7,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_37") [Var 5,Var 7,Var 9,Var 1]])]])),Func ("OracleFlatCurryTools","_case_37") 4 Private (TVar (-42)) (Rule [5,7,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_36") [Var 5,Var 7,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryTools","_case_36") 5 Private (TVar (-42)) (Rule [5,7,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_35") [Var 5,Var 7,Var 11,Var 1]])]])),Func ("OracleFlatCurryTools","_case_35") 4 Private (TVar (-42)) (Rule [5,7,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_34") [Var 5,Var 7,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryTools","_case_34") 5 Private (TVar (-42)) (Rule [5,7,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_33") [Var 5,Var 7,Var 13,Var 1]])]])),Func ("OracleFlatCurryTools","_case_33") 4 Private (TVar (-42)) (Rule [5,7,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_32") [Var 5,Var 7,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryTools","_case_32") 5 Private (TVar (-42)) (Rule [5,7,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_31") [Var 5,Var 7,Var 15,Var 1]])]])),Func ("OracleFlatCurryTools","_case_31") 4 Private (TVar (-42)) (Rule [5,7,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_30") [Var 5,Var 7,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryTools","_case_30") 5 Private (TVar (-42)) (Rule [5,7,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_29") [Var 5,Var 7,Var 17,Var 1]])]])),Func ("OracleFlatCurryTools","_case_29") 4 Private (TVar (-42)) (Rule [5,7,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_28") [Var 5,Var 7,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryTools","_case_28") 5 Private (TVar (-42)) (Rule [5,7,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_27") [Var 5,Var 7,Var 19,Var 1]])]])),Func ("OracleFlatCurryTools","_case_27") 4 Private (TVar (-42)) (Rule [5,7,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_26") [Var 5,Var 7,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryTools","_case_26") 5 Private (TVar (-42)) (Rule [5,7,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_25") [Var 5,Var 7,Var 21,Var 1]])]])),Func ("OracleFlatCurryTools","_case_25") 4 Private (TVar (-42)) (Rule [5,7,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_24") [Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryTools","_case_24") 3 Private (TVar (-42)) (Rule [5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_23") [Var 5,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryTools","_case_23") 4 Private (TVar (-42)) (Rule [5,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (LPattern (Charc '[')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_22") [Var 5,Var 23,Var 1]]),Branch (LPattern (Charc ':')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_18") [Var 5,Var 23,Var 1]])]])),Func ("OracleFlatCurryTools","_case_18") 3 Private (TVar (-42)) (Rule [5,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_17") [Var 5,Var 1]])]])),Func ("OracleFlatCurryTools","_case_17") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_16") [Var 26,Var 27,Var 1]])]])),Func ("OracleFlatCurryTools","_case_16") 3 Private (TVar (-42)) (Rule [26,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_15") [Var 26,Var 28,Var 29,Var 1]])]])),Func ("OracleFlatCurryTools","_case_15") 4 Private (TVar (-42)) (Rule [26,28,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (Pattern ("Prelude","[]") []) (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCharExpr") [Var 26,Var 1],Comb FuncCall ("OracleFlatCurryTools","showCurryStringConstant") [Var 28,Var 30],Var 31]]))]])),Func ("OracleFlatCurryTools","_case_22") 3 Private (TVar (-42)) (Rule [5,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_21") [Var 5,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryTools","_case_21") 4 Private (TVar (-42)) (Rule [5,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (LPattern (Charc ']')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_20") [Var 5,Var 25,Var 1]])]])),Func ("OracleFlatCurryTools","_case_20") 3 Private (TVar (-42)) (Rule [5,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_19") [Var 5,Var 1]])]])),Func ("OracleFlatCurryTools","_case_19") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleFlatCurryTools","_case_68") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_67") [Var 2,Var 3,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryTools","_case_67") 5 Private (TVar (-42)) (Rule [2,3,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude","(,)") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_66") [Var 2,Var 3,Var 7,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryTools","_case_66") 6 Private (TVar (-42)) (Rule [2,3,7,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_65") [Var 2,Var 3,Var 7,Var 9,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryTools","_case_65") 7 Private (TVar (-42)) (Rule [2,3,7,9,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_64") [Var 2,Var 3,Var 7,Var 9,Var 11,Var 1]])]])),Func ("OracleFlatCurryTools","_case_64") 6 Private (TVar (-42)) (Rule [2,3,7,9,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_63") [Var 2,Var 3,Var 7,Var 9,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryTools","_case_63") 7 Private (TVar (-42)) (Rule [2,3,7,9,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_62") [Var 2,Var 3,Var 7,Var 9,Var 13,Var 1]])]])),Func ("OracleFlatCurryTools","_case_62") 6 Private (TVar (-42)) (Rule [2,3,7,9,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_61") [Var 2,Var 3,Var 7,Var 9,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryTools","_case_61") 7 Private (TVar (-42)) (Rule [2,3,7,9,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_60") [Var 2,Var 3,Var 7,Var 9,Var 15,Var 1]])]])),Func ("OracleFlatCurryTools","_case_60") 6 Private (TVar (-42)) (Rule [2,3,7,9,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_59") [Var 2,Var 3,Var 7,Var 9,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryTools","_case_59") 7 Private (TVar (-42)) (Rule [2,3,7,9,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_58") [Var 2,Var 3,Var 7,Var 9,Var 17,Var 1]])]])),Func ("OracleFlatCurryTools","_case_58") 6 Private (TVar (-42)) (Rule [2,3,7,9,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_57") [Var 2,Var 3,Var 7,Var 9,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryTools","_case_57") 7 Private (TVar (-42)) (Rule [2,3,7,9,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_56") [Var 2,Var 3,Var 7,Var 9,Var 19,Var 1]])]])),Func ("OracleFlatCurryTools","_case_56") 6 Private (TVar (-42)) (Rule [2,3,7,9,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_55") [Var 2,Var 3,Var 7,Var 9,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryTools","_case_55") 7 Private (TVar (-42)) (Rule [2,3,7,9,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_54") [Var 2,Var 3,Var 7,Var 9,Var 21,Var 1]])]])),Func ("OracleFlatCurryTools","_case_54") 6 Private (TVar (-42)) (Rule [2,3,7,9,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude",":") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_53") [Var 2,Var 3,Var 7,Var 9,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryTools","_case_53") 7 Private (TVar (-42)) (Rule [2,3,7,9,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_52") [Var 2,Var 3,Var 7,Var 9,Var 23,Var 1]])]])),Func ("OracleFlatCurryTools","_case_52") 6 Private (TVar (-42)) (Rule [2,3,7,9,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_51") [Var 2,Var 3,Var 7,Var 9,Var 1]])]])),Func ("OracleFlatCurryTools","_case_51") 5 Private (TVar (-42)) (Rule [2,3,7,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_50") [Var 2,Var 3,Var 7,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryTools","_case_50") 6 Private (TVar (-42)) (Rule [2,3,7,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (LPattern (Charc '[')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_49") [Var 7,Var 25,Var 1]]),Branch (LPattern (Charc ':')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_45") [Var 2,Var 3,Var 7,Var 25,Var 1]])]])),Func ("OracleFlatCurryTools","_case_45") 5 Private (TVar (-42)) (Rule [2,3,7,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_44") [Var 2,Var 3,Var 7,Var 1]])]])),Func ("OracleFlatCurryTools","_case_44") 4 Private (TVar (-42)) (Rule [2,3,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_43") [Var 2,Var 3,Var 28,Var 29,Var 1]])]])),Func ("OracleFlatCurryTools","_case_43") 5 Private (TVar (-42)) (Rule [2,3,28,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (Pattern ("Prelude",":") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_42") [Var 2,Var 3,Var 28,Var 30,Var 31,Var 1]])]])),Func ("OracleFlatCurryTools","_case_42") 6 Private (TVar (-42)) (Rule [2,3,28,30,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (Pattern ("Prelude","[]") []) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 3,Var 28,Var 1],Comb FuncCall ("OracleFlatCurryTools","showCurryFiniteList") [Var 2,Var 3,Var 30,Var 32]]]))]])),Func ("OracleFlatCurryTools","_case_49") 3 Private (TVar (-42)) (Rule [7,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_48") [Var 7,Var 27,Var 26,Var 1]])]])),Func ("OracleFlatCurryTools","_case_48") 4 Private (TVar (-42)) (Rule [7,27,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (LPattern (Charc ']')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_47") [Var 7,Var 27,Var 1]])]])),Func ("OracleFlatCurryTools","_case_47") 3 Private (TVar (-42)) (Rule [7,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_46") [Var 7,Var 1]])]])),Func ("OracleFlatCurryTools","_case_46") 2 Private (TVar (-42)) (Rule [7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleFlatCurryTools","_case_74") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_73") [Var 2,Var 4,Var 5,Var 1]])]])),Func ("OracleFlatCurryTools","_case_73") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","showCurryVar") [Var 4,Var 1],Var 8],Var 9]])),Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_72") [Var 2,Var 4,Var 6,Var 7,Var 1]])]])),Func ("OracleFlatCurryTools","_case_72") 5 Private (TVar (-42)) (Rule [2,4,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude","[]") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryTools","_case_71") [Var 2,Var 4,Var 6,Comb FuncCall ("OracleChar","isAlpha") [Comb FuncCall ("OraclePrelude","head") [Var 2,Var 1],Var 10],Var 11]])),Branch (Pattern ("Prelude",":") [8,9]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryTools","_case_69") [Var 2,Var 4,Var 6,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","take") [Lit (Intc 2),Var 2,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []]],Var 12],Var 13]]))]])),Func ("OracleFlatCurryTools","_case_69") 7 Private (TVar (-42)) (Rule [2,4,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showCurryVar") []],Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 8,Var 9]]],Var 1],Var 11],Var 12],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 13],Var 14]])),Branch (Pattern ("Prelude","False") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","showCurryElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showCurryVar") []],Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 8,Var 9]]],Var 1],Var 15],Var 16]]))]])),Func ("OracleFlatCurryTools","_case_71") 5 Private (TVar (-42)) (Rule [2,4,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryVar") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","showCurryVar") [Var 6,Var 8],Var 9],Var 10],Var 11],Var 12]])),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_70") [Var 2,Var 4,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 13]]))]])),Func ("OracleFlatCurryTools","_case_70") 5 Private (TVar (-42)) (Rule [2,4,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryVar") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryVar") [Var 6,Var 8],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 9],Var 10],Var 11],Var 12]])),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryVar") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","showCurryVar") [Var 6,Var 13],Var 14],Var 15],Var 16],Var 17]]))]])),Func ("OracleFlatCurryTools","_case_76") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","Branch") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_75") [Var 2,Var 3,Var 6,Var 5,Var 1]])]])),Func ("OracleFlatCurryTools","_case_75") 5 Private (TVar (-42)) (Rule [2,3,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FlatCurry","Pattern") [7,8]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","sceBlanks") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryCase.showPattern.153") [Comb FuncCall ("Oracle","apply") [Var 2,Var 7,Var 10],Var 8,Var 11],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 3,Var 6,Var 12],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 13],Var 14],Var 15],Var 16]])),Branch (Pattern ("FlatCurry","LPattern") [9]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","sceBlanks") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryLit") [Var 9,Var 17],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 3,Var 6,Var 18],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 19],Var 20],Var 21],Var 22],Var 23]]))]])),Func ("OracleFlatCurryTools","_case_77") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Intc") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1]]),Branch (Pattern ("FlatCurry","Floatc") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","show") [Var 4,Var 1]]),Branch (Pattern ("FlatCurry","Charc") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1]])]])),Func ("OracleFlatCurryTools","_case_80") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_79") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]],Var 1],Var 4]]))]])),Func ("OracleFlatCurryTools","_case_79") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_78") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 4]]))]])),Func ("OracleFlatCurryTools","_case_78") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Var 2],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryTools","_case_81") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryVar") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 3,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","+") [Var 2,Lit (Intc 4),Var 7],Var 6,Var 8],Var 9],Var 10]]))]])),Func ("OracleFlatCurryTools","_case_96") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FlatCurry","Var") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","showCurryVar") [Var 6,Var 1]]),Branch (Pattern ("FlatCurry","Lit") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","showCurryLit") [Var 7,Var 1]]),Branch (Pattern ("FlatCurry","Comb") [8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_95") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 10,Var 1]]),Branch (Pattern ("FlatCurry","Let") [17,18]) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","sceBlanks") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb FuncCall ("OraclePrelude","++") [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 ("OracleFlatCurryTools","sceBlanks") [Var 4,Var 28],Var 29],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showCurryExpr._#lambda3") [Var 4,Var 2]],Var 17,Var 30],Var 31],Var 32],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","sceBlanks") [Var 4,Var 33],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","[]") []]]]],Var 34],Var 35],Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 4),Var 36],Var 18,Var 37],Var 38],Var 39],Var 40],Var 41],Var 42],Var 43]])),Branch (Pattern ("FlatCurry","Free") [19,20]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_83") [Var 2,Var 3,Var 4,Var 20,Var 19,Var 1]]),Branch (Pattern ("FlatCurry","Or") [23,24]) (Let [(44,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(45,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(46,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(47,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 44,Comb ConsCall ("Prelude",":") [Var 45,Comb ConsCall ("Prelude",":") [Var 46,Comb ConsCall ("Prelude",":") [Var 47,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 23,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '?'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 24,Var 44],Var 45],Var 46],Var 47]])),Branch (Pattern ("FlatCurry","Case") [25,26,27]) (Let [(48,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(49,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(50,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(51,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(52,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(53,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(54,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(55,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(56,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(57,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 48,Comb ConsCall ("Prelude",":") [Var 49,Comb ConsCall ("Prelude",":") [Var 50,Comb ConsCall ("Prelude",":") [Var 51,Comb ConsCall ("Prelude",":") [Var 52,Comb ConsCall ("Prelude",":") [Var 53,Comb ConsCall ("Prelude",":") [Var 54,Comb ConsCall ("Prelude",":") [Var 55,Comb ConsCall ("Prelude",":") [Var 56,Comb ConsCall ("Prelude",":") [Var 57,Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","_case_82") [Var 25,Comb FuncCall ("OraclePrelude","==") [Var 25,Comb ConsCall ("FlatCurry","Rigid") [],Var 1],Var 48],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 26,Var 49],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showCurryCase") [Var 2,Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 2),Var 50]]],Var 27,Var 51],Comb FuncCall ("OracleFlatCurryTools","sceBlanks") [Var 4,Var 52],Var 53],Var 54],Var 55],Var 56],Var 57]]))]])),Func ("OracleFlatCurryTools","_case_82") 3 Private (TVar (-42)) (Rule [25,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 26) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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","[]") []]]]]]]])]])),Func ("OracleFlatCurryTools","_case_83") 6 Private (TVar (-42)) (Rule [2,3,4,20,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Var 3,Var 4,Var 20,Var 1]]),Branch (Pattern ("Prelude",":") [21,22]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showCurryVar") []],Comb ConsCall ("Prelude",":") [Var 21,Var 22],Var 1],Var 23],Var 24],Comb FuncCall ("OraclePrelude","++") [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 ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 4,Var 20,Var 25],Var 26],Var 27],Var 28],Var 29]]))]])),Func ("OracleFlatCurryTools","_case_95") 7 Private (TVar (-42)) (Rule [2,3,4,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude","[]") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","showCurryId") [Comb FuncCall ("Oracle","apply") [Var 2,Var 9,Var 1],Var 13]])),Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_94") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 11,Var 12,Var 1]])]])),Func ("OracleFlatCurryTools","_case_94") 8 Private (TVar (-42)) (Rule [2,3,4,8,9,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude","[]") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryId") [Comb FuncCall ("Oracle","apply") [Var 2,Var 9,Var 1],Var 15],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 11,Var 16],Var 17],Var 18],Var 19]])),Branch (Pattern ("Prelude",":") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_93") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 11,Var 13,Var 14,Var 1]])]])),Func ("OracleFlatCurryTools","_case_93") 9 Private (TVar (-42)) (Rule [2,3,4,8,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude","[]") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_92") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 11,Var 13,Comb FuncCall ("OraclePrelude","==") [Var 9,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","[]") []]]]]]],Var 1],Var 17]])),Branch (Pattern ("Prelude",":") [15,16]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryTools","_case_86") [Var 2,Var 3,Var 4,Var 9,Var 11,Var 13,Var 15,Var 16,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 9,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","[]") []]]]]]]]]]]]]],Var 1],Comb FuncCall ("OraclePrelude","==") [Var 16,Comb ConsCall ("Prelude","[]") [],Var 18],Var 19],Var 20]]))]])),Func ("OracleFlatCurryTools","_case_86") 10 Private (TVar (-42)) (Rule [2,3,4,9,11,13,15,16,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","True") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","sceBlanks") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 2),Var 18],Var 11,Var 19],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","sceBlanks") [Var 4,Var 20],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 2),Var 21],Var 13,Var 22],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","sceBlanks") [Var 4,Var 23],Comb FuncCall ("OraclePrelude","++") [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 ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 2),Var 24],Var 15,Var 25],Var 26],Var 27],Var 28],Var 29],Var 30],Var 31],Var 32],Var 33],Var 34],Var 35],Var 36],Var 37]])),Branch (Pattern ("Prelude","False") []) (Let [(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryTools","_case_85") [Var 2,Var 3,Var 4,Var 9,Var 11,Var 13,Var 15,Var 16,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","take") [Lit (Intc 2),Comb FuncCall ("OraclePrelude","snd") [Var 9,Var 1],Var 38],Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []]],Var 39],Var 40]]))]])),Func ("OracleFlatCurryTools","_case_85") 10 Private (TVar (-42)) (Rule [2,3,4,9,11,13,15,16,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","True") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 4]],Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 15,Var 16]]],Var 1],Var 18],Var 19],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 20],Var 21]])),Branch (Pattern ("Prelude","False") []) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_84") [Var 2,Var 3,Var 4,Var 9,Var 11,Var 13,Var 15,Var 16,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 22]]))]])),Func ("OracleFlatCurryTools","_case_84") 10 Private (TVar (-42)) (Rule [2,3,4,9,11,13,15,16,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","True") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryId") [Comb FuncCall ("Oracle","apply") [Var 2,Var 9,Var 1],Var 18],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","showCurryElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4]],Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 15,Var 16]]],Var 19],Var 20],Var 21],Var 22]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryTools","_case_92") 9 Private (TVar (-42)) (Rule [2,3,4,8,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 11,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 13,Var 15],Var 16],Var 17],Var 18]])),Branch (Pattern ("Prelude","False") []) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryTools","_case_91") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 11,Var 13,Comb FuncCall ("OracleChar","isAlpha") [Comb FuncCall ("OraclePrelude","head") [Comb FuncCall ("OraclePrelude","snd") [Var 9,Var 1],Var 19],Var 20],Var 21]]))]])),Func ("OracleFlatCurryTools","_case_91") 9 Private (TVar (-42)) (Rule [2,3,4,8,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Var 2,Var 9,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","showCurryElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4]],Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Var 15],Var 16],Var 17],Var 18]])),Branch (Pattern ("Prelude","False") []) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_90") [Var 2,Var 3,Var 4,Var 8,Var 9,Var 11,Var 13,Comb FuncCall ("OracleFlatCurryTools","isFiniteList") [Comb ConsCall ("FlatCurry","Comb") [Var 8,Var 9,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 19]]))]])),Func ("OracleFlatCurryTools","_case_90") 9 Private (TVar (-42)) (Rule [2,3,4,8,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_89") [Var 2,Var 4,Var 8,Var 9,Var 11,Var 13,Comb FuncCall ("OracleFlatCurryTools","isStringConstant") [Comb ConsCall ("FlatCurry","Comb") [Var 8,Var 9,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 15]])),Branch (Pattern ("Prelude","False") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlatCurryTools","_case_88") [Var 2,Var 3,Var 4,Var 9,Var 11,Var 13,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","snd") [Var 9,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []]]],Var 16],Var 17]]))]])),Func ("OracleFlatCurryTools","_case_88") 8 Private (TVar (-42)) (Rule [2,3,4,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 4,Var 11,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","False") [],Var 4,Var 13,Var 15],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 16],Var 17],Var 18],Var 19]])),Branch (Pattern ("Prelude","False") []) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_87") [Var 2,Var 3,Var 4,Var 9,Var 11,Var 13,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 20]]))]])),Func ("OracleFlatCurryTools","_case_87") 8 Private (TVar (-42)) (Rule [2,3,4,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 11,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Var 2,Var 9,Var 15],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","showCurryExpr") [Var 2,Comb ConsCall ("Prelude","True") [],Var 4,Var 13,Var 16],Var 17],Var 18],Var 19],Var 20],Var 21]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryTools","_case_89") 8 Private (TVar (-42)) (Rule [2,4,8,9,11,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryStringConstant") [Comb ConsCall ("FlatCurry","Comb") [Var 8,Var 9,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []],Var 15],Var 16]])),Branch (Pattern ("Prelude","False") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","showCurryFiniteList") [Var 2,Var 4,Comb ConsCall ("FlatCurry","Comb") [Var 8,Var 9,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 17],Var 18],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []],Var 19],Var 20]]))]])),Func ("OracleFlatCurryTools","_case_97") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","TVar") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("FlatCurry","FuncType") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("FlatCurry","TCons") [6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleFlatCurryTools","_case_104") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","TVar") [5]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_103") [Var 5,Comb FuncCall ("OraclePrelude","<") [Var 5,Lit (Intc 5),Var 1],Var 10]])),Branch (Pattern ("FlatCurry","FuncType") [6,7]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryType") [Var 2,Comb FuncCall ("OracleFlatCurryTools","isFuncType") [Var 6,Var 1],Var 6,Var 11],Comb FuncCall ("OraclePrelude","++") [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 ("OracleFlatCurryTools","showCurryType") [Var 2,Comb ConsCall ("Prelude","False") [],Var 7,Var 12],Var 13],Var 14],Var 15]])),Branch (Pattern ("FlatCurry","TCons") [8,9]) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_102") [Var 2,Var 3,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 9,Comb ConsCall ("Prelude","[]") [],Var 1],Var 16]]))]])),Func ("OracleFlatCurryTools","_case_102") 6 Private (TVar (-42)) (Rule [2,3,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Var 8,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryTools","_case_101") [Var 2,Var 3,Var 8,Var 9,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [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 '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]]],Var 1],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","head") [Var 9,Var 11],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","[]") []],Var 12],Var 13],Var 14]]))]])),Func ("OracleFlatCurryTools","_case_101") 6 Private (TVar (-42)) (Rule [2,3,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_100") [Var 2,Var 3,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [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 '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 11]]))]])),Func ("OracleFlatCurryTools","_case_100") 6 Private (TVar (-42)) (Rule [2,3,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showCurryType") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","head") [Var 9,Var 1],Var 11],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []],Var 12],Var 13]])),Branch (Pattern ("Prelude","False") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleFlatCurryTools","_case_99") [Var 2,Var 3,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","take") [Lit (Intc 2),Comb FuncCall ("OraclePrelude","snd") [Var 8,Var 1],Var 14],Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []]],Var 15],Var 16]]))]])),Func ("OracleFlatCurryTools","_case_99") 6 Private (TVar (-42)) (Rule [2,3,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showCurryType") [Var 2,Comb ConsCall ("Prelude","False") []]],Var 9,Var 1],Var 11],Var 12],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 13],Var 14]])),Branch (Pattern ("Prelude","False") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryTools","_case_98") [Var 2,Var 3,Var 8,Var 9,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 15]]))]])),Func ("OracleFlatCurryTools","_case_98") 6 Private (TVar (-42)) (Rule [2,3,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleFlatCurryTools","showBracketsIf") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Var 2,Var 8,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showCurryType._#lambda2") [Var 2]],Var 11],Var 9,Var 12],Var 13],Var 14]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleFlatCurryTools","_case_103") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Lit (Intc 97),Var 5,Var 1],Var 7],Comb ConsCall ("Prelude","[]") []]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1]]])]])),Func ("OracleFlatCurryTools","_case_105") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Pattern") [3,4]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 4,Var 6],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 7],Var 8],Var 9]])),Branch (Pattern ("FlatCurry","LPattern") [5]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatLit") [Var 5,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11]]))]])),Func ("OracleFlatCurryTools","_case_106") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Branch") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatPattern") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatExpr") [Var 4,Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7],Var 8]]))]])),Func ("OracleFlatCurryTools","_case_108") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Intc") [3]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7]])),Branch (Pattern ("FlatCurry","Floatc") [4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 8],Var 9]])),Branch (Pattern ("FlatCurry","Charc") [5]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleFlatCurryTools","_case_107") [Var 5,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Comb FuncCall ("OraclePrelude","ord") [Var 5,Var 1],Lit (Intc 32),Var 10],Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OraclePrelude","ord") [Var 5,Var 11],Lit (Intc 127),Var 12],Var 13],Var 14]]))]])),Func ("OracleFlatCurryTools","_case_107") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Lit (Charc '\''),Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []]],Var 1],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Comb FuncCall ("OraclePrelude","ord") [Var 5,Var 1],Var 8],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []]],Var 9],Var 10]]))]])),Func ("OracleFlatCurryTools","_case_109") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatExpr") [Var 4,Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7],Var 8],Var 9]]))]])),Func ("OracleFlatCurryTools","_case_111") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Var") [3]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 17],Var 18]])),Branch (Pattern ("FlatCurry","Lit") [4]) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatLit") [Var 4,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 19],Var 20]])),Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatCombType") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 6,Var 21],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showFlatExpr") []],Var 7,Var 22],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 23],Var 24],Var 25],Var 26],Var 27]])),Branch (Pattern ("FlatCurry","Let") [8,9]) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showFlatExpr.showFlatBinding.49") []],Var 8,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatExpr") [Var 9,Var 28],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 29],Var 30],Var 31]])),Branch (Pattern ("FlatCurry","Free") [10,11]) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 10,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatExpr") [Var 11,Var 32],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 33],Var 34],Var 35]])),Branch (Pattern ("FlatCurry","Or") [12,13]) (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatExpr") [Var 12,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatExpr") [Var 13,Var 36],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 37],Var 38],Var 39],Var 40]])),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryTools","_case_110") [Var 15,Var 16,Var 14,Var 1]])]])),Func ("OracleFlatCurryTools","_case_110") 4 Private (TVar (-42)) (Rule [15,16,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("FlatCurry","Rigid") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatExpr") [Var 15,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showFlatBranch") []],Var 16,Var 17],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 18],Var 19],Var 20]])),Branch (Pattern ("FlatCurry","Flex") []) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatExpr") [Var 15,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showFlatBranch") []],Var 16,Var 21],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 22],Var 23],Var 24]]))]])),Func ("OracleFlatCurryTools","_case_112") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","FuncCall") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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") [3]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 5],Var 6]])),Branch (Pattern ("FlatCurry","ConsPartCall") [4]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 7],Var 8]]))]])),Func ("OracleFlatCurryTools","_case_113") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","FuncType") [3,4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatTypeExpr") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatTypeExpr") [Var 4,Var 8],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 9],Var 10],Var 11],Var 12]])),Branch (Pattern ("FlatCurry","TCons") [5,6]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showFlatTypeExpr") []],Var 6,Var 13],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 14],Var 15],Var 16]])),Branch (Pattern ("FlatCurry","TVar") [7]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 7,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 17],Var 18]]))]])),Func ("OracleFlatCurryTools","_case_114") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Rule") [3,4]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatExpr") [Var 4,Var 6],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 7],Var 8],Var 9]])),Branch (Pattern ("FlatCurry","External") [5]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11]]))]])),Func ("OracleFlatCurryTools","_case_115") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Func") [3,4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 8],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatVisibility") [Var 5,Var 9],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatTypeExpr") [Var 6,Var 10],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatRule") [Var 7,Var 11],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 12],Var 13],Var 14],Var 15],Var 16],Var 17],Var 18],Var 19],Var 20],Var 21]]))]])),Func ("OracleFlatCurryTools","_case_116") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Cons") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 7],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatVisibility") [Var 5,Var 8],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showFlatTypeExpr") []],Var 6,Var 9],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11],Var 12],Var 13],Var 14],Var 15]]))]])),Func ("OracleFlatCurryTools","_case_117") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Type") [3,4,5,6]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatVisibility") [Var 4,Var 11],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 5,Var 12],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showFlatCons") []],Var 6,Var 13],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 14],Var 15],Var 16],Var 17],Var 18]])),Branch (Pattern ("FlatCurry","TypeSyn") [7,8,9,10]) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 7,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatVisibility") [Var 8,Var 19],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 9,Var 20],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatTypeExpr") [Var 10,Var 21],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 22],Var 23],Var 24],Var 25],Var 26]]))]])),Func ("OracleFlatCurryTools","_case_118") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Op") [3,4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatFixity") [Var 4,Var 6],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 7],Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []],Var 8],Var 9],Var 10],Var 11]]))]])),Func ("OracleFlatCurryTools","_case_119") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","InfixOp") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleFlatCurryTools","_case_120") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Public") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [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 '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 ("OracleFlatCurryTools","_case_123") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Prog") [3,4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","_case_122") [Var 4,Comb FuncCall ("OraclePrelude","==") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 8],Var 9],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","_case_121") [Var 5,Comb FuncCall ("OraclePrelude","==") [Var 5,Comb ConsCall ("Prelude","[]") [],Var 10],Var 11],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatListElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showFlatFunc") []],Var 6,Var 12],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatList") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showFlatOp") []],Var 7,Var 13],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","[]") []]]]],Var 14],Var 15],Var 16],Var 17],Var 18],Var 19],Var 20],Var 21],Var 22]]))]])),Func ("OracleFlatCurryTools","_case_121") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatListElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryTools","showFlatType") []],Var 5,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]]],Var 7],Var 8]]))]])),Func ("OracleFlatCurryTools","_case_122") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryTools","showFlatListElems") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 4,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7]]))]]))] []
+ Curry/Module/OracleFlatCurryXML.fcy view
@@ -0,0 +1,1 @@+Prog "OracleFlatCurryXML" ["CEventOracle","Oracle","IOExts","FlatCurryXML","FlatCurry","Prelude","Read","XML","OracleFlatCurry","OraclePrelude","OracleRead","OracleXML"] [] [Func ("OracleFlatCurryXML","flatCurryDtd") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleFlatCurryXML","flatCurry2XmlFile") 3 Public (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","writeFile") [Var 3,Comb FuncCall ("OracleXML","showXmlDocWithParams") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","DtdUrl") [Comb FuncCall ("OracleFlatCurryXML","flatCurryDtd") [Var 1]],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryXML","flatCurry2Xml") [Var 2,Var 4],Var 5],Var 6]]))),Func ("OracleFlatCurryXML","flatCurry2Xml") 2 Public (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1068") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatCurry2Xml._#lambda2") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","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 ("OracleXML","xtxt") [Var 2,Var 1],Comb ConsCall ("Prelude","[]") []],Var 3]]))),Func ("OracleFlatCurryXML","qname2xmlattrs") 2 Private (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TVar 0]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1067") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlShowVisibity") 2 Private (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1066") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlShowType") 2 Private (FuncType (TCons ("FlatCurry","TypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1065") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlShowCons") 2 Private (FuncType (TCons ("FlatCurry","ConsDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1064") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlShowTypeExpr") 2 Private (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1063") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlShowTVar") 2 Private (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","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 ("OracleXML","xtxt") [Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],Var 3],Comb ConsCall ("Prelude","[]") []],Var 4]]))),Func ("OracleFlatCurryXML","xmlShowFunc") 2 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1062") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlShowRule") 2 Private (FuncType (TCons ("FlatCurry","Rule") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1061") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlShowVar") 2 Private (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","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 ("OracleXML","xtxt") [Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],Var 3],Comb ConsCall ("Prelude","[]") []],Var 4]]))),Func ("OracleFlatCurryXML","xmlShowExpr") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1060") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlShowExpr._#lambda3") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1057") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlShowLit") 2 Private (FuncType (TCons ("FlatCurry","Literal") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1056") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlShowBranch") 2 Private (FuncType (TCons ("FlatCurry","BranchExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1055") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlShowOp") 2 Private (FuncType (TCons ("FlatCurry","OpDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1053") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlFile2FlatCurry") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleXML","readXmlFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlFile2FlatCurry._#lambda4") []],Var 3]]))),Func ("OracleFlatCurryXML","xmlFile2FlatCurry._#lambda4") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OracleFlatCurryXML","xml2FlatCurry") [Var 2,Var 1],Var 3]]))),Func ("OracleFlatCurryXML","xml2FlatCurry") 2 Public (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Prog") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1052") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xml2FlatCurry._#lambda5") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_950") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xml2FlatCurry._#lambda6") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","FuncDecl") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_935") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xml2FlatCurry._#lambda7") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","OpDecl") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_881") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2typedecl") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","TypeDecl") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_821") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2typedecl._#lambda8") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_715") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2typedecl._#lambda9") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","ConsDecl") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_704") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2typedecl._#lambda10") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_653") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2FunBody") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Rule") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_642") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2var") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_592") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2exp") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_583") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2exp._#selFP3#bindings") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_302") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2exp._#selFP4#exp") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_301") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2exp._#selFP6#bindings") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_300") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2exp._#selFP7#exp") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_299") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2let") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]],TCons ("FlatCurry","Expr") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_298") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2let._#selFP9#bindings") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_267") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2let._#selFP10#exp") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_266") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2branch") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","BranchExpr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_265") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2lit") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Literal") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_167") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2texp") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","TypeExpr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_134") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xvis2vis") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Visibility") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_70") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2Fixity") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Fixity") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_24") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","_case_24") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_23") [Var 4,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_23") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (LPattern (Charc 'I')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_22") [Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_22") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_21") [Var 6,Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_21") 3 Private (TVar (-42)) (Rule [6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_20") [Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_20") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_19") [Var 8,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_19") 3 Private (TVar (-42)) (Rule [8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (LPattern (Charc 'f')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_18") [Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_18") 2 Private (TVar (-42)) (Rule [8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_17") [Var 10,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_17") 3 Private (TVar (-42)) (Rule [10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_16") [Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_16") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_15") [Var 12,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_15") 3 Private (TVar (-42)) (Rule [12,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (LPattern (Charc 'x')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_14") [Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_14") 2 Private (TVar (-42)) (Rule [12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_13") [Var 14,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_13") 3 Private (TVar (-42)) (Rule [14,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (LPattern (Charc 'O')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_12") [Var 14,Var 1]]),Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_9") [Var 14,Var 1]]),Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_4") [Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_4") 2 Private (TVar (-42)) (Rule [14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude",":") [21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_3") [Var 22,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_3") 3 Private (TVar (-42)) (Rule [22,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (LPattern (Charc 'O')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_2") [Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_2") 2 Private (TVar (-42)) (Rule [22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude",":") [23,24]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1") [Var 24,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1") 3 Private (TVar (-42)) (Rule [24,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_0") [Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_0") 2 Private (TVar (-42)) (Rule [24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlatCurry","InfixrOp") []])]])),Func ("OracleFlatCurryXML","_case_9") 2 Private (TVar (-42)) (Rule [14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude",":") [17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_8") [Var 18,Var 17,Var 1]])]])),Func ("OracleFlatCurryXML","_case_8") 3 Private (TVar (-42)) (Rule [18,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (LPattern (Charc 'O')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_7") [Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_7") 2 Private (TVar (-42)) (Rule [18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_6") [Var 20,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_6") 3 Private (TVar (-42)) (Rule [20,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_5") [Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_5") 2 Private (TVar (-42)) (Rule [20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlatCurry","InfixlOp") []])]])),Func ("OracleFlatCurryXML","_case_12") 2 Private (TVar (-42)) (Rule [14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_11") [Var 16,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_11") 3 Private (TVar (-42)) (Rule [16,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_10") [Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_10") 2 Private (TVar (-42)) (Rule [16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlatCurry","InfixOp") []])]])),Func ("OracleFlatCurryXML","_case_70") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_69") [Var 4,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_69") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_68") [Var 4,Var 6,Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_68") 4 Private (TVar (-42)) (Rule [4,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (LPattern (Charc 'v')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_67") [Var 4,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_67") 3 Private (TVar (-42)) (Rule [4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_66") [Var 4,Var 8,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_66") 4 Private (TVar (-42)) (Rule [4,8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_65") [Var 4,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_65") 3 Private (TVar (-42)) (Rule [4,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_64") [Var 4,Var 10,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_64") 4 Private (TVar (-42)) (Rule [4,10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_63") [Var 4,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_63") 3 Private (TVar (-42)) (Rule [4,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_62") [Var 4,Var 12,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_62") 4 Private (TVar (-42)) (Rule [4,12,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_61") [Var 4,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_61") 3 Private (TVar (-42)) (Rule [4,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_60") [Var 4,Var 14,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_60") 4 Private (TVar (-42)) (Rule [4,14,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (LPattern (Charc 'b')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_59") [Var 4,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_59") 3 Private (TVar (-42)) (Rule [4,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_58") [Var 4,Var 16,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_58") 4 Private (TVar (-42)) (Rule [4,16,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_57") [Var 4,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_57") 3 Private (TVar (-42)) (Rule [4,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_56") [Var 4,Var 18,Var 17,Var 1]])]])),Func ("OracleFlatCurryXML","_case_56") 4 Private (TVar (-42)) (Rule [4,18,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_55") [Var 4,Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_55") 3 Private (TVar (-42)) (Rule [4,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_54") [Var 4,Var 20,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_54") 4 Private (TVar (-42)) (Rule [4,20,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_53") [Var 4,Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_53") 3 Private (TVar (-42)) (Rule [4,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (Pattern ("Prelude",":") [21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_52") [Var 4,Var 22,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_52") 4 Private (TVar (-42)) (Rule [4,22,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_51") [Var 4,Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_51") 3 Private (TVar (-42)) (Rule [4,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude",":") [23,24]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_50") [Var 4,Var 24,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_50") 4 Private (TVar (-42)) (Rule [4,24,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (LPattern (Charc 'y')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_49") [Var 4,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_49") 3 Private (TVar (-42)) (Rule [4,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_48") [Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_48") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [25,26]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_47") [Var 26,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_47") 3 Private (TVar (-42)) (Rule [26,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_46") [Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_46") 2 Private (TVar (-42)) (Rule [26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (Pattern ("Prelude",":") [27,28]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_45") [Var 28,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_45") 3 Private (TVar (-42)) (Rule [28,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_44") [Var 28,Var 1]]),Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_35") [Var 28,Var 1]])]])),Func ("OracleFlatCurryXML","_case_35") 2 Private (TVar (-42)) (Rule [28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (Pattern ("Prelude",":") [37,38]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_34") [Var 38,Var 37,Var 1]])]])),Func ("OracleFlatCurryXML","_case_34") 3 Private (TVar (-42)) (Rule [38,37,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 37) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_33") [Var 38,Var 1]])]])),Func ("OracleFlatCurryXML","_case_33") 2 Private (TVar (-42)) (Rule [38,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 38) [Branch (Pattern ("Prelude",":") [39,40]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_32") [Var 40,Var 39,Var 1]])]])),Func ("OracleFlatCurryXML","_case_32") 3 Private (TVar (-42)) (Rule [40,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 39) [Branch (LPattern (Charc 'v')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_31") [Var 40,Var 1]])]])),Func ("OracleFlatCurryXML","_case_31") 2 Private (TVar (-42)) (Rule [40,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 40) [Branch (Pattern ("Prelude",":") [41,42]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_30") [Var 42,Var 41,Var 1]])]])),Func ("OracleFlatCurryXML","_case_30") 3 Private (TVar (-42)) (Rule [42,41,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 41) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_29") [Var 42,Var 1]])]])),Func ("OracleFlatCurryXML","_case_29") 2 Private (TVar (-42)) (Rule [42,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 42) [Branch (Pattern ("Prelude",":") [43,44]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_28") [Var 44,Var 43,Var 1]])]])),Func ("OracleFlatCurryXML","_case_28") 3 Private (TVar (-42)) (Rule [44,43,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 43) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_27") [Var 44,Var 1]])]])),Func ("OracleFlatCurryXML","_case_27") 2 Private (TVar (-42)) (Rule [44,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 44) [Branch (Pattern ("Prelude",":") [45,46]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_26") [Var 46,Var 45,Var 1]])]])),Func ("OracleFlatCurryXML","_case_26") 3 Private (TVar (-42)) (Rule [46,45,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 45) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_25") [Var 46,Var 1]])]])),Func ("OracleFlatCurryXML","_case_25") 2 Private (TVar (-42)) (Rule [46,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 46) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlatCurry","Private") []])]])),Func ("OracleFlatCurryXML","_case_44") 2 Private (TVar (-42)) (Rule [28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (Pattern ("Prelude",":") [29,30]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_43") [Var 30,Var 29,Var 1]])]])),Func ("OracleFlatCurryXML","_case_43") 3 Private (TVar (-42)) (Rule [30,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (LPattern (Charc 'b')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_42") [Var 30,Var 1]])]])),Func ("OracleFlatCurryXML","_case_42") 2 Private (TVar (-42)) (Rule [30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (Pattern ("Prelude",":") [31,32]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_41") [Var 32,Var 31,Var 1]])]])),Func ("OracleFlatCurryXML","_case_41") 3 Private (TVar (-42)) (Rule [32,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_40") [Var 32,Var 1]])]])),Func ("OracleFlatCurryXML","_case_40") 2 Private (TVar (-42)) (Rule [32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 32) [Branch (Pattern ("Prelude",":") [33,34]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_39") [Var 34,Var 33,Var 1]])]])),Func ("OracleFlatCurryXML","_case_39") 3 Private (TVar (-42)) (Rule [34,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 33) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_38") [Var 34,Var 1]])]])),Func ("OracleFlatCurryXML","_case_38") 2 Private (TVar (-42)) (Rule [34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (Pattern ("Prelude",":") [35,36]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_37") [Var 36,Var 35,Var 1]])]])),Func ("OracleFlatCurryXML","_case_37") 3 Private (TVar (-42)) (Rule [36,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 35) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_36") [Var 36,Var 1]])]])),Func ("OracleFlatCurryXML","_case_36") 2 Private (TVar (-42)) (Rule [36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlatCurry","Public") []])]])),Func ("OracleFlatCurryXML","_case_134") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_133") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_133") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_132") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_132") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_131") [Var 4,Var 5,Var 7,Var 1]]),Branch (LPattern (Charc 'f')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_89") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_89") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [48,49]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_88") [Var 4,Var 5,Var 49,Var 48,Var 1]])]])),Func ("OracleFlatCurryXML","_case_88") 5 Private (TVar (-42)) (Rule [4,5,49,48,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 48) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_87") [Var 4,Var 5,Var 49,Var 1]])]])),Func ("OracleFlatCurryXML","_case_87") 4 Private (TVar (-42)) (Rule [4,5,49,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 49) [Branch (Pattern ("Prelude",":") [50,51]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_86") [Var 4,Var 5,Var 51,Var 50,Var 1]])]])),Func ("OracleFlatCurryXML","_case_86") 5 Private (TVar (-42)) (Rule [4,5,51,50,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 50) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_85") [Var 4,Var 5,Var 51,Var 1]])]])),Func ("OracleFlatCurryXML","_case_85") 4 Private (TVar (-42)) (Rule [4,5,51,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 51) [Branch (Pattern ("Prelude",":") [52,53]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_84") [Var 4,Var 5,Var 53,Var 52,Var 1]])]])),Func ("OracleFlatCurryXML","_case_84") 5 Private (TVar (-42)) (Rule [4,5,53,52,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 52) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_83") [Var 4,Var 5,Var 53,Var 1]])]])),Func ("OracleFlatCurryXML","_case_83") 4 Private (TVar (-42)) (Rule [4,5,53,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 53) [Branch (Pattern ("Prelude",":") [54,55]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_82") [Var 4,Var 5,Var 55,Var 54,Var 1]])]])),Func ("OracleFlatCurryXML","_case_82") 5 Private (TVar (-42)) (Rule [4,5,55,54,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 54) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_81") [Var 4,Var 5,Var 55,Var 1]])]])),Func ("OracleFlatCurryXML","_case_81") 4 Private (TVar (-42)) (Rule [4,5,55,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 55) [Branch (Pattern ("Prelude",":") [56,57]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_80") [Var 4,Var 5,Var 57,Var 56,Var 1]])]])),Func ("OracleFlatCurryXML","_case_80") 5 Private (TVar (-42)) (Rule [4,5,57,56,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 56) [Branch (LPattern (Charc 'y')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_79") [Var 4,Var 5,Var 57,Var 1]])]])),Func ("OracleFlatCurryXML","_case_79") 4 Private (TVar (-42)) (Rule [4,5,57,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 57) [Branch (Pattern ("Prelude",":") [58,59]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_78") [Var 4,Var 5,Var 59,Var 58,Var 1]])]])),Func ("OracleFlatCurryXML","_case_78") 5 Private (TVar (-42)) (Rule [4,5,59,58,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 58) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_77") [Var 4,Var 5,Var 59,Var 1]])]])),Func ("OracleFlatCurryXML","_case_77") 4 Private (TVar (-42)) (Rule [4,5,59,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 59) [Branch (Pattern ("Prelude",":") [60,61]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_76") [Var 4,Var 5,Var 61,Var 60,Var 1]])]])),Func ("OracleFlatCurryXML","_case_76") 5 Private (TVar (-42)) (Rule [4,5,61,60,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 60) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_75") [Var 4,Var 5,Var 61,Var 1]])]])),Func ("OracleFlatCurryXML","_case_75") 4 Private (TVar (-42)) (Rule [4,5,61,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 61) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_74") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_74") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_73") [Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_73") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [62,63]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_72") [Var 62,Var 63,Var 1]])]])),Func ("OracleFlatCurryXML","_case_72") 3 Private (TVar (-42)) (Rule [62,63,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 63) [Branch (Pattern ("Prelude",":") [64,65]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_71") [Var 62,Var 64,Var 65,Var 1]])]])),Func ("OracleFlatCurryXML","_case_71") 4 Private (TVar (-42)) (Rule [62,64,65,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 65) [Branch (Pattern ("Prelude","[]") []) (Let [(66,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 66,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","FuncType") [Comb FuncCall ("OracleFlatCurryXML","flatx2texp") [Var 62,Var 1],Comb FuncCall ("OracleFlatCurryXML","flatx2texp") [Var 64,Var 66]]]))]])),Func ("OracleFlatCurryXML","_case_131") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_130") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_130") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'v')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_129") [Var 4,Var 5,Var 9,Var 1]]),Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_123") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_123") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_122") [Var 4,Var 5,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_122") 5 Private (TVar (-42)) (Rule [4,5,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_121") [Var 4,Var 5,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_121") 4 Private (TVar (-42)) (Rule [4,5,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_120") [Var 4,Var 5,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_120") 5 Private (TVar (-42)) (Rule [4,5,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_119") [Var 4,Var 5,Var 17,Var 1]])]])),Func ("OracleFlatCurryXML","_case_119") 4 Private (TVar (-42)) (Rule [4,5,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_118") [Var 4,Var 5,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_118") 5 Private (TVar (-42)) (Rule [4,5,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_117") [Var 4,Var 5,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_117") 4 Private (TVar (-42)) (Rule [4,5,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_116") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_116") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_115") [Var 5,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_115") 4 Private (TVar (-42)) (Rule [5,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (Pattern ("Prelude","(,)") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_114") [Var 5,Var 21,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_114") 5 Private (TVar (-42)) (Rule [5,21,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_113") [Var 5,Var 21,Var 23,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_113") 6 Private (TVar (-42)) (Rule [5,21,23,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_112") [Var 5,Var 21,Var 23,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_112") 5 Private (TVar (-42)) (Rule [5,21,23,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_111") [Var 5,Var 21,Var 23,Var 27,Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_111") 6 Private (TVar (-42)) (Rule [5,21,23,27,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_110") [Var 5,Var 21,Var 23,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_110") 5 Private (TVar (-42)) (Rule [5,21,23,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_109") [Var 5,Var 21,Var 23,Var 29,Var 28,Var 1]])]])),Func ("OracleFlatCurryXML","_case_109") 6 Private (TVar (-42)) (Rule [5,21,23,29,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_108") [Var 5,Var 21,Var 23,Var 29,Var 1]])]])),Func ("OracleFlatCurryXML","_case_108") 5 Private (TVar (-42)) (Rule [5,21,23,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (Pattern ("Prelude",":") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_107") [Var 5,Var 21,Var 23,Var 31,Var 30,Var 1]])]])),Func ("OracleFlatCurryXML","_case_107") 6 Private (TVar (-42)) (Rule [5,21,23,31,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_106") [Var 5,Var 21,Var 23,Var 31,Var 1]])]])),Func ("OracleFlatCurryXML","_case_106") 5 Private (TVar (-42)) (Rule [5,21,23,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (Pattern ("Prelude",":") [32,33]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_105") [Var 5,Var 21,Var 23,Var 33,Var 32,Var 1]])]])),Func ("OracleFlatCurryXML","_case_105") 6 Private (TVar (-42)) (Rule [5,21,23,33,32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 32) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_104") [Var 5,Var 21,Var 23,Var 33,Var 1]])]])),Func ("OracleFlatCurryXML","_case_104") 5 Private (TVar (-42)) (Rule [5,21,23,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 33) [Branch (Pattern ("Prelude",":") [34,35]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_103") [Var 5,Var 21,Var 23,Var 35,Var 34,Var 1]])]])),Func ("OracleFlatCurryXML","_case_103") 6 Private (TVar (-42)) (Rule [5,21,23,35,34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_102") [Var 5,Var 21,Var 23,Var 35,Var 1]])]])),Func ("OracleFlatCurryXML","_case_102") 5 Private (TVar (-42)) (Rule [5,21,23,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 35) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_101") [Var 5,Var 23,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_101") 4 Private (TVar (-42)) (Rule [5,23,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude",":") [36,37]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_100") [Var 5,Var 23,Var 37,Var 36,Var 1]])]])),Func ("OracleFlatCurryXML","_case_100") 5 Private (TVar (-42)) (Rule [5,23,37,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (Pattern ("Prelude","(,)") [38,39]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_99") [Var 5,Var 23,Var 37,Var 39,Var 38,Var 1]])]])),Func ("OracleFlatCurryXML","_case_99") 6 Private (TVar (-42)) (Rule [5,23,37,39,38,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 38) [Branch (Pattern ("Prelude",":") [40,41]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_98") [Var 5,Var 23,Var 37,Var 39,Var 41,Var 40,Var 1]])]])),Func ("OracleFlatCurryXML","_case_98") 7 Private (TVar (-42)) (Rule [5,23,37,39,41,40,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 40) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_97") [Var 5,Var 23,Var 37,Var 39,Var 41,Var 1]])]])),Func ("OracleFlatCurryXML","_case_97") 6 Private (TVar (-42)) (Rule [5,23,37,39,41,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 41) [Branch (Pattern ("Prelude",":") [42,43]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_96") [Var 5,Var 23,Var 37,Var 39,Var 43,Var 42,Var 1]])]])),Func ("OracleFlatCurryXML","_case_96") 7 Private (TVar (-42)) (Rule [5,23,37,39,43,42,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 42) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_95") [Var 5,Var 23,Var 37,Var 39,Var 43,Var 1]])]])),Func ("OracleFlatCurryXML","_case_95") 6 Private (TVar (-42)) (Rule [5,23,37,39,43,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 43) [Branch (Pattern ("Prelude",":") [44,45]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_94") [Var 5,Var 23,Var 37,Var 39,Var 45,Var 44,Var 1]])]])),Func ("OracleFlatCurryXML","_case_94") 7 Private (TVar (-42)) (Rule [5,23,37,39,45,44,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 44) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_93") [Var 5,Var 23,Var 37,Var 39,Var 45,Var 1]])]])),Func ("OracleFlatCurryXML","_case_93") 6 Private (TVar (-42)) (Rule [5,23,37,39,45,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 45) [Branch (Pattern ("Prelude",":") [46,47]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_92") [Var 5,Var 23,Var 37,Var 39,Var 47,Var 46,Var 1]])]])),Func ("OracleFlatCurryXML","_case_92") 7 Private (TVar (-42)) (Rule [5,23,37,39,47,46,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 46) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_91") [Var 5,Var 23,Var 37,Var 39,Var 47,Var 1]])]])),Func ("OracleFlatCurryXML","_case_91") 6 Private (TVar (-42)) (Rule [5,23,37,39,47,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 47) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_90") [Var 5,Var 23,Var 39,Var 37,Var 1]])]])),Func ("OracleFlatCurryXML","_case_90") 5 Private (TVar (-42)) (Rule [5,23,39,37,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 37) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FlatCurry","TCons") [Comb ConsCall ("Prelude","(,)") [Var 23,Var 39],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2texp") []],Var 5,Var 1]]])]])),Func ("OracleFlatCurryXML","_case_129") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_128") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_128") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_127") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_127") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_126") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_126") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_125") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_125") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_124") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_124") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","TVar") [Comb FuncCall ("OracleRead","readNat") [Comb FuncCall ("OracleXML","textOfXml") [Var 5,Var 1],Var 6]]]))]])),Func ("OracleFlatCurryXML","_case_167") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_166") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_166") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_165") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_165") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_164") [Var 4,Var 5,Var 7,Var 1]]),Branch (LPattern (Charc 'f')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_156") [Var 4,Var 7,Var 1]]),Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_144") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_144") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_143") [Var 4,Var 5,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_143") 5 Private (TVar (-42)) (Rule [4,5,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (LPattern (Charc 'h')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_142") [Var 4,Var 5,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_142") 4 Private (TVar (-42)) (Rule [4,5,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_141") [Var 4,Var 5,Var 27,Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_141") 5 Private (TVar (-42)) (Rule [4,5,27,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_140") [Var 4,Var 5,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_140") 4 Private (TVar (-42)) (Rule [4,5,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_139") [Var 4,Var 5,Var 29,Var 28,Var 1]])]])),Func ("OracleFlatCurryXML","_case_139") 5 Private (TVar (-42)) (Rule [4,5,29,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_138") [Var 4,Var 5,Var 29,Var 1]])]])),Func ("OracleFlatCurryXML","_case_138") 4 Private (TVar (-42)) (Rule [4,5,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (Pattern ("Prelude",":") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_137") [Var 4,Var 5,Var 31,Var 30,Var 1]])]])),Func ("OracleFlatCurryXML","_case_137") 5 Private (TVar (-42)) (Rule [4,5,31,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_136") [Var 4,Var 5,Var 31,Var 1]])]])),Func ("OracleFlatCurryXML","_case_136") 4 Private (TVar (-42)) (Rule [4,5,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_135") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_135") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("FlatCurry","Charc") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OracleRead","readNat") [Comb FuncCall ("OracleXML","textOfXml") [Var 5,Var 1],Var 6],Var 7]]]))]])),Func ("OracleFlatCurryXML","_case_156") 3 Private (TVar (-42)) (Rule [4,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_155") [Var 4,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_155") 4 Private (TVar (-42)) (Rule [4,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_154") [Var 4,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_154") 3 Private (TVar (-42)) (Rule [4,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_153") [Var 4,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_153") 4 Private (TVar (-42)) (Rule [4,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_152") [Var 4,Var 17,Var 1]])]])),Func ("OracleFlatCurryXML","_case_152") 3 Private (TVar (-42)) (Rule [4,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_151") [Var 4,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_151") 4 Private (TVar (-42)) (Rule [4,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_150") [Var 4,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_150") 3 Private (TVar (-42)) (Rule [4,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_149") [Var 4,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_149") 4 Private (TVar (-42)) (Rule [4,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_148") [Var 4,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_148") 3 Private (TVar (-42)) (Rule [4,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude",":") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_147") [Var 4,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_147") 4 Private (TVar (-42)) (Rule [4,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_146") [Var 4,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_146") 3 Private (TVar (-42)) (Rule [4,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_145") [Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_145") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleFlatCurryXML","_case_164") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_163") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_163") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_162") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_162") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_161") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_161") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_160") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_160") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_159") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_159") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_158") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_158") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_157") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_157") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Intc") [Comb FuncCall ("OracleRead","readNat") [Comb FuncCall ("OracleXML","textOfXml") [Var 5,Var 1],Var 6]]]))]])),Func ("OracleFlatCurryXML","_case_265") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_264") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_264") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_263") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_263") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 'b')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_262") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_262") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_261") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_261") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_260") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_260") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_259") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_259") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_258") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_258") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_257") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_257") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_256") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_256") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_255") [Var 4,Var 5,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_255") 5 Private (TVar (-42)) (Rule [4,5,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_254") [Var 4,Var 5,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_254") 4 Private (TVar (-42)) (Rule [4,5,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_253") [Var 4,Var 5,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_253") 5 Private (TVar (-42)) (Rule [4,5,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (LPattern (Charc 'h')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_252") [Var 4,Var 5,Var 17,Var 1]])]])),Func ("OracleFlatCurryXML","_case_252") 4 Private (TVar (-42)) (Rule [4,5,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_251") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_251") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_250") [Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_250") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_249") [Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_249") 3 Private (TVar (-42)) (Rule [19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (Pattern ("XML","XElem") [20,21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_248") [Var 19,Var 21,Var 22,Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_248") 5 Private (TVar (-42)) (Rule [19,21,22,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (Pattern ("Prelude",":") [23,24]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_247") [Var 19,Var 21,Var 22,Var 24,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_247") 6 Private (TVar (-42)) (Rule [19,21,22,24,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_246") [Var 19,Var 21,Var 22,Var 24,Var 1]]),Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_204") [Var 19,Var 21,Var 22,Var 24,Var 1]]),Branch (LPattern (Charc 'h')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_184") [Var 19,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_184") 3 Private (TVar (-42)) (Rule [19,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude",":") [85,86]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_183") [Var 19,Var 86,Var 85,Var 1]])]])),Func ("OracleFlatCurryXML","_case_183") 4 Private (TVar (-42)) (Rule [19,86,85,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 85) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_182") [Var 19,Var 86,Var 1]])]])),Func ("OracleFlatCurryXML","_case_182") 3 Private (TVar (-42)) (Rule [19,86,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 86) [Branch (Pattern ("Prelude",":") [87,88]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_181") [Var 19,Var 88,Var 87,Var 1]])]])),Func ("OracleFlatCurryXML","_case_181") 4 Private (TVar (-42)) (Rule [19,88,87,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 87) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_180") [Var 19,Var 88,Var 1]])]])),Func ("OracleFlatCurryXML","_case_180") 3 Private (TVar (-42)) (Rule [19,88,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 88) [Branch (Pattern ("Prelude",":") [89,90]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_179") [Var 19,Var 90,Var 89,Var 1]])]])),Func ("OracleFlatCurryXML","_case_179") 4 Private (TVar (-42)) (Rule [19,90,89,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 89) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_178") [Var 19,Var 90,Var 1]])]])),Func ("OracleFlatCurryXML","_case_178") 3 Private (TVar (-42)) (Rule [19,90,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 90) [Branch (Pattern ("Prelude",":") [91,92]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_177") [Var 19,Var 92,Var 91,Var 1]])]])),Func ("OracleFlatCurryXML","_case_177") 4 Private (TVar (-42)) (Rule [19,92,91,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 91) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_176") [Var 19,Var 92,Var 1]])]])),Func ("OracleFlatCurryXML","_case_176") 3 Private (TVar (-42)) (Rule [19,92,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 92) [Branch (Pattern ("Prelude",":") [93,94]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_175") [Var 19,Var 94,Var 93,Var 1]])]])),Func ("OracleFlatCurryXML","_case_175") 4 Private (TVar (-42)) (Rule [19,94,93,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 93) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_174") [Var 19,Var 94,Var 1]])]])),Func ("OracleFlatCurryXML","_case_174") 3 Private (TVar (-42)) (Rule [19,94,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 94) [Branch (Pattern ("Prelude",":") [95,96]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_173") [Var 19,Var 96,Var 95,Var 1]])]])),Func ("OracleFlatCurryXML","_case_173") 4 Private (TVar (-42)) (Rule [19,96,95,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 95) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_172") [Var 19,Var 96,Var 1]])]])),Func ("OracleFlatCurryXML","_case_172") 3 Private (TVar (-42)) (Rule [19,96,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 96) [Branch (Pattern ("Prelude",":") [97,98]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_171") [Var 19,Var 98,Var 97,Var 1]])]])),Func ("OracleFlatCurryXML","_case_171") 4 Private (TVar (-42)) (Rule [19,98,97,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 97) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_170") [Var 19,Var 98,Var 1]])]])),Func ("OracleFlatCurryXML","_case_170") 3 Private (TVar (-42)) (Rule [19,98,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 98) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_169") [Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_169") 2 Private (TVar (-42)) (Rule [19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [99,100]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_168") [Var 100,Var 1]])]])),Func ("OracleFlatCurryXML","_case_168") 2 Private (TVar (-42)) (Rule [100,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 100) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleFlatCurryXML","_case_204") 5 Private (TVar (-42)) (Rule [19,21,22,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude",":") [67,68]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_203") [Var 19,Var 21,Var 22,Var 68,Var 67,Var 1]])]])),Func ("OracleFlatCurryXML","_case_203") 6 Private (TVar (-42)) (Rule [19,21,22,68,67,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 67) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_202") [Var 19,Var 21,Var 22,Var 68,Var 1]])]])),Func ("OracleFlatCurryXML","_case_202") 5 Private (TVar (-42)) (Rule [19,21,22,68,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 68) [Branch (Pattern ("Prelude",":") [69,70]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_201") [Var 19,Var 21,Var 22,Var 70,Var 69,Var 1]])]])),Func ("OracleFlatCurryXML","_case_201") 6 Private (TVar (-42)) (Rule [19,21,22,70,69,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 69) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_200") [Var 19,Var 21,Var 22,Var 70,Var 1]])]])),Func ("OracleFlatCurryXML","_case_200") 5 Private (TVar (-42)) (Rule [19,21,22,70,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 70) [Branch (Pattern ("Prelude",":") [71,72]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_199") [Var 19,Var 21,Var 22,Var 72,Var 71,Var 1]])]])),Func ("OracleFlatCurryXML","_case_199") 6 Private (TVar (-42)) (Rule [19,21,22,72,71,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 71) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_198") [Var 19,Var 21,Var 22,Var 72,Var 1]])]])),Func ("OracleFlatCurryXML","_case_198") 5 Private (TVar (-42)) (Rule [19,21,22,72,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 72) [Branch (Pattern ("Prelude",":") [73,74]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_197") [Var 19,Var 21,Var 22,Var 74,Var 73,Var 1]])]])),Func ("OracleFlatCurryXML","_case_197") 6 Private (TVar (-42)) (Rule [19,21,22,74,73,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 73) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_196") [Var 19,Var 21,Var 22,Var 74,Var 1]])]])),Func ("OracleFlatCurryXML","_case_196") 5 Private (TVar (-42)) (Rule [19,21,22,74,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 74) [Branch (Pattern ("Prelude",":") [75,76]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_195") [Var 19,Var 21,Var 22,Var 76,Var 75,Var 1]])]])),Func ("OracleFlatCurryXML","_case_195") 6 Private (TVar (-42)) (Rule [19,21,22,76,75,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 75) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_194") [Var 19,Var 21,Var 22,Var 76,Var 1]])]])),Func ("OracleFlatCurryXML","_case_194") 5 Private (TVar (-42)) (Rule [19,21,22,76,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 76) [Branch (Pattern ("Prelude",":") [77,78]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_193") [Var 19,Var 21,Var 22,Var 78,Var 77,Var 1]])]])),Func ("OracleFlatCurryXML","_case_193") 6 Private (TVar (-42)) (Rule [19,21,22,78,77,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 77) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_192") [Var 19,Var 21,Var 22,Var 78,Var 1]])]])),Func ("OracleFlatCurryXML","_case_192") 5 Private (TVar (-42)) (Rule [19,21,22,78,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 78) [Branch (Pattern ("Prelude",":") [79,80]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_191") [Var 19,Var 21,Var 22,Var 80,Var 79,Var 1]])]])),Func ("OracleFlatCurryXML","_case_191") 6 Private (TVar (-42)) (Rule [19,21,22,80,79,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 79) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_190") [Var 19,Var 21,Var 22,Var 80,Var 1]])]])),Func ("OracleFlatCurryXML","_case_190") 5 Private (TVar (-42)) (Rule [19,21,22,80,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 80) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_189") [Var 19,Var 22,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_189") 4 Private (TVar (-42)) (Rule [19,22,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_188") [Var 19,Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_188") 3 Private (TVar (-42)) (Rule [19,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude",":") [81,82]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_187") [Var 19,Var 81,Var 82,Var 1]])]])),Func ("OracleFlatCurryXML","_case_187") 4 Private (TVar (-42)) (Rule [19,81,82,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 82) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_186") [Var 81,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_186") 3 Private (TVar (-42)) (Rule [81,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [83,84]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_185") [Var 81,Var 83,Var 84,Var 1]])]])),Func ("OracleFlatCurryXML","_case_185") 4 Private (TVar (-42)) (Rule [81,83,84,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 84) [Branch (Pattern ("Prelude","[]") []) (Let [(85,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 85,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Branch") [Comb ConsCall ("FlatCurry","LPattern") [Comb FuncCall ("OracleFlatCurryXML","flatx2lit") [Var 81,Var 1]],Comb FuncCall ("OracleFlatCurryXML","flatx2exp") [Var 83,Var 85]]]))]])),Func ("OracleFlatCurryXML","_case_246") 5 Private (TVar (-42)) (Rule [19,21,22,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_245") [Var 19,Var 21,Var 22,Var 26,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_245") 6 Private (TVar (-42)) (Rule [19,21,22,26,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_244") [Var 19,Var 21,Var 22,Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_244") 5 Private (TVar (-42)) (Rule [19,21,22,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (Pattern ("Prelude",":") [27,28]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_243") [Var 19,Var 21,Var 22,Var 28,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_243") 6 Private (TVar (-42)) (Rule [19,21,22,28,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_242") [Var 19,Var 21,Var 22,Var 28,Var 1]])]])),Func ("OracleFlatCurryXML","_case_242") 5 Private (TVar (-42)) (Rule [19,21,22,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (Pattern ("Prelude",":") [29,30]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_241") [Var 19,Var 21,Var 22,Var 30,Var 29,Var 1]])]])),Func ("OracleFlatCurryXML","_case_241") 6 Private (TVar (-42)) (Rule [19,21,22,30,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_240") [Var 19,Var 21,Var 22,Var 30,Var 1]])]])),Func ("OracleFlatCurryXML","_case_240") 5 Private (TVar (-42)) (Rule [19,21,22,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (Pattern ("Prelude",":") [31,32]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_239") [Var 19,Var 21,Var 22,Var 32,Var 31,Var 1]])]])),Func ("OracleFlatCurryXML","_case_239") 6 Private (TVar (-42)) (Rule [19,21,22,32,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_238") [Var 19,Var 21,Var 22,Var 32,Var 1]])]])),Func ("OracleFlatCurryXML","_case_238") 5 Private (TVar (-42)) (Rule [19,21,22,32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 32) [Branch (Pattern ("Prelude",":") [33,34]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_237") [Var 19,Var 21,Var 22,Var 34,Var 33,Var 1]])]])),Func ("OracleFlatCurryXML","_case_237") 6 Private (TVar (-42)) (Rule [19,21,22,34,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 33) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_236") [Var 19,Var 21,Var 22,Var 34,Var 1]])]])),Func ("OracleFlatCurryXML","_case_236") 5 Private (TVar (-42)) (Rule [19,21,22,34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (Pattern ("Prelude",":") [35,36]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_235") [Var 19,Var 21,Var 22,Var 36,Var 35,Var 1]])]])),Func ("OracleFlatCurryXML","_case_235") 6 Private (TVar (-42)) (Rule [19,21,22,36,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 35) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_234") [Var 19,Var 21,Var 22,Var 36,Var 1]])]])),Func ("OracleFlatCurryXML","_case_234") 5 Private (TVar (-42)) (Rule [19,21,22,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_233") [Var 19,Var 22,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_233") 4 Private (TVar (-42)) (Rule [19,22,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude",":") [37,38]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_232") [Var 19,Var 22,Var 38,Var 37,Var 1]])]])),Func ("OracleFlatCurryXML","_case_232") 5 Private (TVar (-42)) (Rule [19,22,38,37,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 37) [Branch (Pattern ("Prelude","(,)") [39,40]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_231") [Var 19,Var 22,Var 38,Var 40,Var 39,Var 1]])]])),Func ("OracleFlatCurryXML","_case_231") 6 Private (TVar (-42)) (Rule [19,22,38,40,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 39) [Branch (Pattern ("Prelude",":") [41,42]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_230") [Var 19,Var 22,Var 38,Var 40,Var 42,Var 41,Var 1]])]])),Func ("OracleFlatCurryXML","_case_230") 7 Private (TVar (-42)) (Rule [19,22,38,40,42,41,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 41) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_229") [Var 19,Var 22,Var 38,Var 40,Var 42,Var 1]])]])),Func ("OracleFlatCurryXML","_case_229") 6 Private (TVar (-42)) (Rule [19,22,38,40,42,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 42) [Branch (Pattern ("Prelude",":") [43,44]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_228") [Var 19,Var 22,Var 38,Var 40,Var 44,Var 43,Var 1]])]])),Func ("OracleFlatCurryXML","_case_228") 7 Private (TVar (-42)) (Rule [19,22,38,40,44,43,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 43) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_227") [Var 19,Var 22,Var 38,Var 40,Var 44,Var 1]])]])),Func ("OracleFlatCurryXML","_case_227") 6 Private (TVar (-42)) (Rule [19,22,38,40,44,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 44) [Branch (Pattern ("Prelude",":") [45,46]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_226") [Var 19,Var 22,Var 38,Var 40,Var 46,Var 45,Var 1]])]])),Func ("OracleFlatCurryXML","_case_226") 7 Private (TVar (-42)) (Rule [19,22,38,40,46,45,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 45) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_225") [Var 19,Var 22,Var 38,Var 40,Var 46,Var 1]])]])),Func ("OracleFlatCurryXML","_case_225") 6 Private (TVar (-42)) (Rule [19,22,38,40,46,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 46) [Branch (Pattern ("Prelude",":") [47,48]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_224") [Var 19,Var 22,Var 38,Var 40,Var 48,Var 47,Var 1]])]])),Func ("OracleFlatCurryXML","_case_224") 7 Private (TVar (-42)) (Rule [19,22,38,40,48,47,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 47) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_223") [Var 19,Var 22,Var 38,Var 40,Var 48,Var 1]])]])),Func ("OracleFlatCurryXML","_case_223") 6 Private (TVar (-42)) (Rule [19,22,38,40,48,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 48) [Branch (Pattern ("Prelude",":") [49,50]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_222") [Var 19,Var 22,Var 38,Var 40,Var 50,Var 49,Var 1]])]])),Func ("OracleFlatCurryXML","_case_222") 7 Private (TVar (-42)) (Rule [19,22,38,40,50,49,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 49) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_221") [Var 19,Var 22,Var 38,Var 40,Var 50,Var 1]])]])),Func ("OracleFlatCurryXML","_case_221") 6 Private (TVar (-42)) (Rule [19,22,38,40,50,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 50) [Branch (Pattern ("Prelude",":") [51,52]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_220") [Var 19,Var 22,Var 38,Var 40,Var 52,Var 51,Var 1]])]])),Func ("OracleFlatCurryXML","_case_220") 7 Private (TVar (-42)) (Rule [19,22,38,40,52,51,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 51) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_219") [Var 19,Var 22,Var 38,Var 40,Var 52,Var 1]])]])),Func ("OracleFlatCurryXML","_case_219") 6 Private (TVar (-42)) (Rule [19,22,38,40,52,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 52) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_218") [Var 19,Var 22,Var 40,Var 38,Var 1]])]])),Func ("OracleFlatCurryXML","_case_218") 5 Private (TVar (-42)) (Rule [19,22,40,38,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 38) [Branch (Pattern ("Prelude",":") [53,54]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_217") [Var 19,Var 22,Var 40,Var 54,Var 53,Var 1]])]])),Func ("OracleFlatCurryXML","_case_217") 6 Private (TVar (-42)) (Rule [19,22,40,54,53,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 53) [Branch (Pattern ("Prelude","(,)") [55,56]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_216") [Var 19,Var 22,Var 40,Var 54,Var 56,Var 55,Var 1]])]])),Func ("OracleFlatCurryXML","_case_216") 7 Private (TVar (-42)) (Rule [19,22,40,54,56,55,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 55) [Branch (Pattern ("Prelude",":") [57,58]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_215") [Var 19,Var 22,Var 40,Var 54,Var 56,Var 58,Var 57,Var 1]])]])),Func ("OracleFlatCurryXML","_case_215") 8 Private (TVar (-42)) (Rule [19,22,40,54,56,58,57,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 57) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_214") [Var 19,Var 22,Var 40,Var 54,Var 56,Var 58,Var 1]])]])),Func ("OracleFlatCurryXML","_case_214") 7 Private (TVar (-42)) (Rule [19,22,40,54,56,58,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 58) [Branch (Pattern ("Prelude",":") [59,60]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_213") [Var 19,Var 22,Var 40,Var 54,Var 56,Var 60,Var 59,Var 1]])]])),Func ("OracleFlatCurryXML","_case_213") 8 Private (TVar (-42)) (Rule [19,22,40,54,56,60,59,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 59) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_212") [Var 19,Var 22,Var 40,Var 54,Var 56,Var 60,Var 1]])]])),Func ("OracleFlatCurryXML","_case_212") 7 Private (TVar (-42)) (Rule [19,22,40,54,56,60,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 60) [Branch (Pattern ("Prelude",":") [61,62]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_211") [Var 19,Var 22,Var 40,Var 54,Var 56,Var 62,Var 61,Var 1]])]])),Func ("OracleFlatCurryXML","_case_211") 8 Private (TVar (-42)) (Rule [19,22,40,54,56,62,61,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 61) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_210") [Var 19,Var 22,Var 40,Var 54,Var 56,Var 62,Var 1]])]])),Func ("OracleFlatCurryXML","_case_210") 7 Private (TVar (-42)) (Rule [19,22,40,54,56,62,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 62) [Branch (Pattern ("Prelude",":") [63,64]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_209") [Var 19,Var 22,Var 40,Var 54,Var 56,Var 64,Var 63,Var 1]])]])),Func ("OracleFlatCurryXML","_case_209") 8 Private (TVar (-42)) (Rule [19,22,40,54,56,64,63,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 63) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_208") [Var 19,Var 22,Var 40,Var 54,Var 56,Var 64,Var 1]])]])),Func ("OracleFlatCurryXML","_case_208") 7 Private (TVar (-42)) (Rule [19,22,40,54,56,64,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 64) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_207") [Var 19,Var 22,Var 40,Var 56,Var 54,Var 1]])]])),Func ("OracleFlatCurryXML","_case_207") 6 Private (TVar (-42)) (Rule [19,22,40,56,54,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 54) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_206") [Var 22,Var 40,Var 56,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_206") 5 Private (TVar (-42)) (Rule [22,40,56,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [65,66]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_205") [Var 22,Var 40,Var 56,Var 65,Var 66,Var 1]])]])),Func ("OracleFlatCurryXML","_case_205") 6 Private (TVar (-42)) (Rule [22,40,56,65,66,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 66) [Branch (Pattern ("Prelude","[]") []) (Let [(67,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 67,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Branch") [Comb ConsCall ("FlatCurry","Pattern") [Comb ConsCall ("Prelude","(,)") [Var 40,Var 56],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2var") []],Var 22,Var 1]],Comb FuncCall ("OracleFlatCurryXML","flatx2exp") [Var 65,Var 67]]]))]])),Func ("OracleFlatCurryXML","_case_266") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFlatCurryXML","_case_267") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryXML","_case_298") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_297") [Var 3,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_297") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("OracleFlatCurryXML","flatx2exp") [Var 3,Var 1]]]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_296") [Var 5,Var 6,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_296") 4 Private (TVar (-42)) (Rule [5,6,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("XML","XElem") [7,8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_295") [Var 5,Var 6,Var 8,Var 9,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_295") 6 Private (TVar (-42)) (Rule [5,6,8,9,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_294") [Var 5,Var 6,Var 8,Var 9,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_294") 7 Private (TVar (-42)) (Rule [5,6,8,9,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'b')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_293") [Var 5,Var 6,Var 8,Var 9,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_293") 6 Private (TVar (-42)) (Rule [5,6,8,9,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_292") [Var 5,Var 6,Var 8,Var 9,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_292") 7 Private (TVar (-42)) (Rule [5,6,8,9,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_291") [Var 5,Var 6,Var 8,Var 9,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_291") 6 Private (TVar (-42)) (Rule [5,6,8,9,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_290") [Var 5,Var 6,Var 8,Var 9,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_290") 7 Private (TVar (-42)) (Rule [5,6,8,9,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_289") [Var 5,Var 6,Var 8,Var 9,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_289") 6 Private (TVar (-42)) (Rule [5,6,8,9,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_288") [Var 5,Var 6,Var 8,Var 9,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_288") 7 Private (TVar (-42)) (Rule [5,6,8,9,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_287") [Var 5,Var 6,Var 8,Var 9,Var 17,Var 1]])]])),Func ("OracleFlatCurryXML","_case_287") 6 Private (TVar (-42)) (Rule [5,6,8,9,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_286") [Var 5,Var 6,Var 8,Var 9,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_286") 7 Private (TVar (-42)) (Rule [5,6,8,9,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_285") [Var 5,Var 6,Var 8,Var 9,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_285") 6 Private (TVar (-42)) (Rule [5,6,8,9,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_284") [Var 5,Var 6,Var 8,Var 9,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_284") 7 Private (TVar (-42)) (Rule [5,6,8,9,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_283") [Var 5,Var 6,Var 8,Var 9,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_283") 6 Private (TVar (-42)) (Rule [5,6,8,9,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude",":") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_282") [Var 5,Var 6,Var 8,Var 9,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_282") 7 Private (TVar (-42)) (Rule [5,6,8,9,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (LPattern (Charc 'g')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_281") [Var 5,Var 6,Var 8,Var 9,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_281") 6 Private (TVar (-42)) (Rule [5,6,8,9,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_280") [Var 5,Var 6,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_280") 5 Private (TVar (-42)) (Rule [5,6,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_279") [Var 5,Var 6,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_279") 4 Private (TVar (-42)) (Rule [5,6,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_278") [Var 5,Var 6,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_278") 5 Private (TVar (-42)) (Rule [5,6,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("XML","XElem") [26,27,28]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_277") [Var 5,Var 6,Var 25,Var 27,Var 28,Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_277") 7 Private (TVar (-42)) (Rule [5,6,25,27,28,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (Pattern ("Prelude",":") [29,30]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_276") [Var 5,Var 6,Var 25,Var 27,Var 28,Var 30,Var 29,Var 1]])]])),Func ("OracleFlatCurryXML","_case_276") 8 Private (TVar (-42)) (Rule [5,6,25,27,28,30,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (LPattern (Charc 'v')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_275") [Var 5,Var 6,Var 25,Var 27,Var 28,Var 30,Var 1]])]])),Func ("OracleFlatCurryXML","_case_275") 7 Private (TVar (-42)) (Rule [5,6,25,27,28,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (Pattern ("Prelude",":") [31,32]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_274") [Var 5,Var 6,Var 25,Var 27,Var 28,Var 32,Var 31,Var 1]])]])),Func ("OracleFlatCurryXML","_case_274") 8 Private (TVar (-42)) (Rule [5,6,25,27,28,32,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_273") [Var 5,Var 6,Var 25,Var 27,Var 28,Var 32,Var 1]])]])),Func ("OracleFlatCurryXML","_case_273") 7 Private (TVar (-42)) (Rule [5,6,25,27,28,32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 32) [Branch (Pattern ("Prelude",":") [33,34]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_272") [Var 5,Var 6,Var 25,Var 27,Var 28,Var 34,Var 33,Var 1]])]])),Func ("OracleFlatCurryXML","_case_272") 8 Private (TVar (-42)) (Rule [5,6,25,27,28,34,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 33) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_271") [Var 5,Var 6,Var 25,Var 27,Var 28,Var 34,Var 1]])]])),Func ("OracleFlatCurryXML","_case_271") 7 Private (TVar (-42)) (Rule [5,6,25,27,28,34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_270") [Var 5,Var 6,Var 25,Var 28,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_270") 6 Private (TVar (-42)) (Rule [5,6,25,28,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_269") [Var 5,Var 6,Var 28,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_269") 5 Private (TVar (-42)) (Rule [5,6,28,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude",":") [35,36]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_268") [Var 5,Var 6,Var 28,Var 35,Var 36,Var 1]])]])),Func ("OracleFlatCurryXML","_case_268") 6 Private (TVar (-42)) (Rule [5,6,28,35,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (Pattern ("Prelude","[]") []) (Let [(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []],Let [(37,Comb FuncCall ("OracleFlatCurryXML","flatx2let") [Comb ConsCall ("Prelude",":") [Var 5,Var 6],Var 1])] (Let [(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude","[]") []],Let [(38,Comb FuncCall ("OracleFlatCurryXML","flatx2let._#selFP9#bindings") [Var 37,Var 40])] (Let [(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude","[]") []],Let [(39,Comb FuncCall ("OracleFlatCurryXML","flatx2let._#selFP10#exp") [Var 37,Var 41])] (Let [(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(44,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 42,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude",":") [Var 44,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleRead","readNat") [Comb FuncCall ("OracleXML","textOfXml") [Var 28,Var 42],Var 43],Comb FuncCall ("OracleFlatCurryXML","flatx2exp") [Var 35,Var 44]],Var 38],Var 39]]))]))]))]))]])),Func ("OracleFlatCurryXML","_case_299") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFlatCurryXML","_case_300") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryXML","_case_301") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFlatCurryXML","_case_302") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryXML","_case_583") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_582") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_582") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_581") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_581") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 'v')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_580") [Var 4,Var 5,Var 7,Var 1]]),Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_574") [Var 4,Var 5,Var 7,Var 1]]),Branch (LPattern (Charc 'f')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_555") [Var 4,Var 5,Var 7,Var 1]]),Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_417") [Var 4,Var 5,Var 7,Var 1]]),Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_309") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_309") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [277,278]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_308") [Var 4,Var 5,Var 278,Var 277,Var 1]])]])),Func ("OracleFlatCurryXML","_case_308") 5 Private (TVar (-42)) (Rule [4,5,278,277,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 277) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_307") [Var 4,Var 5,Var 278,Var 1]])]])),Func ("OracleFlatCurryXML","_case_307") 4 Private (TVar (-42)) (Rule [4,5,278,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 278) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_306") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_306") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_305") [Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_305") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [279,280]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_304") [Var 279,Var 280,Var 1]])]])),Func ("OracleFlatCurryXML","_case_304") 3 Private (TVar (-42)) (Rule [279,280,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 280) [Branch (Pattern ("Prelude",":") [281,282]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_303") [Var 279,Var 281,Var 282,Var 1]])]])),Func ("OracleFlatCurryXML","_case_303") 4 Private (TVar (-42)) (Rule [279,281,282,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 282) [Branch (Pattern ("Prelude","[]") []) (Let [(283,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 283,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Or") [Comb FuncCall ("OracleFlatCurryXML","flatx2exp") [Var 279,Var 1],Comb FuncCall ("OracleFlatCurryXML","flatx2exp") [Var 281,Var 283]]]))]])),Func ("OracleFlatCurryXML","_case_417") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [169,170]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_416") [Var 4,Var 5,Var 170,Var 169,Var 1]])]])),Func ("OracleFlatCurryXML","_case_416") 5 Private (TVar (-42)) (Rule [4,5,170,169,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 169) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_415") [Var 4,Var 5,Var 170,Var 1]]),Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_316") [Var 4,Var 5,Var 170,Var 1]])]])),Func ("OracleFlatCurryXML","_case_316") 4 Private (TVar (-42)) (Rule [4,5,170,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 170) [Branch (Pattern ("Prelude",":") [271,272]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_315") [Var 4,Var 5,Var 272,Var 271,Var 1]])]])),Func ("OracleFlatCurryXML","_case_315") 5 Private (TVar (-42)) (Rule [4,5,272,271,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 271) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_314") [Var 4,Var 5,Var 272,Var 1]])]])),Func ("OracleFlatCurryXML","_case_314") 4 Private (TVar (-42)) (Rule [4,5,272,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 272) [Branch (Pattern ("Prelude",":") [273,274]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_313") [Var 4,Var 5,Var 274,Var 273,Var 1]])]])),Func ("OracleFlatCurryXML","_case_313") 5 Private (TVar (-42)) (Rule [4,5,274,273,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 273) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_312") [Var 4,Var 5,Var 274,Var 1]])]])),Func ("OracleFlatCurryXML","_case_312") 4 Private (TVar (-42)) (Rule [4,5,274,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 274) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_311") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_311") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_310") [Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_310") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [275,276]) (Let [(277,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 277,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Case") [Comb ConsCall ("FlatCurry","Rigid") [],Comb FuncCall ("OracleFlatCurryXML","flatx2exp") [Var 275,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2branch") []],Var 276,Var 277]]]))]])),Func ("OracleFlatCurryXML","_case_415") 4 Private (TVar (-42)) (Rule [4,5,170,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 170) [Branch (Pattern ("Prelude",":") [171,172]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_414") [Var 4,Var 5,Var 172,Var 171,Var 1]])]])),Func ("OracleFlatCurryXML","_case_414") 5 Private (TVar (-42)) (Rule [4,5,172,171,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 171) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_413") [Var 4,Var 5,Var 172,Var 1]])]])),Func ("OracleFlatCurryXML","_case_413") 4 Private (TVar (-42)) (Rule [4,5,172,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 172) [Branch (Pattern ("Prelude",":") [173,174]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_412") [Var 4,Var 5,Var 174,Var 173,Var 1]])]])),Func ("OracleFlatCurryXML","_case_412") 5 Private (TVar (-42)) (Rule [4,5,174,173,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 173) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_411") [Var 4,Var 5,Var 174,Var 1]])]])),Func ("OracleFlatCurryXML","_case_411") 4 Private (TVar (-42)) (Rule [4,5,174,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 174) [Branch (Pattern ("Prelude",":") [175,176]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_410") [Var 4,Var 5,Var 176,Var 175,Var 1]])]])),Func ("OracleFlatCurryXML","_case_410") 5 Private (TVar (-42)) (Rule [4,5,176,175,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 175) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_409") [Var 4,Var 5,Var 176,Var 1]]),Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_375") [Var 4,Var 5,Var 176,Var 1]])]])),Func ("OracleFlatCurryXML","_case_375") 4 Private (TVar (-42)) (Rule [4,5,176,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 176) [Branch (Pattern ("Prelude",":") [211,212]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_374") [Var 4,Var 5,Var 212,Var 211,Var 1]])]])),Func ("OracleFlatCurryXML","_case_374") 5 Private (TVar (-42)) (Rule [4,5,212,211,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 211) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_373") [Var 4,Var 5,Var 212,Var 1]])]])),Func ("OracleFlatCurryXML","_case_373") 4 Private (TVar (-42)) (Rule [4,5,212,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 212) [Branch (Pattern ("Prelude",":") [213,214]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_372") [Var 4,Var 5,Var 214,Var 213,Var 1]])]])),Func ("OracleFlatCurryXML","_case_372") 5 Private (TVar (-42)) (Rule [4,5,214,213,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 213) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_371") [Var 4,Var 5,Var 214,Var 1]])]])),Func ("OracleFlatCurryXML","_case_371") 4 Private (TVar (-42)) (Rule [4,5,214,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 214) [Branch (Pattern ("Prelude",":") [215,216]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_370") [Var 4,Var 5,Var 216,Var 215,Var 1]])]])),Func ("OracleFlatCurryXML","_case_370") 5 Private (TVar (-42)) (Rule [4,5,216,215,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 215) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_369") [Var 4,Var 5,Var 216,Var 1]])]])),Func ("OracleFlatCurryXML","_case_369") 4 Private (TVar (-42)) (Rule [4,5,216,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 216) [Branch (Pattern ("Prelude",":") [217,218]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_368") [Var 4,Var 5,Var 218,Var 217,Var 1]])]])),Func ("OracleFlatCurryXML","_case_368") 5 Private (TVar (-42)) (Rule [4,5,218,217,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 217) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_367") [Var 4,Var 5,Var 218,Var 1]])]])),Func ("OracleFlatCurryXML","_case_367") 4 Private (TVar (-42)) (Rule [4,5,218,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 218) [Branch (Pattern ("Prelude",":") [219,220]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_366") [Var 4,Var 5,Var 220,Var 219,Var 1]])]])),Func ("OracleFlatCurryXML","_case_366") 5 Private (TVar (-42)) (Rule [4,5,220,219,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 219) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_365") [Var 4,Var 5,Var 220,Var 1]])]])),Func ("OracleFlatCurryXML","_case_365") 4 Private (TVar (-42)) (Rule [4,5,220,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 220) [Branch (Pattern ("Prelude",":") [221,222]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_364") [Var 4,Var 5,Var 222,Var 221,Var 1]])]])),Func ("OracleFlatCurryXML","_case_364") 5 Private (TVar (-42)) (Rule [4,5,222,221,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 221) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_363") [Var 4,Var 5,Var 222,Var 1]])]])),Func ("OracleFlatCurryXML","_case_363") 4 Private (TVar (-42)) (Rule [4,5,222,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 222) [Branch (Pattern ("Prelude",":") [223,224]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_362") [Var 4,Var 5,Var 224,Var 223,Var 1]])]])),Func ("OracleFlatCurryXML","_case_362") 5 Private (TVar (-42)) (Rule [4,5,224,223,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 223) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_361") [Var 4,Var 5,Var 224,Var 1]])]])),Func ("OracleFlatCurryXML","_case_361") 4 Private (TVar (-42)) (Rule [4,5,224,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 224) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_360") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_360") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [225,226]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_359") [Var 5,Var 226,Var 225,Var 1]])]])),Func ("OracleFlatCurryXML","_case_359") 4 Private (TVar (-42)) (Rule [5,226,225,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 225) [Branch (Pattern ("Prelude","(,)") [227,228]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_358") [Var 5,Var 226,Var 228,Var 227,Var 1]])]])),Func ("OracleFlatCurryXML","_case_358") 5 Private (TVar (-42)) (Rule [5,226,228,227,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 227) [Branch (Pattern ("Prelude",":") [229,230]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_357") [Var 5,Var 226,Var 228,Var 230,Var 229,Var 1]])]])),Func ("OracleFlatCurryXML","_case_357") 6 Private (TVar (-42)) (Rule [5,226,228,230,229,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 229) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_356") [Var 5,Var 226,Var 228,Var 230,Var 1]])]])),Func ("OracleFlatCurryXML","_case_356") 5 Private (TVar (-42)) (Rule [5,226,228,230,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 230) [Branch (Pattern ("Prelude",":") [231,232]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_355") [Var 5,Var 226,Var 228,Var 232,Var 231,Var 1]])]])),Func ("OracleFlatCurryXML","_case_355") 6 Private (TVar (-42)) (Rule [5,226,228,232,231,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 231) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_354") [Var 5,Var 226,Var 228,Var 232,Var 1]])]])),Func ("OracleFlatCurryXML","_case_354") 5 Private (TVar (-42)) (Rule [5,226,228,232,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 232) [Branch (Pattern ("Prelude",":") [233,234]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_353") [Var 5,Var 226,Var 228,Var 234,Var 233,Var 1]])]])),Func ("OracleFlatCurryXML","_case_353") 6 Private (TVar (-42)) (Rule [5,226,228,234,233,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 233) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_352") [Var 5,Var 226,Var 228,Var 234,Var 1]])]])),Func ("OracleFlatCurryXML","_case_352") 5 Private (TVar (-42)) (Rule [5,226,228,234,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 234) [Branch (Pattern ("Prelude",":") [235,236]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_351") [Var 5,Var 226,Var 228,Var 236,Var 235,Var 1]])]])),Func ("OracleFlatCurryXML","_case_351") 6 Private (TVar (-42)) (Rule [5,226,228,236,235,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 235) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_350") [Var 5,Var 226,Var 228,Var 236,Var 1]])]])),Func ("OracleFlatCurryXML","_case_350") 5 Private (TVar (-42)) (Rule [5,226,228,236,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 236) [Branch (Pattern ("Prelude",":") [237,238]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_349") [Var 5,Var 226,Var 228,Var 238,Var 237,Var 1]])]])),Func ("OracleFlatCurryXML","_case_349") 6 Private (TVar (-42)) (Rule [5,226,228,238,237,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 237) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_348") [Var 5,Var 226,Var 228,Var 238,Var 1]])]])),Func ("OracleFlatCurryXML","_case_348") 5 Private (TVar (-42)) (Rule [5,226,228,238,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 238) [Branch (Pattern ("Prelude",":") [239,240]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_347") [Var 5,Var 226,Var 228,Var 240,Var 239,Var 1]])]])),Func ("OracleFlatCurryXML","_case_347") 6 Private (TVar (-42)) (Rule [5,226,228,240,239,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 239) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_346") [Var 5,Var 226,Var 228,Var 240,Var 1]])]])),Func ("OracleFlatCurryXML","_case_346") 5 Private (TVar (-42)) (Rule [5,226,228,240,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 240) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_345") [Var 5,Var 228,Var 226,Var 1]])]])),Func ("OracleFlatCurryXML","_case_345") 4 Private (TVar (-42)) (Rule [5,228,226,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 226) [Branch (Pattern ("Prelude",":") [241,242]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_344") [Var 5,Var 228,Var 242,Var 241,Var 1]])]])),Func ("OracleFlatCurryXML","_case_344") 5 Private (TVar (-42)) (Rule [5,228,242,241,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 241) [Branch (Pattern ("Prelude","(,)") [243,244]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_343") [Var 5,Var 228,Var 242,Var 244,Var 243,Var 1]])]])),Func ("OracleFlatCurryXML","_case_343") 6 Private (TVar (-42)) (Rule [5,228,242,244,243,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 243) [Branch (Pattern ("Prelude",":") [245,246]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_342") [Var 5,Var 228,Var 242,Var 244,Var 246,Var 245,Var 1]])]])),Func ("OracleFlatCurryXML","_case_342") 7 Private (TVar (-42)) (Rule [5,228,242,244,246,245,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 245) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_341") [Var 5,Var 228,Var 242,Var 244,Var 246,Var 1]])]])),Func ("OracleFlatCurryXML","_case_341") 6 Private (TVar (-42)) (Rule [5,228,242,244,246,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 246) [Branch (Pattern ("Prelude",":") [247,248]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_340") [Var 5,Var 228,Var 242,Var 244,Var 248,Var 247,Var 1]])]])),Func ("OracleFlatCurryXML","_case_340") 7 Private (TVar (-42)) (Rule [5,228,242,244,248,247,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 247) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_339") [Var 5,Var 228,Var 242,Var 244,Var 248,Var 1]])]])),Func ("OracleFlatCurryXML","_case_339") 6 Private (TVar (-42)) (Rule [5,228,242,244,248,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 248) [Branch (Pattern ("Prelude",":") [249,250]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_338") [Var 5,Var 228,Var 242,Var 244,Var 250,Var 249,Var 1]])]])),Func ("OracleFlatCurryXML","_case_338") 7 Private (TVar (-42)) (Rule [5,228,242,244,250,249,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 249) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_337") [Var 5,Var 228,Var 242,Var 244,Var 250,Var 1]])]])),Func ("OracleFlatCurryXML","_case_337") 6 Private (TVar (-42)) (Rule [5,228,242,244,250,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 250) [Branch (Pattern ("Prelude",":") [251,252]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_336") [Var 5,Var 228,Var 242,Var 244,Var 252,Var 251,Var 1]])]])),Func ("OracleFlatCurryXML","_case_336") 7 Private (TVar (-42)) (Rule [5,228,242,244,252,251,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 251) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_335") [Var 5,Var 228,Var 242,Var 244,Var 252,Var 1]])]])),Func ("OracleFlatCurryXML","_case_335") 6 Private (TVar (-42)) (Rule [5,228,242,244,252,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 252) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_334") [Var 5,Var 228,Var 244,Var 242,Var 1]])]])),Func ("OracleFlatCurryXML","_case_334") 5 Private (TVar (-42)) (Rule [5,228,244,242,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 242) [Branch (Pattern ("Prelude",":") [253,254]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_333") [Var 5,Var 228,Var 244,Var 254,Var 253,Var 1]])]])),Func ("OracleFlatCurryXML","_case_333") 6 Private (TVar (-42)) (Rule [5,228,244,254,253,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 253) [Branch (Pattern ("Prelude","(,)") [255,256]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_332") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 255,Var 1]])]])),Func ("OracleFlatCurryXML","_case_332") 7 Private (TVar (-42)) (Rule [5,228,244,254,256,255,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 255) [Branch (Pattern ("Prelude",":") [257,258]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_331") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 258,Var 257,Var 1]])]])),Func ("OracleFlatCurryXML","_case_331") 8 Private (TVar (-42)) (Rule [5,228,244,254,256,258,257,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 257) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_330") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 258,Var 1]])]])),Func ("OracleFlatCurryXML","_case_330") 7 Private (TVar (-42)) (Rule [5,228,244,254,256,258,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 258) [Branch (Pattern ("Prelude",":") [259,260]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_329") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 260,Var 259,Var 1]])]])),Func ("OracleFlatCurryXML","_case_329") 8 Private (TVar (-42)) (Rule [5,228,244,254,256,260,259,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 259) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_328") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 260,Var 1]])]])),Func ("OracleFlatCurryXML","_case_328") 7 Private (TVar (-42)) (Rule [5,228,244,254,256,260,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 260) [Branch (Pattern ("Prelude",":") [261,262]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_327") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 262,Var 261,Var 1]])]])),Func ("OracleFlatCurryXML","_case_327") 8 Private (TVar (-42)) (Rule [5,228,244,254,256,262,261,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 261) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_326") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 262,Var 1]])]])),Func ("OracleFlatCurryXML","_case_326") 7 Private (TVar (-42)) (Rule [5,228,244,254,256,262,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 262) [Branch (Pattern ("Prelude",":") [263,264]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_325") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 264,Var 263,Var 1]])]])),Func ("OracleFlatCurryXML","_case_325") 8 Private (TVar (-42)) (Rule [5,228,244,254,256,264,263,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 263) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_324") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 264,Var 1]])]])),Func ("OracleFlatCurryXML","_case_324") 7 Private (TVar (-42)) (Rule [5,228,244,254,256,264,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 264) [Branch (Pattern ("Prelude",":") [265,266]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_323") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 266,Var 265,Var 1]])]])),Func ("OracleFlatCurryXML","_case_323") 8 Private (TVar (-42)) (Rule [5,228,244,254,256,266,265,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 265) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_322") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 266,Var 1]])]])),Func ("OracleFlatCurryXML","_case_322") 7 Private (TVar (-42)) (Rule [5,228,244,254,256,266,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 266) [Branch (Pattern ("Prelude",":") [267,268]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_321") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 268,Var 267,Var 1]])]])),Func ("OracleFlatCurryXML","_case_321") 8 Private (TVar (-42)) (Rule [5,228,244,254,256,268,267,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 267) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_320") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 268,Var 1]])]])),Func ("OracleFlatCurryXML","_case_320") 7 Private (TVar (-42)) (Rule [5,228,244,254,256,268,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 268) [Branch (Pattern ("Prelude",":") [269,270]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_319") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 270,Var 269,Var 1]])]])),Func ("OracleFlatCurryXML","_case_319") 8 Private (TVar (-42)) (Rule [5,228,244,254,256,270,269,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 269) [Branch (LPattern (Charc 'g')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_318") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 270,Var 1]])]])),Func ("OracleFlatCurryXML","_case_318") 7 Private (TVar (-42)) (Rule [5,228,244,254,256,270,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 270) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_317") [Var 5,Var 228,Var 244,Var 256,Var 254,Var 1]])]])),Func ("OracleFlatCurryXML","_case_317") 6 Private (TVar (-42)) (Rule [5,228,244,256,254,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 254) [Branch (Pattern ("Prelude","[]") []) (Let [(257,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 257,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Comb") [Comb ConsCall ("FlatCurry","ConsPartCall") [Comb FuncCall ("OracleRead","readNat") [Var 256,Var 1]],Comb ConsCall ("Prelude","(,)") [Var 228,Var 244],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2exp") []],Var 5,Var 257]]]))]])),Func ("OracleFlatCurryXML","_case_409") 4 Private (TVar (-42)) (Rule [4,5,176,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 176) [Branch (Pattern ("Prelude",":") [177,178]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_408") [Var 4,Var 5,Var 178,Var 177,Var 1]])]])),Func ("OracleFlatCurryXML","_case_408") 5 Private (TVar (-42)) (Rule [4,5,178,177,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 177) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_407") [Var 4,Var 5,Var 178,Var 1]])]])),Func ("OracleFlatCurryXML","_case_407") 4 Private (TVar (-42)) (Rule [4,5,178,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 178) [Branch (Pattern ("Prelude",":") [179,180]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_406") [Var 4,Var 5,Var 180,Var 179,Var 1]])]])),Func ("OracleFlatCurryXML","_case_406") 5 Private (TVar (-42)) (Rule [4,5,180,179,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 179) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_405") [Var 4,Var 5,Var 180,Var 1]])]])),Func ("OracleFlatCurryXML","_case_405") 4 Private (TVar (-42)) (Rule [4,5,180,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 180) [Branch (Pattern ("Prelude",":") [181,182]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_404") [Var 4,Var 5,Var 182,Var 181,Var 1]])]])),Func ("OracleFlatCurryXML","_case_404") 5 Private (TVar (-42)) (Rule [4,5,182,181,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 181) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_403") [Var 4,Var 5,Var 182,Var 1]])]])),Func ("OracleFlatCurryXML","_case_403") 4 Private (TVar (-42)) (Rule [4,5,182,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 182) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_402") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_402") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [183,184]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_401") [Var 5,Var 184,Var 183,Var 1]])]])),Func ("OracleFlatCurryXML","_case_401") 4 Private (TVar (-42)) (Rule [5,184,183,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 183) [Branch (Pattern ("Prelude","(,)") [185,186]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_400") [Var 5,Var 184,Var 186,Var 185,Var 1]])]])),Func ("OracleFlatCurryXML","_case_400") 5 Private (TVar (-42)) (Rule [5,184,186,185,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 185) [Branch (Pattern ("Prelude",":") [187,188]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_399") [Var 5,Var 184,Var 186,Var 188,Var 187,Var 1]])]])),Func ("OracleFlatCurryXML","_case_399") 6 Private (TVar (-42)) (Rule [5,184,186,188,187,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 187) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_398") [Var 5,Var 184,Var 186,Var 188,Var 1]])]])),Func ("OracleFlatCurryXML","_case_398") 5 Private (TVar (-42)) (Rule [5,184,186,188,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 188) [Branch (Pattern ("Prelude",":") [189,190]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_397") [Var 5,Var 184,Var 186,Var 190,Var 189,Var 1]])]])),Func ("OracleFlatCurryXML","_case_397") 6 Private (TVar (-42)) (Rule [5,184,186,190,189,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 189) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_396") [Var 5,Var 184,Var 186,Var 190,Var 1]])]])),Func ("OracleFlatCurryXML","_case_396") 5 Private (TVar (-42)) (Rule [5,184,186,190,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 190) [Branch (Pattern ("Prelude",":") [191,192]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_395") [Var 5,Var 184,Var 186,Var 192,Var 191,Var 1]])]])),Func ("OracleFlatCurryXML","_case_395") 6 Private (TVar (-42)) (Rule [5,184,186,192,191,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 191) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_394") [Var 5,Var 184,Var 186,Var 192,Var 1]])]])),Func ("OracleFlatCurryXML","_case_394") 5 Private (TVar (-42)) (Rule [5,184,186,192,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 192) [Branch (Pattern ("Prelude",":") [193,194]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_393") [Var 5,Var 184,Var 186,Var 194,Var 193,Var 1]])]])),Func ("OracleFlatCurryXML","_case_393") 6 Private (TVar (-42)) (Rule [5,184,186,194,193,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 193) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_392") [Var 5,Var 184,Var 186,Var 194,Var 1]])]])),Func ("OracleFlatCurryXML","_case_392") 5 Private (TVar (-42)) (Rule [5,184,186,194,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 194) [Branch (Pattern ("Prelude",":") [195,196]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_391") [Var 5,Var 184,Var 186,Var 196,Var 195,Var 1]])]])),Func ("OracleFlatCurryXML","_case_391") 6 Private (TVar (-42)) (Rule [5,184,186,196,195,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 195) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_390") [Var 5,Var 184,Var 186,Var 196,Var 1]])]])),Func ("OracleFlatCurryXML","_case_390") 5 Private (TVar (-42)) (Rule [5,184,186,196,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 196) [Branch (Pattern ("Prelude",":") [197,198]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_389") [Var 5,Var 184,Var 186,Var 198,Var 197,Var 1]])]])),Func ("OracleFlatCurryXML","_case_389") 6 Private (TVar (-42)) (Rule [5,184,186,198,197,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 197) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_388") [Var 5,Var 184,Var 186,Var 198,Var 1]])]])),Func ("OracleFlatCurryXML","_case_388") 5 Private (TVar (-42)) (Rule [5,184,186,198,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 198) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_387") [Var 5,Var 186,Var 184,Var 1]])]])),Func ("OracleFlatCurryXML","_case_387") 4 Private (TVar (-42)) (Rule [5,186,184,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 184) [Branch (Pattern ("Prelude",":") [199,200]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_386") [Var 5,Var 186,Var 200,Var 199,Var 1]])]])),Func ("OracleFlatCurryXML","_case_386") 5 Private (TVar (-42)) (Rule [5,186,200,199,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 199) [Branch (Pattern ("Prelude","(,)") [201,202]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_385") [Var 5,Var 186,Var 200,Var 202,Var 201,Var 1]])]])),Func ("OracleFlatCurryXML","_case_385") 6 Private (TVar (-42)) (Rule [5,186,200,202,201,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 201) [Branch (Pattern ("Prelude",":") [203,204]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_384") [Var 5,Var 186,Var 200,Var 202,Var 204,Var 203,Var 1]])]])),Func ("OracleFlatCurryXML","_case_384") 7 Private (TVar (-42)) (Rule [5,186,200,202,204,203,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 203) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_383") [Var 5,Var 186,Var 200,Var 202,Var 204,Var 1]])]])),Func ("OracleFlatCurryXML","_case_383") 6 Private (TVar (-42)) (Rule [5,186,200,202,204,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 204) [Branch (Pattern ("Prelude",":") [205,206]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_382") [Var 5,Var 186,Var 200,Var 202,Var 206,Var 205,Var 1]])]])),Func ("OracleFlatCurryXML","_case_382") 7 Private (TVar (-42)) (Rule [5,186,200,202,206,205,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 205) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_381") [Var 5,Var 186,Var 200,Var 202,Var 206,Var 1]])]])),Func ("OracleFlatCurryXML","_case_381") 6 Private (TVar (-42)) (Rule [5,186,200,202,206,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 206) [Branch (Pattern ("Prelude",":") [207,208]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_380") [Var 5,Var 186,Var 200,Var 202,Var 208,Var 207,Var 1]])]])),Func ("OracleFlatCurryXML","_case_380") 7 Private (TVar (-42)) (Rule [5,186,200,202,208,207,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 207) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_379") [Var 5,Var 186,Var 200,Var 202,Var 208,Var 1]])]])),Func ("OracleFlatCurryXML","_case_379") 6 Private (TVar (-42)) (Rule [5,186,200,202,208,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 208) [Branch (Pattern ("Prelude",":") [209,210]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_378") [Var 5,Var 186,Var 200,Var 202,Var 210,Var 209,Var 1]])]])),Func ("OracleFlatCurryXML","_case_378") 7 Private (TVar (-42)) (Rule [5,186,200,202,210,209,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 209) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_377") [Var 5,Var 186,Var 200,Var 202,Var 210,Var 1]])]])),Func ("OracleFlatCurryXML","_case_377") 6 Private (TVar (-42)) (Rule [5,186,200,202,210,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 210) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_376") [Var 5,Var 186,Var 202,Var 200,Var 1]])]])),Func ("OracleFlatCurryXML","_case_376") 5 Private (TVar (-42)) (Rule [5,186,202,200,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 200) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FlatCurry","Comb") [Comb ConsCall ("FlatCurry","ConsCall") [],Comb ConsCall ("Prelude","(,)") [Var 186,Var 202],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2exp") []],Var 5,Var 1]]])]])),Func ("OracleFlatCurryXML","_case_555") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [32,33]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_554") [Var 4,Var 5,Var 33,Var 32,Var 1]])]])),Func ("OracleFlatCurryXML","_case_554") 5 Private (TVar (-42)) (Rule [4,5,33,32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 32) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_553") [Var 4,Var 5,Var 33,Var 1]]),Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_454") [Var 4,Var 5,Var 33,Var 1]]),Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_426") [Var 4,Var 5,Var 33,Var 1]])]])),Func ("OracleFlatCurryXML","_case_426") 4 Private (TVar (-42)) (Rule [4,5,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 33) [Branch (Pattern ("Prelude",":") [161,162]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_425") [Var 4,Var 5,Var 162,Var 161,Var 1]])]])),Func ("OracleFlatCurryXML","_case_425") 5 Private (TVar (-42)) (Rule [4,5,162,161,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 161) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_424") [Var 4,Var 5,Var 162,Var 1]])]])),Func ("OracleFlatCurryXML","_case_424") 4 Private (TVar (-42)) (Rule [4,5,162,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 162) [Branch (Pattern ("Prelude",":") [163,164]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_423") [Var 4,Var 5,Var 164,Var 163,Var 1]])]])),Func ("OracleFlatCurryXML","_case_423") 5 Private (TVar (-42)) (Rule [4,5,164,163,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 163) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_422") [Var 4,Var 5,Var 164,Var 1]])]])),Func ("OracleFlatCurryXML","_case_422") 4 Private (TVar (-42)) (Rule [4,5,164,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 164) [Branch (Pattern ("Prelude",":") [165,166]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_421") [Var 4,Var 5,Var 166,Var 165,Var 1]])]])),Func ("OracleFlatCurryXML","_case_421") 5 Private (TVar (-42)) (Rule [4,5,166,165,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 165) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_420") [Var 4,Var 5,Var 166,Var 1]])]])),Func ("OracleFlatCurryXML","_case_420") 4 Private (TVar (-42)) (Rule [4,5,166,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 166) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_419") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_419") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_418") [Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_418") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [167,168]) (Let [(169,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 169,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Case") [Comb ConsCall ("FlatCurry","Flex") [],Comb FuncCall ("OracleFlatCurryXML","flatx2exp") [Var 167,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2branch") []],Var 168,Var 169]]]))]])),Func ("OracleFlatCurryXML","_case_454") 4 Private (TVar (-42)) (Rule [4,5,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 33) [Branch (Pattern ("Prelude",":") [134,135]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_453") [Var 4,Var 5,Var 135,Var 134,Var 1]])]])),Func ("OracleFlatCurryXML","_case_453") 5 Private (TVar (-42)) (Rule [4,5,135,134,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 134) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_452") [Var 4,Var 5,Var 135,Var 1]])]])),Func ("OracleFlatCurryXML","_case_452") 4 Private (TVar (-42)) (Rule [4,5,135,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 135) [Branch (Pattern ("Prelude",":") [136,137]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_451") [Var 4,Var 5,Var 137,Var 136,Var 1]])]])),Func ("OracleFlatCurryXML","_case_451") 5 Private (TVar (-42)) (Rule [4,5,137,136,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 136) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_450") [Var 4,Var 5,Var 137,Var 1]])]])),Func ("OracleFlatCurryXML","_case_450") 4 Private (TVar (-42)) (Rule [4,5,137,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 137) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_449") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_449") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_448") [Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_448") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [138,139]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_447") [Var 139,Var 138,Var 1]])]])),Func ("OracleFlatCurryXML","_case_447") 3 Private (TVar (-42)) (Rule [139,138,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 138) [Branch (Pattern ("XML","XElem") [140,141,142]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_446") [Var 139,Var 141,Var 142,Var 140,Var 1]])]])),Func ("OracleFlatCurryXML","_case_446") 5 Private (TVar (-42)) (Rule [139,141,142,140,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 140) [Branch (Pattern ("Prelude",":") [143,144]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_445") [Var 139,Var 141,Var 142,Var 144,Var 143,Var 1]])]])),Func ("OracleFlatCurryXML","_case_445") 6 Private (TVar (-42)) (Rule [139,141,142,144,143,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 143) [Branch (LPattern (Charc 'f')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_444") [Var 139,Var 141,Var 142,Var 144,Var 1]])]])),Func ("OracleFlatCurryXML","_case_444") 5 Private (TVar (-42)) (Rule [139,141,142,144,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 144) [Branch (Pattern ("Prelude",":") [145,146]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_443") [Var 139,Var 141,Var 142,Var 146,Var 145,Var 1]])]])),Func ("OracleFlatCurryXML","_case_443") 6 Private (TVar (-42)) (Rule [139,141,142,146,145,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 145) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_442") [Var 139,Var 141,Var 142,Var 146,Var 1]])]])),Func ("OracleFlatCurryXML","_case_442") 5 Private (TVar (-42)) (Rule [139,141,142,146,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 146) [Branch (Pattern ("Prelude",":") [147,148]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_441") [Var 139,Var 141,Var 142,Var 148,Var 147,Var 1]])]])),Func ("OracleFlatCurryXML","_case_441") 6 Private (TVar (-42)) (Rule [139,141,142,148,147,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 147) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_440") [Var 139,Var 141,Var 142,Var 148,Var 1]])]])),Func ("OracleFlatCurryXML","_case_440") 5 Private (TVar (-42)) (Rule [139,141,142,148,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 148) [Branch (Pattern ("Prelude",":") [149,150]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_439") [Var 139,Var 141,Var 142,Var 150,Var 149,Var 1]])]])),Func ("OracleFlatCurryXML","_case_439") 6 Private (TVar (-42)) (Rule [139,141,142,150,149,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 149) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_438") [Var 139,Var 141,Var 142,Var 150,Var 1]])]])),Func ("OracleFlatCurryXML","_case_438") 5 Private (TVar (-42)) (Rule [139,141,142,150,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 150) [Branch (Pattern ("Prelude",":") [151,152]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_437") [Var 139,Var 141,Var 142,Var 152,Var 151,Var 1]])]])),Func ("OracleFlatCurryXML","_case_437") 6 Private (TVar (-42)) (Rule [139,141,142,152,151,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 151) [Branch (LPattern (Charc 'v')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_436") [Var 139,Var 141,Var 142,Var 152,Var 1]])]])),Func ("OracleFlatCurryXML","_case_436") 5 Private (TVar (-42)) (Rule [139,141,142,152,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 152) [Branch (Pattern ("Prelude",":") [153,154]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_435") [Var 139,Var 141,Var 142,Var 154,Var 153,Var 1]])]])),Func ("OracleFlatCurryXML","_case_435") 6 Private (TVar (-42)) (Rule [139,141,142,154,153,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 153) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_434") [Var 139,Var 141,Var 142,Var 154,Var 1]])]])),Func ("OracleFlatCurryXML","_case_434") 5 Private (TVar (-42)) (Rule [139,141,142,154,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 154) [Branch (Pattern ("Prelude",":") [155,156]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_433") [Var 139,Var 141,Var 142,Var 156,Var 155,Var 1]])]])),Func ("OracleFlatCurryXML","_case_433") 6 Private (TVar (-42)) (Rule [139,141,142,156,155,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 155) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_432") [Var 139,Var 141,Var 142,Var 156,Var 1]])]])),Func ("OracleFlatCurryXML","_case_432") 5 Private (TVar (-42)) (Rule [139,141,142,156,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 156) [Branch (Pattern ("Prelude",":") [157,158]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_431") [Var 139,Var 141,Var 142,Var 158,Var 157,Var 1]])]])),Func ("OracleFlatCurryXML","_case_431") 6 Private (TVar (-42)) (Rule [139,141,142,158,157,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 157) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_430") [Var 139,Var 141,Var 142,Var 158,Var 1]])]])),Func ("OracleFlatCurryXML","_case_430") 5 Private (TVar (-42)) (Rule [139,141,142,158,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 158) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_429") [Var 139,Var 142,Var 141,Var 1]])]])),Func ("OracleFlatCurryXML","_case_429") 4 Private (TVar (-42)) (Rule [139,142,141,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 141) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_428") [Var 142,Var 139,Var 1]])]])),Func ("OracleFlatCurryXML","_case_428") 3 Private (TVar (-42)) (Rule [142,139,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 139) [Branch (Pattern ("Prelude",":") [159,160]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_427") [Var 142,Var 159,Var 160,Var 1]])]])),Func ("OracleFlatCurryXML","_case_427") 4 Private (TVar (-42)) (Rule [142,159,160,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 160) [Branch (Pattern ("Prelude","[]") []) (Let [(161,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 161,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Free") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2var") []],Var 142,Var 1],Comb FuncCall ("OracleFlatCurryXML","flatx2exp") [Var 159,Var 161]]]))]])),Func ("OracleFlatCurryXML","_case_553") 4 Private (TVar (-42)) (Rule [4,5,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 33) [Branch (Pattern ("Prelude",":") [34,35]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_552") [Var 4,Var 5,Var 35,Var 34,Var 1]])]])),Func ("OracleFlatCurryXML","_case_552") 5 Private (TVar (-42)) (Rule [4,5,35,34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_551") [Var 4,Var 5,Var 35,Var 1]])]])),Func ("OracleFlatCurryXML","_case_551") 4 Private (TVar (-42)) (Rule [4,5,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 35) [Branch (Pattern ("Prelude",":") [36,37]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_550") [Var 4,Var 5,Var 37,Var 36,Var 1]])]])),Func ("OracleFlatCurryXML","_case_550") 5 Private (TVar (-42)) (Rule [4,5,37,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_549") [Var 4,Var 5,Var 37,Var 1]])]])),Func ("OracleFlatCurryXML","_case_549") 4 Private (TVar (-42)) (Rule [4,5,37,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 37) [Branch (Pattern ("Prelude",":") [38,39]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_548") [Var 4,Var 5,Var 39,Var 38,Var 1]])]])),Func ("OracleFlatCurryXML","_case_548") 5 Private (TVar (-42)) (Rule [4,5,39,38,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 38) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_547") [Var 4,Var 5,Var 39,Var 1]]),Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_513") [Var 4,Var 5,Var 39,Var 1]])]])),Func ("OracleFlatCurryXML","_case_513") 4 Private (TVar (-42)) (Rule [4,5,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 39) [Branch (Pattern ("Prelude",":") [74,75]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_512") [Var 4,Var 5,Var 75,Var 74,Var 1]])]])),Func ("OracleFlatCurryXML","_case_512") 5 Private (TVar (-42)) (Rule [4,5,75,74,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 74) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_511") [Var 4,Var 5,Var 75,Var 1]])]])),Func ("OracleFlatCurryXML","_case_511") 4 Private (TVar (-42)) (Rule [4,5,75,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 75) [Branch (Pattern ("Prelude",":") [76,77]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_510") [Var 4,Var 5,Var 77,Var 76,Var 1]])]])),Func ("OracleFlatCurryXML","_case_510") 5 Private (TVar (-42)) (Rule [4,5,77,76,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 76) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_509") [Var 4,Var 5,Var 77,Var 1]])]])),Func ("OracleFlatCurryXML","_case_509") 4 Private (TVar (-42)) (Rule [4,5,77,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 77) [Branch (Pattern ("Prelude",":") [78,79]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_508") [Var 4,Var 5,Var 79,Var 78,Var 1]])]])),Func ("OracleFlatCurryXML","_case_508") 5 Private (TVar (-42)) (Rule [4,5,79,78,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 78) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_507") [Var 4,Var 5,Var 79,Var 1]])]])),Func ("OracleFlatCurryXML","_case_507") 4 Private (TVar (-42)) (Rule [4,5,79,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 79) [Branch (Pattern ("Prelude",":") [80,81]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_506") [Var 4,Var 5,Var 81,Var 80,Var 1]])]])),Func ("OracleFlatCurryXML","_case_506") 5 Private (TVar (-42)) (Rule [4,5,81,80,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 80) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_505") [Var 4,Var 5,Var 81,Var 1]])]])),Func ("OracleFlatCurryXML","_case_505") 4 Private (TVar (-42)) (Rule [4,5,81,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 81) [Branch (Pattern ("Prelude",":") [82,83]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_504") [Var 4,Var 5,Var 83,Var 82,Var 1]])]])),Func ("OracleFlatCurryXML","_case_504") 5 Private (TVar (-42)) (Rule [4,5,83,82,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 82) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_503") [Var 4,Var 5,Var 83,Var 1]])]])),Func ("OracleFlatCurryXML","_case_503") 4 Private (TVar (-42)) (Rule [4,5,83,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 83) [Branch (Pattern ("Prelude",":") [84,85]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_502") [Var 4,Var 5,Var 85,Var 84,Var 1]])]])),Func ("OracleFlatCurryXML","_case_502") 5 Private (TVar (-42)) (Rule [4,5,85,84,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 84) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_501") [Var 4,Var 5,Var 85,Var 1]])]])),Func ("OracleFlatCurryXML","_case_501") 4 Private (TVar (-42)) (Rule [4,5,85,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 85) [Branch (Pattern ("Prelude",":") [86,87]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_500") [Var 4,Var 5,Var 87,Var 86,Var 1]])]])),Func ("OracleFlatCurryXML","_case_500") 5 Private (TVar (-42)) (Rule [4,5,87,86,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 86) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_499") [Var 4,Var 5,Var 87,Var 1]])]])),Func ("OracleFlatCurryXML","_case_499") 4 Private (TVar (-42)) (Rule [4,5,87,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 87) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_498") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_498") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [88,89]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_497") [Var 5,Var 89,Var 88,Var 1]])]])),Func ("OracleFlatCurryXML","_case_497") 4 Private (TVar (-42)) (Rule [5,89,88,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 88) [Branch (Pattern ("Prelude","(,)") [90,91]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_496") [Var 5,Var 89,Var 91,Var 90,Var 1]])]])),Func ("OracleFlatCurryXML","_case_496") 5 Private (TVar (-42)) (Rule [5,89,91,90,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 90) [Branch (Pattern ("Prelude",":") [92,93]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_495") [Var 5,Var 89,Var 91,Var 93,Var 92,Var 1]])]])),Func ("OracleFlatCurryXML","_case_495") 6 Private (TVar (-42)) (Rule [5,89,91,93,92,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 92) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_494") [Var 5,Var 89,Var 91,Var 93,Var 1]])]])),Func ("OracleFlatCurryXML","_case_494") 5 Private (TVar (-42)) (Rule [5,89,91,93,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 93) [Branch (Pattern ("Prelude",":") [94,95]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_493") [Var 5,Var 89,Var 91,Var 95,Var 94,Var 1]])]])),Func ("OracleFlatCurryXML","_case_493") 6 Private (TVar (-42)) (Rule [5,89,91,95,94,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 94) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_492") [Var 5,Var 89,Var 91,Var 95,Var 1]])]])),Func ("OracleFlatCurryXML","_case_492") 5 Private (TVar (-42)) (Rule [5,89,91,95,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 95) [Branch (Pattern ("Prelude",":") [96,97]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_491") [Var 5,Var 89,Var 91,Var 97,Var 96,Var 1]])]])),Func ("OracleFlatCurryXML","_case_491") 6 Private (TVar (-42)) (Rule [5,89,91,97,96,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 96) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_490") [Var 5,Var 89,Var 91,Var 97,Var 1]])]])),Func ("OracleFlatCurryXML","_case_490") 5 Private (TVar (-42)) (Rule [5,89,91,97,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 97) [Branch (Pattern ("Prelude",":") [98,99]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_489") [Var 5,Var 89,Var 91,Var 99,Var 98,Var 1]])]])),Func ("OracleFlatCurryXML","_case_489") 6 Private (TVar (-42)) (Rule [5,89,91,99,98,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 98) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_488") [Var 5,Var 89,Var 91,Var 99,Var 1]])]])),Func ("OracleFlatCurryXML","_case_488") 5 Private (TVar (-42)) (Rule [5,89,91,99,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 99) [Branch (Pattern ("Prelude",":") [100,101]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_487") [Var 5,Var 89,Var 91,Var 101,Var 100,Var 1]])]])),Func ("OracleFlatCurryXML","_case_487") 6 Private (TVar (-42)) (Rule [5,89,91,101,100,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 100) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_486") [Var 5,Var 89,Var 91,Var 101,Var 1]])]])),Func ("OracleFlatCurryXML","_case_486") 5 Private (TVar (-42)) (Rule [5,89,91,101,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 101) [Branch (Pattern ("Prelude",":") [102,103]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_485") [Var 5,Var 89,Var 91,Var 103,Var 102,Var 1]])]])),Func ("OracleFlatCurryXML","_case_485") 6 Private (TVar (-42)) (Rule [5,89,91,103,102,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 102) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_484") [Var 5,Var 89,Var 91,Var 103,Var 1]])]])),Func ("OracleFlatCurryXML","_case_484") 5 Private (TVar (-42)) (Rule [5,89,91,103,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 103) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_483") [Var 5,Var 91,Var 89,Var 1]])]])),Func ("OracleFlatCurryXML","_case_483") 4 Private (TVar (-42)) (Rule [5,91,89,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 89) [Branch (Pattern ("Prelude",":") [104,105]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_482") [Var 5,Var 91,Var 105,Var 104,Var 1]])]])),Func ("OracleFlatCurryXML","_case_482") 5 Private (TVar (-42)) (Rule [5,91,105,104,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 104) [Branch (Pattern ("Prelude","(,)") [106,107]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_481") [Var 5,Var 91,Var 105,Var 107,Var 106,Var 1]])]])),Func ("OracleFlatCurryXML","_case_481") 6 Private (TVar (-42)) (Rule [5,91,105,107,106,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 106) [Branch (Pattern ("Prelude",":") [108,109]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_480") [Var 5,Var 91,Var 105,Var 107,Var 109,Var 108,Var 1]])]])),Func ("OracleFlatCurryXML","_case_480") 7 Private (TVar (-42)) (Rule [5,91,105,107,109,108,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 108) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_479") [Var 5,Var 91,Var 105,Var 107,Var 109,Var 1]])]])),Func ("OracleFlatCurryXML","_case_479") 6 Private (TVar (-42)) (Rule [5,91,105,107,109,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 109) [Branch (Pattern ("Prelude",":") [110,111]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_478") [Var 5,Var 91,Var 105,Var 107,Var 111,Var 110,Var 1]])]])),Func ("OracleFlatCurryXML","_case_478") 7 Private (TVar (-42)) (Rule [5,91,105,107,111,110,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 110) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_477") [Var 5,Var 91,Var 105,Var 107,Var 111,Var 1]])]])),Func ("OracleFlatCurryXML","_case_477") 6 Private (TVar (-42)) (Rule [5,91,105,107,111,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 111) [Branch (Pattern ("Prelude",":") [112,113]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_476") [Var 5,Var 91,Var 105,Var 107,Var 113,Var 112,Var 1]])]])),Func ("OracleFlatCurryXML","_case_476") 7 Private (TVar (-42)) (Rule [5,91,105,107,113,112,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 112) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_475") [Var 5,Var 91,Var 105,Var 107,Var 113,Var 1]])]])),Func ("OracleFlatCurryXML","_case_475") 6 Private (TVar (-42)) (Rule [5,91,105,107,113,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 113) [Branch (Pattern ("Prelude",":") [114,115]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_474") [Var 5,Var 91,Var 105,Var 107,Var 115,Var 114,Var 1]])]])),Func ("OracleFlatCurryXML","_case_474") 7 Private (TVar (-42)) (Rule [5,91,105,107,115,114,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 114) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_473") [Var 5,Var 91,Var 105,Var 107,Var 115,Var 1]])]])),Func ("OracleFlatCurryXML","_case_473") 6 Private (TVar (-42)) (Rule [5,91,105,107,115,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 115) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_472") [Var 5,Var 91,Var 107,Var 105,Var 1]])]])),Func ("OracleFlatCurryXML","_case_472") 5 Private (TVar (-42)) (Rule [5,91,107,105,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 105) [Branch (Pattern ("Prelude",":") [116,117]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_471") [Var 5,Var 91,Var 107,Var 117,Var 116,Var 1]])]])),Func ("OracleFlatCurryXML","_case_471") 6 Private (TVar (-42)) (Rule [5,91,107,117,116,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 116) [Branch (Pattern ("Prelude","(,)") [118,119]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_470") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 118,Var 1]])]])),Func ("OracleFlatCurryXML","_case_470") 7 Private (TVar (-42)) (Rule [5,91,107,117,119,118,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 118) [Branch (Pattern ("Prelude",":") [120,121]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_469") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 121,Var 120,Var 1]])]])),Func ("OracleFlatCurryXML","_case_469") 8 Private (TVar (-42)) (Rule [5,91,107,117,119,121,120,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 120) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_468") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 121,Var 1]])]])),Func ("OracleFlatCurryXML","_case_468") 7 Private (TVar (-42)) (Rule [5,91,107,117,119,121,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 121) [Branch (Pattern ("Prelude",":") [122,123]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_467") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 123,Var 122,Var 1]])]])),Func ("OracleFlatCurryXML","_case_467") 8 Private (TVar (-42)) (Rule [5,91,107,117,119,123,122,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 122) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_466") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 123,Var 1]])]])),Func ("OracleFlatCurryXML","_case_466") 7 Private (TVar (-42)) (Rule [5,91,107,117,119,123,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 123) [Branch (Pattern ("Prelude",":") [124,125]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_465") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 125,Var 124,Var 1]])]])),Func ("OracleFlatCurryXML","_case_465") 8 Private (TVar (-42)) (Rule [5,91,107,117,119,125,124,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 124) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_464") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 125,Var 1]])]])),Func ("OracleFlatCurryXML","_case_464") 7 Private (TVar (-42)) (Rule [5,91,107,117,119,125,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 125) [Branch (Pattern ("Prelude",":") [126,127]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_463") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 127,Var 126,Var 1]])]])),Func ("OracleFlatCurryXML","_case_463") 8 Private (TVar (-42)) (Rule [5,91,107,117,119,127,126,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 126) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_462") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 127,Var 1]])]])),Func ("OracleFlatCurryXML","_case_462") 7 Private (TVar (-42)) (Rule [5,91,107,117,119,127,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 127) [Branch (Pattern ("Prelude",":") [128,129]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_461") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 129,Var 128,Var 1]])]])),Func ("OracleFlatCurryXML","_case_461") 8 Private (TVar (-42)) (Rule [5,91,107,117,119,129,128,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 128) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_460") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 129,Var 1]])]])),Func ("OracleFlatCurryXML","_case_460") 7 Private (TVar (-42)) (Rule [5,91,107,117,119,129,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 129) [Branch (Pattern ("Prelude",":") [130,131]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_459") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 131,Var 130,Var 1]])]])),Func ("OracleFlatCurryXML","_case_459") 8 Private (TVar (-42)) (Rule [5,91,107,117,119,131,130,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 130) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_458") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 131,Var 1]])]])),Func ("OracleFlatCurryXML","_case_458") 7 Private (TVar (-42)) (Rule [5,91,107,117,119,131,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 131) [Branch (Pattern ("Prelude",":") [132,133]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_457") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 133,Var 132,Var 1]])]])),Func ("OracleFlatCurryXML","_case_457") 8 Private (TVar (-42)) (Rule [5,91,107,117,119,133,132,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 132) [Branch (LPattern (Charc 'g')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_456") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 133,Var 1]])]])),Func ("OracleFlatCurryXML","_case_456") 7 Private (TVar (-42)) (Rule [5,91,107,117,119,133,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 133) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_455") [Var 5,Var 91,Var 107,Var 119,Var 117,Var 1]])]])),Func ("OracleFlatCurryXML","_case_455") 6 Private (TVar (-42)) (Rule [5,91,107,119,117,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 117) [Branch (Pattern ("Prelude","[]") []) (Let [(120,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 120,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Comb") [Comb ConsCall ("FlatCurry","FuncPartCall") [Comb FuncCall ("OracleRead","readNat") [Var 119,Var 1]],Comb ConsCall ("Prelude","(,)") [Var 91,Var 107],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2exp") []],Var 5,Var 120]]]))]])),Func ("OracleFlatCurryXML","_case_547") 4 Private (TVar (-42)) (Rule [4,5,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 39) [Branch (Pattern ("Prelude",":") [40,41]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_546") [Var 4,Var 5,Var 41,Var 40,Var 1]])]])),Func ("OracleFlatCurryXML","_case_546") 5 Private (TVar (-42)) (Rule [4,5,41,40,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 40) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_545") [Var 4,Var 5,Var 41,Var 1]])]])),Func ("OracleFlatCurryXML","_case_545") 4 Private (TVar (-42)) (Rule [4,5,41,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 41) [Branch (Pattern ("Prelude",":") [42,43]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_544") [Var 4,Var 5,Var 43,Var 42,Var 1]])]])),Func ("OracleFlatCurryXML","_case_544") 5 Private (TVar (-42)) (Rule [4,5,43,42,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 42) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_543") [Var 4,Var 5,Var 43,Var 1]])]])),Func ("OracleFlatCurryXML","_case_543") 4 Private (TVar (-42)) (Rule [4,5,43,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 43) [Branch (Pattern ("Prelude",":") [44,45]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_542") [Var 4,Var 5,Var 45,Var 44,Var 1]])]])),Func ("OracleFlatCurryXML","_case_542") 5 Private (TVar (-42)) (Rule [4,5,45,44,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 44) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_541") [Var 4,Var 5,Var 45,Var 1]])]])),Func ("OracleFlatCurryXML","_case_541") 4 Private (TVar (-42)) (Rule [4,5,45,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 45) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_540") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_540") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [46,47]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_539") [Var 5,Var 47,Var 46,Var 1]])]])),Func ("OracleFlatCurryXML","_case_539") 4 Private (TVar (-42)) (Rule [5,47,46,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 46) [Branch (Pattern ("Prelude","(,)") [48,49]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_538") [Var 5,Var 47,Var 49,Var 48,Var 1]])]])),Func ("OracleFlatCurryXML","_case_538") 5 Private (TVar (-42)) (Rule [5,47,49,48,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 48) [Branch (Pattern ("Prelude",":") [50,51]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_537") [Var 5,Var 47,Var 49,Var 51,Var 50,Var 1]])]])),Func ("OracleFlatCurryXML","_case_537") 6 Private (TVar (-42)) (Rule [5,47,49,51,50,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 50) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_536") [Var 5,Var 47,Var 49,Var 51,Var 1]])]])),Func ("OracleFlatCurryXML","_case_536") 5 Private (TVar (-42)) (Rule [5,47,49,51,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 51) [Branch (Pattern ("Prelude",":") [52,53]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_535") [Var 5,Var 47,Var 49,Var 53,Var 52,Var 1]])]])),Func ("OracleFlatCurryXML","_case_535") 6 Private (TVar (-42)) (Rule [5,47,49,53,52,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 52) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_534") [Var 5,Var 47,Var 49,Var 53,Var 1]])]])),Func ("OracleFlatCurryXML","_case_534") 5 Private (TVar (-42)) (Rule [5,47,49,53,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 53) [Branch (Pattern ("Prelude",":") [54,55]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_533") [Var 5,Var 47,Var 49,Var 55,Var 54,Var 1]])]])),Func ("OracleFlatCurryXML","_case_533") 6 Private (TVar (-42)) (Rule [5,47,49,55,54,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 54) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_532") [Var 5,Var 47,Var 49,Var 55,Var 1]])]])),Func ("OracleFlatCurryXML","_case_532") 5 Private (TVar (-42)) (Rule [5,47,49,55,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 55) [Branch (Pattern ("Prelude",":") [56,57]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_531") [Var 5,Var 47,Var 49,Var 57,Var 56,Var 1]])]])),Func ("OracleFlatCurryXML","_case_531") 6 Private (TVar (-42)) (Rule [5,47,49,57,56,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 56) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_530") [Var 5,Var 47,Var 49,Var 57,Var 1]])]])),Func ("OracleFlatCurryXML","_case_530") 5 Private (TVar (-42)) (Rule [5,47,49,57,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 57) [Branch (Pattern ("Prelude",":") [58,59]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_529") [Var 5,Var 47,Var 49,Var 59,Var 58,Var 1]])]])),Func ("OracleFlatCurryXML","_case_529") 6 Private (TVar (-42)) (Rule [5,47,49,59,58,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 58) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_528") [Var 5,Var 47,Var 49,Var 59,Var 1]])]])),Func ("OracleFlatCurryXML","_case_528") 5 Private (TVar (-42)) (Rule [5,47,49,59,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 59) [Branch (Pattern ("Prelude",":") [60,61]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_527") [Var 5,Var 47,Var 49,Var 61,Var 60,Var 1]])]])),Func ("OracleFlatCurryXML","_case_527") 6 Private (TVar (-42)) (Rule [5,47,49,61,60,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 60) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_526") [Var 5,Var 47,Var 49,Var 61,Var 1]])]])),Func ("OracleFlatCurryXML","_case_526") 5 Private (TVar (-42)) (Rule [5,47,49,61,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 61) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_525") [Var 5,Var 49,Var 47,Var 1]])]])),Func ("OracleFlatCurryXML","_case_525") 4 Private (TVar (-42)) (Rule [5,49,47,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 47) [Branch (Pattern ("Prelude",":") [62,63]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_524") [Var 5,Var 49,Var 63,Var 62,Var 1]])]])),Func ("OracleFlatCurryXML","_case_524") 5 Private (TVar (-42)) (Rule [5,49,63,62,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 62) [Branch (Pattern ("Prelude","(,)") [64,65]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_523") [Var 5,Var 49,Var 63,Var 65,Var 64,Var 1]])]])),Func ("OracleFlatCurryXML","_case_523") 6 Private (TVar (-42)) (Rule [5,49,63,65,64,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 64) [Branch (Pattern ("Prelude",":") [66,67]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_522") [Var 5,Var 49,Var 63,Var 65,Var 67,Var 66,Var 1]])]])),Func ("OracleFlatCurryXML","_case_522") 7 Private (TVar (-42)) (Rule [5,49,63,65,67,66,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 66) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_521") [Var 5,Var 49,Var 63,Var 65,Var 67,Var 1]])]])),Func ("OracleFlatCurryXML","_case_521") 6 Private (TVar (-42)) (Rule [5,49,63,65,67,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 67) [Branch (Pattern ("Prelude",":") [68,69]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_520") [Var 5,Var 49,Var 63,Var 65,Var 69,Var 68,Var 1]])]])),Func ("OracleFlatCurryXML","_case_520") 7 Private (TVar (-42)) (Rule [5,49,63,65,69,68,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 68) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_519") [Var 5,Var 49,Var 63,Var 65,Var 69,Var 1]])]])),Func ("OracleFlatCurryXML","_case_519") 6 Private (TVar (-42)) (Rule [5,49,63,65,69,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 69) [Branch (Pattern ("Prelude",":") [70,71]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_518") [Var 5,Var 49,Var 63,Var 65,Var 71,Var 70,Var 1]])]])),Func ("OracleFlatCurryXML","_case_518") 7 Private (TVar (-42)) (Rule [5,49,63,65,71,70,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 70) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_517") [Var 5,Var 49,Var 63,Var 65,Var 71,Var 1]])]])),Func ("OracleFlatCurryXML","_case_517") 6 Private (TVar (-42)) (Rule [5,49,63,65,71,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 71) [Branch (Pattern ("Prelude",":") [72,73]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_516") [Var 5,Var 49,Var 63,Var 65,Var 73,Var 72,Var 1]])]])),Func ("OracleFlatCurryXML","_case_516") 7 Private (TVar (-42)) (Rule [5,49,63,65,73,72,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 72) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_515") [Var 5,Var 49,Var 63,Var 65,Var 73,Var 1]])]])),Func ("OracleFlatCurryXML","_case_515") 6 Private (TVar (-42)) (Rule [5,49,63,65,73,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 73) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_514") [Var 5,Var 49,Var 65,Var 63,Var 1]])]])),Func ("OracleFlatCurryXML","_case_514") 5 Private (TVar (-42)) (Rule [5,49,65,63,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 63) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FlatCurry","Comb") [Comb ConsCall ("FlatCurry","FuncCall") [],Comb ConsCall ("Prelude","(,)") [Var 49,Var 65],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2exp") []],Var 5,Var 1]]])]])),Func ("OracleFlatCurryXML","_case_574") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_573") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_573") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_572") [Var 4,Var 5,Var 13,Var 1]]),Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_566") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_566") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_565") [Var 4,Var 5,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_565") 5 Private (TVar (-42)) (Rule [4,5,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_564") [Var 4,Var 5,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_564") 4 Private (TVar (-42)) (Rule [4,5,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_563") [Var 5,Var 4,Var 1]]),Branch (Pattern ("Prelude",":") [23,24]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_562") [Var 4,Var 5,Var 24,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_562") 5 Private (TVar (-42)) (Rule [4,5,24,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_561") [Var 4,Var 5,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_561") 4 Private (TVar (-42)) (Rule [4,5,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_560") [Var 4,Var 5,Var 26,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_560") 5 Private (TVar (-42)) (Rule [4,5,26,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_559") [Var 4,Var 5,Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_559") 4 Private (TVar (-42)) (Rule [4,5,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (Pattern ("Prelude",":") [27,28]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_558") [Var 4,Var 5,Var 28,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_558") 5 Private (TVar (-42)) (Rule [4,5,28,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_557") [Var 4,Var 5,Var 28,Var 1]])]])),Func ("OracleFlatCurryXML","_case_557") 4 Private (TVar (-42)) (Rule [4,5,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_556") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_556") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude","[]") []],Let [(29,Comb FuncCall ("OracleFlatCurryXML","flatx2let") [Var 5,Var 1])] (Let [(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude","[]") []],Let [(30,Comb FuncCall ("OracleFlatCurryXML","flatx2exp._#selFP6#bindings") [Var 29,Var 32])] (Let [(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude","[]") []],Let [(31,Comb FuncCall ("OracleFlatCurryXML","flatx2exp._#selFP7#exp") [Var 29,Var 33])] (Comb FuncCall ("CEventOracle","collapse") [Var 34,Comb ConsCall ("FlatCurry","Let") [Var 30,Var 31]])]))]))]))]])),Func ("OracleFlatCurryXML","_case_563") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Let [(20,Comb FuncCall ("OracleFlatCurryXML","flatx2let") [Var 5,Var 1])] (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Let [(21,Comb FuncCall ("OracleFlatCurryXML","flatx2exp._#selFP3#bindings") [Var 20,Var 23])] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(22,Comb FuncCall ("OracleFlatCurryXML","flatx2exp._#selFP4#exp") [Var 20,Var 24])] (Comb FuncCall ("CEventOracle","collapse") [Var 25,Comb ConsCall ("FlatCurry","Let") [Var 21,Var 22]])]))]))]))]])),Func ("OracleFlatCurryXML","_case_572") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_571") [Var 4,Var 5,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_571") 5 Private (TVar (-42)) (Rule [4,5,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_570") [Var 4,Var 5,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_570") 4 Private (TVar (-42)) (Rule [4,5,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_569") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_569") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_568") [Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_568") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_567") [Var 16,Var 17,Var 1]])]])),Func ("OracleFlatCurryXML","_case_567") 3 Private (TVar (-42)) (Rule [16,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FlatCurry","Lit") [Comb FuncCall ("OracleFlatCurryXML","flatx2lit") [Var 16,Var 1]]])]])),Func ("OracleFlatCurryXML","_case_580") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_579") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_579") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_578") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_578") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_577") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_577") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_576") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_576") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_575") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_575") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Var") [Comb FuncCall ("OracleRead","readNat") [Comb FuncCall ("OracleXML","textOfXml") [Var 5,Var 1],Var 6]]]))]])),Func ("OracleFlatCurryXML","_case_592") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_591") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_591") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_590") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_590") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 'v')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_589") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_589") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_588") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_588") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_587") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_587") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_586") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_586") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_585") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_585") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_584") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_584") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRead","readNat") [Comb FuncCall ("OracleXML","textOfXml") [Var 5,Var 1],Var 6]]))]])),Func ("OracleFlatCurryXML","_case_642") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_641") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_641") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_640") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_640") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_639") [Var 4,Var 5,Var 7,Var 1]]),Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_623") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_623") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_622") [Var 4,Var 5,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_622") 5 Private (TVar (-42)) (Rule [4,5,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_621") [Var 4,Var 5,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_621") 4 Private (TVar (-42)) (Rule [4,5,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_620") [Var 4,Var 5,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_620") 5 Private (TVar (-42)) (Rule [4,5,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_619") [Var 4,Var 5,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_619") 4 Private (TVar (-42)) (Rule [4,5,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_618") [Var 4,Var 5,Var 27,Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_618") 5 Private (TVar (-42)) (Rule [4,5,27,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_617") [Var 4,Var 5,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_617") 4 Private (TVar (-42)) (Rule [4,5,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_616") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_616") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_615") [Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_615") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_614") [Var 29,Var 28,Var 1]])]])),Func ("OracleFlatCurryXML","_case_614") 3 Private (TVar (-42)) (Rule [29,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (Pattern ("XML","XElem") [30,31,32]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_613") [Var 29,Var 31,Var 32,Var 30,Var 1]])]])),Func ("OracleFlatCurryXML","_case_613") 5 Private (TVar (-42)) (Rule [29,31,32,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (Pattern ("Prelude",":") [33,34]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_612") [Var 29,Var 31,Var 32,Var 34,Var 33,Var 1]])]])),Func ("OracleFlatCurryXML","_case_612") 6 Private (TVar (-42)) (Rule [29,31,32,34,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 33) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_611") [Var 29,Var 31,Var 32,Var 34,Var 1]])]])),Func ("OracleFlatCurryXML","_case_611") 5 Private (TVar (-42)) (Rule [29,31,32,34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (Pattern ("Prelude",":") [35,36]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_610") [Var 29,Var 31,Var 32,Var 36,Var 35,Var 1]])]])),Func ("OracleFlatCurryXML","_case_610") 6 Private (TVar (-42)) (Rule [29,31,32,36,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 35) [Branch (LPattern (Charc 'h')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_609") [Var 29,Var 31,Var 32,Var 36,Var 1]])]])),Func ("OracleFlatCurryXML","_case_609") 5 Private (TVar (-42)) (Rule [29,31,32,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (Pattern ("Prelude",":") [37,38]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_608") [Var 29,Var 31,Var 32,Var 38,Var 37,Var 1]])]])),Func ("OracleFlatCurryXML","_case_608") 6 Private (TVar (-42)) (Rule [29,31,32,38,37,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 37) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_607") [Var 29,Var 31,Var 32,Var 38,Var 1]])]])),Func ("OracleFlatCurryXML","_case_607") 5 Private (TVar (-42)) (Rule [29,31,32,38,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 38) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_606") [Var 29,Var 32,Var 31,Var 1]])]])),Func ("OracleFlatCurryXML","_case_606") 4 Private (TVar (-42)) (Rule [29,32,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_605") [Var 32,Var 29,Var 1]])]])),Func ("OracleFlatCurryXML","_case_605") 3 Private (TVar (-42)) (Rule [32,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (Pattern ("Prelude",":") [39,40]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_604") [Var 32,Var 40,Var 39,Var 1]])]])),Func ("OracleFlatCurryXML","_case_604") 4 Private (TVar (-42)) (Rule [32,40,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 39) [Branch (Pattern ("XML","XElem") [41,42,43]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_603") [Var 32,Var 40,Var 42,Var 43,Var 41,Var 1]])]])),Func ("OracleFlatCurryXML","_case_603") 6 Private (TVar (-42)) (Rule [32,40,42,43,41,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 41) [Branch (Pattern ("Prelude",":") [44,45]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_602") [Var 32,Var 40,Var 42,Var 43,Var 45,Var 44,Var 1]])]])),Func ("OracleFlatCurryXML","_case_602") 7 Private (TVar (-42)) (Rule [32,40,42,43,45,44,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 44) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_601") [Var 32,Var 40,Var 42,Var 43,Var 45,Var 1]])]])),Func ("OracleFlatCurryXML","_case_601") 6 Private (TVar (-42)) (Rule [32,40,42,43,45,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 45) [Branch (Pattern ("Prelude",":") [46,47]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_600") [Var 32,Var 40,Var 42,Var 43,Var 47,Var 46,Var 1]])]])),Func ("OracleFlatCurryXML","_case_600") 7 Private (TVar (-42)) (Rule [32,40,42,43,47,46,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 46) [Branch (LPattern (Charc 'h')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_599") [Var 32,Var 40,Var 42,Var 43,Var 47,Var 1]])]])),Func ("OracleFlatCurryXML","_case_599") 6 Private (TVar (-42)) (Rule [32,40,42,43,47,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 47) [Branch (Pattern ("Prelude",":") [48,49]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_598") [Var 32,Var 40,Var 42,Var 43,Var 49,Var 48,Var 1]])]])),Func ("OracleFlatCurryXML","_case_598") 7 Private (TVar (-42)) (Rule [32,40,42,43,49,48,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 48) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_597") [Var 32,Var 40,Var 42,Var 43,Var 49,Var 1]])]])),Func ("OracleFlatCurryXML","_case_597") 6 Private (TVar (-42)) (Rule [32,40,42,43,49,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 49) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_596") [Var 32,Var 40,Var 43,Var 42,Var 1]])]])),Func ("OracleFlatCurryXML","_case_596") 5 Private (TVar (-42)) (Rule [32,40,43,42,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 42) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_595") [Var 32,Var 40,Var 43,Var 1]])]])),Func ("OracleFlatCurryXML","_case_595") 4 Private (TVar (-42)) (Rule [32,40,43,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 43) [Branch (Pattern ("Prelude",":") [50,51]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_594") [Var 32,Var 40,Var 50,Var 51,Var 1]])]])),Func ("OracleFlatCurryXML","_case_594") 5 Private (TVar (-42)) (Rule [32,40,50,51,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 51) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_593") [Var 32,Var 50,Var 40,Var 1]])]])),Func ("OracleFlatCurryXML","_case_593") 4 Private (TVar (-42)) (Rule [32,50,40,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 40) [Branch (Pattern ("Prelude","[]") []) (Let [(51,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 51,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Rule") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2var") []],Var 32,Var 1],Comb FuncCall ("OracleFlatCurryXML","flatx2exp") [Var 50,Var 51]]]))]])),Func ("OracleFlatCurryXML","_case_639") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_638") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_638") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'x')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_637") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_637") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_636") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_636") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_635") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_635") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_634") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_634") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_633") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_633") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_632") [Var 4,Var 5,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_632") 5 Private (TVar (-42)) (Rule [4,5,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_631") [Var 4,Var 5,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_631") 4 Private (TVar (-42)) (Rule [4,5,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_630") [Var 4,Var 5,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_630") 5 Private (TVar (-42)) (Rule [4,5,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_629") [Var 4,Var 5,Var 17,Var 1]])]])),Func ("OracleFlatCurryXML","_case_629") 4 Private (TVar (-42)) (Rule [4,5,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_628") [Var 4,Var 5,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_628") 5 Private (TVar (-42)) (Rule [4,5,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_627") [Var 4,Var 5,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_627") 4 Private (TVar (-42)) (Rule [4,5,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_626") [Var 4,Var 5,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_626") 5 Private (TVar (-42)) (Rule [4,5,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_625") [Var 4,Var 5,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_625") 4 Private (TVar (-42)) (Rule [4,5,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_624") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_624") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FlatCurry","External") [Comb FuncCall ("OracleXML","textOfXml") [Var 5,Var 1]]])]])),Func ("OracleFlatCurryXML","_case_653") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_652") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_652") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_651") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_651") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_650") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_650") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_649") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_649") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'v')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_648") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_648") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_647") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_647") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_646") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_646") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_645") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_645") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_644") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_644") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_643") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_643") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRead","readNat") [Comb FuncCall ("OracleXML","textOfXml") [Var 5,Var 1],Var 6]]))]])),Func ("OracleFlatCurryXML","_case_704") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_703") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_703") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_702") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_702") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_701") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_701") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_700") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_700") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_699") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_699") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_698") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_698") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_697") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_697") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_696") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_696") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_695") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_695") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_694") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_694") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_693") [Var 5,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_693") 4 Private (TVar (-42)) (Rule [5,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude","(,)") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_692") [Var 5,Var 15,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_692") 5 Private (TVar (-42)) (Rule [5,15,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_691") [Var 5,Var 15,Var 17,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_691") 6 Private (TVar (-42)) (Rule [5,15,17,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_690") [Var 5,Var 15,Var 17,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_690") 5 Private (TVar (-42)) (Rule [5,15,17,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_689") [Var 5,Var 15,Var 17,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_689") 6 Private (TVar (-42)) (Rule [5,15,17,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_688") [Var 5,Var 15,Var 17,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_688") 5 Private (TVar (-42)) (Rule [5,15,17,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude",":") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_687") [Var 5,Var 15,Var 17,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_687") 6 Private (TVar (-42)) (Rule [5,15,17,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_686") [Var 5,Var 15,Var 17,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_686") 5 Private (TVar (-42)) (Rule [5,15,17,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_685") [Var 5,Var 15,Var 17,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_685") 6 Private (TVar (-42)) (Rule [5,15,17,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_684") [Var 5,Var 15,Var 17,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_684") 5 Private (TVar (-42)) (Rule [5,15,17,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_683") [Var 5,Var 15,Var 17,Var 27,Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_683") 6 Private (TVar (-42)) (Rule [5,15,17,27,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_682") [Var 5,Var 15,Var 17,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_682") 5 Private (TVar (-42)) (Rule [5,15,17,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_681") [Var 5,Var 15,Var 17,Var 29,Var 28,Var 1]])]])),Func ("OracleFlatCurryXML","_case_681") 6 Private (TVar (-42)) (Rule [5,15,17,29,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_680") [Var 5,Var 15,Var 17,Var 29,Var 1]])]])),Func ("OracleFlatCurryXML","_case_680") 5 Private (TVar (-42)) (Rule [5,15,17,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_679") [Var 5,Var 17,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_679") 4 Private (TVar (-42)) (Rule [5,17,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_678") [Var 5,Var 17,Var 31,Var 30,Var 1]])]])),Func ("OracleFlatCurryXML","_case_678") 5 Private (TVar (-42)) (Rule [5,17,31,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (Pattern ("Prelude","(,)") [32,33]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_677") [Var 5,Var 17,Var 31,Var 33,Var 32,Var 1]])]])),Func ("OracleFlatCurryXML","_case_677") 6 Private (TVar (-42)) (Rule [5,17,31,33,32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 32) [Branch (Pattern ("Prelude",":") [34,35]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_676") [Var 5,Var 17,Var 31,Var 33,Var 35,Var 34,Var 1]])]])),Func ("OracleFlatCurryXML","_case_676") 7 Private (TVar (-42)) (Rule [5,17,31,33,35,34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_675") [Var 5,Var 17,Var 31,Var 33,Var 35,Var 1]])]])),Func ("OracleFlatCurryXML","_case_675") 6 Private (TVar (-42)) (Rule [5,17,31,33,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 35) [Branch (Pattern ("Prelude",":") [36,37]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_674") [Var 5,Var 17,Var 31,Var 33,Var 37,Var 36,Var 1]])]])),Func ("OracleFlatCurryXML","_case_674") 7 Private (TVar (-42)) (Rule [5,17,31,33,37,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_673") [Var 5,Var 17,Var 31,Var 33,Var 37,Var 1]])]])),Func ("OracleFlatCurryXML","_case_673") 6 Private (TVar (-42)) (Rule [5,17,31,33,37,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 37) [Branch (Pattern ("Prelude",":") [38,39]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_672") [Var 5,Var 17,Var 31,Var 33,Var 39,Var 38,Var 1]])]])),Func ("OracleFlatCurryXML","_case_672") 7 Private (TVar (-42)) (Rule [5,17,31,33,39,38,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 38) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_671") [Var 5,Var 17,Var 31,Var 33,Var 39,Var 1]])]])),Func ("OracleFlatCurryXML","_case_671") 6 Private (TVar (-42)) (Rule [5,17,31,33,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 39) [Branch (Pattern ("Prelude",":") [40,41]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_670") [Var 5,Var 17,Var 31,Var 33,Var 41,Var 40,Var 1]])]])),Func ("OracleFlatCurryXML","_case_670") 7 Private (TVar (-42)) (Rule [5,17,31,33,41,40,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 40) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_669") [Var 5,Var 17,Var 31,Var 33,Var 41,Var 1]])]])),Func ("OracleFlatCurryXML","_case_669") 6 Private (TVar (-42)) (Rule [5,17,31,33,41,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 41) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_668") [Var 5,Var 17,Var 33,Var 31,Var 1]])]])),Func ("OracleFlatCurryXML","_case_668") 5 Private (TVar (-42)) (Rule [5,17,33,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (Pattern ("Prelude",":") [42,43]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_667") [Var 5,Var 17,Var 33,Var 43,Var 42,Var 1]])]])),Func ("OracleFlatCurryXML","_case_667") 6 Private (TVar (-42)) (Rule [5,17,33,43,42,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 42) [Branch (Pattern ("Prelude","(,)") [44,45]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_666") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 44,Var 1]])]])),Func ("OracleFlatCurryXML","_case_666") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,44,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 44) [Branch (Pattern ("Prelude",":") [46,47]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_665") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 47,Var 46,Var 1]])]])),Func ("OracleFlatCurryXML","_case_665") 8 Private (TVar (-42)) (Rule [5,17,33,43,45,47,46,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 46) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_664") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 47,Var 1]])]])),Func ("OracleFlatCurryXML","_case_664") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,47,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 47) [Branch (Pattern ("Prelude",":") [48,49]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_663") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 49,Var 48,Var 1]])]])),Func ("OracleFlatCurryXML","_case_663") 8 Private (TVar (-42)) (Rule [5,17,33,43,45,49,48,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 48) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_662") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 49,Var 1]])]])),Func ("OracleFlatCurryXML","_case_662") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,49,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 49) [Branch (Pattern ("Prelude",":") [50,51]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_661") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 51,Var 50,Var 1]])]])),Func ("OracleFlatCurryXML","_case_661") 8 Private (TVar (-42)) (Rule [5,17,33,43,45,51,50,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 50) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_660") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 51,Var 1]])]])),Func ("OracleFlatCurryXML","_case_660") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,51,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 51) [Branch (Pattern ("Prelude",":") [52,53]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_659") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 53,Var 52,Var 1]])]])),Func ("OracleFlatCurryXML","_case_659") 8 Private (TVar (-42)) (Rule [5,17,33,43,45,53,52,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 52) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_658") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 53,Var 1]])]])),Func ("OracleFlatCurryXML","_case_658") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,53,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 53) [Branch (Pattern ("Prelude",":") [54,55]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_657") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 55,Var 54,Var 1]])]])),Func ("OracleFlatCurryXML","_case_657") 8 Private (TVar (-42)) (Rule [5,17,33,43,45,55,54,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 54) [Branch (LPattern (Charc 'y')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_656") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 55,Var 1]])]])),Func ("OracleFlatCurryXML","_case_656") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,55,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 55) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_655") [Var 5,Var 17,Var 33,Var 45,Var 43,Var 1]])]])),Func ("OracleFlatCurryXML","_case_655") 6 Private (TVar (-42)) (Rule [5,17,33,45,43,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 43) [Branch (Pattern ("Prelude",":") [56,57]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_654") [Var 5,Var 17,Var 33,Var 45,Var 56,Var 57,Var 1]])]])),Func ("OracleFlatCurryXML","_case_654") 7 Private (TVar (-42)) (Rule [5,17,33,45,56,57,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 57) [Branch (Pattern ("Prelude","[]") []) (Let [(58,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(59,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 58,Comb ConsCall ("Prelude",":") [Var 59,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("FlatCurry","Cons") [Comb ConsCall ("Prelude","(,)") [Var 17,Var 33],Comb FuncCall ("OracleRead","readNat") [Var 45,Var 1],Comb FuncCall ("OracleFlatCurryXML","xvis2vis") [Var 56,Var 58],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2texp") []],Var 5,Var 59]]]))]])),Func ("OracleFlatCurryXML","_case_715") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_714") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_714") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_713") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_713") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_712") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_712") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_711") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_711") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'v')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_710") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_710") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_709") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_709") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_708") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_708") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_707") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_707") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_706") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_706") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_705") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_705") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRead","readNat") [Comb FuncCall ("OracleXML","textOfXml") [Var 5,Var 1],Var 6]]))]])),Func ("OracleFlatCurryXML","_case_821") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_820") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_820") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_819") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_819") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_818") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_818") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_817") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_817") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'y')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_816") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_816") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_815") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_815") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_814") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_814") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_813") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_813") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_812") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_812") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_811") [Var 5,Var 4,Var 1]]),Branch (Pattern ("Prelude",":") [61,62]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_767") [Var 4,Var 5,Var 62,Var 61,Var 1]])]])),Func ("OracleFlatCurryXML","_case_767") 5 Private (TVar (-42)) (Rule [4,5,62,61,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 61) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_766") [Var 4,Var 5,Var 62,Var 1]])]])),Func ("OracleFlatCurryXML","_case_766") 4 Private (TVar (-42)) (Rule [4,5,62,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 62) [Branch (Pattern ("Prelude",":") [63,64]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_765") [Var 4,Var 5,Var 64,Var 63,Var 1]])]])),Func ("OracleFlatCurryXML","_case_765") 5 Private (TVar (-42)) (Rule [4,5,64,63,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 63) [Branch (LPattern (Charc 'y')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_764") [Var 4,Var 5,Var 64,Var 1]])]])),Func ("OracleFlatCurryXML","_case_764") 4 Private (TVar (-42)) (Rule [4,5,64,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 64) [Branch (Pattern ("Prelude",":") [65,66]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_763") [Var 4,Var 5,Var 66,Var 65,Var 1]])]])),Func ("OracleFlatCurryXML","_case_763") 5 Private (TVar (-42)) (Rule [4,5,66,65,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 65) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_762") [Var 4,Var 5,Var 66,Var 1]])]])),Func ("OracleFlatCurryXML","_case_762") 4 Private (TVar (-42)) (Rule [4,5,66,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 66) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_761") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_761") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [67,68]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_760") [Var 5,Var 68,Var 67,Var 1]])]])),Func ("OracleFlatCurryXML","_case_760") 4 Private (TVar (-42)) (Rule [5,68,67,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 67) [Branch (Pattern ("Prelude","(,)") [69,70]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_759") [Var 5,Var 68,Var 70,Var 69,Var 1]])]])),Func ("OracleFlatCurryXML","_case_759") 5 Private (TVar (-42)) (Rule [5,68,70,69,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 69) [Branch (Pattern ("Prelude",":") [71,72]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_758") [Var 5,Var 68,Var 70,Var 72,Var 71,Var 1]])]])),Func ("OracleFlatCurryXML","_case_758") 6 Private (TVar (-42)) (Rule [5,68,70,72,71,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 71) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_757") [Var 5,Var 68,Var 70,Var 72,Var 1]])]])),Func ("OracleFlatCurryXML","_case_757") 5 Private (TVar (-42)) (Rule [5,68,70,72,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 72) [Branch (Pattern ("Prelude",":") [73,74]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_756") [Var 5,Var 68,Var 70,Var 74,Var 73,Var 1]])]])),Func ("OracleFlatCurryXML","_case_756") 6 Private (TVar (-42)) (Rule [5,68,70,74,73,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 73) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_755") [Var 5,Var 68,Var 70,Var 74,Var 1]])]])),Func ("OracleFlatCurryXML","_case_755") 5 Private (TVar (-42)) (Rule [5,68,70,74,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 74) [Branch (Pattern ("Prelude",":") [75,76]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_754") [Var 5,Var 68,Var 70,Var 76,Var 75,Var 1]])]])),Func ("OracleFlatCurryXML","_case_754") 6 Private (TVar (-42)) (Rule [5,68,70,76,75,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 75) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_753") [Var 5,Var 68,Var 70,Var 76,Var 1]])]])),Func ("OracleFlatCurryXML","_case_753") 5 Private (TVar (-42)) (Rule [5,68,70,76,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 76) [Branch (Pattern ("Prelude",":") [77,78]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_752") [Var 5,Var 68,Var 70,Var 78,Var 77,Var 1]])]])),Func ("OracleFlatCurryXML","_case_752") 6 Private (TVar (-42)) (Rule [5,68,70,78,77,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 77) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_751") [Var 5,Var 68,Var 70,Var 78,Var 1]])]])),Func ("OracleFlatCurryXML","_case_751") 5 Private (TVar (-42)) (Rule [5,68,70,78,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 78) [Branch (Pattern ("Prelude",":") [79,80]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_750") [Var 5,Var 68,Var 70,Var 80,Var 79,Var 1]])]])),Func ("OracleFlatCurryXML","_case_750") 6 Private (TVar (-42)) (Rule [5,68,70,80,79,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 79) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_749") [Var 5,Var 68,Var 70,Var 80,Var 1]])]])),Func ("OracleFlatCurryXML","_case_749") 5 Private (TVar (-42)) (Rule [5,68,70,80,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 80) [Branch (Pattern ("Prelude",":") [81,82]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_748") [Var 5,Var 68,Var 70,Var 82,Var 81,Var 1]])]])),Func ("OracleFlatCurryXML","_case_748") 6 Private (TVar (-42)) (Rule [5,68,70,82,81,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 81) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_747") [Var 5,Var 68,Var 70,Var 82,Var 1]])]])),Func ("OracleFlatCurryXML","_case_747") 5 Private (TVar (-42)) (Rule [5,68,70,82,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 82) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_746") [Var 5,Var 70,Var 68,Var 1]])]])),Func ("OracleFlatCurryXML","_case_746") 4 Private (TVar (-42)) (Rule [5,70,68,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 68) [Branch (Pattern ("Prelude",":") [83,84]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_745") [Var 5,Var 70,Var 84,Var 83,Var 1]])]])),Func ("OracleFlatCurryXML","_case_745") 5 Private (TVar (-42)) (Rule [5,70,84,83,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 83) [Branch (Pattern ("Prelude","(,)") [85,86]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_744") [Var 5,Var 70,Var 84,Var 86,Var 85,Var 1]])]])),Func ("OracleFlatCurryXML","_case_744") 6 Private (TVar (-42)) (Rule [5,70,84,86,85,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 85) [Branch (Pattern ("Prelude",":") [87,88]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_743") [Var 5,Var 70,Var 84,Var 86,Var 88,Var 87,Var 1]])]])),Func ("OracleFlatCurryXML","_case_743") 7 Private (TVar (-42)) (Rule [5,70,84,86,88,87,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 87) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_742") [Var 5,Var 70,Var 84,Var 86,Var 88,Var 1]])]])),Func ("OracleFlatCurryXML","_case_742") 6 Private (TVar (-42)) (Rule [5,70,84,86,88,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 88) [Branch (Pattern ("Prelude",":") [89,90]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_741") [Var 5,Var 70,Var 84,Var 86,Var 90,Var 89,Var 1]])]])),Func ("OracleFlatCurryXML","_case_741") 7 Private (TVar (-42)) (Rule [5,70,84,86,90,89,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 89) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_740") [Var 5,Var 70,Var 84,Var 86,Var 90,Var 1]])]])),Func ("OracleFlatCurryXML","_case_740") 6 Private (TVar (-42)) (Rule [5,70,84,86,90,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 90) [Branch (Pattern ("Prelude",":") [91,92]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_739") [Var 5,Var 70,Var 84,Var 86,Var 92,Var 91,Var 1]])]])),Func ("OracleFlatCurryXML","_case_739") 7 Private (TVar (-42)) (Rule [5,70,84,86,92,91,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 91) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_738") [Var 5,Var 70,Var 84,Var 86,Var 92,Var 1]])]])),Func ("OracleFlatCurryXML","_case_738") 6 Private (TVar (-42)) (Rule [5,70,84,86,92,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 92) [Branch (Pattern ("Prelude",":") [93,94]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_737") [Var 5,Var 70,Var 84,Var 86,Var 94,Var 93,Var 1]])]])),Func ("OracleFlatCurryXML","_case_737") 7 Private (TVar (-42)) (Rule [5,70,84,86,94,93,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 93) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_736") [Var 5,Var 70,Var 84,Var 86,Var 94,Var 1]])]])),Func ("OracleFlatCurryXML","_case_736") 6 Private (TVar (-42)) (Rule [5,70,84,86,94,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 94) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_735") [Var 5,Var 70,Var 86,Var 84,Var 1]])]])),Func ("OracleFlatCurryXML","_case_735") 5 Private (TVar (-42)) (Rule [5,70,86,84,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 84) [Branch (Pattern ("Prelude",":") [95,96]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_734") [Var 5,Var 70,Var 86,Var 95,Var 96,Var 1]])]])),Func ("OracleFlatCurryXML","_case_734") 6 Private (TVar (-42)) (Rule [5,70,86,95,96,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 96) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_733") [Var 70,Var 86,Var 95,Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_733") 5 Private (TVar (-42)) (Rule [70,86,95,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [97,98]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_732") [Var 70,Var 86,Var 95,Var 98,Var 97,Var 1]])]])),Func ("OracleFlatCurryXML","_case_732") 6 Private (TVar (-42)) (Rule [70,86,95,98,97,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 97) [Branch (Pattern ("XML","XElem") [99,100,101]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_731") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 99,Var 1]])]])),Func ("OracleFlatCurryXML","_case_731") 8 Private (TVar (-42)) (Rule [70,86,95,98,100,101,99,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 99) [Branch (Pattern ("Prelude",":") [102,103]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_730") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 103,Var 102,Var 1]])]])),Func ("OracleFlatCurryXML","_case_730") 9 Private (TVar (-42)) (Rule [70,86,95,98,100,101,103,102,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 102) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_729") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 103,Var 1]])]])),Func ("OracleFlatCurryXML","_case_729") 8 Private (TVar (-42)) (Rule [70,86,95,98,100,101,103,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 103) [Branch (Pattern ("Prelude",":") [104,105]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_728") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 105,Var 104,Var 1]])]])),Func ("OracleFlatCurryXML","_case_728") 9 Private (TVar (-42)) (Rule [70,86,95,98,100,101,105,104,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 104) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_727") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 105,Var 1]])]])),Func ("OracleFlatCurryXML","_case_727") 8 Private (TVar (-42)) (Rule [70,86,95,98,100,101,105,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 105) [Branch (Pattern ("Prelude",":") [106,107]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_726") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 107,Var 106,Var 1]])]])),Func ("OracleFlatCurryXML","_case_726") 9 Private (TVar (-42)) (Rule [70,86,95,98,100,101,107,106,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 106) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_725") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 107,Var 1]])]])),Func ("OracleFlatCurryXML","_case_725") 8 Private (TVar (-42)) (Rule [70,86,95,98,100,101,107,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 107) [Branch (Pattern ("Prelude",":") [108,109]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_724") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 109,Var 108,Var 1]])]])),Func ("OracleFlatCurryXML","_case_724") 9 Private (TVar (-42)) (Rule [70,86,95,98,100,101,109,108,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 108) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_723") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 109,Var 1]])]])),Func ("OracleFlatCurryXML","_case_723") 8 Private (TVar (-42)) (Rule [70,86,95,98,100,101,109,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 109) [Branch (Pattern ("Prelude",":") [110,111]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_722") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 111,Var 110,Var 1]])]])),Func ("OracleFlatCurryXML","_case_722") 9 Private (TVar (-42)) (Rule [70,86,95,98,100,101,111,110,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 110) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_721") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 111,Var 1]])]])),Func ("OracleFlatCurryXML","_case_721") 8 Private (TVar (-42)) (Rule [70,86,95,98,100,101,111,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 111) [Branch (Pattern ("Prelude",":") [112,113]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_720") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 113,Var 112,Var 1]])]])),Func ("OracleFlatCurryXML","_case_720") 9 Private (TVar (-42)) (Rule [70,86,95,98,100,101,113,112,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 112) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_719") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 113,Var 1]])]])),Func ("OracleFlatCurryXML","_case_719") 8 Private (TVar (-42)) (Rule [70,86,95,98,100,101,113,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 113) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_718") [Var 70,Var 86,Var 95,Var 98,Var 101,Var 100,Var 1]])]])),Func ("OracleFlatCurryXML","_case_718") 7 Private (TVar (-42)) (Rule [70,86,95,98,101,100,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 100) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_717") [Var 70,Var 86,Var 95,Var 101,Var 98,Var 1]])]])),Func ("OracleFlatCurryXML","_case_717") 6 Private (TVar (-42)) (Rule [70,86,95,101,98,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 98) [Branch (Pattern ("Prelude",":") [114,115]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_716") [Var 70,Var 86,Var 95,Var 101,Var 114,Var 115,Var 1]])]])),Func ("OracleFlatCurryXML","_case_716") 7 Private (TVar (-42)) (Rule [70,86,95,101,114,115,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 115) [Branch (Pattern ("Prelude","[]") []) (Let [(116,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(117,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 116,Comb ConsCall ("Prelude",":") [Var 117,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("FlatCurry","TypeSyn") [Comb ConsCall ("Prelude","(,)") [Var 70,Var 86],Comb FuncCall ("OracleFlatCurryXML","xvis2vis") [Var 95,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2typedecl._#lambda10") []],Var 101,Var 116],Comb FuncCall ("OracleFlatCurryXML","flatx2texp") [Var 114,Var 117]]]))]])),Func ("OracleFlatCurryXML","_case_811") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_810") [Var 5,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_810") 4 Private (TVar (-42)) (Rule [5,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude","(,)") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_809") [Var 5,Var 15,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_809") 5 Private (TVar (-42)) (Rule [5,15,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_808") [Var 5,Var 15,Var 17,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_808") 6 Private (TVar (-42)) (Rule [5,15,17,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_807") [Var 5,Var 15,Var 17,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_807") 5 Private (TVar (-42)) (Rule [5,15,17,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_806") [Var 5,Var 15,Var 17,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_806") 6 Private (TVar (-42)) (Rule [5,15,17,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_805") [Var 5,Var 15,Var 17,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_805") 5 Private (TVar (-42)) (Rule [5,15,17,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude",":") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_804") [Var 5,Var 15,Var 17,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_804") 6 Private (TVar (-42)) (Rule [5,15,17,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_803") [Var 5,Var 15,Var 17,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_803") 5 Private (TVar (-42)) (Rule [5,15,17,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_802") [Var 5,Var 15,Var 17,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_802") 6 Private (TVar (-42)) (Rule [5,15,17,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_801") [Var 5,Var 15,Var 17,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_801") 5 Private (TVar (-42)) (Rule [5,15,17,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_800") [Var 5,Var 15,Var 17,Var 27,Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_800") 6 Private (TVar (-42)) (Rule [5,15,17,27,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_799") [Var 5,Var 15,Var 17,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_799") 5 Private (TVar (-42)) (Rule [5,15,17,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_798") [Var 5,Var 15,Var 17,Var 29,Var 28,Var 1]])]])),Func ("OracleFlatCurryXML","_case_798") 6 Private (TVar (-42)) (Rule [5,15,17,29,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_797") [Var 5,Var 15,Var 17,Var 29,Var 1]])]])),Func ("OracleFlatCurryXML","_case_797") 5 Private (TVar (-42)) (Rule [5,15,17,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_796") [Var 5,Var 17,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_796") 4 Private (TVar (-42)) (Rule [5,17,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_795") [Var 5,Var 17,Var 31,Var 30,Var 1]])]])),Func ("OracleFlatCurryXML","_case_795") 5 Private (TVar (-42)) (Rule [5,17,31,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (Pattern ("Prelude","(,)") [32,33]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_794") [Var 5,Var 17,Var 31,Var 33,Var 32,Var 1]])]])),Func ("OracleFlatCurryXML","_case_794") 6 Private (TVar (-42)) (Rule [5,17,31,33,32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 32) [Branch (Pattern ("Prelude",":") [34,35]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_793") [Var 5,Var 17,Var 31,Var 33,Var 35,Var 34,Var 1]])]])),Func ("OracleFlatCurryXML","_case_793") 7 Private (TVar (-42)) (Rule [5,17,31,33,35,34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_792") [Var 5,Var 17,Var 31,Var 33,Var 35,Var 1]])]])),Func ("OracleFlatCurryXML","_case_792") 6 Private (TVar (-42)) (Rule [5,17,31,33,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 35) [Branch (Pattern ("Prelude",":") [36,37]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_791") [Var 5,Var 17,Var 31,Var 33,Var 37,Var 36,Var 1]])]])),Func ("OracleFlatCurryXML","_case_791") 7 Private (TVar (-42)) (Rule [5,17,31,33,37,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_790") [Var 5,Var 17,Var 31,Var 33,Var 37,Var 1]])]])),Func ("OracleFlatCurryXML","_case_790") 6 Private (TVar (-42)) (Rule [5,17,31,33,37,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 37) [Branch (Pattern ("Prelude",":") [38,39]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_789") [Var 5,Var 17,Var 31,Var 33,Var 39,Var 38,Var 1]])]])),Func ("OracleFlatCurryXML","_case_789") 7 Private (TVar (-42)) (Rule [5,17,31,33,39,38,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 38) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_788") [Var 5,Var 17,Var 31,Var 33,Var 39,Var 1]])]])),Func ("OracleFlatCurryXML","_case_788") 6 Private (TVar (-42)) (Rule [5,17,31,33,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 39) [Branch (Pattern ("Prelude",":") [40,41]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_787") [Var 5,Var 17,Var 31,Var 33,Var 41,Var 40,Var 1]])]])),Func ("OracleFlatCurryXML","_case_787") 7 Private (TVar (-42)) (Rule [5,17,31,33,41,40,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 40) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_786") [Var 5,Var 17,Var 31,Var 33,Var 41,Var 1]])]])),Func ("OracleFlatCurryXML","_case_786") 6 Private (TVar (-42)) (Rule [5,17,31,33,41,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 41) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_785") [Var 5,Var 17,Var 33,Var 31,Var 1]])]])),Func ("OracleFlatCurryXML","_case_785") 5 Private (TVar (-42)) (Rule [5,17,33,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (Pattern ("Prelude",":") [42,43]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_784") [Var 5,Var 17,Var 33,Var 42,Var 43,Var 1]])]])),Func ("OracleFlatCurryXML","_case_784") 6 Private (TVar (-42)) (Rule [5,17,33,42,43,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 43) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_783") [Var 17,Var 33,Var 42,Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_783") 5 Private (TVar (-42)) (Rule [17,33,42,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [44,45]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_782") [Var 17,Var 33,Var 42,Var 45,Var 44,Var 1]])]])),Func ("OracleFlatCurryXML","_case_782") 6 Private (TVar (-42)) (Rule [17,33,42,45,44,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 44) [Branch (Pattern ("XML","XElem") [46,47,48]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_781") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 46,Var 1]])]])),Func ("OracleFlatCurryXML","_case_781") 8 Private (TVar (-42)) (Rule [17,33,42,45,47,48,46,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 46) [Branch (Pattern ("Prelude",":") [49,50]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_780") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 50,Var 49,Var 1]])]])),Func ("OracleFlatCurryXML","_case_780") 9 Private (TVar (-42)) (Rule [17,33,42,45,47,48,50,49,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 49) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_779") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 50,Var 1]])]])),Func ("OracleFlatCurryXML","_case_779") 8 Private (TVar (-42)) (Rule [17,33,42,45,47,48,50,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 50) [Branch (Pattern ("Prelude",":") [51,52]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_778") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 52,Var 51,Var 1]])]])),Func ("OracleFlatCurryXML","_case_778") 9 Private (TVar (-42)) (Rule [17,33,42,45,47,48,52,51,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 51) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_777") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 52,Var 1]])]])),Func ("OracleFlatCurryXML","_case_777") 8 Private (TVar (-42)) (Rule [17,33,42,45,47,48,52,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 52) [Branch (Pattern ("Prelude",":") [53,54]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_776") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 54,Var 53,Var 1]])]])),Func ("OracleFlatCurryXML","_case_776") 9 Private (TVar (-42)) (Rule [17,33,42,45,47,48,54,53,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 53) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_775") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 54,Var 1]])]])),Func ("OracleFlatCurryXML","_case_775") 8 Private (TVar (-42)) (Rule [17,33,42,45,47,48,54,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 54) [Branch (Pattern ("Prelude",":") [55,56]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_774") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 56,Var 55,Var 1]])]])),Func ("OracleFlatCurryXML","_case_774") 9 Private (TVar (-42)) (Rule [17,33,42,45,47,48,56,55,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 55) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_773") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 56,Var 1]])]])),Func ("OracleFlatCurryXML","_case_773") 8 Private (TVar (-42)) (Rule [17,33,42,45,47,48,56,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 56) [Branch (Pattern ("Prelude",":") [57,58]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_772") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 58,Var 57,Var 1]])]])),Func ("OracleFlatCurryXML","_case_772") 9 Private (TVar (-42)) (Rule [17,33,42,45,47,48,58,57,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 57) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_771") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 58,Var 1]])]])),Func ("OracleFlatCurryXML","_case_771") 8 Private (TVar (-42)) (Rule [17,33,42,45,47,48,58,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 58) [Branch (Pattern ("Prelude",":") [59,60]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_770") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 60,Var 59,Var 1]])]])),Func ("OracleFlatCurryXML","_case_770") 9 Private (TVar (-42)) (Rule [17,33,42,45,47,48,60,59,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 59) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_769") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 60,Var 1]])]])),Func ("OracleFlatCurryXML","_case_769") 8 Private (TVar (-42)) (Rule [17,33,42,45,47,48,60,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 60) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_768") [Var 17,Var 33,Var 42,Var 45,Var 48,Var 47,Var 1]])]])),Func ("OracleFlatCurryXML","_case_768") 7 Private (TVar (-42)) (Rule [17,33,42,45,48,47,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 47) [Branch (Pattern ("Prelude","[]") []) (Let [(49,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(50,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 49,Comb ConsCall ("Prelude",":") [Var 50,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("FlatCurry","Type") [Comb ConsCall ("Prelude","(,)") [Var 17,Var 33],Comb FuncCall ("OracleFlatCurryXML","xvis2vis") [Var 42,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2typedecl._#lambda8") []],Var 48,Var 49],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2typedecl._#lambda9") []],Var 45,Var 50]]]))]])),Func ("OracleFlatCurryXML","_case_881") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_880") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_880") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_879") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_879") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_878") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_878") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_877") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_877") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_876") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_876") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_875") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_875") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_874") [Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_874") 4 Private (TVar (-42)) (Rule [5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude","(,)") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_873") [Var 5,Var 11,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_873") 5 Private (TVar (-42)) (Rule [5,11,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_872") [Var 5,Var 11,Var 13,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_872") 6 Private (TVar (-42)) (Rule [5,11,13,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_871") [Var 5,Var 11,Var 13,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_871") 5 Private (TVar (-42)) (Rule [5,11,13,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_870") [Var 5,Var 11,Var 13,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_870") 6 Private (TVar (-42)) (Rule [5,11,13,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_869") [Var 5,Var 11,Var 13,Var 17,Var 1]])]])),Func ("OracleFlatCurryXML","_case_869") 5 Private (TVar (-42)) (Rule [5,11,13,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_868") [Var 5,Var 11,Var 13,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_868") 6 Private (TVar (-42)) (Rule [5,11,13,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_867") [Var 5,Var 11,Var 13,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_867") 5 Private (TVar (-42)) (Rule [5,11,13,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_866") [Var 5,Var 11,Var 13,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_866") 6 Private (TVar (-42)) (Rule [5,11,13,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_865") [Var 5,Var 11,Var 13,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_865") 5 Private (TVar (-42)) (Rule [5,11,13,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude",":") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_864") [Var 5,Var 11,Var 13,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_864") 6 Private (TVar (-42)) (Rule [5,11,13,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_863") [Var 5,Var 11,Var 13,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_863") 5 Private (TVar (-42)) (Rule [5,11,13,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_862") [Var 5,Var 11,Var 13,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_862") 6 Private (TVar (-42)) (Rule [5,11,13,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_861") [Var 5,Var 11,Var 13,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_861") 5 Private (TVar (-42)) (Rule [5,11,13,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_860") [Var 5,Var 13,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_860") 4 Private (TVar (-42)) (Rule [5,13,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_859") [Var 5,Var 13,Var 27,Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_859") 5 Private (TVar (-42)) (Rule [5,13,27,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (Pattern ("Prelude","(,)") [28,29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_858") [Var 5,Var 13,Var 27,Var 29,Var 28,Var 1]])]])),Func ("OracleFlatCurryXML","_case_858") 6 Private (TVar (-42)) (Rule [5,13,27,29,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (Pattern ("Prelude",":") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_857") [Var 5,Var 13,Var 27,Var 29,Var 31,Var 30,Var 1]])]])),Func ("OracleFlatCurryXML","_case_857") 7 Private (TVar (-42)) (Rule [5,13,27,29,31,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_856") [Var 5,Var 13,Var 27,Var 29,Var 31,Var 1]])]])),Func ("OracleFlatCurryXML","_case_856") 6 Private (TVar (-42)) (Rule [5,13,27,29,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (Pattern ("Prelude",":") [32,33]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_855") [Var 5,Var 13,Var 27,Var 29,Var 33,Var 32,Var 1]])]])),Func ("OracleFlatCurryXML","_case_855") 7 Private (TVar (-42)) (Rule [5,13,27,29,33,32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 32) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_854") [Var 5,Var 13,Var 27,Var 29,Var 33,Var 1]])]])),Func ("OracleFlatCurryXML","_case_854") 6 Private (TVar (-42)) (Rule [5,13,27,29,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 33) [Branch (Pattern ("Prelude",":") [34,35]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_853") [Var 5,Var 13,Var 27,Var 29,Var 35,Var 34,Var 1]])]])),Func ("OracleFlatCurryXML","_case_853") 7 Private (TVar (-42)) (Rule [5,13,27,29,35,34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_852") [Var 5,Var 13,Var 27,Var 29,Var 35,Var 1]])]])),Func ("OracleFlatCurryXML","_case_852") 6 Private (TVar (-42)) (Rule [5,13,27,29,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 35) [Branch (Pattern ("Prelude",":") [36,37]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_851") [Var 5,Var 13,Var 27,Var 29,Var 37,Var 36,Var 1]])]])),Func ("OracleFlatCurryXML","_case_851") 7 Private (TVar (-42)) (Rule [5,13,27,29,37,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_850") [Var 5,Var 13,Var 27,Var 29,Var 37,Var 1]])]])),Func ("OracleFlatCurryXML","_case_850") 6 Private (TVar (-42)) (Rule [5,13,27,29,37,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 37) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_849") [Var 5,Var 13,Var 29,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_849") 5 Private (TVar (-42)) (Rule [5,13,29,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude",":") [38,39]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_848") [Var 5,Var 13,Var 29,Var 39,Var 38,Var 1]])]])),Func ("OracleFlatCurryXML","_case_848") 6 Private (TVar (-42)) (Rule [5,13,29,39,38,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 38) [Branch (Pattern ("Prelude","(,)") [40,41]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_847") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 40,Var 1]])]])),Func ("OracleFlatCurryXML","_case_847") 7 Private (TVar (-42)) (Rule [5,13,29,39,41,40,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 40) [Branch (Pattern ("Prelude",":") [42,43]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_846") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 43,Var 42,Var 1]])]])),Func ("OracleFlatCurryXML","_case_846") 8 Private (TVar (-42)) (Rule [5,13,29,39,41,43,42,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 42) [Branch (LPattern (Charc 'f')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_845") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 43,Var 1]])]])),Func ("OracleFlatCurryXML","_case_845") 7 Private (TVar (-42)) (Rule [5,13,29,39,41,43,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 43) [Branch (Pattern ("Prelude",":") [44,45]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_844") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 45,Var 44,Var 1]])]])),Func ("OracleFlatCurryXML","_case_844") 8 Private (TVar (-42)) (Rule [5,13,29,39,41,45,44,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 44) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_843") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 45,Var 1]])]])),Func ("OracleFlatCurryXML","_case_843") 7 Private (TVar (-42)) (Rule [5,13,29,39,41,45,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 45) [Branch (Pattern ("Prelude",":") [46,47]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_842") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 47,Var 46,Var 1]])]])),Func ("OracleFlatCurryXML","_case_842") 8 Private (TVar (-42)) (Rule [5,13,29,39,41,47,46,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 46) [Branch (LPattern (Charc 'x')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_841") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 47,Var 1]])]])),Func ("OracleFlatCurryXML","_case_841") 7 Private (TVar (-42)) (Rule [5,13,29,39,41,47,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 47) [Branch (Pattern ("Prelude",":") [48,49]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_840") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 49,Var 48,Var 1]])]])),Func ("OracleFlatCurryXML","_case_840") 8 Private (TVar (-42)) (Rule [5,13,29,39,41,49,48,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 48) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_839") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 49,Var 1]])]])),Func ("OracleFlatCurryXML","_case_839") 7 Private (TVar (-42)) (Rule [5,13,29,39,41,49,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 49) [Branch (Pattern ("Prelude",":") [50,51]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_838") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 51,Var 50,Var 1]])]])),Func ("OracleFlatCurryXML","_case_838") 8 Private (TVar (-42)) (Rule [5,13,29,39,41,51,50,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 50) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_837") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 51,Var 1]])]])),Func ("OracleFlatCurryXML","_case_837") 7 Private (TVar (-42)) (Rule [5,13,29,39,41,51,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 51) [Branch (Pattern ("Prelude",":") [52,53]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_836") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 53,Var 52,Var 1]])]])),Func ("OracleFlatCurryXML","_case_836") 8 Private (TVar (-42)) (Rule [5,13,29,39,41,53,52,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 52) [Branch (LPattern (Charc 'y')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_835") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 53,Var 1]])]])),Func ("OracleFlatCurryXML","_case_835") 7 Private (TVar (-42)) (Rule [5,13,29,39,41,53,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 53) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_834") [Var 5,Var 13,Var 29,Var 41,Var 39,Var 1]])]])),Func ("OracleFlatCurryXML","_case_834") 6 Private (TVar (-42)) (Rule [5,13,29,41,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 39) [Branch (Pattern ("Prelude",":") [54,55]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_833") [Var 5,Var 13,Var 29,Var 41,Var 55,Var 54,Var 1]])]])),Func ("OracleFlatCurryXML","_case_833") 7 Private (TVar (-42)) (Rule [5,13,29,41,55,54,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 54) [Branch (Pattern ("Prelude","(,)") [56,57]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_832") [Var 5,Var 13,Var 29,Var 41,Var 55,Var 57,Var 56,Var 1]])]])),Func ("OracleFlatCurryXML","_case_832") 8 Private (TVar (-42)) (Rule [5,13,29,41,55,57,56,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 56) [Branch (Pattern ("Prelude",":") [58,59]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_831") [Var 5,Var 13,Var 29,Var 41,Var 55,Var 57,Var 59,Var 58,Var 1]])]])),Func ("OracleFlatCurryXML","_case_831") 9 Private (TVar (-42)) (Rule [5,13,29,41,55,57,59,58,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 58) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_830") [Var 5,Var 13,Var 29,Var 41,Var 55,Var 57,Var 59,Var 1]])]])),Func ("OracleFlatCurryXML","_case_830") 8 Private (TVar (-42)) (Rule [5,13,29,41,55,57,59,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 59) [Branch (Pattern ("Prelude",":") [60,61]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_829") [Var 5,Var 13,Var 29,Var 41,Var 55,Var 57,Var 61,Var 60,Var 1]])]])),Func ("OracleFlatCurryXML","_case_829") 9 Private (TVar (-42)) (Rule [5,13,29,41,55,57,61,60,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 60) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_828") [Var 5,Var 13,Var 29,Var 41,Var 55,Var 57,Var 61,Var 1]])]])),Func ("OracleFlatCurryXML","_case_828") 8 Private (TVar (-42)) (Rule [5,13,29,41,55,57,61,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 61) [Branch (Pattern ("Prelude",":") [62,63]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_827") [Var 5,Var 13,Var 29,Var 41,Var 55,Var 57,Var 63,Var 62,Var 1]])]])),Func ("OracleFlatCurryXML","_case_827") 9 Private (TVar (-42)) (Rule [5,13,29,41,55,57,63,62,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 62) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_826") [Var 5,Var 13,Var 29,Var 41,Var 55,Var 57,Var 63,Var 1]])]])),Func ("OracleFlatCurryXML","_case_826") 8 Private (TVar (-42)) (Rule [5,13,29,41,55,57,63,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 63) [Branch (Pattern ("Prelude",":") [64,65]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_825") [Var 5,Var 13,Var 29,Var 41,Var 55,Var 57,Var 65,Var 64,Var 1]])]])),Func ("OracleFlatCurryXML","_case_825") 9 Private (TVar (-42)) (Rule [5,13,29,41,55,57,65,64,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 64) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_824") [Var 5,Var 13,Var 29,Var 41,Var 55,Var 57,Var 65,Var 1]])]])),Func ("OracleFlatCurryXML","_case_824") 8 Private (TVar (-42)) (Rule [5,13,29,41,55,57,65,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 65) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_823") [Var 5,Var 13,Var 29,Var 41,Var 57,Var 55,Var 1]])]])),Func ("OracleFlatCurryXML","_case_823") 7 Private (TVar (-42)) (Rule [5,13,29,41,57,55,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 55) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_822") [Var 13,Var 29,Var 41,Var 57,Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_822") 6 Private (TVar (-42)) (Rule [13,29,41,57,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Let [(58,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 58,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Op") [Comb ConsCall ("Prelude","(,)") [Var 13,Var 29],Comb FuncCall ("OracleFlatCurryXML","flatx2Fixity") [Var 41,Var 1],Comb FuncCall ("OracleRead","readNat") [Var 57,Var 58]]]))]])),Func ("OracleFlatCurryXML","_case_935") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_934") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_934") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_933") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_933") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 'f')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_932") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_932") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_931") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_931") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_930") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_930") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_929") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_929") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_928") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_928") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_927") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_927") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_926") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_926") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_925") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_925") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_924") [Var 5,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_924") 4 Private (TVar (-42)) (Rule [5,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude","(,)") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_923") [Var 5,Var 15,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_923") 5 Private (TVar (-42)) (Rule [5,15,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_922") [Var 5,Var 15,Var 17,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_922") 6 Private (TVar (-42)) (Rule [5,15,17,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_921") [Var 5,Var 15,Var 17,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_921") 5 Private (TVar (-42)) (Rule [5,15,17,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_920") [Var 5,Var 15,Var 17,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_920") 6 Private (TVar (-42)) (Rule [5,15,17,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_919") [Var 5,Var 15,Var 17,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_919") 5 Private (TVar (-42)) (Rule [5,15,17,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude",":") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_918") [Var 5,Var 15,Var 17,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_918") 6 Private (TVar (-42)) (Rule [5,15,17,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_917") [Var 5,Var 15,Var 17,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_917") 5 Private (TVar (-42)) (Rule [5,15,17,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_916") [Var 5,Var 15,Var 17,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_916") 6 Private (TVar (-42)) (Rule [5,15,17,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_915") [Var 5,Var 15,Var 17,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_915") 5 Private (TVar (-42)) (Rule [5,15,17,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_914") [Var 5,Var 15,Var 17,Var 27,Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_914") 6 Private (TVar (-42)) (Rule [5,15,17,27,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_913") [Var 5,Var 15,Var 17,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_913") 5 Private (TVar (-42)) (Rule [5,15,17,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_912") [Var 5,Var 15,Var 17,Var 29,Var 28,Var 1]])]])),Func ("OracleFlatCurryXML","_case_912") 6 Private (TVar (-42)) (Rule [5,15,17,29,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_911") [Var 5,Var 15,Var 17,Var 29,Var 1]])]])),Func ("OracleFlatCurryXML","_case_911") 5 Private (TVar (-42)) (Rule [5,15,17,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_910") [Var 5,Var 17,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_910") 4 Private (TVar (-42)) (Rule [5,17,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_909") [Var 5,Var 17,Var 31,Var 30,Var 1]])]])),Func ("OracleFlatCurryXML","_case_909") 5 Private (TVar (-42)) (Rule [5,17,31,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (Pattern ("Prelude","(,)") [32,33]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_908") [Var 5,Var 17,Var 31,Var 33,Var 32,Var 1]])]])),Func ("OracleFlatCurryXML","_case_908") 6 Private (TVar (-42)) (Rule [5,17,31,33,32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 32) [Branch (Pattern ("Prelude",":") [34,35]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_907") [Var 5,Var 17,Var 31,Var 33,Var 35,Var 34,Var 1]])]])),Func ("OracleFlatCurryXML","_case_907") 7 Private (TVar (-42)) (Rule [5,17,31,33,35,34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_906") [Var 5,Var 17,Var 31,Var 33,Var 35,Var 1]])]])),Func ("OracleFlatCurryXML","_case_906") 6 Private (TVar (-42)) (Rule [5,17,31,33,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 35) [Branch (Pattern ("Prelude",":") [36,37]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_905") [Var 5,Var 17,Var 31,Var 33,Var 37,Var 36,Var 1]])]])),Func ("OracleFlatCurryXML","_case_905") 7 Private (TVar (-42)) (Rule [5,17,31,33,37,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_904") [Var 5,Var 17,Var 31,Var 33,Var 37,Var 1]])]])),Func ("OracleFlatCurryXML","_case_904") 6 Private (TVar (-42)) (Rule [5,17,31,33,37,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 37) [Branch (Pattern ("Prelude",":") [38,39]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_903") [Var 5,Var 17,Var 31,Var 33,Var 39,Var 38,Var 1]])]])),Func ("OracleFlatCurryXML","_case_903") 7 Private (TVar (-42)) (Rule [5,17,31,33,39,38,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 38) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_902") [Var 5,Var 17,Var 31,Var 33,Var 39,Var 1]])]])),Func ("OracleFlatCurryXML","_case_902") 6 Private (TVar (-42)) (Rule [5,17,31,33,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 39) [Branch (Pattern ("Prelude",":") [40,41]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_901") [Var 5,Var 17,Var 31,Var 33,Var 41,Var 40,Var 1]])]])),Func ("OracleFlatCurryXML","_case_901") 7 Private (TVar (-42)) (Rule [5,17,31,33,41,40,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 40) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_900") [Var 5,Var 17,Var 31,Var 33,Var 41,Var 1]])]])),Func ("OracleFlatCurryXML","_case_900") 6 Private (TVar (-42)) (Rule [5,17,31,33,41,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 41) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_899") [Var 5,Var 17,Var 33,Var 31,Var 1]])]])),Func ("OracleFlatCurryXML","_case_899") 5 Private (TVar (-42)) (Rule [5,17,33,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (Pattern ("Prelude",":") [42,43]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_898") [Var 5,Var 17,Var 33,Var 43,Var 42,Var 1]])]])),Func ("OracleFlatCurryXML","_case_898") 6 Private (TVar (-42)) (Rule [5,17,33,43,42,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 42) [Branch (Pattern ("Prelude","(,)") [44,45]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_897") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 44,Var 1]])]])),Func ("OracleFlatCurryXML","_case_897") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,44,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 44) [Branch (Pattern ("Prelude",":") [46,47]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_896") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 47,Var 46,Var 1]])]])),Func ("OracleFlatCurryXML","_case_896") 8 Private (TVar (-42)) (Rule [5,17,33,43,45,47,46,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 46) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_895") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 47,Var 1]])]])),Func ("OracleFlatCurryXML","_case_895") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,47,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 47) [Branch (Pattern ("Prelude",":") [48,49]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_894") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 49,Var 48,Var 1]])]])),Func ("OracleFlatCurryXML","_case_894") 8 Private (TVar (-42)) (Rule [5,17,33,43,45,49,48,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 48) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_893") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 49,Var 1]])]])),Func ("OracleFlatCurryXML","_case_893") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,49,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 49) [Branch (Pattern ("Prelude",":") [50,51]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_892") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 51,Var 50,Var 1]])]])),Func ("OracleFlatCurryXML","_case_892") 8 Private (TVar (-42)) (Rule [5,17,33,43,45,51,50,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 50) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_891") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 51,Var 1]])]])),Func ("OracleFlatCurryXML","_case_891") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,51,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 51) [Branch (Pattern ("Prelude",":") [52,53]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_890") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 53,Var 52,Var 1]])]])),Func ("OracleFlatCurryXML","_case_890") 8 Private (TVar (-42)) (Rule [5,17,33,43,45,53,52,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 52) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_889") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 53,Var 1]])]])),Func ("OracleFlatCurryXML","_case_889") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,53,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 53) [Branch (Pattern ("Prelude",":") [54,55]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_888") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 55,Var 54,Var 1]])]])),Func ("OracleFlatCurryXML","_case_888") 8 Private (TVar (-42)) (Rule [5,17,33,43,45,55,54,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 54) [Branch (LPattern (Charc 'y')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_887") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 55,Var 1]])]])),Func ("OracleFlatCurryXML","_case_887") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,55,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 55) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_886") [Var 5,Var 17,Var 33,Var 45,Var 43,Var 1]])]])),Func ("OracleFlatCurryXML","_case_886") 6 Private (TVar (-42)) (Rule [5,17,33,45,43,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 43) [Branch (Pattern ("Prelude",":") [56,57]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_885") [Var 5,Var 17,Var 33,Var 45,Var 56,Var 57,Var 1]])]])),Func ("OracleFlatCurryXML","_case_885") 7 Private (TVar (-42)) (Rule [5,17,33,45,56,57,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 57) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_884") [Var 17,Var 33,Var 45,Var 56,Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_884") 6 Private (TVar (-42)) (Rule [17,33,45,56,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [58,59]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_883") [Var 17,Var 33,Var 45,Var 56,Var 58,Var 59,Var 1]])]])),Func ("OracleFlatCurryXML","_case_883") 7 Private (TVar (-42)) (Rule [17,33,45,56,58,59,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 59) [Branch (Pattern ("Prelude",":") [60,61]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_882") [Var 17,Var 33,Var 45,Var 56,Var 58,Var 60,Var 61,Var 1]])]])),Func ("OracleFlatCurryXML","_case_882") 8 Private (TVar (-42)) (Rule [17,33,45,56,58,60,61,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 61) [Branch (Pattern ("Prelude","[]") []) (Let [(62,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(63,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(64,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 62,Comb ConsCall ("Prelude",":") [Var 63,Comb ConsCall ("Prelude",":") [Var 64,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("FlatCurry","Func") [Comb ConsCall ("Prelude","(,)") [Var 17,Var 33],Comb FuncCall ("OracleRead","readNat") [Var 45,Var 1],Comb FuncCall ("OracleFlatCurryXML","xvis2vis") [Var 56,Var 62],Comb FuncCall ("OracleFlatCurryXML","flatx2texp") [Var 58,Var 63],Comb FuncCall ("OracleFlatCurryXML","flatx2FunBody") [Var 60,Var 64]]]))]])),Func ("OracleFlatCurryXML","_case_950") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_949") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_949") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_948") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_948") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_947") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_947") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_946") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_946") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_945") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_945") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_944") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_944") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_943") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_943") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_942") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_942") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_941") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_941") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_940") [Var 4,Var 5,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_940") 5 Private (TVar (-42)) (Rule [4,5,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_939") [Var 4,Var 5,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_939") 4 Private (TVar (-42)) (Rule [4,5,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_938") [Var 4,Var 5,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_938") 5 Private (TVar (-42)) (Rule [4,5,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_937") [Var 4,Var 5,Var 17,Var 1]])]])),Func ("OracleFlatCurryXML","_case_937") 4 Private (TVar (-42)) (Rule [4,5,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_936") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_936") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","textOfXml") [Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1052") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1051") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1051") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1050") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1050") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1049") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1049") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1048") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1048") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1047") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1047") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1046") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1046") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1045") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1045") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1044") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1044") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'g')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1043") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1043") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1042") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1042") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1041") [Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1041") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1040") [Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1040") 3 Private (TVar (-42)) (Rule [15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("XML","XElem") [16,17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1039") [Var 15,Var 17,Var 18,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1039") 5 Private (TVar (-42)) (Rule [15,17,18,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (Pattern ("Prelude",":") [19,20]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1038") [Var 15,Var 17,Var 18,Var 20,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1038") 6 Private (TVar (-42)) (Rule [15,17,18,20,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1037") [Var 15,Var 17,Var 18,Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1037") 5 Private (TVar (-42)) (Rule [15,17,18,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (Pattern ("Prelude",":") [21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1036") [Var 15,Var 17,Var 18,Var 22,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1036") 6 Private (TVar (-42)) (Rule [15,17,18,22,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1035") [Var 15,Var 17,Var 18,Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1035") 5 Private (TVar (-42)) (Rule [15,17,18,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude",":") [23,24]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1034") [Var 15,Var 17,Var 18,Var 24,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1034") 6 Private (TVar (-42)) (Rule [15,17,18,24,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1033") [Var 15,Var 17,Var 18,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1033") 5 Private (TVar (-42)) (Rule [15,17,18,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1032") [Var 15,Var 17,Var 18,Var 26,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1032") 6 Private (TVar (-42)) (Rule [15,17,18,26,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1031") [Var 15,Var 17,Var 18,Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1031") 5 Private (TVar (-42)) (Rule [15,17,18,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (Pattern ("Prelude",":") [27,28]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1030") [Var 15,Var 17,Var 18,Var 28,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1030") 6 Private (TVar (-42)) (Rule [15,17,18,28,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1029") [Var 15,Var 17,Var 18,Var 28,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1029") 5 Private (TVar (-42)) (Rule [15,17,18,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (Pattern ("Prelude",":") [29,30]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1028") [Var 15,Var 17,Var 18,Var 30,Var 29,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1028") 6 Private (TVar (-42)) (Rule [15,17,18,30,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1027") [Var 15,Var 17,Var 18,Var 30,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1027") 5 Private (TVar (-42)) (Rule [15,17,18,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1026") [Var 15,Var 18,Var 17,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1026") 4 Private (TVar (-42)) (Rule [15,18,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1025") [Var 18,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1025") 3 Private (TVar (-42)) (Rule [18,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [31,32]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1024") [Var 18,Var 32,Var 31,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1024") 4 Private (TVar (-42)) (Rule [18,32,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (Pattern ("XML","XElem") [33,34,35]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1023") [Var 18,Var 32,Var 34,Var 35,Var 33,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1023") 6 Private (TVar (-42)) (Rule [18,32,34,35,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 33) [Branch (Pattern ("Prelude",":") [36,37]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1022") [Var 18,Var 32,Var 34,Var 35,Var 37,Var 36,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1022") 7 Private (TVar (-42)) (Rule [18,32,34,35,37,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1021") [Var 18,Var 32,Var 34,Var 35,Var 37,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1021") 6 Private (TVar (-42)) (Rule [18,32,34,35,37,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 37) [Branch (Pattern ("Prelude",":") [38,39]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1020") [Var 18,Var 32,Var 34,Var 35,Var 39,Var 38,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1020") 7 Private (TVar (-42)) (Rule [18,32,34,35,39,38,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 38) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1019") [Var 18,Var 32,Var 34,Var 35,Var 39,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1019") 6 Private (TVar (-42)) (Rule [18,32,34,35,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 39) [Branch (Pattern ("Prelude",":") [40,41]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1018") [Var 18,Var 32,Var 34,Var 35,Var 41,Var 40,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1018") 7 Private (TVar (-42)) (Rule [18,32,34,35,41,40,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 40) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1017") [Var 18,Var 32,Var 34,Var 35,Var 41,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1017") 6 Private (TVar (-42)) (Rule [18,32,34,35,41,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 41) [Branch (Pattern ("Prelude",":") [42,43]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1016") [Var 18,Var 32,Var 34,Var 35,Var 43,Var 42,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1016") 7 Private (TVar (-42)) (Rule [18,32,34,35,43,42,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 42) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1015") [Var 18,Var 32,Var 34,Var 35,Var 43,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1015") 6 Private (TVar (-42)) (Rule [18,32,34,35,43,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 43) [Branch (Pattern ("Prelude",":") [44,45]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1014") [Var 18,Var 32,Var 34,Var 35,Var 45,Var 44,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1014") 7 Private (TVar (-42)) (Rule [18,32,34,35,45,44,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 44) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1013") [Var 18,Var 32,Var 34,Var 35,Var 45,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1013") 6 Private (TVar (-42)) (Rule [18,32,34,35,45,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 45) [Branch (Pattern ("Prelude",":") [46,47]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1012") [Var 18,Var 32,Var 34,Var 35,Var 47,Var 46,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1012") 7 Private (TVar (-42)) (Rule [18,32,34,35,47,46,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 46) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1011") [Var 18,Var 32,Var 34,Var 35,Var 47,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1011") 6 Private (TVar (-42)) (Rule [18,32,34,35,47,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 47) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1010") [Var 18,Var 32,Var 35,Var 34,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1010") 5 Private (TVar (-42)) (Rule [18,32,35,34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1009") [Var 18,Var 35,Var 32,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1009") 4 Private (TVar (-42)) (Rule [18,35,32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 32) [Branch (Pattern ("Prelude",":") [48,49]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1008") [Var 18,Var 35,Var 49,Var 48,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1008") 5 Private (TVar (-42)) (Rule [18,35,49,48,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 48) [Branch (Pattern ("XML","XElem") [50,51,52]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1007") [Var 18,Var 35,Var 49,Var 51,Var 52,Var 50,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1007") 7 Private (TVar (-42)) (Rule [18,35,49,51,52,50,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 50) [Branch (Pattern ("Prelude",":") [53,54]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1006") [Var 18,Var 35,Var 49,Var 51,Var 52,Var 54,Var 53,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1006") 8 Private (TVar (-42)) (Rule [18,35,49,51,52,54,53,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 53) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1005") [Var 18,Var 35,Var 49,Var 51,Var 52,Var 54,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1005") 7 Private (TVar (-42)) (Rule [18,35,49,51,52,54,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 54) [Branch (Pattern ("Prelude",":") [55,56]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1004") [Var 18,Var 35,Var 49,Var 51,Var 52,Var 56,Var 55,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1004") 8 Private (TVar (-42)) (Rule [18,35,49,51,52,56,55,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 55) [Branch (LPattern (Charc 'y')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1003") [Var 18,Var 35,Var 49,Var 51,Var 52,Var 56,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1003") 7 Private (TVar (-42)) (Rule [18,35,49,51,52,56,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 56) [Branch (Pattern ("Prelude",":") [57,58]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1002") [Var 18,Var 35,Var 49,Var 51,Var 52,Var 58,Var 57,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1002") 8 Private (TVar (-42)) (Rule [18,35,49,51,52,58,57,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 57) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1001") [Var 18,Var 35,Var 49,Var 51,Var 52,Var 58,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1001") 7 Private (TVar (-42)) (Rule [18,35,49,51,52,58,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 58) [Branch (Pattern ("Prelude",":") [59,60]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1000") [Var 18,Var 35,Var 49,Var 51,Var 52,Var 60,Var 59,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1000") 8 Private (TVar (-42)) (Rule [18,35,49,51,52,60,59,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 59) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_999") [Var 18,Var 35,Var 49,Var 51,Var 52,Var 60,Var 1]])]])),Func ("OracleFlatCurryXML","_case_999") 7 Private (TVar (-42)) (Rule [18,35,49,51,52,60,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 60) [Branch (Pattern ("Prelude",":") [61,62]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_998") [Var 18,Var 35,Var 49,Var 51,Var 52,Var 62,Var 61,Var 1]])]])),Func ("OracleFlatCurryXML","_case_998") 8 Private (TVar (-42)) (Rule [18,35,49,51,52,62,61,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 61) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_997") [Var 18,Var 35,Var 49,Var 51,Var 52,Var 62,Var 1]])]])),Func ("OracleFlatCurryXML","_case_997") 7 Private (TVar (-42)) (Rule [18,35,49,51,52,62,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 62) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_996") [Var 18,Var 35,Var 49,Var 52,Var 51,Var 1]])]])),Func ("OracleFlatCurryXML","_case_996") 6 Private (TVar (-42)) (Rule [18,35,49,52,51,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 51) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_995") [Var 18,Var 35,Var 52,Var 49,Var 1]])]])),Func ("OracleFlatCurryXML","_case_995") 5 Private (TVar (-42)) (Rule [18,35,52,49,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 49) [Branch (Pattern ("Prelude",":") [63,64]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_994") [Var 18,Var 35,Var 52,Var 64,Var 63,Var 1]])]])),Func ("OracleFlatCurryXML","_case_994") 6 Private (TVar (-42)) (Rule [18,35,52,64,63,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 63) [Branch (Pattern ("XML","XElem") [65,66,67]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_993") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 65,Var 1]])]])),Func ("OracleFlatCurryXML","_case_993") 8 Private (TVar (-42)) (Rule [18,35,52,64,66,67,65,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 65) [Branch (Pattern ("Prelude",":") [68,69]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_992") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 69,Var 68,Var 1]])]])),Func ("OracleFlatCurryXML","_case_992") 9 Private (TVar (-42)) (Rule [18,35,52,64,66,67,69,68,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 68) [Branch (LPattern (Charc 'f')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_991") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 69,Var 1]])]])),Func ("OracleFlatCurryXML","_case_991") 8 Private (TVar (-42)) (Rule [18,35,52,64,66,67,69,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 69) [Branch (Pattern ("Prelude",":") [70,71]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_990") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 71,Var 70,Var 1]])]])),Func ("OracleFlatCurryXML","_case_990") 9 Private (TVar (-42)) (Rule [18,35,52,64,66,67,71,70,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 70) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_989") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 71,Var 1]])]])),Func ("OracleFlatCurryXML","_case_989") 8 Private (TVar (-42)) (Rule [18,35,52,64,66,67,71,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 71) [Branch (Pattern ("Prelude",":") [72,73]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_988") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 73,Var 72,Var 1]])]])),Func ("OracleFlatCurryXML","_case_988") 9 Private (TVar (-42)) (Rule [18,35,52,64,66,67,73,72,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 72) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_987") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 73,Var 1]])]])),Func ("OracleFlatCurryXML","_case_987") 8 Private (TVar (-42)) (Rule [18,35,52,64,66,67,73,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 73) [Branch (Pattern ("Prelude",":") [74,75]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_986") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 75,Var 74,Var 1]])]])),Func ("OracleFlatCurryXML","_case_986") 9 Private (TVar (-42)) (Rule [18,35,52,64,66,67,75,74,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 74) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_985") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 75,Var 1]])]])),Func ("OracleFlatCurryXML","_case_985") 8 Private (TVar (-42)) (Rule [18,35,52,64,66,67,75,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 75) [Branch (Pattern ("Prelude",":") [76,77]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_984") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 77,Var 76,Var 1]])]])),Func ("OracleFlatCurryXML","_case_984") 9 Private (TVar (-42)) (Rule [18,35,52,64,66,67,77,76,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 76) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_983") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 77,Var 1]])]])),Func ("OracleFlatCurryXML","_case_983") 8 Private (TVar (-42)) (Rule [18,35,52,64,66,67,77,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 77) [Branch (Pattern ("Prelude",":") [78,79]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_982") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 79,Var 78,Var 1]])]])),Func ("OracleFlatCurryXML","_case_982") 9 Private (TVar (-42)) (Rule [18,35,52,64,66,67,79,78,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 78) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_981") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 79,Var 1]])]])),Func ("OracleFlatCurryXML","_case_981") 8 Private (TVar (-42)) (Rule [18,35,52,64,66,67,79,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 79) [Branch (Pattern ("Prelude",":") [80,81]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_980") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 81,Var 80,Var 1]])]])),Func ("OracleFlatCurryXML","_case_980") 9 Private (TVar (-42)) (Rule [18,35,52,64,66,67,81,80,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 80) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_979") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 81,Var 1]])]])),Func ("OracleFlatCurryXML","_case_979") 8 Private (TVar (-42)) (Rule [18,35,52,64,66,67,81,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 81) [Branch (Pattern ("Prelude",":") [82,83]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_978") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 83,Var 82,Var 1]])]])),Func ("OracleFlatCurryXML","_case_978") 9 Private (TVar (-42)) (Rule [18,35,52,64,66,67,83,82,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 82) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_977") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 83,Var 1]])]])),Func ("OracleFlatCurryXML","_case_977") 8 Private (TVar (-42)) (Rule [18,35,52,64,66,67,83,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 83) [Branch (Pattern ("Prelude",":") [84,85]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_976") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 85,Var 84,Var 1]])]])),Func ("OracleFlatCurryXML","_case_976") 9 Private (TVar (-42)) (Rule [18,35,52,64,66,67,85,84,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 84) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_975") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 85,Var 1]])]])),Func ("OracleFlatCurryXML","_case_975") 8 Private (TVar (-42)) (Rule [18,35,52,64,66,67,85,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 85) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_974") [Var 18,Var 35,Var 52,Var 64,Var 67,Var 66,Var 1]])]])),Func ("OracleFlatCurryXML","_case_974") 7 Private (TVar (-42)) (Rule [18,35,52,64,67,66,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 66) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_973") [Var 18,Var 35,Var 52,Var 67,Var 64,Var 1]])]])),Func ("OracleFlatCurryXML","_case_973") 6 Private (TVar (-42)) (Rule [18,35,52,67,64,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 64) [Branch (Pattern ("Prelude",":") [86,87]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_972") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 86,Var 1]])]])),Func ("OracleFlatCurryXML","_case_972") 7 Private (TVar (-42)) (Rule [18,35,52,67,87,86,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 86) [Branch (Pattern ("XML","XElem") [88,89,90]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_971") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 88,Var 1]])]])),Func ("OracleFlatCurryXML","_case_971") 9 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,88,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 88) [Branch (Pattern ("Prelude",":") [91,92]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_970") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 92,Var 91,Var 1]])]])),Func ("OracleFlatCurryXML","_case_970") 10 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,92,91,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 91) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_969") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 92,Var 1]])]])),Func ("OracleFlatCurryXML","_case_969") 9 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,92,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 92) [Branch (Pattern ("Prelude",":") [93,94]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_968") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 94,Var 93,Var 1]])]])),Func ("OracleFlatCurryXML","_case_968") 10 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,94,93,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 93) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_967") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 94,Var 1]])]])),Func ("OracleFlatCurryXML","_case_967") 9 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,94,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 94) [Branch (Pattern ("Prelude",":") [95,96]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_966") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 96,Var 95,Var 1]])]])),Func ("OracleFlatCurryXML","_case_966") 10 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,96,95,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 95) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_965") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 96,Var 1]])]])),Func ("OracleFlatCurryXML","_case_965") 9 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,96,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 96) [Branch (Pattern ("Prelude",":") [97,98]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_964") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 98,Var 97,Var 1]])]])),Func ("OracleFlatCurryXML","_case_964") 10 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,98,97,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 97) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_963") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 98,Var 1]])]])),Func ("OracleFlatCurryXML","_case_963") 9 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,98,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 98) [Branch (Pattern ("Prelude",":") [99,100]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_962") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 100,Var 99,Var 1]])]])),Func ("OracleFlatCurryXML","_case_962") 10 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,100,99,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 99) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_961") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 100,Var 1]])]])),Func ("OracleFlatCurryXML","_case_961") 9 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,100,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 100) [Branch (Pattern ("Prelude",":") [101,102]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_960") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 102,Var 101,Var 1]])]])),Func ("OracleFlatCurryXML","_case_960") 10 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,102,101,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 101) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_959") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 102,Var 1]])]])),Func ("OracleFlatCurryXML","_case_959") 9 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,102,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 102) [Branch (Pattern ("Prelude",":") [103,104]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_958") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 104,Var 103,Var 1]])]])),Func ("OracleFlatCurryXML","_case_958") 10 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,104,103,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 103) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_957") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 104,Var 1]])]])),Func ("OracleFlatCurryXML","_case_957") 9 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,104,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 104) [Branch (Pattern ("Prelude",":") [105,106]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_956") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 106,Var 105,Var 1]])]])),Func ("OracleFlatCurryXML","_case_956") 10 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,106,105,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 105) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_955") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 106,Var 1]])]])),Func ("OracleFlatCurryXML","_case_955") 9 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,106,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 106) [Branch (Pattern ("Prelude",":") [107,108]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_954") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 108,Var 107,Var 1]])]])),Func ("OracleFlatCurryXML","_case_954") 10 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,108,107,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 107) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_953") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 108,Var 1]])]])),Func ("OracleFlatCurryXML","_case_953") 9 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,108,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 108) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_952") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 90,Var 89,Var 1]])]])),Func ("OracleFlatCurryXML","_case_952") 8 Private (TVar (-42)) (Rule [18,35,52,67,87,90,89,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 89) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_951") [Var 18,Var 35,Var 52,Var 67,Var 90,Var 87,Var 1]])]])),Func ("OracleFlatCurryXML","_case_951") 7 Private (TVar (-42)) (Rule [18,35,52,67,90,87,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 87) [Branch (Pattern ("Prelude","[]") []) (Let [(91,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(92,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(93,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(94,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 91,Comb ConsCall ("Prelude",":") [Var 92,Comb ConsCall ("Prelude",":") [Var 93,Comb ConsCall ("Prelude",":") [Var 94,Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("FlatCurry","Prog") [Comb FuncCall ("OracleXML","textOfXml") [Var 18,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xml2FlatCurry._#lambda5") []],Var 35,Var 91],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2typedecl") []],Var 52,Var 92],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xml2FlatCurry._#lambda6") []],Var 67,Var 93],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xml2FlatCurry._#lambda7") []],Var 90,Var 94]]]))]])),Func ("OracleFlatCurryXML","_case_1053") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Op") [3,4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryXML","qname2xmlattrs") [Var 3,Var 1],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 ("OraclePrelude","show") [Var 4,Var 6]],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 ("OraclePrelude","show") [Var 5,Var 7]],Comb ConsCall ("Prelude","[]") []]],Var 8],Comb ConsCall ("Prelude","[]") []]]))]])),Func ("OracleFlatCurryXML","_case_1055") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Branch") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1054") [Var 4,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1054") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Pattern") [5,6]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleXML","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 ("OracleFlatCurryXML","qname2xmlattrs") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowVar") []],Var 6,Var 8]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowExpr") [Var 4,Var 9],Comb ConsCall ("Prelude","[]") []]],Var 10]])),Branch (Pattern ("FlatCurry","LPattern") [7]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleXML","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 ("OracleXML","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 ("OracleFlatCurryXML","xmlShowLit") [Var 7,Var 1],Comb ConsCall ("Prelude","[]") []],Var 11],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowExpr") [Var 4,Var 12],Comb ConsCall ("Prelude","[]") []]],Var 13]]))]])),Func ("OracleFlatCurryXML","_case_1056") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Intc") [3]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","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 ("OracleXML","xtxt") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Var 6],Comb ConsCall ("Prelude","[]") []],Var 7]])),Branch (Pattern ("FlatCurry","Floatc") [4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","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 ("OracleXML","xtxt") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 1],Var 8],Comb ConsCall ("Prelude","[]") []],Var 9]])),Branch (Pattern ("FlatCurry","Charc") [5]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleXML","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 ("OracleXML","xtxt") [Comb FuncCall ("OraclePrelude","show") [Comb FuncCall ("OraclePrelude","ord") [Var 5,Var 1],Var 10],Var 11],Comb ConsCall ("Prelude","[]") []],Var 12]]))]])),Func ("OracleFlatCurryXML","_case_1057") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","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 ("OracleFlatCurryXML","xmlShowVar") [Var 3,Var 1],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowExpr") [Var 4,Var 5],Comb ConsCall ("Prelude","[]") []]],Var 6]]))]])),Func ("OracleFlatCurryXML","_case_1060") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Var") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","xmlShowVar") [Var 3,Var 1]]),Branch (Pattern ("FlatCurry","Lit") [4]) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","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 ("OracleFlatCurryXML","xmlShowLit") [Var 4,Var 1],Comb ConsCall ("Prelude","[]") []],Var 19]])),Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1059") [Var 6,Var 7,Var 5,Var 1]]),Branch (Pattern ("FlatCurry","Free") [10,11]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleXML","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 ("OracleXML","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 ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowVar") []],Var 10,Var 1],Var 20],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowExpr") [Var 11,Var 21],Comb ConsCall ("Prelude","[]") []]],Var 22]])),Branch (Pattern ("FlatCurry","Or") [12,13]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowExpr") [Var 12,Var 1],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowExpr") [Var 13,Var 23],Comb ConsCall ("Prelude","[]") []]],Var 24]])),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("XML","XElem") [Comb FuncCall ("OracleFlatCurryXML","_case_1058") [Var 14,Comb FuncCall ("OraclePrelude","==") [Var 14,Comb ConsCall ("FlatCurry","Flex") [],Var 1],Var 25],Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowExpr") [Var 15,Var 26],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowBranch") []],Var 16,Var 27],Var 28]]])),Branch (Pattern ("FlatCurry","Let") [17,18]) (Let [(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleXML","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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowExpr._#lambda3") []],Var 17,Var 1],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowExpr") [Var 18,Var 29],Comb ConsCall ("Prelude","[]") []],Var 30],Var 31]]))]])),Func ("OracleFlatCurryXML","_case_1058") 3 Private (TVar (-42)) (Rule [14,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 15) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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","[]") []]]]]])]])),Func ("OracleFlatCurryXML","_case_1059") 4 Private (TVar (-42)) (Rule [6,7,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FlatCurry","FuncCall") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],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 ("OracleFlatCurryXML","qname2xmlattrs") [Var 6,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowExpr") []],Var 7,Var 10]]])),Branch (Pattern ("FlatCurry","ConsCall") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],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 ("OracleFlatCurryXML","qname2xmlattrs") [Var 6,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowExpr") []],Var 7,Var 11]]])),Branch (Pattern ("FlatCurry","FuncPartCall") [8]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]],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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryXML","qname2xmlattrs") [Var 6,Var 1],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 ("OraclePrelude","show") [Var 8,Var 12]],Comb ConsCall ("Prelude","[]") []],Var 13],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowExpr") []],Var 7,Var 14]]])),Branch (Pattern ("FlatCurry","ConsPartCall") [9]) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]],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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryXML","qname2xmlattrs") [Var 6,Var 1],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 ("OraclePrelude","show") [Var 9,Var 15]],Comb ConsCall ("Prelude","[]") []],Var 16],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowExpr") []],Var 7,Var 17]]]))]])),Func ("OracleFlatCurryXML","_case_1061") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Rule") [3,4]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleXML","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 ("OracleXML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowVar") []],Var 3,Var 1],Var 6],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleXML","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 ("OracleFlatCurryXML","xmlShowExpr") [Var 4,Var 7],Comb ConsCall ("Prelude","[]") []],Var 8],Comb ConsCall ("Prelude","[]") []]],Var 9]])),Branch (Pattern ("FlatCurry","External") [5]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","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 ("OracleXML","xtxt") [Var 5,Var 1],Comb ConsCall ("Prelude","[]") []],Var 10]]))]])),Func ("OracleFlatCurryXML","_case_1062") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Func") [3,4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]]]],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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryXML","qname2xmlattrs") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 4,Var 8]],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryXML","xmlShowVisibity") [Var 5,Var 9],Var 10],Var 11],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowTypeExpr") [Var 6,Var 12],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowRule") [Var 7,Var 13],Comb ConsCall ("Prelude","[]") []]]]]))]])),Func ("OracleFlatCurryXML","_case_1063") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","FuncType") [3,4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","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 ("OracleFlatCurryXML","xmlShowTypeExpr") [Var 3,Var 1],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowTypeExpr") [Var 4,Var 8],Comb ConsCall ("Prelude","[]") []]],Var 9]])),Branch (Pattern ("FlatCurry","TCons") [5,6]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],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 ("OracleFlatCurryXML","qname2xmlattrs") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowTypeExpr") []],Var 6,Var 10]]])),Branch (Pattern ("FlatCurry","TVar") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","xmlShowTVar") [Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1064") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Cons") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]],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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryXML","qname2xmlattrs") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 4,Var 7]],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryXML","xmlShowVisibity") [Var 5,Var 8],Var 9],Var 10],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowTypeExpr") []],Var 6,Var 11]]]))]])),Func ("OracleFlatCurryXML","_case_1065") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Type") [3,4,5,6]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]]]],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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryXML","qname2xmlattrs") [Var 3,Var 1],Comb FuncCall ("OracleFlatCurryXML","xmlShowVisibity") [Var 4,Var 11],Var 12],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleXML","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 ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowTVar") []],Var 5,Var 13],Var 14],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowCons") []],Var 6,Var 15],Var 16]]])),Branch (Pattern ("FlatCurry","TypeSyn") [7,8,9,10]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]]]],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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryXML","qname2xmlattrs") [Var 7,Var 1],Comb FuncCall ("OracleFlatCurryXML","xmlShowVisibity") [Var 8,Var 17],Var 18],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleXML","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 ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowTVar") []],Var 9,Var 19],Var 20],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowTypeExpr") [Var 10,Var 21],Comb ConsCall ("Prelude","[]") []]]]]))]])),Func ("OracleFlatCurryXML","_case_1066") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Public") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleFlatCurryXML","_case_1067") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 3],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 4],Comb ConsCall ("Prelude","[]") []]]])]])),Func ("OracleFlatCurryXML","_case_1068") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Prog") [3,4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("OracleXML","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 ("OracleXML","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 ("OracleXML","xtxt") [Var 3,Var 1],Comb ConsCall ("Prelude","[]") []],Var 8],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleXML","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 ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatCurry2Xml._#lambda2") []],Var 4,Var 9],Var 10],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleXML","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 ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowType") []],Var 5,Var 11],Var 12],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleXML","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 ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowFunc") []],Var 6,Var 13],Var 14],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleXML","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 ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowOp") []],Var 7,Var 15],Var 16],Comb ConsCall ("Prelude","[]") []]]]]],Var 17]]))]]))] []
+ Curry/Module/OracleFlatCurryXML.fint view
@@ -0,0 +1,1 @@+Prog "OracleFlatCurryXML" ["CEventOracle","Oracle","IOExts","FlatCurryXML","FlatCurry","Prelude","Read","XML","OracleFlatCurry","OraclePrelude","OracleRead","OracleXML"] [] [Func ("OracleFlatCurryXML","flatCurryDtd") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleFlatCurryXML","flatCurry2XmlFile") 3 Public (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","writeFile") [Var 3,Comb FuncCall ("OracleXML","showXmlDocWithParams") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","DtdUrl") [Comb FuncCall ("OracleFlatCurryXML","flatCurryDtd") [Var 1]],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryXML","flatCurry2Xml") [Var 2,Var 4],Var 5],Var 6]]))),Func ("OracleFlatCurryXML","flatCurry2Xml") 2 Public (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1068") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatCurry2Xml._#lambda2") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","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 ("OracleXML","xtxt") [Var 2,Var 1],Comb ConsCall ("Prelude","[]") []],Var 3]]))),Func ("OracleFlatCurryXML","qname2xmlattrs") 2 Private (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TVar 0]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1067") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlShowVisibity") 2 Private (FuncType (TCons ("FlatCurry","Visibility") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1066") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlShowType") 2 Private (FuncType (TCons ("FlatCurry","TypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1065") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlShowCons") 2 Private (FuncType (TCons ("FlatCurry","ConsDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1064") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlShowTypeExpr") 2 Private (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1063") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlShowTVar") 2 Private (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","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 ("OracleXML","xtxt") [Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],Var 3],Comb ConsCall ("Prelude","[]") []],Var 4]]))),Func ("OracleFlatCurryXML","xmlShowFunc") 2 Private (FuncType (TCons ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1062") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlShowRule") 2 Private (FuncType (TCons ("FlatCurry","Rule") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1061") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlShowVar") 2 Private (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","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 ("OracleXML","xtxt") [Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],Var 3],Comb ConsCall ("Prelude","[]") []],Var 4]]))),Func ("OracleFlatCurryXML","xmlShowExpr") 2 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1060") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlShowExpr._#lambda3") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1057") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlShowLit") 2 Private (FuncType (TCons ("FlatCurry","Literal") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1056") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlShowBranch") 2 Private (FuncType (TCons ("FlatCurry","BranchExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1055") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlShowOp") 2 Private (FuncType (TCons ("FlatCurry","OpDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1053") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xmlFile2FlatCurry") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleXML","readXmlFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlFile2FlatCurry._#lambda4") []],Var 3]]))),Func ("OracleFlatCurryXML","xmlFile2FlatCurry._#lambda4") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("FlatCurry","Prog") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OracleFlatCurryXML","xml2FlatCurry") [Var 2,Var 1],Var 3]]))),Func ("OracleFlatCurryXML","xml2FlatCurry") 2 Public (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Prog") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1052") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xml2FlatCurry._#lambda5") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_950") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xml2FlatCurry._#lambda6") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","FuncDecl") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_935") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xml2FlatCurry._#lambda7") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","OpDecl") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_881") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2typedecl") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","TypeDecl") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_821") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2typedecl._#lambda8") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_715") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2typedecl._#lambda9") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","ConsDecl") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_704") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2typedecl._#lambda10") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_653") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2FunBody") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Rule") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_642") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2var") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_592") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2exp") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_583") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2exp._#selFP3#bindings") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_302") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2exp._#selFP4#exp") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_301") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2exp._#selFP6#bindings") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_300") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2exp._#selFP7#exp") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_299") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2let") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]],TCons ("FlatCurry","Expr") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_298") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2let._#selFP9#bindings") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_267") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2let._#selFP10#exp") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_266") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2branch") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","BranchExpr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_265") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2lit") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Literal") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_167") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2texp") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","TypeExpr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_134") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","xvis2vis") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Visibility") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_70") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","flatx2Fixity") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Fixity") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_24") [Var 2,Var 1]])),Func ("OracleFlatCurryXML","_case_24") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_23") [Var 4,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_23") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (LPattern (Charc 'I')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_22") [Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_22") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_21") [Var 6,Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_21") 3 Private (TVar (-42)) (Rule [6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_20") [Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_20") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_19") [Var 8,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_19") 3 Private (TVar (-42)) (Rule [8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (LPattern (Charc 'f')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_18") [Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_18") 2 Private (TVar (-42)) (Rule [8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_17") [Var 10,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_17") 3 Private (TVar (-42)) (Rule [10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_16") [Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_16") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_15") [Var 12,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_15") 3 Private (TVar (-42)) (Rule [12,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (LPattern (Charc 'x')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_14") [Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_14") 2 Private (TVar (-42)) (Rule [12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_13") [Var 14,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_13") 3 Private (TVar (-42)) (Rule [14,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (LPattern (Charc 'O')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_12") [Var 14,Var 1]]),Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_9") [Var 14,Var 1]]),Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_4") [Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_4") 2 Private (TVar (-42)) (Rule [14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude",":") [21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_3") [Var 22,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_3") 3 Private (TVar (-42)) (Rule [22,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (LPattern (Charc 'O')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_2") [Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_2") 2 Private (TVar (-42)) (Rule [22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude",":") [23,24]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1") [Var 24,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1") 3 Private (TVar (-42)) (Rule [24,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_0") [Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_0") 2 Private (TVar (-42)) (Rule [24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlatCurry","InfixrOp") []])]])),Func ("OracleFlatCurryXML","_case_9") 2 Private (TVar (-42)) (Rule [14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude",":") [17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_8") [Var 18,Var 17,Var 1]])]])),Func ("OracleFlatCurryXML","_case_8") 3 Private (TVar (-42)) (Rule [18,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (LPattern (Charc 'O')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_7") [Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_7") 2 Private (TVar (-42)) (Rule [18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_6") [Var 20,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_6") 3 Private (TVar (-42)) (Rule [20,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_5") [Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_5") 2 Private (TVar (-42)) (Rule [20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlatCurry","InfixlOp") []])]])),Func ("OracleFlatCurryXML","_case_12") 2 Private (TVar (-42)) (Rule [14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_11") [Var 16,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_11") 3 Private (TVar (-42)) (Rule [16,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_10") [Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_10") 2 Private (TVar (-42)) (Rule [16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlatCurry","InfixOp") []])]])),Func ("OracleFlatCurryXML","_case_70") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_69") [Var 4,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_69") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_68") [Var 4,Var 6,Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_68") 4 Private (TVar (-42)) (Rule [4,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (LPattern (Charc 'v')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_67") [Var 4,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_67") 3 Private (TVar (-42)) (Rule [4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_66") [Var 4,Var 8,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_66") 4 Private (TVar (-42)) (Rule [4,8,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_65") [Var 4,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_65") 3 Private (TVar (-42)) (Rule [4,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_64") [Var 4,Var 10,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_64") 4 Private (TVar (-42)) (Rule [4,10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_63") [Var 4,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_63") 3 Private (TVar (-42)) (Rule [4,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude",":") [11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_62") [Var 4,Var 12,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_62") 4 Private (TVar (-42)) (Rule [4,12,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_61") [Var 4,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_61") 3 Private (TVar (-42)) (Rule [4,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude",":") [13,14]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_60") [Var 4,Var 14,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_60") 4 Private (TVar (-42)) (Rule [4,14,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (LPattern (Charc 'b')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_59") [Var 4,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_59") 3 Private (TVar (-42)) (Rule [4,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude",":") [15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_58") [Var 4,Var 16,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_58") 4 Private (TVar (-42)) (Rule [4,16,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_57") [Var 4,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_57") 3 Private (TVar (-42)) (Rule [4,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (Pattern ("Prelude",":") [17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_56") [Var 4,Var 18,Var 17,Var 1]])]])),Func ("OracleFlatCurryXML","_case_56") 4 Private (TVar (-42)) (Rule [4,18,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_55") [Var 4,Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_55") 3 Private (TVar (-42)) (Rule [4,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (Pattern ("Prelude",":") [19,20]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_54") [Var 4,Var 20,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_54") 4 Private (TVar (-42)) (Rule [4,20,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_53") [Var 4,Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_53") 3 Private (TVar (-42)) (Rule [4,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (Pattern ("Prelude",":") [21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_52") [Var 4,Var 22,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_52") 4 Private (TVar (-42)) (Rule [4,22,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_51") [Var 4,Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_51") 3 Private (TVar (-42)) (Rule [4,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude",":") [23,24]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_50") [Var 4,Var 24,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_50") 4 Private (TVar (-42)) (Rule [4,24,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (LPattern (Charc 'y')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_49") [Var 4,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_49") 3 Private (TVar (-42)) (Rule [4,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_48") [Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_48") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [25,26]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_47") [Var 26,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_47") 3 Private (TVar (-42)) (Rule [26,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_46") [Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_46") 2 Private (TVar (-42)) (Rule [26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (Pattern ("Prelude",":") [27,28]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_45") [Var 28,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_45") 3 Private (TVar (-42)) (Rule [28,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_44") [Var 28,Var 1]]),Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_35") [Var 28,Var 1]])]])),Func ("OracleFlatCurryXML","_case_35") 2 Private (TVar (-42)) (Rule [28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (Pattern ("Prelude",":") [37,38]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_34") [Var 38,Var 37,Var 1]])]])),Func ("OracleFlatCurryXML","_case_34") 3 Private (TVar (-42)) (Rule [38,37,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 37) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_33") [Var 38,Var 1]])]])),Func ("OracleFlatCurryXML","_case_33") 2 Private (TVar (-42)) (Rule [38,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 38) [Branch (Pattern ("Prelude",":") [39,40]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_32") [Var 40,Var 39,Var 1]])]])),Func ("OracleFlatCurryXML","_case_32") 3 Private (TVar (-42)) (Rule [40,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 39) [Branch (LPattern (Charc 'v')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_31") [Var 40,Var 1]])]])),Func ("OracleFlatCurryXML","_case_31") 2 Private (TVar (-42)) (Rule [40,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 40) [Branch (Pattern ("Prelude",":") [41,42]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_30") [Var 42,Var 41,Var 1]])]])),Func ("OracleFlatCurryXML","_case_30") 3 Private (TVar (-42)) (Rule [42,41,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 41) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_29") [Var 42,Var 1]])]])),Func ("OracleFlatCurryXML","_case_29") 2 Private (TVar (-42)) (Rule [42,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 42) [Branch (Pattern ("Prelude",":") [43,44]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_28") [Var 44,Var 43,Var 1]])]])),Func ("OracleFlatCurryXML","_case_28") 3 Private (TVar (-42)) (Rule [44,43,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 43) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_27") [Var 44,Var 1]])]])),Func ("OracleFlatCurryXML","_case_27") 2 Private (TVar (-42)) (Rule [44,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 44) [Branch (Pattern ("Prelude",":") [45,46]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_26") [Var 46,Var 45,Var 1]])]])),Func ("OracleFlatCurryXML","_case_26") 3 Private (TVar (-42)) (Rule [46,45,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 45) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_25") [Var 46,Var 1]])]])),Func ("OracleFlatCurryXML","_case_25") 2 Private (TVar (-42)) (Rule [46,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 46) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlatCurry","Private") []])]])),Func ("OracleFlatCurryXML","_case_44") 2 Private (TVar (-42)) (Rule [28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (Pattern ("Prelude",":") [29,30]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_43") [Var 30,Var 29,Var 1]])]])),Func ("OracleFlatCurryXML","_case_43") 3 Private (TVar (-42)) (Rule [30,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (LPattern (Charc 'b')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_42") [Var 30,Var 1]])]])),Func ("OracleFlatCurryXML","_case_42") 2 Private (TVar (-42)) (Rule [30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (Pattern ("Prelude",":") [31,32]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_41") [Var 32,Var 31,Var 1]])]])),Func ("OracleFlatCurryXML","_case_41") 3 Private (TVar (-42)) (Rule [32,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_40") [Var 32,Var 1]])]])),Func ("OracleFlatCurryXML","_case_40") 2 Private (TVar (-42)) (Rule [32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 32) [Branch (Pattern ("Prelude",":") [33,34]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_39") [Var 34,Var 33,Var 1]])]])),Func ("OracleFlatCurryXML","_case_39") 3 Private (TVar (-42)) (Rule [34,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 33) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_38") [Var 34,Var 1]])]])),Func ("OracleFlatCurryXML","_case_38") 2 Private (TVar (-42)) (Rule [34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (Pattern ("Prelude",":") [35,36]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_37") [Var 36,Var 35,Var 1]])]])),Func ("OracleFlatCurryXML","_case_37") 3 Private (TVar (-42)) (Rule [36,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 35) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_36") [Var 36,Var 1]])]])),Func ("OracleFlatCurryXML","_case_36") 2 Private (TVar (-42)) (Rule [36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlatCurry","Public") []])]])),Func ("OracleFlatCurryXML","_case_134") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_133") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_133") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_132") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_132") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_131") [Var 4,Var 5,Var 7,Var 1]]),Branch (LPattern (Charc 'f')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_89") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_89") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [48,49]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_88") [Var 4,Var 5,Var 49,Var 48,Var 1]])]])),Func ("OracleFlatCurryXML","_case_88") 5 Private (TVar (-42)) (Rule [4,5,49,48,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 48) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_87") [Var 4,Var 5,Var 49,Var 1]])]])),Func ("OracleFlatCurryXML","_case_87") 4 Private (TVar (-42)) (Rule [4,5,49,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 49) [Branch (Pattern ("Prelude",":") [50,51]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_86") [Var 4,Var 5,Var 51,Var 50,Var 1]])]])),Func ("OracleFlatCurryXML","_case_86") 5 Private (TVar (-42)) (Rule [4,5,51,50,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 50) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_85") [Var 4,Var 5,Var 51,Var 1]])]])),Func ("OracleFlatCurryXML","_case_85") 4 Private (TVar (-42)) (Rule [4,5,51,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 51) [Branch (Pattern ("Prelude",":") [52,53]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_84") [Var 4,Var 5,Var 53,Var 52,Var 1]])]])),Func ("OracleFlatCurryXML","_case_84") 5 Private (TVar (-42)) (Rule [4,5,53,52,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 52) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_83") [Var 4,Var 5,Var 53,Var 1]])]])),Func ("OracleFlatCurryXML","_case_83") 4 Private (TVar (-42)) (Rule [4,5,53,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 53) [Branch (Pattern ("Prelude",":") [54,55]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_82") [Var 4,Var 5,Var 55,Var 54,Var 1]])]])),Func ("OracleFlatCurryXML","_case_82") 5 Private (TVar (-42)) (Rule [4,5,55,54,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 54) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_81") [Var 4,Var 5,Var 55,Var 1]])]])),Func ("OracleFlatCurryXML","_case_81") 4 Private (TVar (-42)) (Rule [4,5,55,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 55) [Branch (Pattern ("Prelude",":") [56,57]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_80") [Var 4,Var 5,Var 57,Var 56,Var 1]])]])),Func ("OracleFlatCurryXML","_case_80") 5 Private (TVar (-42)) (Rule [4,5,57,56,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 56) [Branch (LPattern (Charc 'y')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_79") [Var 4,Var 5,Var 57,Var 1]])]])),Func ("OracleFlatCurryXML","_case_79") 4 Private (TVar (-42)) (Rule [4,5,57,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 57) [Branch (Pattern ("Prelude",":") [58,59]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_78") [Var 4,Var 5,Var 59,Var 58,Var 1]])]])),Func ("OracleFlatCurryXML","_case_78") 5 Private (TVar (-42)) (Rule [4,5,59,58,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 58) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_77") [Var 4,Var 5,Var 59,Var 1]])]])),Func ("OracleFlatCurryXML","_case_77") 4 Private (TVar (-42)) (Rule [4,5,59,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 59) [Branch (Pattern ("Prelude",":") [60,61]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_76") [Var 4,Var 5,Var 61,Var 60,Var 1]])]])),Func ("OracleFlatCurryXML","_case_76") 5 Private (TVar (-42)) (Rule [4,5,61,60,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 60) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_75") [Var 4,Var 5,Var 61,Var 1]])]])),Func ("OracleFlatCurryXML","_case_75") 4 Private (TVar (-42)) (Rule [4,5,61,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 61) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_74") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_74") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_73") [Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_73") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [62,63]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_72") [Var 62,Var 63,Var 1]])]])),Func ("OracleFlatCurryXML","_case_72") 3 Private (TVar (-42)) (Rule [62,63,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 63) [Branch (Pattern ("Prelude",":") [64,65]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_71") [Var 62,Var 64,Var 65,Var 1]])]])),Func ("OracleFlatCurryXML","_case_71") 4 Private (TVar (-42)) (Rule [62,64,65,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 65) [Branch (Pattern ("Prelude","[]") []) (Let [(66,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 66,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","FuncType") [Comb FuncCall ("OracleFlatCurryXML","flatx2texp") [Var 62,Var 1],Comb FuncCall ("OracleFlatCurryXML","flatx2texp") [Var 64,Var 66]]]))]])),Func ("OracleFlatCurryXML","_case_131") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_130") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_130") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'v')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_129") [Var 4,Var 5,Var 9,Var 1]]),Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_123") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_123") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_122") [Var 4,Var 5,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_122") 5 Private (TVar (-42)) (Rule [4,5,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_121") [Var 4,Var 5,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_121") 4 Private (TVar (-42)) (Rule [4,5,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_120") [Var 4,Var 5,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_120") 5 Private (TVar (-42)) (Rule [4,5,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_119") [Var 4,Var 5,Var 17,Var 1]])]])),Func ("OracleFlatCurryXML","_case_119") 4 Private (TVar (-42)) (Rule [4,5,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_118") [Var 4,Var 5,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_118") 5 Private (TVar (-42)) (Rule [4,5,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_117") [Var 4,Var 5,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_117") 4 Private (TVar (-42)) (Rule [4,5,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_116") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_116") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_115") [Var 5,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_115") 4 Private (TVar (-42)) (Rule [5,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (Pattern ("Prelude","(,)") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_114") [Var 5,Var 21,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_114") 5 Private (TVar (-42)) (Rule [5,21,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_113") [Var 5,Var 21,Var 23,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_113") 6 Private (TVar (-42)) (Rule [5,21,23,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_112") [Var 5,Var 21,Var 23,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_112") 5 Private (TVar (-42)) (Rule [5,21,23,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_111") [Var 5,Var 21,Var 23,Var 27,Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_111") 6 Private (TVar (-42)) (Rule [5,21,23,27,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_110") [Var 5,Var 21,Var 23,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_110") 5 Private (TVar (-42)) (Rule [5,21,23,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_109") [Var 5,Var 21,Var 23,Var 29,Var 28,Var 1]])]])),Func ("OracleFlatCurryXML","_case_109") 6 Private (TVar (-42)) (Rule [5,21,23,29,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_108") [Var 5,Var 21,Var 23,Var 29,Var 1]])]])),Func ("OracleFlatCurryXML","_case_108") 5 Private (TVar (-42)) (Rule [5,21,23,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (Pattern ("Prelude",":") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_107") [Var 5,Var 21,Var 23,Var 31,Var 30,Var 1]])]])),Func ("OracleFlatCurryXML","_case_107") 6 Private (TVar (-42)) (Rule [5,21,23,31,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_106") [Var 5,Var 21,Var 23,Var 31,Var 1]])]])),Func ("OracleFlatCurryXML","_case_106") 5 Private (TVar (-42)) (Rule [5,21,23,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (Pattern ("Prelude",":") [32,33]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_105") [Var 5,Var 21,Var 23,Var 33,Var 32,Var 1]])]])),Func ("OracleFlatCurryXML","_case_105") 6 Private (TVar (-42)) (Rule [5,21,23,33,32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 32) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_104") [Var 5,Var 21,Var 23,Var 33,Var 1]])]])),Func ("OracleFlatCurryXML","_case_104") 5 Private (TVar (-42)) (Rule [5,21,23,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 33) [Branch (Pattern ("Prelude",":") [34,35]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_103") [Var 5,Var 21,Var 23,Var 35,Var 34,Var 1]])]])),Func ("OracleFlatCurryXML","_case_103") 6 Private (TVar (-42)) (Rule [5,21,23,35,34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_102") [Var 5,Var 21,Var 23,Var 35,Var 1]])]])),Func ("OracleFlatCurryXML","_case_102") 5 Private (TVar (-42)) (Rule [5,21,23,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 35) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_101") [Var 5,Var 23,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_101") 4 Private (TVar (-42)) (Rule [5,23,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude",":") [36,37]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_100") [Var 5,Var 23,Var 37,Var 36,Var 1]])]])),Func ("OracleFlatCurryXML","_case_100") 5 Private (TVar (-42)) (Rule [5,23,37,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (Pattern ("Prelude","(,)") [38,39]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_99") [Var 5,Var 23,Var 37,Var 39,Var 38,Var 1]])]])),Func ("OracleFlatCurryXML","_case_99") 6 Private (TVar (-42)) (Rule [5,23,37,39,38,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 38) [Branch (Pattern ("Prelude",":") [40,41]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_98") [Var 5,Var 23,Var 37,Var 39,Var 41,Var 40,Var 1]])]])),Func ("OracleFlatCurryXML","_case_98") 7 Private (TVar (-42)) (Rule [5,23,37,39,41,40,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 40) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_97") [Var 5,Var 23,Var 37,Var 39,Var 41,Var 1]])]])),Func ("OracleFlatCurryXML","_case_97") 6 Private (TVar (-42)) (Rule [5,23,37,39,41,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 41) [Branch (Pattern ("Prelude",":") [42,43]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_96") [Var 5,Var 23,Var 37,Var 39,Var 43,Var 42,Var 1]])]])),Func ("OracleFlatCurryXML","_case_96") 7 Private (TVar (-42)) (Rule [5,23,37,39,43,42,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 42) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_95") [Var 5,Var 23,Var 37,Var 39,Var 43,Var 1]])]])),Func ("OracleFlatCurryXML","_case_95") 6 Private (TVar (-42)) (Rule [5,23,37,39,43,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 43) [Branch (Pattern ("Prelude",":") [44,45]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_94") [Var 5,Var 23,Var 37,Var 39,Var 45,Var 44,Var 1]])]])),Func ("OracleFlatCurryXML","_case_94") 7 Private (TVar (-42)) (Rule [5,23,37,39,45,44,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 44) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_93") [Var 5,Var 23,Var 37,Var 39,Var 45,Var 1]])]])),Func ("OracleFlatCurryXML","_case_93") 6 Private (TVar (-42)) (Rule [5,23,37,39,45,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 45) [Branch (Pattern ("Prelude",":") [46,47]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_92") [Var 5,Var 23,Var 37,Var 39,Var 47,Var 46,Var 1]])]])),Func ("OracleFlatCurryXML","_case_92") 7 Private (TVar (-42)) (Rule [5,23,37,39,47,46,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 46) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_91") [Var 5,Var 23,Var 37,Var 39,Var 47,Var 1]])]])),Func ("OracleFlatCurryXML","_case_91") 6 Private (TVar (-42)) (Rule [5,23,37,39,47,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 47) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_90") [Var 5,Var 23,Var 39,Var 37,Var 1]])]])),Func ("OracleFlatCurryXML","_case_90") 5 Private (TVar (-42)) (Rule [5,23,39,37,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 37) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FlatCurry","TCons") [Comb ConsCall ("Prelude","(,)") [Var 23,Var 39],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2texp") []],Var 5,Var 1]]])]])),Func ("OracleFlatCurryXML","_case_129") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_128") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_128") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_127") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_127") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_126") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_126") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_125") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_125") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_124") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_124") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","TVar") [Comb FuncCall ("OracleRead","readNat") [Comb FuncCall ("OracleXML","textOfXml") [Var 5,Var 1],Var 6]]]))]])),Func ("OracleFlatCurryXML","_case_167") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_166") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_166") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_165") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_165") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_164") [Var 4,Var 5,Var 7,Var 1]]),Branch (LPattern (Charc 'f')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_156") [Var 4,Var 7,Var 1]]),Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_144") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_144") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_143") [Var 4,Var 5,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_143") 5 Private (TVar (-42)) (Rule [4,5,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (LPattern (Charc 'h')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_142") [Var 4,Var 5,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_142") 4 Private (TVar (-42)) (Rule [4,5,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_141") [Var 4,Var 5,Var 27,Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_141") 5 Private (TVar (-42)) (Rule [4,5,27,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_140") [Var 4,Var 5,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_140") 4 Private (TVar (-42)) (Rule [4,5,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_139") [Var 4,Var 5,Var 29,Var 28,Var 1]])]])),Func ("OracleFlatCurryXML","_case_139") 5 Private (TVar (-42)) (Rule [4,5,29,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_138") [Var 4,Var 5,Var 29,Var 1]])]])),Func ("OracleFlatCurryXML","_case_138") 4 Private (TVar (-42)) (Rule [4,5,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (Pattern ("Prelude",":") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_137") [Var 4,Var 5,Var 31,Var 30,Var 1]])]])),Func ("OracleFlatCurryXML","_case_137") 5 Private (TVar (-42)) (Rule [4,5,31,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_136") [Var 4,Var 5,Var 31,Var 1]])]])),Func ("OracleFlatCurryXML","_case_136") 4 Private (TVar (-42)) (Rule [4,5,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_135") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_135") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("FlatCurry","Charc") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OracleRead","readNat") [Comb FuncCall ("OracleXML","textOfXml") [Var 5,Var 1],Var 6],Var 7]]]))]])),Func ("OracleFlatCurryXML","_case_156") 3 Private (TVar (-42)) (Rule [4,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_155") [Var 4,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_155") 4 Private (TVar (-42)) (Rule [4,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_154") [Var 4,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_154") 3 Private (TVar (-42)) (Rule [4,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_153") [Var 4,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_153") 4 Private (TVar (-42)) (Rule [4,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_152") [Var 4,Var 17,Var 1]])]])),Func ("OracleFlatCurryXML","_case_152") 3 Private (TVar (-42)) (Rule [4,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_151") [Var 4,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_151") 4 Private (TVar (-42)) (Rule [4,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_150") [Var 4,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_150") 3 Private (TVar (-42)) (Rule [4,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_149") [Var 4,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_149") 4 Private (TVar (-42)) (Rule [4,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_148") [Var 4,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_148") 3 Private (TVar (-42)) (Rule [4,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude",":") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_147") [Var 4,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_147") 4 Private (TVar (-42)) (Rule [4,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_146") [Var 4,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_146") 3 Private (TVar (-42)) (Rule [4,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_145") [Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_145") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleFlatCurryXML","_case_164") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_163") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_163") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_162") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_162") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_161") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_161") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_160") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_160") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_159") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_159") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_158") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_158") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_157") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_157") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Intc") [Comb FuncCall ("OracleRead","readNat") [Comb FuncCall ("OracleXML","textOfXml") [Var 5,Var 1],Var 6]]]))]])),Func ("OracleFlatCurryXML","_case_265") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_264") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_264") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_263") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_263") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 'b')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_262") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_262") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_261") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_261") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_260") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_260") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_259") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_259") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_258") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_258") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_257") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_257") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_256") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_256") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_255") [Var 4,Var 5,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_255") 5 Private (TVar (-42)) (Rule [4,5,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_254") [Var 4,Var 5,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_254") 4 Private (TVar (-42)) (Rule [4,5,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_253") [Var 4,Var 5,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_253") 5 Private (TVar (-42)) (Rule [4,5,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (LPattern (Charc 'h')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_252") [Var 4,Var 5,Var 17,Var 1]])]])),Func ("OracleFlatCurryXML","_case_252") 4 Private (TVar (-42)) (Rule [4,5,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_251") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_251") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_250") [Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_250") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_249") [Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_249") 3 Private (TVar (-42)) (Rule [19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (Pattern ("XML","XElem") [20,21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_248") [Var 19,Var 21,Var 22,Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_248") 5 Private (TVar (-42)) (Rule [19,21,22,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (Pattern ("Prelude",":") [23,24]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_247") [Var 19,Var 21,Var 22,Var 24,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_247") 6 Private (TVar (-42)) (Rule [19,21,22,24,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_246") [Var 19,Var 21,Var 22,Var 24,Var 1]]),Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_204") [Var 19,Var 21,Var 22,Var 24,Var 1]]),Branch (LPattern (Charc 'h')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_184") [Var 19,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_184") 3 Private (TVar (-42)) (Rule [19,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude",":") [85,86]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_183") [Var 19,Var 86,Var 85,Var 1]])]])),Func ("OracleFlatCurryXML","_case_183") 4 Private (TVar (-42)) (Rule [19,86,85,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 85) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_182") [Var 19,Var 86,Var 1]])]])),Func ("OracleFlatCurryXML","_case_182") 3 Private (TVar (-42)) (Rule [19,86,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 86) [Branch (Pattern ("Prelude",":") [87,88]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_181") [Var 19,Var 88,Var 87,Var 1]])]])),Func ("OracleFlatCurryXML","_case_181") 4 Private (TVar (-42)) (Rule [19,88,87,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 87) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_180") [Var 19,Var 88,Var 1]])]])),Func ("OracleFlatCurryXML","_case_180") 3 Private (TVar (-42)) (Rule [19,88,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 88) [Branch (Pattern ("Prelude",":") [89,90]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_179") [Var 19,Var 90,Var 89,Var 1]])]])),Func ("OracleFlatCurryXML","_case_179") 4 Private (TVar (-42)) (Rule [19,90,89,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 89) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_178") [Var 19,Var 90,Var 1]])]])),Func ("OracleFlatCurryXML","_case_178") 3 Private (TVar (-42)) (Rule [19,90,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 90) [Branch (Pattern ("Prelude",":") [91,92]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_177") [Var 19,Var 92,Var 91,Var 1]])]])),Func ("OracleFlatCurryXML","_case_177") 4 Private (TVar (-42)) (Rule [19,92,91,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 91) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_176") [Var 19,Var 92,Var 1]])]])),Func ("OracleFlatCurryXML","_case_176") 3 Private (TVar (-42)) (Rule [19,92,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 92) [Branch (Pattern ("Prelude",":") [93,94]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_175") [Var 19,Var 94,Var 93,Var 1]])]])),Func ("OracleFlatCurryXML","_case_175") 4 Private (TVar (-42)) (Rule [19,94,93,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 93) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_174") [Var 19,Var 94,Var 1]])]])),Func ("OracleFlatCurryXML","_case_174") 3 Private (TVar (-42)) (Rule [19,94,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 94) [Branch (Pattern ("Prelude",":") [95,96]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_173") [Var 19,Var 96,Var 95,Var 1]])]])),Func ("OracleFlatCurryXML","_case_173") 4 Private (TVar (-42)) (Rule [19,96,95,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 95) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_172") [Var 19,Var 96,Var 1]])]])),Func ("OracleFlatCurryXML","_case_172") 3 Private (TVar (-42)) (Rule [19,96,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 96) [Branch (Pattern ("Prelude",":") [97,98]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_171") [Var 19,Var 98,Var 97,Var 1]])]])),Func ("OracleFlatCurryXML","_case_171") 4 Private (TVar (-42)) (Rule [19,98,97,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 97) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_170") [Var 19,Var 98,Var 1]])]])),Func ("OracleFlatCurryXML","_case_170") 3 Private (TVar (-42)) (Rule [19,98,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 98) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_169") [Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_169") 2 Private (TVar (-42)) (Rule [19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [99,100]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_168") [Var 100,Var 1]])]])),Func ("OracleFlatCurryXML","_case_168") 2 Private (TVar (-42)) (Rule [100,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 100) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleFlatCurryXML","_case_204") 5 Private (TVar (-42)) (Rule [19,21,22,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude",":") [67,68]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_203") [Var 19,Var 21,Var 22,Var 68,Var 67,Var 1]])]])),Func ("OracleFlatCurryXML","_case_203") 6 Private (TVar (-42)) (Rule [19,21,22,68,67,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 67) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_202") [Var 19,Var 21,Var 22,Var 68,Var 1]])]])),Func ("OracleFlatCurryXML","_case_202") 5 Private (TVar (-42)) (Rule [19,21,22,68,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 68) [Branch (Pattern ("Prelude",":") [69,70]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_201") [Var 19,Var 21,Var 22,Var 70,Var 69,Var 1]])]])),Func ("OracleFlatCurryXML","_case_201") 6 Private (TVar (-42)) (Rule [19,21,22,70,69,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 69) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_200") [Var 19,Var 21,Var 22,Var 70,Var 1]])]])),Func ("OracleFlatCurryXML","_case_200") 5 Private (TVar (-42)) (Rule [19,21,22,70,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 70) [Branch (Pattern ("Prelude",":") [71,72]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_199") [Var 19,Var 21,Var 22,Var 72,Var 71,Var 1]])]])),Func ("OracleFlatCurryXML","_case_199") 6 Private (TVar (-42)) (Rule [19,21,22,72,71,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 71) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_198") [Var 19,Var 21,Var 22,Var 72,Var 1]])]])),Func ("OracleFlatCurryXML","_case_198") 5 Private (TVar (-42)) (Rule [19,21,22,72,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 72) [Branch (Pattern ("Prelude",":") [73,74]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_197") [Var 19,Var 21,Var 22,Var 74,Var 73,Var 1]])]])),Func ("OracleFlatCurryXML","_case_197") 6 Private (TVar (-42)) (Rule [19,21,22,74,73,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 73) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_196") [Var 19,Var 21,Var 22,Var 74,Var 1]])]])),Func ("OracleFlatCurryXML","_case_196") 5 Private (TVar (-42)) (Rule [19,21,22,74,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 74) [Branch (Pattern ("Prelude",":") [75,76]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_195") [Var 19,Var 21,Var 22,Var 76,Var 75,Var 1]])]])),Func ("OracleFlatCurryXML","_case_195") 6 Private (TVar (-42)) (Rule [19,21,22,76,75,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 75) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_194") [Var 19,Var 21,Var 22,Var 76,Var 1]])]])),Func ("OracleFlatCurryXML","_case_194") 5 Private (TVar (-42)) (Rule [19,21,22,76,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 76) [Branch (Pattern ("Prelude",":") [77,78]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_193") [Var 19,Var 21,Var 22,Var 78,Var 77,Var 1]])]])),Func ("OracleFlatCurryXML","_case_193") 6 Private (TVar (-42)) (Rule [19,21,22,78,77,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 77) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_192") [Var 19,Var 21,Var 22,Var 78,Var 1]])]])),Func ("OracleFlatCurryXML","_case_192") 5 Private (TVar (-42)) (Rule [19,21,22,78,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 78) [Branch (Pattern ("Prelude",":") [79,80]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_191") [Var 19,Var 21,Var 22,Var 80,Var 79,Var 1]])]])),Func ("OracleFlatCurryXML","_case_191") 6 Private (TVar (-42)) (Rule [19,21,22,80,79,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 79) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_190") [Var 19,Var 21,Var 22,Var 80,Var 1]])]])),Func ("OracleFlatCurryXML","_case_190") 5 Private (TVar (-42)) (Rule [19,21,22,80,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 80) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_189") [Var 19,Var 22,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_189") 4 Private (TVar (-42)) (Rule [19,22,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_188") [Var 19,Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_188") 3 Private (TVar (-42)) (Rule [19,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude",":") [81,82]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_187") [Var 19,Var 81,Var 82,Var 1]])]])),Func ("OracleFlatCurryXML","_case_187") 4 Private (TVar (-42)) (Rule [19,81,82,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 82) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_186") [Var 81,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_186") 3 Private (TVar (-42)) (Rule [81,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [83,84]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_185") [Var 81,Var 83,Var 84,Var 1]])]])),Func ("OracleFlatCurryXML","_case_185") 4 Private (TVar (-42)) (Rule [81,83,84,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 84) [Branch (Pattern ("Prelude","[]") []) (Let [(85,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 85,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Branch") [Comb ConsCall ("FlatCurry","LPattern") [Comb FuncCall ("OracleFlatCurryXML","flatx2lit") [Var 81,Var 1]],Comb FuncCall ("OracleFlatCurryXML","flatx2exp") [Var 83,Var 85]]]))]])),Func ("OracleFlatCurryXML","_case_246") 5 Private (TVar (-42)) (Rule [19,21,22,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_245") [Var 19,Var 21,Var 22,Var 26,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_245") 6 Private (TVar (-42)) (Rule [19,21,22,26,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_244") [Var 19,Var 21,Var 22,Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_244") 5 Private (TVar (-42)) (Rule [19,21,22,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (Pattern ("Prelude",":") [27,28]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_243") [Var 19,Var 21,Var 22,Var 28,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_243") 6 Private (TVar (-42)) (Rule [19,21,22,28,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_242") [Var 19,Var 21,Var 22,Var 28,Var 1]])]])),Func ("OracleFlatCurryXML","_case_242") 5 Private (TVar (-42)) (Rule [19,21,22,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (Pattern ("Prelude",":") [29,30]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_241") [Var 19,Var 21,Var 22,Var 30,Var 29,Var 1]])]])),Func ("OracleFlatCurryXML","_case_241") 6 Private (TVar (-42)) (Rule [19,21,22,30,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_240") [Var 19,Var 21,Var 22,Var 30,Var 1]])]])),Func ("OracleFlatCurryXML","_case_240") 5 Private (TVar (-42)) (Rule [19,21,22,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (Pattern ("Prelude",":") [31,32]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_239") [Var 19,Var 21,Var 22,Var 32,Var 31,Var 1]])]])),Func ("OracleFlatCurryXML","_case_239") 6 Private (TVar (-42)) (Rule [19,21,22,32,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_238") [Var 19,Var 21,Var 22,Var 32,Var 1]])]])),Func ("OracleFlatCurryXML","_case_238") 5 Private (TVar (-42)) (Rule [19,21,22,32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 32) [Branch (Pattern ("Prelude",":") [33,34]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_237") [Var 19,Var 21,Var 22,Var 34,Var 33,Var 1]])]])),Func ("OracleFlatCurryXML","_case_237") 6 Private (TVar (-42)) (Rule [19,21,22,34,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 33) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_236") [Var 19,Var 21,Var 22,Var 34,Var 1]])]])),Func ("OracleFlatCurryXML","_case_236") 5 Private (TVar (-42)) (Rule [19,21,22,34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (Pattern ("Prelude",":") [35,36]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_235") [Var 19,Var 21,Var 22,Var 36,Var 35,Var 1]])]])),Func ("OracleFlatCurryXML","_case_235") 6 Private (TVar (-42)) (Rule [19,21,22,36,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 35) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_234") [Var 19,Var 21,Var 22,Var 36,Var 1]])]])),Func ("OracleFlatCurryXML","_case_234") 5 Private (TVar (-42)) (Rule [19,21,22,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_233") [Var 19,Var 22,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_233") 4 Private (TVar (-42)) (Rule [19,22,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude",":") [37,38]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_232") [Var 19,Var 22,Var 38,Var 37,Var 1]])]])),Func ("OracleFlatCurryXML","_case_232") 5 Private (TVar (-42)) (Rule [19,22,38,37,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 37) [Branch (Pattern ("Prelude","(,)") [39,40]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_231") [Var 19,Var 22,Var 38,Var 40,Var 39,Var 1]])]])),Func ("OracleFlatCurryXML","_case_231") 6 Private (TVar (-42)) (Rule [19,22,38,40,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 39) [Branch (Pattern ("Prelude",":") [41,42]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_230") [Var 19,Var 22,Var 38,Var 40,Var 42,Var 41,Var 1]])]])),Func ("OracleFlatCurryXML","_case_230") 7 Private (TVar (-42)) (Rule [19,22,38,40,42,41,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 41) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_229") [Var 19,Var 22,Var 38,Var 40,Var 42,Var 1]])]])),Func ("OracleFlatCurryXML","_case_229") 6 Private (TVar (-42)) (Rule [19,22,38,40,42,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 42) [Branch (Pattern ("Prelude",":") [43,44]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_228") [Var 19,Var 22,Var 38,Var 40,Var 44,Var 43,Var 1]])]])),Func ("OracleFlatCurryXML","_case_228") 7 Private (TVar (-42)) (Rule [19,22,38,40,44,43,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 43) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_227") [Var 19,Var 22,Var 38,Var 40,Var 44,Var 1]])]])),Func ("OracleFlatCurryXML","_case_227") 6 Private (TVar (-42)) (Rule [19,22,38,40,44,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 44) [Branch (Pattern ("Prelude",":") [45,46]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_226") [Var 19,Var 22,Var 38,Var 40,Var 46,Var 45,Var 1]])]])),Func ("OracleFlatCurryXML","_case_226") 7 Private (TVar (-42)) (Rule [19,22,38,40,46,45,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 45) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_225") [Var 19,Var 22,Var 38,Var 40,Var 46,Var 1]])]])),Func ("OracleFlatCurryXML","_case_225") 6 Private (TVar (-42)) (Rule [19,22,38,40,46,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 46) [Branch (Pattern ("Prelude",":") [47,48]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_224") [Var 19,Var 22,Var 38,Var 40,Var 48,Var 47,Var 1]])]])),Func ("OracleFlatCurryXML","_case_224") 7 Private (TVar (-42)) (Rule [19,22,38,40,48,47,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 47) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_223") [Var 19,Var 22,Var 38,Var 40,Var 48,Var 1]])]])),Func ("OracleFlatCurryXML","_case_223") 6 Private (TVar (-42)) (Rule [19,22,38,40,48,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 48) [Branch (Pattern ("Prelude",":") [49,50]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_222") [Var 19,Var 22,Var 38,Var 40,Var 50,Var 49,Var 1]])]])),Func ("OracleFlatCurryXML","_case_222") 7 Private (TVar (-42)) (Rule [19,22,38,40,50,49,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 49) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_221") [Var 19,Var 22,Var 38,Var 40,Var 50,Var 1]])]])),Func ("OracleFlatCurryXML","_case_221") 6 Private (TVar (-42)) (Rule [19,22,38,40,50,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 50) [Branch (Pattern ("Prelude",":") [51,52]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_220") [Var 19,Var 22,Var 38,Var 40,Var 52,Var 51,Var 1]])]])),Func ("OracleFlatCurryXML","_case_220") 7 Private (TVar (-42)) (Rule [19,22,38,40,52,51,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 51) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_219") [Var 19,Var 22,Var 38,Var 40,Var 52,Var 1]])]])),Func ("OracleFlatCurryXML","_case_219") 6 Private (TVar (-42)) (Rule [19,22,38,40,52,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 52) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_218") [Var 19,Var 22,Var 40,Var 38,Var 1]])]])),Func ("OracleFlatCurryXML","_case_218") 5 Private (TVar (-42)) (Rule [19,22,40,38,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 38) [Branch (Pattern ("Prelude",":") [53,54]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_217") [Var 19,Var 22,Var 40,Var 54,Var 53,Var 1]])]])),Func ("OracleFlatCurryXML","_case_217") 6 Private (TVar (-42)) (Rule [19,22,40,54,53,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 53) [Branch (Pattern ("Prelude","(,)") [55,56]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_216") [Var 19,Var 22,Var 40,Var 54,Var 56,Var 55,Var 1]])]])),Func ("OracleFlatCurryXML","_case_216") 7 Private (TVar (-42)) (Rule [19,22,40,54,56,55,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 55) [Branch (Pattern ("Prelude",":") [57,58]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_215") [Var 19,Var 22,Var 40,Var 54,Var 56,Var 58,Var 57,Var 1]])]])),Func ("OracleFlatCurryXML","_case_215") 8 Private (TVar (-42)) (Rule [19,22,40,54,56,58,57,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 57) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_214") [Var 19,Var 22,Var 40,Var 54,Var 56,Var 58,Var 1]])]])),Func ("OracleFlatCurryXML","_case_214") 7 Private (TVar (-42)) (Rule [19,22,40,54,56,58,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 58) [Branch (Pattern ("Prelude",":") [59,60]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_213") [Var 19,Var 22,Var 40,Var 54,Var 56,Var 60,Var 59,Var 1]])]])),Func ("OracleFlatCurryXML","_case_213") 8 Private (TVar (-42)) (Rule [19,22,40,54,56,60,59,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 59) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_212") [Var 19,Var 22,Var 40,Var 54,Var 56,Var 60,Var 1]])]])),Func ("OracleFlatCurryXML","_case_212") 7 Private (TVar (-42)) (Rule [19,22,40,54,56,60,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 60) [Branch (Pattern ("Prelude",":") [61,62]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_211") [Var 19,Var 22,Var 40,Var 54,Var 56,Var 62,Var 61,Var 1]])]])),Func ("OracleFlatCurryXML","_case_211") 8 Private (TVar (-42)) (Rule [19,22,40,54,56,62,61,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 61) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_210") [Var 19,Var 22,Var 40,Var 54,Var 56,Var 62,Var 1]])]])),Func ("OracleFlatCurryXML","_case_210") 7 Private (TVar (-42)) (Rule [19,22,40,54,56,62,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 62) [Branch (Pattern ("Prelude",":") [63,64]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_209") [Var 19,Var 22,Var 40,Var 54,Var 56,Var 64,Var 63,Var 1]])]])),Func ("OracleFlatCurryXML","_case_209") 8 Private (TVar (-42)) (Rule [19,22,40,54,56,64,63,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 63) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_208") [Var 19,Var 22,Var 40,Var 54,Var 56,Var 64,Var 1]])]])),Func ("OracleFlatCurryXML","_case_208") 7 Private (TVar (-42)) (Rule [19,22,40,54,56,64,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 64) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_207") [Var 19,Var 22,Var 40,Var 56,Var 54,Var 1]])]])),Func ("OracleFlatCurryXML","_case_207") 6 Private (TVar (-42)) (Rule [19,22,40,56,54,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 54) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_206") [Var 22,Var 40,Var 56,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_206") 5 Private (TVar (-42)) (Rule [22,40,56,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [65,66]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_205") [Var 22,Var 40,Var 56,Var 65,Var 66,Var 1]])]])),Func ("OracleFlatCurryXML","_case_205") 6 Private (TVar (-42)) (Rule [22,40,56,65,66,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 66) [Branch (Pattern ("Prelude","[]") []) (Let [(67,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 67,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Branch") [Comb ConsCall ("FlatCurry","Pattern") [Comb ConsCall ("Prelude","(,)") [Var 40,Var 56],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2var") []],Var 22,Var 1]],Comb FuncCall ("OracleFlatCurryXML","flatx2exp") [Var 65,Var 67]]]))]])),Func ("OracleFlatCurryXML","_case_266") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFlatCurryXML","_case_267") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryXML","_case_298") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_297") [Var 3,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_297") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("OracleFlatCurryXML","flatx2exp") [Var 3,Var 1]]]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_296") [Var 5,Var 6,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_296") 4 Private (TVar (-42)) (Rule [5,6,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("XML","XElem") [7,8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_295") [Var 5,Var 6,Var 8,Var 9,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_295") 6 Private (TVar (-42)) (Rule [5,6,8,9,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_294") [Var 5,Var 6,Var 8,Var 9,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_294") 7 Private (TVar (-42)) (Rule [5,6,8,9,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'b')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_293") [Var 5,Var 6,Var 8,Var 9,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_293") 6 Private (TVar (-42)) (Rule [5,6,8,9,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_292") [Var 5,Var 6,Var 8,Var 9,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_292") 7 Private (TVar (-42)) (Rule [5,6,8,9,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_291") [Var 5,Var 6,Var 8,Var 9,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_291") 6 Private (TVar (-42)) (Rule [5,6,8,9,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_290") [Var 5,Var 6,Var 8,Var 9,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_290") 7 Private (TVar (-42)) (Rule [5,6,8,9,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_289") [Var 5,Var 6,Var 8,Var 9,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_289") 6 Private (TVar (-42)) (Rule [5,6,8,9,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_288") [Var 5,Var 6,Var 8,Var 9,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_288") 7 Private (TVar (-42)) (Rule [5,6,8,9,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_287") [Var 5,Var 6,Var 8,Var 9,Var 17,Var 1]])]])),Func ("OracleFlatCurryXML","_case_287") 6 Private (TVar (-42)) (Rule [5,6,8,9,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_286") [Var 5,Var 6,Var 8,Var 9,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_286") 7 Private (TVar (-42)) (Rule [5,6,8,9,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_285") [Var 5,Var 6,Var 8,Var 9,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_285") 6 Private (TVar (-42)) (Rule [5,6,8,9,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_284") [Var 5,Var 6,Var 8,Var 9,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_284") 7 Private (TVar (-42)) (Rule [5,6,8,9,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_283") [Var 5,Var 6,Var 8,Var 9,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_283") 6 Private (TVar (-42)) (Rule [5,6,8,9,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude",":") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_282") [Var 5,Var 6,Var 8,Var 9,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_282") 7 Private (TVar (-42)) (Rule [5,6,8,9,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (LPattern (Charc 'g')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_281") [Var 5,Var 6,Var 8,Var 9,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_281") 6 Private (TVar (-42)) (Rule [5,6,8,9,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_280") [Var 5,Var 6,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_280") 5 Private (TVar (-42)) (Rule [5,6,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_279") [Var 5,Var 6,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_279") 4 Private (TVar (-42)) (Rule [5,6,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_278") [Var 5,Var 6,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_278") 5 Private (TVar (-42)) (Rule [5,6,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("XML","XElem") [26,27,28]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_277") [Var 5,Var 6,Var 25,Var 27,Var 28,Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_277") 7 Private (TVar (-42)) (Rule [5,6,25,27,28,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (Pattern ("Prelude",":") [29,30]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_276") [Var 5,Var 6,Var 25,Var 27,Var 28,Var 30,Var 29,Var 1]])]])),Func ("OracleFlatCurryXML","_case_276") 8 Private (TVar (-42)) (Rule [5,6,25,27,28,30,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (LPattern (Charc 'v')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_275") [Var 5,Var 6,Var 25,Var 27,Var 28,Var 30,Var 1]])]])),Func ("OracleFlatCurryXML","_case_275") 7 Private (TVar (-42)) (Rule [5,6,25,27,28,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (Pattern ("Prelude",":") [31,32]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_274") [Var 5,Var 6,Var 25,Var 27,Var 28,Var 32,Var 31,Var 1]])]])),Func ("OracleFlatCurryXML","_case_274") 8 Private (TVar (-42)) (Rule [5,6,25,27,28,32,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_273") [Var 5,Var 6,Var 25,Var 27,Var 28,Var 32,Var 1]])]])),Func ("OracleFlatCurryXML","_case_273") 7 Private (TVar (-42)) (Rule [5,6,25,27,28,32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 32) [Branch (Pattern ("Prelude",":") [33,34]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_272") [Var 5,Var 6,Var 25,Var 27,Var 28,Var 34,Var 33,Var 1]])]])),Func ("OracleFlatCurryXML","_case_272") 8 Private (TVar (-42)) (Rule [5,6,25,27,28,34,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 33) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_271") [Var 5,Var 6,Var 25,Var 27,Var 28,Var 34,Var 1]])]])),Func ("OracleFlatCurryXML","_case_271") 7 Private (TVar (-42)) (Rule [5,6,25,27,28,34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_270") [Var 5,Var 6,Var 25,Var 28,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_270") 6 Private (TVar (-42)) (Rule [5,6,25,28,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_269") [Var 5,Var 6,Var 28,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_269") 5 Private (TVar (-42)) (Rule [5,6,28,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude",":") [35,36]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_268") [Var 5,Var 6,Var 28,Var 35,Var 36,Var 1]])]])),Func ("OracleFlatCurryXML","_case_268") 6 Private (TVar (-42)) (Rule [5,6,28,35,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (Pattern ("Prelude","[]") []) (Let [(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []],Let [(37,Comb FuncCall ("OracleFlatCurryXML","flatx2let") [Comb ConsCall ("Prelude",":") [Var 5,Var 6],Var 1])] (Let [(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude","[]") []],Let [(38,Comb FuncCall ("OracleFlatCurryXML","flatx2let._#selFP9#bindings") [Var 37,Var 40])] (Let [(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude","[]") []],Let [(39,Comb FuncCall ("OracleFlatCurryXML","flatx2let._#selFP10#exp") [Var 37,Var 41])] (Let [(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(44,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 42,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude",":") [Var 44,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleRead","readNat") [Comb FuncCall ("OracleXML","textOfXml") [Var 28,Var 42],Var 43],Comb FuncCall ("OracleFlatCurryXML","flatx2exp") [Var 35,Var 44]],Var 38],Var 39]]))]))]))]))]])),Func ("OracleFlatCurryXML","_case_299") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFlatCurryXML","_case_300") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryXML","_case_301") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFlatCurryXML","_case_302") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleFlatCurryXML","_case_583") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_582") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_582") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_581") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_581") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 'v')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_580") [Var 4,Var 5,Var 7,Var 1]]),Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_574") [Var 4,Var 5,Var 7,Var 1]]),Branch (LPattern (Charc 'f')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_555") [Var 4,Var 5,Var 7,Var 1]]),Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_417") [Var 4,Var 5,Var 7,Var 1]]),Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_309") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_309") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [277,278]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_308") [Var 4,Var 5,Var 278,Var 277,Var 1]])]])),Func ("OracleFlatCurryXML","_case_308") 5 Private (TVar (-42)) (Rule [4,5,278,277,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 277) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_307") [Var 4,Var 5,Var 278,Var 1]])]])),Func ("OracleFlatCurryXML","_case_307") 4 Private (TVar (-42)) (Rule [4,5,278,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 278) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_306") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_306") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_305") [Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_305") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [279,280]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_304") [Var 279,Var 280,Var 1]])]])),Func ("OracleFlatCurryXML","_case_304") 3 Private (TVar (-42)) (Rule [279,280,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 280) [Branch (Pattern ("Prelude",":") [281,282]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_303") [Var 279,Var 281,Var 282,Var 1]])]])),Func ("OracleFlatCurryXML","_case_303") 4 Private (TVar (-42)) (Rule [279,281,282,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 282) [Branch (Pattern ("Prelude","[]") []) (Let [(283,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 283,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Or") [Comb FuncCall ("OracleFlatCurryXML","flatx2exp") [Var 279,Var 1],Comb FuncCall ("OracleFlatCurryXML","flatx2exp") [Var 281,Var 283]]]))]])),Func ("OracleFlatCurryXML","_case_417") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [169,170]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_416") [Var 4,Var 5,Var 170,Var 169,Var 1]])]])),Func ("OracleFlatCurryXML","_case_416") 5 Private (TVar (-42)) (Rule [4,5,170,169,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 169) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_415") [Var 4,Var 5,Var 170,Var 1]]),Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_316") [Var 4,Var 5,Var 170,Var 1]])]])),Func ("OracleFlatCurryXML","_case_316") 4 Private (TVar (-42)) (Rule [4,5,170,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 170) [Branch (Pattern ("Prelude",":") [271,272]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_315") [Var 4,Var 5,Var 272,Var 271,Var 1]])]])),Func ("OracleFlatCurryXML","_case_315") 5 Private (TVar (-42)) (Rule [4,5,272,271,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 271) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_314") [Var 4,Var 5,Var 272,Var 1]])]])),Func ("OracleFlatCurryXML","_case_314") 4 Private (TVar (-42)) (Rule [4,5,272,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 272) [Branch (Pattern ("Prelude",":") [273,274]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_313") [Var 4,Var 5,Var 274,Var 273,Var 1]])]])),Func ("OracleFlatCurryXML","_case_313") 5 Private (TVar (-42)) (Rule [4,5,274,273,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 273) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_312") [Var 4,Var 5,Var 274,Var 1]])]])),Func ("OracleFlatCurryXML","_case_312") 4 Private (TVar (-42)) (Rule [4,5,274,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 274) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_311") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_311") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_310") [Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_310") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [275,276]) (Let [(277,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 277,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Case") [Comb ConsCall ("FlatCurry","Rigid") [],Comb FuncCall ("OracleFlatCurryXML","flatx2exp") [Var 275,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2branch") []],Var 276,Var 277]]]))]])),Func ("OracleFlatCurryXML","_case_415") 4 Private (TVar (-42)) (Rule [4,5,170,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 170) [Branch (Pattern ("Prelude",":") [171,172]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_414") [Var 4,Var 5,Var 172,Var 171,Var 1]])]])),Func ("OracleFlatCurryXML","_case_414") 5 Private (TVar (-42)) (Rule [4,5,172,171,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 171) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_413") [Var 4,Var 5,Var 172,Var 1]])]])),Func ("OracleFlatCurryXML","_case_413") 4 Private (TVar (-42)) (Rule [4,5,172,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 172) [Branch (Pattern ("Prelude",":") [173,174]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_412") [Var 4,Var 5,Var 174,Var 173,Var 1]])]])),Func ("OracleFlatCurryXML","_case_412") 5 Private (TVar (-42)) (Rule [4,5,174,173,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 173) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_411") [Var 4,Var 5,Var 174,Var 1]])]])),Func ("OracleFlatCurryXML","_case_411") 4 Private (TVar (-42)) (Rule [4,5,174,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 174) [Branch (Pattern ("Prelude",":") [175,176]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_410") [Var 4,Var 5,Var 176,Var 175,Var 1]])]])),Func ("OracleFlatCurryXML","_case_410") 5 Private (TVar (-42)) (Rule [4,5,176,175,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 175) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_409") [Var 4,Var 5,Var 176,Var 1]]),Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_375") [Var 4,Var 5,Var 176,Var 1]])]])),Func ("OracleFlatCurryXML","_case_375") 4 Private (TVar (-42)) (Rule [4,5,176,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 176) [Branch (Pattern ("Prelude",":") [211,212]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_374") [Var 4,Var 5,Var 212,Var 211,Var 1]])]])),Func ("OracleFlatCurryXML","_case_374") 5 Private (TVar (-42)) (Rule [4,5,212,211,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 211) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_373") [Var 4,Var 5,Var 212,Var 1]])]])),Func ("OracleFlatCurryXML","_case_373") 4 Private (TVar (-42)) (Rule [4,5,212,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 212) [Branch (Pattern ("Prelude",":") [213,214]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_372") [Var 4,Var 5,Var 214,Var 213,Var 1]])]])),Func ("OracleFlatCurryXML","_case_372") 5 Private (TVar (-42)) (Rule [4,5,214,213,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 213) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_371") [Var 4,Var 5,Var 214,Var 1]])]])),Func ("OracleFlatCurryXML","_case_371") 4 Private (TVar (-42)) (Rule [4,5,214,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 214) [Branch (Pattern ("Prelude",":") [215,216]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_370") [Var 4,Var 5,Var 216,Var 215,Var 1]])]])),Func ("OracleFlatCurryXML","_case_370") 5 Private (TVar (-42)) (Rule [4,5,216,215,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 215) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_369") [Var 4,Var 5,Var 216,Var 1]])]])),Func ("OracleFlatCurryXML","_case_369") 4 Private (TVar (-42)) (Rule [4,5,216,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 216) [Branch (Pattern ("Prelude",":") [217,218]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_368") [Var 4,Var 5,Var 218,Var 217,Var 1]])]])),Func ("OracleFlatCurryXML","_case_368") 5 Private (TVar (-42)) (Rule [4,5,218,217,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 217) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_367") [Var 4,Var 5,Var 218,Var 1]])]])),Func ("OracleFlatCurryXML","_case_367") 4 Private (TVar (-42)) (Rule [4,5,218,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 218) [Branch (Pattern ("Prelude",":") [219,220]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_366") [Var 4,Var 5,Var 220,Var 219,Var 1]])]])),Func ("OracleFlatCurryXML","_case_366") 5 Private (TVar (-42)) (Rule [4,5,220,219,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 219) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_365") [Var 4,Var 5,Var 220,Var 1]])]])),Func ("OracleFlatCurryXML","_case_365") 4 Private (TVar (-42)) (Rule [4,5,220,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 220) [Branch (Pattern ("Prelude",":") [221,222]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_364") [Var 4,Var 5,Var 222,Var 221,Var 1]])]])),Func ("OracleFlatCurryXML","_case_364") 5 Private (TVar (-42)) (Rule [4,5,222,221,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 221) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_363") [Var 4,Var 5,Var 222,Var 1]])]])),Func ("OracleFlatCurryXML","_case_363") 4 Private (TVar (-42)) (Rule [4,5,222,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 222) [Branch (Pattern ("Prelude",":") [223,224]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_362") [Var 4,Var 5,Var 224,Var 223,Var 1]])]])),Func ("OracleFlatCurryXML","_case_362") 5 Private (TVar (-42)) (Rule [4,5,224,223,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 223) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_361") [Var 4,Var 5,Var 224,Var 1]])]])),Func ("OracleFlatCurryXML","_case_361") 4 Private (TVar (-42)) (Rule [4,5,224,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 224) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_360") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_360") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [225,226]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_359") [Var 5,Var 226,Var 225,Var 1]])]])),Func ("OracleFlatCurryXML","_case_359") 4 Private (TVar (-42)) (Rule [5,226,225,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 225) [Branch (Pattern ("Prelude","(,)") [227,228]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_358") [Var 5,Var 226,Var 228,Var 227,Var 1]])]])),Func ("OracleFlatCurryXML","_case_358") 5 Private (TVar (-42)) (Rule [5,226,228,227,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 227) [Branch (Pattern ("Prelude",":") [229,230]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_357") [Var 5,Var 226,Var 228,Var 230,Var 229,Var 1]])]])),Func ("OracleFlatCurryXML","_case_357") 6 Private (TVar (-42)) (Rule [5,226,228,230,229,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 229) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_356") [Var 5,Var 226,Var 228,Var 230,Var 1]])]])),Func ("OracleFlatCurryXML","_case_356") 5 Private (TVar (-42)) (Rule [5,226,228,230,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 230) [Branch (Pattern ("Prelude",":") [231,232]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_355") [Var 5,Var 226,Var 228,Var 232,Var 231,Var 1]])]])),Func ("OracleFlatCurryXML","_case_355") 6 Private (TVar (-42)) (Rule [5,226,228,232,231,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 231) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_354") [Var 5,Var 226,Var 228,Var 232,Var 1]])]])),Func ("OracleFlatCurryXML","_case_354") 5 Private (TVar (-42)) (Rule [5,226,228,232,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 232) [Branch (Pattern ("Prelude",":") [233,234]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_353") [Var 5,Var 226,Var 228,Var 234,Var 233,Var 1]])]])),Func ("OracleFlatCurryXML","_case_353") 6 Private (TVar (-42)) (Rule [5,226,228,234,233,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 233) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_352") [Var 5,Var 226,Var 228,Var 234,Var 1]])]])),Func ("OracleFlatCurryXML","_case_352") 5 Private (TVar (-42)) (Rule [5,226,228,234,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 234) [Branch (Pattern ("Prelude",":") [235,236]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_351") [Var 5,Var 226,Var 228,Var 236,Var 235,Var 1]])]])),Func ("OracleFlatCurryXML","_case_351") 6 Private (TVar (-42)) (Rule [5,226,228,236,235,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 235) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_350") [Var 5,Var 226,Var 228,Var 236,Var 1]])]])),Func ("OracleFlatCurryXML","_case_350") 5 Private (TVar (-42)) (Rule [5,226,228,236,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 236) [Branch (Pattern ("Prelude",":") [237,238]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_349") [Var 5,Var 226,Var 228,Var 238,Var 237,Var 1]])]])),Func ("OracleFlatCurryXML","_case_349") 6 Private (TVar (-42)) (Rule [5,226,228,238,237,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 237) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_348") [Var 5,Var 226,Var 228,Var 238,Var 1]])]])),Func ("OracleFlatCurryXML","_case_348") 5 Private (TVar (-42)) (Rule [5,226,228,238,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 238) [Branch (Pattern ("Prelude",":") [239,240]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_347") [Var 5,Var 226,Var 228,Var 240,Var 239,Var 1]])]])),Func ("OracleFlatCurryXML","_case_347") 6 Private (TVar (-42)) (Rule [5,226,228,240,239,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 239) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_346") [Var 5,Var 226,Var 228,Var 240,Var 1]])]])),Func ("OracleFlatCurryXML","_case_346") 5 Private (TVar (-42)) (Rule [5,226,228,240,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 240) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_345") [Var 5,Var 228,Var 226,Var 1]])]])),Func ("OracleFlatCurryXML","_case_345") 4 Private (TVar (-42)) (Rule [5,228,226,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 226) [Branch (Pattern ("Prelude",":") [241,242]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_344") [Var 5,Var 228,Var 242,Var 241,Var 1]])]])),Func ("OracleFlatCurryXML","_case_344") 5 Private (TVar (-42)) (Rule [5,228,242,241,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 241) [Branch (Pattern ("Prelude","(,)") [243,244]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_343") [Var 5,Var 228,Var 242,Var 244,Var 243,Var 1]])]])),Func ("OracleFlatCurryXML","_case_343") 6 Private (TVar (-42)) (Rule [5,228,242,244,243,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 243) [Branch (Pattern ("Prelude",":") [245,246]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_342") [Var 5,Var 228,Var 242,Var 244,Var 246,Var 245,Var 1]])]])),Func ("OracleFlatCurryXML","_case_342") 7 Private (TVar (-42)) (Rule [5,228,242,244,246,245,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 245) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_341") [Var 5,Var 228,Var 242,Var 244,Var 246,Var 1]])]])),Func ("OracleFlatCurryXML","_case_341") 6 Private (TVar (-42)) (Rule [5,228,242,244,246,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 246) [Branch (Pattern ("Prelude",":") [247,248]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_340") [Var 5,Var 228,Var 242,Var 244,Var 248,Var 247,Var 1]])]])),Func ("OracleFlatCurryXML","_case_340") 7 Private (TVar (-42)) (Rule [5,228,242,244,248,247,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 247) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_339") [Var 5,Var 228,Var 242,Var 244,Var 248,Var 1]])]])),Func ("OracleFlatCurryXML","_case_339") 6 Private (TVar (-42)) (Rule [5,228,242,244,248,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 248) [Branch (Pattern ("Prelude",":") [249,250]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_338") [Var 5,Var 228,Var 242,Var 244,Var 250,Var 249,Var 1]])]])),Func ("OracleFlatCurryXML","_case_338") 7 Private (TVar (-42)) (Rule [5,228,242,244,250,249,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 249) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_337") [Var 5,Var 228,Var 242,Var 244,Var 250,Var 1]])]])),Func ("OracleFlatCurryXML","_case_337") 6 Private (TVar (-42)) (Rule [5,228,242,244,250,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 250) [Branch (Pattern ("Prelude",":") [251,252]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_336") [Var 5,Var 228,Var 242,Var 244,Var 252,Var 251,Var 1]])]])),Func ("OracleFlatCurryXML","_case_336") 7 Private (TVar (-42)) (Rule [5,228,242,244,252,251,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 251) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_335") [Var 5,Var 228,Var 242,Var 244,Var 252,Var 1]])]])),Func ("OracleFlatCurryXML","_case_335") 6 Private (TVar (-42)) (Rule [5,228,242,244,252,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 252) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_334") [Var 5,Var 228,Var 244,Var 242,Var 1]])]])),Func ("OracleFlatCurryXML","_case_334") 5 Private (TVar (-42)) (Rule [5,228,244,242,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 242) [Branch (Pattern ("Prelude",":") [253,254]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_333") [Var 5,Var 228,Var 244,Var 254,Var 253,Var 1]])]])),Func ("OracleFlatCurryXML","_case_333") 6 Private (TVar (-42)) (Rule [5,228,244,254,253,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 253) [Branch (Pattern ("Prelude","(,)") [255,256]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_332") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 255,Var 1]])]])),Func ("OracleFlatCurryXML","_case_332") 7 Private (TVar (-42)) (Rule [5,228,244,254,256,255,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 255) [Branch (Pattern ("Prelude",":") [257,258]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_331") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 258,Var 257,Var 1]])]])),Func ("OracleFlatCurryXML","_case_331") 8 Private (TVar (-42)) (Rule [5,228,244,254,256,258,257,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 257) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_330") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 258,Var 1]])]])),Func ("OracleFlatCurryXML","_case_330") 7 Private (TVar (-42)) (Rule [5,228,244,254,256,258,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 258) [Branch (Pattern ("Prelude",":") [259,260]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_329") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 260,Var 259,Var 1]])]])),Func ("OracleFlatCurryXML","_case_329") 8 Private (TVar (-42)) (Rule [5,228,244,254,256,260,259,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 259) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_328") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 260,Var 1]])]])),Func ("OracleFlatCurryXML","_case_328") 7 Private (TVar (-42)) (Rule [5,228,244,254,256,260,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 260) [Branch (Pattern ("Prelude",":") [261,262]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_327") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 262,Var 261,Var 1]])]])),Func ("OracleFlatCurryXML","_case_327") 8 Private (TVar (-42)) (Rule [5,228,244,254,256,262,261,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 261) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_326") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 262,Var 1]])]])),Func ("OracleFlatCurryXML","_case_326") 7 Private (TVar (-42)) (Rule [5,228,244,254,256,262,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 262) [Branch (Pattern ("Prelude",":") [263,264]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_325") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 264,Var 263,Var 1]])]])),Func ("OracleFlatCurryXML","_case_325") 8 Private (TVar (-42)) (Rule [5,228,244,254,256,264,263,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 263) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_324") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 264,Var 1]])]])),Func ("OracleFlatCurryXML","_case_324") 7 Private (TVar (-42)) (Rule [5,228,244,254,256,264,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 264) [Branch (Pattern ("Prelude",":") [265,266]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_323") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 266,Var 265,Var 1]])]])),Func ("OracleFlatCurryXML","_case_323") 8 Private (TVar (-42)) (Rule [5,228,244,254,256,266,265,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 265) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_322") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 266,Var 1]])]])),Func ("OracleFlatCurryXML","_case_322") 7 Private (TVar (-42)) (Rule [5,228,244,254,256,266,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 266) [Branch (Pattern ("Prelude",":") [267,268]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_321") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 268,Var 267,Var 1]])]])),Func ("OracleFlatCurryXML","_case_321") 8 Private (TVar (-42)) (Rule [5,228,244,254,256,268,267,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 267) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_320") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 268,Var 1]])]])),Func ("OracleFlatCurryXML","_case_320") 7 Private (TVar (-42)) (Rule [5,228,244,254,256,268,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 268) [Branch (Pattern ("Prelude",":") [269,270]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_319") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 270,Var 269,Var 1]])]])),Func ("OracleFlatCurryXML","_case_319") 8 Private (TVar (-42)) (Rule [5,228,244,254,256,270,269,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 269) [Branch (LPattern (Charc 'g')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_318") [Var 5,Var 228,Var 244,Var 254,Var 256,Var 270,Var 1]])]])),Func ("OracleFlatCurryXML","_case_318") 7 Private (TVar (-42)) (Rule [5,228,244,254,256,270,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 270) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_317") [Var 5,Var 228,Var 244,Var 256,Var 254,Var 1]])]])),Func ("OracleFlatCurryXML","_case_317") 6 Private (TVar (-42)) (Rule [5,228,244,256,254,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 254) [Branch (Pattern ("Prelude","[]") []) (Let [(257,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 257,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Comb") [Comb ConsCall ("FlatCurry","ConsPartCall") [Comb FuncCall ("OracleRead","readNat") [Var 256,Var 1]],Comb ConsCall ("Prelude","(,)") [Var 228,Var 244],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2exp") []],Var 5,Var 257]]]))]])),Func ("OracleFlatCurryXML","_case_409") 4 Private (TVar (-42)) (Rule [4,5,176,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 176) [Branch (Pattern ("Prelude",":") [177,178]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_408") [Var 4,Var 5,Var 178,Var 177,Var 1]])]])),Func ("OracleFlatCurryXML","_case_408") 5 Private (TVar (-42)) (Rule [4,5,178,177,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 177) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_407") [Var 4,Var 5,Var 178,Var 1]])]])),Func ("OracleFlatCurryXML","_case_407") 4 Private (TVar (-42)) (Rule [4,5,178,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 178) [Branch (Pattern ("Prelude",":") [179,180]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_406") [Var 4,Var 5,Var 180,Var 179,Var 1]])]])),Func ("OracleFlatCurryXML","_case_406") 5 Private (TVar (-42)) (Rule [4,5,180,179,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 179) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_405") [Var 4,Var 5,Var 180,Var 1]])]])),Func ("OracleFlatCurryXML","_case_405") 4 Private (TVar (-42)) (Rule [4,5,180,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 180) [Branch (Pattern ("Prelude",":") [181,182]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_404") [Var 4,Var 5,Var 182,Var 181,Var 1]])]])),Func ("OracleFlatCurryXML","_case_404") 5 Private (TVar (-42)) (Rule [4,5,182,181,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 181) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_403") [Var 4,Var 5,Var 182,Var 1]])]])),Func ("OracleFlatCurryXML","_case_403") 4 Private (TVar (-42)) (Rule [4,5,182,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 182) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_402") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_402") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [183,184]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_401") [Var 5,Var 184,Var 183,Var 1]])]])),Func ("OracleFlatCurryXML","_case_401") 4 Private (TVar (-42)) (Rule [5,184,183,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 183) [Branch (Pattern ("Prelude","(,)") [185,186]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_400") [Var 5,Var 184,Var 186,Var 185,Var 1]])]])),Func ("OracleFlatCurryXML","_case_400") 5 Private (TVar (-42)) (Rule [5,184,186,185,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 185) [Branch (Pattern ("Prelude",":") [187,188]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_399") [Var 5,Var 184,Var 186,Var 188,Var 187,Var 1]])]])),Func ("OracleFlatCurryXML","_case_399") 6 Private (TVar (-42)) (Rule [5,184,186,188,187,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 187) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_398") [Var 5,Var 184,Var 186,Var 188,Var 1]])]])),Func ("OracleFlatCurryXML","_case_398") 5 Private (TVar (-42)) (Rule [5,184,186,188,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 188) [Branch (Pattern ("Prelude",":") [189,190]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_397") [Var 5,Var 184,Var 186,Var 190,Var 189,Var 1]])]])),Func ("OracleFlatCurryXML","_case_397") 6 Private (TVar (-42)) (Rule [5,184,186,190,189,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 189) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_396") [Var 5,Var 184,Var 186,Var 190,Var 1]])]])),Func ("OracleFlatCurryXML","_case_396") 5 Private (TVar (-42)) (Rule [5,184,186,190,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 190) [Branch (Pattern ("Prelude",":") [191,192]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_395") [Var 5,Var 184,Var 186,Var 192,Var 191,Var 1]])]])),Func ("OracleFlatCurryXML","_case_395") 6 Private (TVar (-42)) (Rule [5,184,186,192,191,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 191) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_394") [Var 5,Var 184,Var 186,Var 192,Var 1]])]])),Func ("OracleFlatCurryXML","_case_394") 5 Private (TVar (-42)) (Rule [5,184,186,192,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 192) [Branch (Pattern ("Prelude",":") [193,194]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_393") [Var 5,Var 184,Var 186,Var 194,Var 193,Var 1]])]])),Func ("OracleFlatCurryXML","_case_393") 6 Private (TVar (-42)) (Rule [5,184,186,194,193,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 193) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_392") [Var 5,Var 184,Var 186,Var 194,Var 1]])]])),Func ("OracleFlatCurryXML","_case_392") 5 Private (TVar (-42)) (Rule [5,184,186,194,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 194) [Branch (Pattern ("Prelude",":") [195,196]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_391") [Var 5,Var 184,Var 186,Var 196,Var 195,Var 1]])]])),Func ("OracleFlatCurryXML","_case_391") 6 Private (TVar (-42)) (Rule [5,184,186,196,195,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 195) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_390") [Var 5,Var 184,Var 186,Var 196,Var 1]])]])),Func ("OracleFlatCurryXML","_case_390") 5 Private (TVar (-42)) (Rule [5,184,186,196,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 196) [Branch (Pattern ("Prelude",":") [197,198]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_389") [Var 5,Var 184,Var 186,Var 198,Var 197,Var 1]])]])),Func ("OracleFlatCurryXML","_case_389") 6 Private (TVar (-42)) (Rule [5,184,186,198,197,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 197) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_388") [Var 5,Var 184,Var 186,Var 198,Var 1]])]])),Func ("OracleFlatCurryXML","_case_388") 5 Private (TVar (-42)) (Rule [5,184,186,198,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 198) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_387") [Var 5,Var 186,Var 184,Var 1]])]])),Func ("OracleFlatCurryXML","_case_387") 4 Private (TVar (-42)) (Rule [5,186,184,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 184) [Branch (Pattern ("Prelude",":") [199,200]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_386") [Var 5,Var 186,Var 200,Var 199,Var 1]])]])),Func ("OracleFlatCurryXML","_case_386") 5 Private (TVar (-42)) (Rule [5,186,200,199,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 199) [Branch (Pattern ("Prelude","(,)") [201,202]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_385") [Var 5,Var 186,Var 200,Var 202,Var 201,Var 1]])]])),Func ("OracleFlatCurryXML","_case_385") 6 Private (TVar (-42)) (Rule [5,186,200,202,201,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 201) [Branch (Pattern ("Prelude",":") [203,204]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_384") [Var 5,Var 186,Var 200,Var 202,Var 204,Var 203,Var 1]])]])),Func ("OracleFlatCurryXML","_case_384") 7 Private (TVar (-42)) (Rule [5,186,200,202,204,203,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 203) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_383") [Var 5,Var 186,Var 200,Var 202,Var 204,Var 1]])]])),Func ("OracleFlatCurryXML","_case_383") 6 Private (TVar (-42)) (Rule [5,186,200,202,204,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 204) [Branch (Pattern ("Prelude",":") [205,206]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_382") [Var 5,Var 186,Var 200,Var 202,Var 206,Var 205,Var 1]])]])),Func ("OracleFlatCurryXML","_case_382") 7 Private (TVar (-42)) (Rule [5,186,200,202,206,205,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 205) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_381") [Var 5,Var 186,Var 200,Var 202,Var 206,Var 1]])]])),Func ("OracleFlatCurryXML","_case_381") 6 Private (TVar (-42)) (Rule [5,186,200,202,206,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 206) [Branch (Pattern ("Prelude",":") [207,208]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_380") [Var 5,Var 186,Var 200,Var 202,Var 208,Var 207,Var 1]])]])),Func ("OracleFlatCurryXML","_case_380") 7 Private (TVar (-42)) (Rule [5,186,200,202,208,207,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 207) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_379") [Var 5,Var 186,Var 200,Var 202,Var 208,Var 1]])]])),Func ("OracleFlatCurryXML","_case_379") 6 Private (TVar (-42)) (Rule [5,186,200,202,208,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 208) [Branch (Pattern ("Prelude",":") [209,210]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_378") [Var 5,Var 186,Var 200,Var 202,Var 210,Var 209,Var 1]])]])),Func ("OracleFlatCurryXML","_case_378") 7 Private (TVar (-42)) (Rule [5,186,200,202,210,209,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 209) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_377") [Var 5,Var 186,Var 200,Var 202,Var 210,Var 1]])]])),Func ("OracleFlatCurryXML","_case_377") 6 Private (TVar (-42)) (Rule [5,186,200,202,210,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 210) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_376") [Var 5,Var 186,Var 202,Var 200,Var 1]])]])),Func ("OracleFlatCurryXML","_case_376") 5 Private (TVar (-42)) (Rule [5,186,202,200,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 200) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FlatCurry","Comb") [Comb ConsCall ("FlatCurry","ConsCall") [],Comb ConsCall ("Prelude","(,)") [Var 186,Var 202],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2exp") []],Var 5,Var 1]]])]])),Func ("OracleFlatCurryXML","_case_555") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [32,33]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_554") [Var 4,Var 5,Var 33,Var 32,Var 1]])]])),Func ("OracleFlatCurryXML","_case_554") 5 Private (TVar (-42)) (Rule [4,5,33,32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 32) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_553") [Var 4,Var 5,Var 33,Var 1]]),Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_454") [Var 4,Var 5,Var 33,Var 1]]),Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_426") [Var 4,Var 5,Var 33,Var 1]])]])),Func ("OracleFlatCurryXML","_case_426") 4 Private (TVar (-42)) (Rule [4,5,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 33) [Branch (Pattern ("Prelude",":") [161,162]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_425") [Var 4,Var 5,Var 162,Var 161,Var 1]])]])),Func ("OracleFlatCurryXML","_case_425") 5 Private (TVar (-42)) (Rule [4,5,162,161,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 161) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_424") [Var 4,Var 5,Var 162,Var 1]])]])),Func ("OracleFlatCurryXML","_case_424") 4 Private (TVar (-42)) (Rule [4,5,162,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 162) [Branch (Pattern ("Prelude",":") [163,164]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_423") [Var 4,Var 5,Var 164,Var 163,Var 1]])]])),Func ("OracleFlatCurryXML","_case_423") 5 Private (TVar (-42)) (Rule [4,5,164,163,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 163) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_422") [Var 4,Var 5,Var 164,Var 1]])]])),Func ("OracleFlatCurryXML","_case_422") 4 Private (TVar (-42)) (Rule [4,5,164,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 164) [Branch (Pattern ("Prelude",":") [165,166]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_421") [Var 4,Var 5,Var 166,Var 165,Var 1]])]])),Func ("OracleFlatCurryXML","_case_421") 5 Private (TVar (-42)) (Rule [4,5,166,165,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 165) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_420") [Var 4,Var 5,Var 166,Var 1]])]])),Func ("OracleFlatCurryXML","_case_420") 4 Private (TVar (-42)) (Rule [4,5,166,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 166) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_419") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_419") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_418") [Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_418") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [167,168]) (Let [(169,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 169,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Case") [Comb ConsCall ("FlatCurry","Flex") [],Comb FuncCall ("OracleFlatCurryXML","flatx2exp") [Var 167,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2branch") []],Var 168,Var 169]]]))]])),Func ("OracleFlatCurryXML","_case_454") 4 Private (TVar (-42)) (Rule [4,5,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 33) [Branch (Pattern ("Prelude",":") [134,135]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_453") [Var 4,Var 5,Var 135,Var 134,Var 1]])]])),Func ("OracleFlatCurryXML","_case_453") 5 Private (TVar (-42)) (Rule [4,5,135,134,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 134) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_452") [Var 4,Var 5,Var 135,Var 1]])]])),Func ("OracleFlatCurryXML","_case_452") 4 Private (TVar (-42)) (Rule [4,5,135,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 135) [Branch (Pattern ("Prelude",":") [136,137]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_451") [Var 4,Var 5,Var 137,Var 136,Var 1]])]])),Func ("OracleFlatCurryXML","_case_451") 5 Private (TVar (-42)) (Rule [4,5,137,136,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 136) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_450") [Var 4,Var 5,Var 137,Var 1]])]])),Func ("OracleFlatCurryXML","_case_450") 4 Private (TVar (-42)) (Rule [4,5,137,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 137) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_449") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_449") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_448") [Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_448") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [138,139]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_447") [Var 139,Var 138,Var 1]])]])),Func ("OracleFlatCurryXML","_case_447") 3 Private (TVar (-42)) (Rule [139,138,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 138) [Branch (Pattern ("XML","XElem") [140,141,142]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_446") [Var 139,Var 141,Var 142,Var 140,Var 1]])]])),Func ("OracleFlatCurryXML","_case_446") 5 Private (TVar (-42)) (Rule [139,141,142,140,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 140) [Branch (Pattern ("Prelude",":") [143,144]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_445") [Var 139,Var 141,Var 142,Var 144,Var 143,Var 1]])]])),Func ("OracleFlatCurryXML","_case_445") 6 Private (TVar (-42)) (Rule [139,141,142,144,143,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 143) [Branch (LPattern (Charc 'f')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_444") [Var 139,Var 141,Var 142,Var 144,Var 1]])]])),Func ("OracleFlatCurryXML","_case_444") 5 Private (TVar (-42)) (Rule [139,141,142,144,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 144) [Branch (Pattern ("Prelude",":") [145,146]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_443") [Var 139,Var 141,Var 142,Var 146,Var 145,Var 1]])]])),Func ("OracleFlatCurryXML","_case_443") 6 Private (TVar (-42)) (Rule [139,141,142,146,145,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 145) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_442") [Var 139,Var 141,Var 142,Var 146,Var 1]])]])),Func ("OracleFlatCurryXML","_case_442") 5 Private (TVar (-42)) (Rule [139,141,142,146,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 146) [Branch (Pattern ("Prelude",":") [147,148]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_441") [Var 139,Var 141,Var 142,Var 148,Var 147,Var 1]])]])),Func ("OracleFlatCurryXML","_case_441") 6 Private (TVar (-42)) (Rule [139,141,142,148,147,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 147) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_440") [Var 139,Var 141,Var 142,Var 148,Var 1]])]])),Func ("OracleFlatCurryXML","_case_440") 5 Private (TVar (-42)) (Rule [139,141,142,148,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 148) [Branch (Pattern ("Prelude",":") [149,150]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_439") [Var 139,Var 141,Var 142,Var 150,Var 149,Var 1]])]])),Func ("OracleFlatCurryXML","_case_439") 6 Private (TVar (-42)) (Rule [139,141,142,150,149,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 149) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_438") [Var 139,Var 141,Var 142,Var 150,Var 1]])]])),Func ("OracleFlatCurryXML","_case_438") 5 Private (TVar (-42)) (Rule [139,141,142,150,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 150) [Branch (Pattern ("Prelude",":") [151,152]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_437") [Var 139,Var 141,Var 142,Var 152,Var 151,Var 1]])]])),Func ("OracleFlatCurryXML","_case_437") 6 Private (TVar (-42)) (Rule [139,141,142,152,151,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 151) [Branch (LPattern (Charc 'v')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_436") [Var 139,Var 141,Var 142,Var 152,Var 1]])]])),Func ("OracleFlatCurryXML","_case_436") 5 Private (TVar (-42)) (Rule [139,141,142,152,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 152) [Branch (Pattern ("Prelude",":") [153,154]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_435") [Var 139,Var 141,Var 142,Var 154,Var 153,Var 1]])]])),Func ("OracleFlatCurryXML","_case_435") 6 Private (TVar (-42)) (Rule [139,141,142,154,153,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 153) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_434") [Var 139,Var 141,Var 142,Var 154,Var 1]])]])),Func ("OracleFlatCurryXML","_case_434") 5 Private (TVar (-42)) (Rule [139,141,142,154,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 154) [Branch (Pattern ("Prelude",":") [155,156]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_433") [Var 139,Var 141,Var 142,Var 156,Var 155,Var 1]])]])),Func ("OracleFlatCurryXML","_case_433") 6 Private (TVar (-42)) (Rule [139,141,142,156,155,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 155) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_432") [Var 139,Var 141,Var 142,Var 156,Var 1]])]])),Func ("OracleFlatCurryXML","_case_432") 5 Private (TVar (-42)) (Rule [139,141,142,156,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 156) [Branch (Pattern ("Prelude",":") [157,158]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_431") [Var 139,Var 141,Var 142,Var 158,Var 157,Var 1]])]])),Func ("OracleFlatCurryXML","_case_431") 6 Private (TVar (-42)) (Rule [139,141,142,158,157,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 157) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_430") [Var 139,Var 141,Var 142,Var 158,Var 1]])]])),Func ("OracleFlatCurryXML","_case_430") 5 Private (TVar (-42)) (Rule [139,141,142,158,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 158) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_429") [Var 139,Var 142,Var 141,Var 1]])]])),Func ("OracleFlatCurryXML","_case_429") 4 Private (TVar (-42)) (Rule [139,142,141,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 141) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_428") [Var 142,Var 139,Var 1]])]])),Func ("OracleFlatCurryXML","_case_428") 3 Private (TVar (-42)) (Rule [142,139,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 139) [Branch (Pattern ("Prelude",":") [159,160]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_427") [Var 142,Var 159,Var 160,Var 1]])]])),Func ("OracleFlatCurryXML","_case_427") 4 Private (TVar (-42)) (Rule [142,159,160,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 160) [Branch (Pattern ("Prelude","[]") []) (Let [(161,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 161,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Free") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2var") []],Var 142,Var 1],Comb FuncCall ("OracleFlatCurryXML","flatx2exp") [Var 159,Var 161]]]))]])),Func ("OracleFlatCurryXML","_case_553") 4 Private (TVar (-42)) (Rule [4,5,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 33) [Branch (Pattern ("Prelude",":") [34,35]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_552") [Var 4,Var 5,Var 35,Var 34,Var 1]])]])),Func ("OracleFlatCurryXML","_case_552") 5 Private (TVar (-42)) (Rule [4,5,35,34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_551") [Var 4,Var 5,Var 35,Var 1]])]])),Func ("OracleFlatCurryXML","_case_551") 4 Private (TVar (-42)) (Rule [4,5,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 35) [Branch (Pattern ("Prelude",":") [36,37]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_550") [Var 4,Var 5,Var 37,Var 36,Var 1]])]])),Func ("OracleFlatCurryXML","_case_550") 5 Private (TVar (-42)) (Rule [4,5,37,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_549") [Var 4,Var 5,Var 37,Var 1]])]])),Func ("OracleFlatCurryXML","_case_549") 4 Private (TVar (-42)) (Rule [4,5,37,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 37) [Branch (Pattern ("Prelude",":") [38,39]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_548") [Var 4,Var 5,Var 39,Var 38,Var 1]])]])),Func ("OracleFlatCurryXML","_case_548") 5 Private (TVar (-42)) (Rule [4,5,39,38,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 38) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_547") [Var 4,Var 5,Var 39,Var 1]]),Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_513") [Var 4,Var 5,Var 39,Var 1]])]])),Func ("OracleFlatCurryXML","_case_513") 4 Private (TVar (-42)) (Rule [4,5,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 39) [Branch (Pattern ("Prelude",":") [74,75]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_512") [Var 4,Var 5,Var 75,Var 74,Var 1]])]])),Func ("OracleFlatCurryXML","_case_512") 5 Private (TVar (-42)) (Rule [4,5,75,74,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 74) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_511") [Var 4,Var 5,Var 75,Var 1]])]])),Func ("OracleFlatCurryXML","_case_511") 4 Private (TVar (-42)) (Rule [4,5,75,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 75) [Branch (Pattern ("Prelude",":") [76,77]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_510") [Var 4,Var 5,Var 77,Var 76,Var 1]])]])),Func ("OracleFlatCurryXML","_case_510") 5 Private (TVar (-42)) (Rule [4,5,77,76,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 76) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_509") [Var 4,Var 5,Var 77,Var 1]])]])),Func ("OracleFlatCurryXML","_case_509") 4 Private (TVar (-42)) (Rule [4,5,77,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 77) [Branch (Pattern ("Prelude",":") [78,79]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_508") [Var 4,Var 5,Var 79,Var 78,Var 1]])]])),Func ("OracleFlatCurryXML","_case_508") 5 Private (TVar (-42)) (Rule [4,5,79,78,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 78) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_507") [Var 4,Var 5,Var 79,Var 1]])]])),Func ("OracleFlatCurryXML","_case_507") 4 Private (TVar (-42)) (Rule [4,5,79,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 79) [Branch (Pattern ("Prelude",":") [80,81]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_506") [Var 4,Var 5,Var 81,Var 80,Var 1]])]])),Func ("OracleFlatCurryXML","_case_506") 5 Private (TVar (-42)) (Rule [4,5,81,80,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 80) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_505") [Var 4,Var 5,Var 81,Var 1]])]])),Func ("OracleFlatCurryXML","_case_505") 4 Private (TVar (-42)) (Rule [4,5,81,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 81) [Branch (Pattern ("Prelude",":") [82,83]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_504") [Var 4,Var 5,Var 83,Var 82,Var 1]])]])),Func ("OracleFlatCurryXML","_case_504") 5 Private (TVar (-42)) (Rule [4,5,83,82,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 82) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_503") [Var 4,Var 5,Var 83,Var 1]])]])),Func ("OracleFlatCurryXML","_case_503") 4 Private (TVar (-42)) (Rule [4,5,83,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 83) [Branch (Pattern ("Prelude",":") [84,85]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_502") [Var 4,Var 5,Var 85,Var 84,Var 1]])]])),Func ("OracleFlatCurryXML","_case_502") 5 Private (TVar (-42)) (Rule [4,5,85,84,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 84) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_501") [Var 4,Var 5,Var 85,Var 1]])]])),Func ("OracleFlatCurryXML","_case_501") 4 Private (TVar (-42)) (Rule [4,5,85,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 85) [Branch (Pattern ("Prelude",":") [86,87]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_500") [Var 4,Var 5,Var 87,Var 86,Var 1]])]])),Func ("OracleFlatCurryXML","_case_500") 5 Private (TVar (-42)) (Rule [4,5,87,86,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 86) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_499") [Var 4,Var 5,Var 87,Var 1]])]])),Func ("OracleFlatCurryXML","_case_499") 4 Private (TVar (-42)) (Rule [4,5,87,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 87) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_498") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_498") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [88,89]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_497") [Var 5,Var 89,Var 88,Var 1]])]])),Func ("OracleFlatCurryXML","_case_497") 4 Private (TVar (-42)) (Rule [5,89,88,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 88) [Branch (Pattern ("Prelude","(,)") [90,91]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_496") [Var 5,Var 89,Var 91,Var 90,Var 1]])]])),Func ("OracleFlatCurryXML","_case_496") 5 Private (TVar (-42)) (Rule [5,89,91,90,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 90) [Branch (Pattern ("Prelude",":") [92,93]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_495") [Var 5,Var 89,Var 91,Var 93,Var 92,Var 1]])]])),Func ("OracleFlatCurryXML","_case_495") 6 Private (TVar (-42)) (Rule [5,89,91,93,92,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 92) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_494") [Var 5,Var 89,Var 91,Var 93,Var 1]])]])),Func ("OracleFlatCurryXML","_case_494") 5 Private (TVar (-42)) (Rule [5,89,91,93,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 93) [Branch (Pattern ("Prelude",":") [94,95]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_493") [Var 5,Var 89,Var 91,Var 95,Var 94,Var 1]])]])),Func ("OracleFlatCurryXML","_case_493") 6 Private (TVar (-42)) (Rule [5,89,91,95,94,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 94) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_492") [Var 5,Var 89,Var 91,Var 95,Var 1]])]])),Func ("OracleFlatCurryXML","_case_492") 5 Private (TVar (-42)) (Rule [5,89,91,95,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 95) [Branch (Pattern ("Prelude",":") [96,97]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_491") [Var 5,Var 89,Var 91,Var 97,Var 96,Var 1]])]])),Func ("OracleFlatCurryXML","_case_491") 6 Private (TVar (-42)) (Rule [5,89,91,97,96,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 96) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_490") [Var 5,Var 89,Var 91,Var 97,Var 1]])]])),Func ("OracleFlatCurryXML","_case_490") 5 Private (TVar (-42)) (Rule [5,89,91,97,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 97) [Branch (Pattern ("Prelude",":") [98,99]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_489") [Var 5,Var 89,Var 91,Var 99,Var 98,Var 1]])]])),Func ("OracleFlatCurryXML","_case_489") 6 Private (TVar (-42)) (Rule [5,89,91,99,98,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 98) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_488") [Var 5,Var 89,Var 91,Var 99,Var 1]])]])),Func ("OracleFlatCurryXML","_case_488") 5 Private (TVar (-42)) (Rule [5,89,91,99,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 99) [Branch (Pattern ("Prelude",":") [100,101]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_487") [Var 5,Var 89,Var 91,Var 101,Var 100,Var 1]])]])),Func ("OracleFlatCurryXML","_case_487") 6 Private (TVar (-42)) (Rule [5,89,91,101,100,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 100) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_486") [Var 5,Var 89,Var 91,Var 101,Var 1]])]])),Func ("OracleFlatCurryXML","_case_486") 5 Private (TVar (-42)) (Rule [5,89,91,101,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 101) [Branch (Pattern ("Prelude",":") [102,103]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_485") [Var 5,Var 89,Var 91,Var 103,Var 102,Var 1]])]])),Func ("OracleFlatCurryXML","_case_485") 6 Private (TVar (-42)) (Rule [5,89,91,103,102,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 102) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_484") [Var 5,Var 89,Var 91,Var 103,Var 1]])]])),Func ("OracleFlatCurryXML","_case_484") 5 Private (TVar (-42)) (Rule [5,89,91,103,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 103) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_483") [Var 5,Var 91,Var 89,Var 1]])]])),Func ("OracleFlatCurryXML","_case_483") 4 Private (TVar (-42)) (Rule [5,91,89,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 89) [Branch (Pattern ("Prelude",":") [104,105]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_482") [Var 5,Var 91,Var 105,Var 104,Var 1]])]])),Func ("OracleFlatCurryXML","_case_482") 5 Private (TVar (-42)) (Rule [5,91,105,104,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 104) [Branch (Pattern ("Prelude","(,)") [106,107]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_481") [Var 5,Var 91,Var 105,Var 107,Var 106,Var 1]])]])),Func ("OracleFlatCurryXML","_case_481") 6 Private (TVar (-42)) (Rule [5,91,105,107,106,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 106) [Branch (Pattern ("Prelude",":") [108,109]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_480") [Var 5,Var 91,Var 105,Var 107,Var 109,Var 108,Var 1]])]])),Func ("OracleFlatCurryXML","_case_480") 7 Private (TVar (-42)) (Rule [5,91,105,107,109,108,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 108) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_479") [Var 5,Var 91,Var 105,Var 107,Var 109,Var 1]])]])),Func ("OracleFlatCurryXML","_case_479") 6 Private (TVar (-42)) (Rule [5,91,105,107,109,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 109) [Branch (Pattern ("Prelude",":") [110,111]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_478") [Var 5,Var 91,Var 105,Var 107,Var 111,Var 110,Var 1]])]])),Func ("OracleFlatCurryXML","_case_478") 7 Private (TVar (-42)) (Rule [5,91,105,107,111,110,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 110) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_477") [Var 5,Var 91,Var 105,Var 107,Var 111,Var 1]])]])),Func ("OracleFlatCurryXML","_case_477") 6 Private (TVar (-42)) (Rule [5,91,105,107,111,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 111) [Branch (Pattern ("Prelude",":") [112,113]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_476") [Var 5,Var 91,Var 105,Var 107,Var 113,Var 112,Var 1]])]])),Func ("OracleFlatCurryXML","_case_476") 7 Private (TVar (-42)) (Rule [5,91,105,107,113,112,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 112) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_475") [Var 5,Var 91,Var 105,Var 107,Var 113,Var 1]])]])),Func ("OracleFlatCurryXML","_case_475") 6 Private (TVar (-42)) (Rule [5,91,105,107,113,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 113) [Branch (Pattern ("Prelude",":") [114,115]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_474") [Var 5,Var 91,Var 105,Var 107,Var 115,Var 114,Var 1]])]])),Func ("OracleFlatCurryXML","_case_474") 7 Private (TVar (-42)) (Rule [5,91,105,107,115,114,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 114) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_473") [Var 5,Var 91,Var 105,Var 107,Var 115,Var 1]])]])),Func ("OracleFlatCurryXML","_case_473") 6 Private (TVar (-42)) (Rule [5,91,105,107,115,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 115) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_472") [Var 5,Var 91,Var 107,Var 105,Var 1]])]])),Func ("OracleFlatCurryXML","_case_472") 5 Private (TVar (-42)) (Rule [5,91,107,105,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 105) [Branch (Pattern ("Prelude",":") [116,117]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_471") [Var 5,Var 91,Var 107,Var 117,Var 116,Var 1]])]])),Func ("OracleFlatCurryXML","_case_471") 6 Private (TVar (-42)) (Rule [5,91,107,117,116,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 116) [Branch (Pattern ("Prelude","(,)") [118,119]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_470") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 118,Var 1]])]])),Func ("OracleFlatCurryXML","_case_470") 7 Private (TVar (-42)) (Rule [5,91,107,117,119,118,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 118) [Branch (Pattern ("Prelude",":") [120,121]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_469") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 121,Var 120,Var 1]])]])),Func ("OracleFlatCurryXML","_case_469") 8 Private (TVar (-42)) (Rule [5,91,107,117,119,121,120,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 120) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_468") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 121,Var 1]])]])),Func ("OracleFlatCurryXML","_case_468") 7 Private (TVar (-42)) (Rule [5,91,107,117,119,121,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 121) [Branch (Pattern ("Prelude",":") [122,123]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_467") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 123,Var 122,Var 1]])]])),Func ("OracleFlatCurryXML","_case_467") 8 Private (TVar (-42)) (Rule [5,91,107,117,119,123,122,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 122) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_466") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 123,Var 1]])]])),Func ("OracleFlatCurryXML","_case_466") 7 Private (TVar (-42)) (Rule [5,91,107,117,119,123,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 123) [Branch (Pattern ("Prelude",":") [124,125]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_465") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 125,Var 124,Var 1]])]])),Func ("OracleFlatCurryXML","_case_465") 8 Private (TVar (-42)) (Rule [5,91,107,117,119,125,124,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 124) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_464") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 125,Var 1]])]])),Func ("OracleFlatCurryXML","_case_464") 7 Private (TVar (-42)) (Rule [5,91,107,117,119,125,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 125) [Branch (Pattern ("Prelude",":") [126,127]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_463") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 127,Var 126,Var 1]])]])),Func ("OracleFlatCurryXML","_case_463") 8 Private (TVar (-42)) (Rule [5,91,107,117,119,127,126,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 126) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_462") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 127,Var 1]])]])),Func ("OracleFlatCurryXML","_case_462") 7 Private (TVar (-42)) (Rule [5,91,107,117,119,127,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 127) [Branch (Pattern ("Prelude",":") [128,129]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_461") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 129,Var 128,Var 1]])]])),Func ("OracleFlatCurryXML","_case_461") 8 Private (TVar (-42)) (Rule [5,91,107,117,119,129,128,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 128) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_460") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 129,Var 1]])]])),Func ("OracleFlatCurryXML","_case_460") 7 Private (TVar (-42)) (Rule [5,91,107,117,119,129,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 129) [Branch (Pattern ("Prelude",":") [130,131]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_459") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 131,Var 130,Var 1]])]])),Func ("OracleFlatCurryXML","_case_459") 8 Private (TVar (-42)) (Rule [5,91,107,117,119,131,130,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 130) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_458") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 131,Var 1]])]])),Func ("OracleFlatCurryXML","_case_458") 7 Private (TVar (-42)) (Rule [5,91,107,117,119,131,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 131) [Branch (Pattern ("Prelude",":") [132,133]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_457") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 133,Var 132,Var 1]])]])),Func ("OracleFlatCurryXML","_case_457") 8 Private (TVar (-42)) (Rule [5,91,107,117,119,133,132,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 132) [Branch (LPattern (Charc 'g')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_456") [Var 5,Var 91,Var 107,Var 117,Var 119,Var 133,Var 1]])]])),Func ("OracleFlatCurryXML","_case_456") 7 Private (TVar (-42)) (Rule [5,91,107,117,119,133,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 133) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_455") [Var 5,Var 91,Var 107,Var 119,Var 117,Var 1]])]])),Func ("OracleFlatCurryXML","_case_455") 6 Private (TVar (-42)) (Rule [5,91,107,119,117,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 117) [Branch (Pattern ("Prelude","[]") []) (Let [(120,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 120,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Comb") [Comb ConsCall ("FlatCurry","FuncPartCall") [Comb FuncCall ("OracleRead","readNat") [Var 119,Var 1]],Comb ConsCall ("Prelude","(,)") [Var 91,Var 107],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2exp") []],Var 5,Var 120]]]))]])),Func ("OracleFlatCurryXML","_case_547") 4 Private (TVar (-42)) (Rule [4,5,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 39) [Branch (Pattern ("Prelude",":") [40,41]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_546") [Var 4,Var 5,Var 41,Var 40,Var 1]])]])),Func ("OracleFlatCurryXML","_case_546") 5 Private (TVar (-42)) (Rule [4,5,41,40,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 40) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_545") [Var 4,Var 5,Var 41,Var 1]])]])),Func ("OracleFlatCurryXML","_case_545") 4 Private (TVar (-42)) (Rule [4,5,41,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 41) [Branch (Pattern ("Prelude",":") [42,43]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_544") [Var 4,Var 5,Var 43,Var 42,Var 1]])]])),Func ("OracleFlatCurryXML","_case_544") 5 Private (TVar (-42)) (Rule [4,5,43,42,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 42) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_543") [Var 4,Var 5,Var 43,Var 1]])]])),Func ("OracleFlatCurryXML","_case_543") 4 Private (TVar (-42)) (Rule [4,5,43,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 43) [Branch (Pattern ("Prelude",":") [44,45]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_542") [Var 4,Var 5,Var 45,Var 44,Var 1]])]])),Func ("OracleFlatCurryXML","_case_542") 5 Private (TVar (-42)) (Rule [4,5,45,44,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 44) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_541") [Var 4,Var 5,Var 45,Var 1]])]])),Func ("OracleFlatCurryXML","_case_541") 4 Private (TVar (-42)) (Rule [4,5,45,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 45) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_540") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_540") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [46,47]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_539") [Var 5,Var 47,Var 46,Var 1]])]])),Func ("OracleFlatCurryXML","_case_539") 4 Private (TVar (-42)) (Rule [5,47,46,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 46) [Branch (Pattern ("Prelude","(,)") [48,49]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_538") [Var 5,Var 47,Var 49,Var 48,Var 1]])]])),Func ("OracleFlatCurryXML","_case_538") 5 Private (TVar (-42)) (Rule [5,47,49,48,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 48) [Branch (Pattern ("Prelude",":") [50,51]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_537") [Var 5,Var 47,Var 49,Var 51,Var 50,Var 1]])]])),Func ("OracleFlatCurryXML","_case_537") 6 Private (TVar (-42)) (Rule [5,47,49,51,50,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 50) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_536") [Var 5,Var 47,Var 49,Var 51,Var 1]])]])),Func ("OracleFlatCurryXML","_case_536") 5 Private (TVar (-42)) (Rule [5,47,49,51,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 51) [Branch (Pattern ("Prelude",":") [52,53]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_535") [Var 5,Var 47,Var 49,Var 53,Var 52,Var 1]])]])),Func ("OracleFlatCurryXML","_case_535") 6 Private (TVar (-42)) (Rule [5,47,49,53,52,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 52) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_534") [Var 5,Var 47,Var 49,Var 53,Var 1]])]])),Func ("OracleFlatCurryXML","_case_534") 5 Private (TVar (-42)) (Rule [5,47,49,53,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 53) [Branch (Pattern ("Prelude",":") [54,55]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_533") [Var 5,Var 47,Var 49,Var 55,Var 54,Var 1]])]])),Func ("OracleFlatCurryXML","_case_533") 6 Private (TVar (-42)) (Rule [5,47,49,55,54,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 54) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_532") [Var 5,Var 47,Var 49,Var 55,Var 1]])]])),Func ("OracleFlatCurryXML","_case_532") 5 Private (TVar (-42)) (Rule [5,47,49,55,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 55) [Branch (Pattern ("Prelude",":") [56,57]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_531") [Var 5,Var 47,Var 49,Var 57,Var 56,Var 1]])]])),Func ("OracleFlatCurryXML","_case_531") 6 Private (TVar (-42)) (Rule [5,47,49,57,56,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 56) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_530") [Var 5,Var 47,Var 49,Var 57,Var 1]])]])),Func ("OracleFlatCurryXML","_case_530") 5 Private (TVar (-42)) (Rule [5,47,49,57,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 57) [Branch (Pattern ("Prelude",":") [58,59]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_529") [Var 5,Var 47,Var 49,Var 59,Var 58,Var 1]])]])),Func ("OracleFlatCurryXML","_case_529") 6 Private (TVar (-42)) (Rule [5,47,49,59,58,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 58) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_528") [Var 5,Var 47,Var 49,Var 59,Var 1]])]])),Func ("OracleFlatCurryXML","_case_528") 5 Private (TVar (-42)) (Rule [5,47,49,59,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 59) [Branch (Pattern ("Prelude",":") [60,61]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_527") [Var 5,Var 47,Var 49,Var 61,Var 60,Var 1]])]])),Func ("OracleFlatCurryXML","_case_527") 6 Private (TVar (-42)) (Rule [5,47,49,61,60,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 60) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_526") [Var 5,Var 47,Var 49,Var 61,Var 1]])]])),Func ("OracleFlatCurryXML","_case_526") 5 Private (TVar (-42)) (Rule [5,47,49,61,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 61) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_525") [Var 5,Var 49,Var 47,Var 1]])]])),Func ("OracleFlatCurryXML","_case_525") 4 Private (TVar (-42)) (Rule [5,49,47,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 47) [Branch (Pattern ("Prelude",":") [62,63]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_524") [Var 5,Var 49,Var 63,Var 62,Var 1]])]])),Func ("OracleFlatCurryXML","_case_524") 5 Private (TVar (-42)) (Rule [5,49,63,62,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 62) [Branch (Pattern ("Prelude","(,)") [64,65]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_523") [Var 5,Var 49,Var 63,Var 65,Var 64,Var 1]])]])),Func ("OracleFlatCurryXML","_case_523") 6 Private (TVar (-42)) (Rule [5,49,63,65,64,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 64) [Branch (Pattern ("Prelude",":") [66,67]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_522") [Var 5,Var 49,Var 63,Var 65,Var 67,Var 66,Var 1]])]])),Func ("OracleFlatCurryXML","_case_522") 7 Private (TVar (-42)) (Rule [5,49,63,65,67,66,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 66) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_521") [Var 5,Var 49,Var 63,Var 65,Var 67,Var 1]])]])),Func ("OracleFlatCurryXML","_case_521") 6 Private (TVar (-42)) (Rule [5,49,63,65,67,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 67) [Branch (Pattern ("Prelude",":") [68,69]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_520") [Var 5,Var 49,Var 63,Var 65,Var 69,Var 68,Var 1]])]])),Func ("OracleFlatCurryXML","_case_520") 7 Private (TVar (-42)) (Rule [5,49,63,65,69,68,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 68) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_519") [Var 5,Var 49,Var 63,Var 65,Var 69,Var 1]])]])),Func ("OracleFlatCurryXML","_case_519") 6 Private (TVar (-42)) (Rule [5,49,63,65,69,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 69) [Branch (Pattern ("Prelude",":") [70,71]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_518") [Var 5,Var 49,Var 63,Var 65,Var 71,Var 70,Var 1]])]])),Func ("OracleFlatCurryXML","_case_518") 7 Private (TVar (-42)) (Rule [5,49,63,65,71,70,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 70) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_517") [Var 5,Var 49,Var 63,Var 65,Var 71,Var 1]])]])),Func ("OracleFlatCurryXML","_case_517") 6 Private (TVar (-42)) (Rule [5,49,63,65,71,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 71) [Branch (Pattern ("Prelude",":") [72,73]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_516") [Var 5,Var 49,Var 63,Var 65,Var 73,Var 72,Var 1]])]])),Func ("OracleFlatCurryXML","_case_516") 7 Private (TVar (-42)) (Rule [5,49,63,65,73,72,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 72) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_515") [Var 5,Var 49,Var 63,Var 65,Var 73,Var 1]])]])),Func ("OracleFlatCurryXML","_case_515") 6 Private (TVar (-42)) (Rule [5,49,63,65,73,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 73) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_514") [Var 5,Var 49,Var 65,Var 63,Var 1]])]])),Func ("OracleFlatCurryXML","_case_514") 5 Private (TVar (-42)) (Rule [5,49,65,63,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 63) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FlatCurry","Comb") [Comb ConsCall ("FlatCurry","FuncCall") [],Comb ConsCall ("Prelude","(,)") [Var 49,Var 65],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2exp") []],Var 5,Var 1]]])]])),Func ("OracleFlatCurryXML","_case_574") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_573") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_573") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_572") [Var 4,Var 5,Var 13,Var 1]]),Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_566") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_566") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_565") [Var 4,Var 5,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_565") 5 Private (TVar (-42)) (Rule [4,5,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_564") [Var 4,Var 5,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_564") 4 Private (TVar (-42)) (Rule [4,5,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_563") [Var 5,Var 4,Var 1]]),Branch (Pattern ("Prelude",":") [23,24]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_562") [Var 4,Var 5,Var 24,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_562") 5 Private (TVar (-42)) (Rule [4,5,24,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_561") [Var 4,Var 5,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_561") 4 Private (TVar (-42)) (Rule [4,5,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_560") [Var 4,Var 5,Var 26,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_560") 5 Private (TVar (-42)) (Rule [4,5,26,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_559") [Var 4,Var 5,Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_559") 4 Private (TVar (-42)) (Rule [4,5,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (Pattern ("Prelude",":") [27,28]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_558") [Var 4,Var 5,Var 28,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_558") 5 Private (TVar (-42)) (Rule [4,5,28,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_557") [Var 4,Var 5,Var 28,Var 1]])]])),Func ("OracleFlatCurryXML","_case_557") 4 Private (TVar (-42)) (Rule [4,5,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_556") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_556") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude","[]") []],Let [(29,Comb FuncCall ("OracleFlatCurryXML","flatx2let") [Var 5,Var 1])] (Let [(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude","[]") []],Let [(30,Comb FuncCall ("OracleFlatCurryXML","flatx2exp._#selFP6#bindings") [Var 29,Var 32])] (Let [(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude","[]") []],Let [(31,Comb FuncCall ("OracleFlatCurryXML","flatx2exp._#selFP7#exp") [Var 29,Var 33])] (Comb FuncCall ("CEventOracle","collapse") [Var 34,Comb ConsCall ("FlatCurry","Let") [Var 30,Var 31]])]))]))]))]])),Func ("OracleFlatCurryXML","_case_563") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Let [(20,Comb FuncCall ("OracleFlatCurryXML","flatx2let") [Var 5,Var 1])] (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Let [(21,Comb FuncCall ("OracleFlatCurryXML","flatx2exp._#selFP3#bindings") [Var 20,Var 23])] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(22,Comb FuncCall ("OracleFlatCurryXML","flatx2exp._#selFP4#exp") [Var 20,Var 24])] (Comb FuncCall ("CEventOracle","collapse") [Var 25,Comb ConsCall ("FlatCurry","Let") [Var 21,Var 22]])]))]))]))]])),Func ("OracleFlatCurryXML","_case_572") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_571") [Var 4,Var 5,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_571") 5 Private (TVar (-42)) (Rule [4,5,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_570") [Var 4,Var 5,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_570") 4 Private (TVar (-42)) (Rule [4,5,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_569") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_569") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_568") [Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_568") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_567") [Var 16,Var 17,Var 1]])]])),Func ("OracleFlatCurryXML","_case_567") 3 Private (TVar (-42)) (Rule [16,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FlatCurry","Lit") [Comb FuncCall ("OracleFlatCurryXML","flatx2lit") [Var 16,Var 1]]])]])),Func ("OracleFlatCurryXML","_case_580") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_579") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_579") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_578") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_578") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_577") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_577") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_576") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_576") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_575") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_575") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Var") [Comb FuncCall ("OracleRead","readNat") [Comb FuncCall ("OracleXML","textOfXml") [Var 5,Var 1],Var 6]]]))]])),Func ("OracleFlatCurryXML","_case_592") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_591") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_591") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_590") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_590") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 'v')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_589") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_589") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_588") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_588") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_587") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_587") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_586") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_586") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_585") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_585") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_584") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_584") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRead","readNat") [Comb FuncCall ("OracleXML","textOfXml") [Var 5,Var 1],Var 6]]))]])),Func ("OracleFlatCurryXML","_case_642") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_641") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_641") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_640") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_640") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_639") [Var 4,Var 5,Var 7,Var 1]]),Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_623") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_623") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_622") [Var 4,Var 5,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_622") 5 Private (TVar (-42)) (Rule [4,5,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_621") [Var 4,Var 5,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_621") 4 Private (TVar (-42)) (Rule [4,5,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_620") [Var 4,Var 5,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_620") 5 Private (TVar (-42)) (Rule [4,5,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_619") [Var 4,Var 5,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_619") 4 Private (TVar (-42)) (Rule [4,5,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_618") [Var 4,Var 5,Var 27,Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_618") 5 Private (TVar (-42)) (Rule [4,5,27,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_617") [Var 4,Var 5,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_617") 4 Private (TVar (-42)) (Rule [4,5,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_616") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_616") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_615") [Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_615") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_614") [Var 29,Var 28,Var 1]])]])),Func ("OracleFlatCurryXML","_case_614") 3 Private (TVar (-42)) (Rule [29,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (Pattern ("XML","XElem") [30,31,32]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_613") [Var 29,Var 31,Var 32,Var 30,Var 1]])]])),Func ("OracleFlatCurryXML","_case_613") 5 Private (TVar (-42)) (Rule [29,31,32,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (Pattern ("Prelude",":") [33,34]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_612") [Var 29,Var 31,Var 32,Var 34,Var 33,Var 1]])]])),Func ("OracleFlatCurryXML","_case_612") 6 Private (TVar (-42)) (Rule [29,31,32,34,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 33) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_611") [Var 29,Var 31,Var 32,Var 34,Var 1]])]])),Func ("OracleFlatCurryXML","_case_611") 5 Private (TVar (-42)) (Rule [29,31,32,34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (Pattern ("Prelude",":") [35,36]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_610") [Var 29,Var 31,Var 32,Var 36,Var 35,Var 1]])]])),Func ("OracleFlatCurryXML","_case_610") 6 Private (TVar (-42)) (Rule [29,31,32,36,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 35) [Branch (LPattern (Charc 'h')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_609") [Var 29,Var 31,Var 32,Var 36,Var 1]])]])),Func ("OracleFlatCurryXML","_case_609") 5 Private (TVar (-42)) (Rule [29,31,32,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (Pattern ("Prelude",":") [37,38]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_608") [Var 29,Var 31,Var 32,Var 38,Var 37,Var 1]])]])),Func ("OracleFlatCurryXML","_case_608") 6 Private (TVar (-42)) (Rule [29,31,32,38,37,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 37) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_607") [Var 29,Var 31,Var 32,Var 38,Var 1]])]])),Func ("OracleFlatCurryXML","_case_607") 5 Private (TVar (-42)) (Rule [29,31,32,38,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 38) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_606") [Var 29,Var 32,Var 31,Var 1]])]])),Func ("OracleFlatCurryXML","_case_606") 4 Private (TVar (-42)) (Rule [29,32,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_605") [Var 32,Var 29,Var 1]])]])),Func ("OracleFlatCurryXML","_case_605") 3 Private (TVar (-42)) (Rule [32,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (Pattern ("Prelude",":") [39,40]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_604") [Var 32,Var 40,Var 39,Var 1]])]])),Func ("OracleFlatCurryXML","_case_604") 4 Private (TVar (-42)) (Rule [32,40,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 39) [Branch (Pattern ("XML","XElem") [41,42,43]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_603") [Var 32,Var 40,Var 42,Var 43,Var 41,Var 1]])]])),Func ("OracleFlatCurryXML","_case_603") 6 Private (TVar (-42)) (Rule [32,40,42,43,41,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 41) [Branch (Pattern ("Prelude",":") [44,45]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_602") [Var 32,Var 40,Var 42,Var 43,Var 45,Var 44,Var 1]])]])),Func ("OracleFlatCurryXML","_case_602") 7 Private (TVar (-42)) (Rule [32,40,42,43,45,44,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 44) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_601") [Var 32,Var 40,Var 42,Var 43,Var 45,Var 1]])]])),Func ("OracleFlatCurryXML","_case_601") 6 Private (TVar (-42)) (Rule [32,40,42,43,45,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 45) [Branch (Pattern ("Prelude",":") [46,47]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_600") [Var 32,Var 40,Var 42,Var 43,Var 47,Var 46,Var 1]])]])),Func ("OracleFlatCurryXML","_case_600") 7 Private (TVar (-42)) (Rule [32,40,42,43,47,46,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 46) [Branch (LPattern (Charc 'h')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_599") [Var 32,Var 40,Var 42,Var 43,Var 47,Var 1]])]])),Func ("OracleFlatCurryXML","_case_599") 6 Private (TVar (-42)) (Rule [32,40,42,43,47,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 47) [Branch (Pattern ("Prelude",":") [48,49]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_598") [Var 32,Var 40,Var 42,Var 43,Var 49,Var 48,Var 1]])]])),Func ("OracleFlatCurryXML","_case_598") 7 Private (TVar (-42)) (Rule [32,40,42,43,49,48,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 48) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_597") [Var 32,Var 40,Var 42,Var 43,Var 49,Var 1]])]])),Func ("OracleFlatCurryXML","_case_597") 6 Private (TVar (-42)) (Rule [32,40,42,43,49,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 49) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_596") [Var 32,Var 40,Var 43,Var 42,Var 1]])]])),Func ("OracleFlatCurryXML","_case_596") 5 Private (TVar (-42)) (Rule [32,40,43,42,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 42) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_595") [Var 32,Var 40,Var 43,Var 1]])]])),Func ("OracleFlatCurryXML","_case_595") 4 Private (TVar (-42)) (Rule [32,40,43,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 43) [Branch (Pattern ("Prelude",":") [50,51]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_594") [Var 32,Var 40,Var 50,Var 51,Var 1]])]])),Func ("OracleFlatCurryXML","_case_594") 5 Private (TVar (-42)) (Rule [32,40,50,51,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 51) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_593") [Var 32,Var 50,Var 40,Var 1]])]])),Func ("OracleFlatCurryXML","_case_593") 4 Private (TVar (-42)) (Rule [32,50,40,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 40) [Branch (Pattern ("Prelude","[]") []) (Let [(51,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 51,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Rule") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2var") []],Var 32,Var 1],Comb FuncCall ("OracleFlatCurryXML","flatx2exp") [Var 50,Var 51]]]))]])),Func ("OracleFlatCurryXML","_case_639") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_638") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_638") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'x')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_637") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_637") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_636") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_636") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_635") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_635") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_634") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_634") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_633") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_633") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_632") [Var 4,Var 5,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_632") 5 Private (TVar (-42)) (Rule [4,5,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_631") [Var 4,Var 5,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_631") 4 Private (TVar (-42)) (Rule [4,5,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_630") [Var 4,Var 5,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_630") 5 Private (TVar (-42)) (Rule [4,5,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_629") [Var 4,Var 5,Var 17,Var 1]])]])),Func ("OracleFlatCurryXML","_case_629") 4 Private (TVar (-42)) (Rule [4,5,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_628") [Var 4,Var 5,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_628") 5 Private (TVar (-42)) (Rule [4,5,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_627") [Var 4,Var 5,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_627") 4 Private (TVar (-42)) (Rule [4,5,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_626") [Var 4,Var 5,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_626") 5 Private (TVar (-42)) (Rule [4,5,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_625") [Var 4,Var 5,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_625") 4 Private (TVar (-42)) (Rule [4,5,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_624") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_624") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FlatCurry","External") [Comb FuncCall ("OracleXML","textOfXml") [Var 5,Var 1]]])]])),Func ("OracleFlatCurryXML","_case_653") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_652") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_652") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_651") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_651") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_650") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_650") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_649") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_649") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'v')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_648") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_648") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_647") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_647") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_646") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_646") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_645") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_645") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_644") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_644") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_643") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_643") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRead","readNat") [Comb FuncCall ("OracleXML","textOfXml") [Var 5,Var 1],Var 6]]))]])),Func ("OracleFlatCurryXML","_case_704") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_703") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_703") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_702") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_702") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_701") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_701") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_700") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_700") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_699") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_699") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_698") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_698") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_697") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_697") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_696") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_696") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_695") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_695") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_694") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_694") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_693") [Var 5,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_693") 4 Private (TVar (-42)) (Rule [5,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude","(,)") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_692") [Var 5,Var 15,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_692") 5 Private (TVar (-42)) (Rule [5,15,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_691") [Var 5,Var 15,Var 17,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_691") 6 Private (TVar (-42)) (Rule [5,15,17,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_690") [Var 5,Var 15,Var 17,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_690") 5 Private (TVar (-42)) (Rule [5,15,17,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_689") [Var 5,Var 15,Var 17,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_689") 6 Private (TVar (-42)) (Rule [5,15,17,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_688") [Var 5,Var 15,Var 17,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_688") 5 Private (TVar (-42)) (Rule [5,15,17,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude",":") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_687") [Var 5,Var 15,Var 17,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_687") 6 Private (TVar (-42)) (Rule [5,15,17,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_686") [Var 5,Var 15,Var 17,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_686") 5 Private (TVar (-42)) (Rule [5,15,17,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_685") [Var 5,Var 15,Var 17,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_685") 6 Private (TVar (-42)) (Rule [5,15,17,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_684") [Var 5,Var 15,Var 17,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_684") 5 Private (TVar (-42)) (Rule [5,15,17,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_683") [Var 5,Var 15,Var 17,Var 27,Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_683") 6 Private (TVar (-42)) (Rule [5,15,17,27,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_682") [Var 5,Var 15,Var 17,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_682") 5 Private (TVar (-42)) (Rule [5,15,17,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_681") [Var 5,Var 15,Var 17,Var 29,Var 28,Var 1]])]])),Func ("OracleFlatCurryXML","_case_681") 6 Private (TVar (-42)) (Rule [5,15,17,29,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_680") [Var 5,Var 15,Var 17,Var 29,Var 1]])]])),Func ("OracleFlatCurryXML","_case_680") 5 Private (TVar (-42)) (Rule [5,15,17,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_679") [Var 5,Var 17,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_679") 4 Private (TVar (-42)) (Rule [5,17,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_678") [Var 5,Var 17,Var 31,Var 30,Var 1]])]])),Func ("OracleFlatCurryXML","_case_678") 5 Private (TVar (-42)) (Rule [5,17,31,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (Pattern ("Prelude","(,)") [32,33]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_677") [Var 5,Var 17,Var 31,Var 33,Var 32,Var 1]])]])),Func ("OracleFlatCurryXML","_case_677") 6 Private (TVar (-42)) (Rule [5,17,31,33,32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 32) [Branch (Pattern ("Prelude",":") [34,35]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_676") [Var 5,Var 17,Var 31,Var 33,Var 35,Var 34,Var 1]])]])),Func ("OracleFlatCurryXML","_case_676") 7 Private (TVar (-42)) (Rule [5,17,31,33,35,34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_675") [Var 5,Var 17,Var 31,Var 33,Var 35,Var 1]])]])),Func ("OracleFlatCurryXML","_case_675") 6 Private (TVar (-42)) (Rule [5,17,31,33,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 35) [Branch (Pattern ("Prelude",":") [36,37]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_674") [Var 5,Var 17,Var 31,Var 33,Var 37,Var 36,Var 1]])]])),Func ("OracleFlatCurryXML","_case_674") 7 Private (TVar (-42)) (Rule [5,17,31,33,37,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_673") [Var 5,Var 17,Var 31,Var 33,Var 37,Var 1]])]])),Func ("OracleFlatCurryXML","_case_673") 6 Private (TVar (-42)) (Rule [5,17,31,33,37,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 37) [Branch (Pattern ("Prelude",":") [38,39]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_672") [Var 5,Var 17,Var 31,Var 33,Var 39,Var 38,Var 1]])]])),Func ("OracleFlatCurryXML","_case_672") 7 Private (TVar (-42)) (Rule [5,17,31,33,39,38,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 38) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_671") [Var 5,Var 17,Var 31,Var 33,Var 39,Var 1]])]])),Func ("OracleFlatCurryXML","_case_671") 6 Private (TVar (-42)) (Rule [5,17,31,33,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 39) [Branch (Pattern ("Prelude",":") [40,41]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_670") [Var 5,Var 17,Var 31,Var 33,Var 41,Var 40,Var 1]])]])),Func ("OracleFlatCurryXML","_case_670") 7 Private (TVar (-42)) (Rule [5,17,31,33,41,40,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 40) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_669") [Var 5,Var 17,Var 31,Var 33,Var 41,Var 1]])]])),Func ("OracleFlatCurryXML","_case_669") 6 Private (TVar (-42)) (Rule [5,17,31,33,41,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 41) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_668") [Var 5,Var 17,Var 33,Var 31,Var 1]])]])),Func ("OracleFlatCurryXML","_case_668") 5 Private (TVar (-42)) (Rule [5,17,33,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (Pattern ("Prelude",":") [42,43]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_667") [Var 5,Var 17,Var 33,Var 43,Var 42,Var 1]])]])),Func ("OracleFlatCurryXML","_case_667") 6 Private (TVar (-42)) (Rule [5,17,33,43,42,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 42) [Branch (Pattern ("Prelude","(,)") [44,45]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_666") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 44,Var 1]])]])),Func ("OracleFlatCurryXML","_case_666") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,44,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 44) [Branch (Pattern ("Prelude",":") [46,47]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_665") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 47,Var 46,Var 1]])]])),Func ("OracleFlatCurryXML","_case_665") 8 Private (TVar (-42)) (Rule [5,17,33,43,45,47,46,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 46) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_664") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 47,Var 1]])]])),Func ("OracleFlatCurryXML","_case_664") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,47,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 47) [Branch (Pattern ("Prelude",":") [48,49]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_663") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 49,Var 48,Var 1]])]])),Func ("OracleFlatCurryXML","_case_663") 8 Private (TVar (-42)) (Rule [5,17,33,43,45,49,48,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 48) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_662") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 49,Var 1]])]])),Func ("OracleFlatCurryXML","_case_662") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,49,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 49) [Branch (Pattern ("Prelude",":") [50,51]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_661") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 51,Var 50,Var 1]])]])),Func ("OracleFlatCurryXML","_case_661") 8 Private (TVar (-42)) (Rule [5,17,33,43,45,51,50,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 50) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_660") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 51,Var 1]])]])),Func ("OracleFlatCurryXML","_case_660") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,51,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 51) [Branch (Pattern ("Prelude",":") [52,53]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_659") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 53,Var 52,Var 1]])]])),Func ("OracleFlatCurryXML","_case_659") 8 Private (TVar (-42)) (Rule [5,17,33,43,45,53,52,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 52) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_658") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 53,Var 1]])]])),Func ("OracleFlatCurryXML","_case_658") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,53,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 53) [Branch (Pattern ("Prelude",":") [54,55]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_657") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 55,Var 54,Var 1]])]])),Func ("OracleFlatCurryXML","_case_657") 8 Private (TVar (-42)) (Rule [5,17,33,43,45,55,54,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 54) [Branch (LPattern (Charc 'y')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_656") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 55,Var 1]])]])),Func ("OracleFlatCurryXML","_case_656") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,55,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 55) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_655") [Var 5,Var 17,Var 33,Var 45,Var 43,Var 1]])]])),Func ("OracleFlatCurryXML","_case_655") 6 Private (TVar (-42)) (Rule [5,17,33,45,43,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 43) [Branch (Pattern ("Prelude",":") [56,57]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_654") [Var 5,Var 17,Var 33,Var 45,Var 56,Var 57,Var 1]])]])),Func ("OracleFlatCurryXML","_case_654") 7 Private (TVar (-42)) (Rule [5,17,33,45,56,57,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 57) [Branch (Pattern ("Prelude","[]") []) (Let [(58,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(59,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 58,Comb ConsCall ("Prelude",":") [Var 59,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("FlatCurry","Cons") [Comb ConsCall ("Prelude","(,)") [Var 17,Var 33],Comb FuncCall ("OracleRead","readNat") [Var 45,Var 1],Comb FuncCall ("OracleFlatCurryXML","xvis2vis") [Var 56,Var 58],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2texp") []],Var 5,Var 59]]]))]])),Func ("OracleFlatCurryXML","_case_715") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_714") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_714") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_713") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_713") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_712") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_712") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_711") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_711") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'v')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_710") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_710") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_709") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_709") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_708") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_708") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_707") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_707") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_706") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_706") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_705") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_705") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRead","readNat") [Comb FuncCall ("OracleXML","textOfXml") [Var 5,Var 1],Var 6]]))]])),Func ("OracleFlatCurryXML","_case_821") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_820") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_820") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_819") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_819") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_818") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_818") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_817") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_817") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'y')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_816") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_816") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_815") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_815") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_814") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_814") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_813") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_813") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_812") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_812") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_811") [Var 5,Var 4,Var 1]]),Branch (Pattern ("Prelude",":") [61,62]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_767") [Var 4,Var 5,Var 62,Var 61,Var 1]])]])),Func ("OracleFlatCurryXML","_case_767") 5 Private (TVar (-42)) (Rule [4,5,62,61,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 61) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_766") [Var 4,Var 5,Var 62,Var 1]])]])),Func ("OracleFlatCurryXML","_case_766") 4 Private (TVar (-42)) (Rule [4,5,62,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 62) [Branch (Pattern ("Prelude",":") [63,64]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_765") [Var 4,Var 5,Var 64,Var 63,Var 1]])]])),Func ("OracleFlatCurryXML","_case_765") 5 Private (TVar (-42)) (Rule [4,5,64,63,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 63) [Branch (LPattern (Charc 'y')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_764") [Var 4,Var 5,Var 64,Var 1]])]])),Func ("OracleFlatCurryXML","_case_764") 4 Private (TVar (-42)) (Rule [4,5,64,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 64) [Branch (Pattern ("Prelude",":") [65,66]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_763") [Var 4,Var 5,Var 66,Var 65,Var 1]])]])),Func ("OracleFlatCurryXML","_case_763") 5 Private (TVar (-42)) (Rule [4,5,66,65,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 65) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_762") [Var 4,Var 5,Var 66,Var 1]])]])),Func ("OracleFlatCurryXML","_case_762") 4 Private (TVar (-42)) (Rule [4,5,66,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 66) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_761") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_761") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [67,68]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_760") [Var 5,Var 68,Var 67,Var 1]])]])),Func ("OracleFlatCurryXML","_case_760") 4 Private (TVar (-42)) (Rule [5,68,67,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 67) [Branch (Pattern ("Prelude","(,)") [69,70]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_759") [Var 5,Var 68,Var 70,Var 69,Var 1]])]])),Func ("OracleFlatCurryXML","_case_759") 5 Private (TVar (-42)) (Rule [5,68,70,69,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 69) [Branch (Pattern ("Prelude",":") [71,72]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_758") [Var 5,Var 68,Var 70,Var 72,Var 71,Var 1]])]])),Func ("OracleFlatCurryXML","_case_758") 6 Private (TVar (-42)) (Rule [5,68,70,72,71,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 71) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_757") [Var 5,Var 68,Var 70,Var 72,Var 1]])]])),Func ("OracleFlatCurryXML","_case_757") 5 Private (TVar (-42)) (Rule [5,68,70,72,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 72) [Branch (Pattern ("Prelude",":") [73,74]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_756") [Var 5,Var 68,Var 70,Var 74,Var 73,Var 1]])]])),Func ("OracleFlatCurryXML","_case_756") 6 Private (TVar (-42)) (Rule [5,68,70,74,73,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 73) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_755") [Var 5,Var 68,Var 70,Var 74,Var 1]])]])),Func ("OracleFlatCurryXML","_case_755") 5 Private (TVar (-42)) (Rule [5,68,70,74,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 74) [Branch (Pattern ("Prelude",":") [75,76]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_754") [Var 5,Var 68,Var 70,Var 76,Var 75,Var 1]])]])),Func ("OracleFlatCurryXML","_case_754") 6 Private (TVar (-42)) (Rule [5,68,70,76,75,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 75) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_753") [Var 5,Var 68,Var 70,Var 76,Var 1]])]])),Func ("OracleFlatCurryXML","_case_753") 5 Private (TVar (-42)) (Rule [5,68,70,76,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 76) [Branch (Pattern ("Prelude",":") [77,78]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_752") [Var 5,Var 68,Var 70,Var 78,Var 77,Var 1]])]])),Func ("OracleFlatCurryXML","_case_752") 6 Private (TVar (-42)) (Rule [5,68,70,78,77,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 77) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_751") [Var 5,Var 68,Var 70,Var 78,Var 1]])]])),Func ("OracleFlatCurryXML","_case_751") 5 Private (TVar (-42)) (Rule [5,68,70,78,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 78) [Branch (Pattern ("Prelude",":") [79,80]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_750") [Var 5,Var 68,Var 70,Var 80,Var 79,Var 1]])]])),Func ("OracleFlatCurryXML","_case_750") 6 Private (TVar (-42)) (Rule [5,68,70,80,79,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 79) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_749") [Var 5,Var 68,Var 70,Var 80,Var 1]])]])),Func ("OracleFlatCurryXML","_case_749") 5 Private (TVar (-42)) (Rule [5,68,70,80,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 80) [Branch (Pattern ("Prelude",":") [81,82]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_748") [Var 5,Var 68,Var 70,Var 82,Var 81,Var 1]])]])),Func ("OracleFlatCurryXML","_case_748") 6 Private (TVar (-42)) (Rule [5,68,70,82,81,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 81) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_747") [Var 5,Var 68,Var 70,Var 82,Var 1]])]])),Func ("OracleFlatCurryXML","_case_747") 5 Private (TVar (-42)) (Rule [5,68,70,82,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 82) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_746") [Var 5,Var 70,Var 68,Var 1]])]])),Func ("OracleFlatCurryXML","_case_746") 4 Private (TVar (-42)) (Rule [5,70,68,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 68) [Branch (Pattern ("Prelude",":") [83,84]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_745") [Var 5,Var 70,Var 84,Var 83,Var 1]])]])),Func ("OracleFlatCurryXML","_case_745") 5 Private (TVar (-42)) (Rule [5,70,84,83,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 83) [Branch (Pattern ("Prelude","(,)") [85,86]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_744") [Var 5,Var 70,Var 84,Var 86,Var 85,Var 1]])]])),Func ("OracleFlatCurryXML","_case_744") 6 Private (TVar (-42)) (Rule [5,70,84,86,85,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 85) [Branch (Pattern ("Prelude",":") [87,88]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_743") [Var 5,Var 70,Var 84,Var 86,Var 88,Var 87,Var 1]])]])),Func ("OracleFlatCurryXML","_case_743") 7 Private (TVar (-42)) (Rule [5,70,84,86,88,87,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 87) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_742") [Var 5,Var 70,Var 84,Var 86,Var 88,Var 1]])]])),Func ("OracleFlatCurryXML","_case_742") 6 Private (TVar (-42)) (Rule [5,70,84,86,88,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 88) [Branch (Pattern ("Prelude",":") [89,90]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_741") [Var 5,Var 70,Var 84,Var 86,Var 90,Var 89,Var 1]])]])),Func ("OracleFlatCurryXML","_case_741") 7 Private (TVar (-42)) (Rule [5,70,84,86,90,89,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 89) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_740") [Var 5,Var 70,Var 84,Var 86,Var 90,Var 1]])]])),Func ("OracleFlatCurryXML","_case_740") 6 Private (TVar (-42)) (Rule [5,70,84,86,90,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 90) [Branch (Pattern ("Prelude",":") [91,92]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_739") [Var 5,Var 70,Var 84,Var 86,Var 92,Var 91,Var 1]])]])),Func ("OracleFlatCurryXML","_case_739") 7 Private (TVar (-42)) (Rule [5,70,84,86,92,91,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 91) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_738") [Var 5,Var 70,Var 84,Var 86,Var 92,Var 1]])]])),Func ("OracleFlatCurryXML","_case_738") 6 Private (TVar (-42)) (Rule [5,70,84,86,92,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 92) [Branch (Pattern ("Prelude",":") [93,94]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_737") [Var 5,Var 70,Var 84,Var 86,Var 94,Var 93,Var 1]])]])),Func ("OracleFlatCurryXML","_case_737") 7 Private (TVar (-42)) (Rule [5,70,84,86,94,93,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 93) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_736") [Var 5,Var 70,Var 84,Var 86,Var 94,Var 1]])]])),Func ("OracleFlatCurryXML","_case_736") 6 Private (TVar (-42)) (Rule [5,70,84,86,94,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 94) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_735") [Var 5,Var 70,Var 86,Var 84,Var 1]])]])),Func ("OracleFlatCurryXML","_case_735") 5 Private (TVar (-42)) (Rule [5,70,86,84,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 84) [Branch (Pattern ("Prelude",":") [95,96]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_734") [Var 5,Var 70,Var 86,Var 95,Var 96,Var 1]])]])),Func ("OracleFlatCurryXML","_case_734") 6 Private (TVar (-42)) (Rule [5,70,86,95,96,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 96) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_733") [Var 70,Var 86,Var 95,Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_733") 5 Private (TVar (-42)) (Rule [70,86,95,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [97,98]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_732") [Var 70,Var 86,Var 95,Var 98,Var 97,Var 1]])]])),Func ("OracleFlatCurryXML","_case_732") 6 Private (TVar (-42)) (Rule [70,86,95,98,97,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 97) [Branch (Pattern ("XML","XElem") [99,100,101]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_731") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 99,Var 1]])]])),Func ("OracleFlatCurryXML","_case_731") 8 Private (TVar (-42)) (Rule [70,86,95,98,100,101,99,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 99) [Branch (Pattern ("Prelude",":") [102,103]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_730") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 103,Var 102,Var 1]])]])),Func ("OracleFlatCurryXML","_case_730") 9 Private (TVar (-42)) (Rule [70,86,95,98,100,101,103,102,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 102) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_729") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 103,Var 1]])]])),Func ("OracleFlatCurryXML","_case_729") 8 Private (TVar (-42)) (Rule [70,86,95,98,100,101,103,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 103) [Branch (Pattern ("Prelude",":") [104,105]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_728") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 105,Var 104,Var 1]])]])),Func ("OracleFlatCurryXML","_case_728") 9 Private (TVar (-42)) (Rule [70,86,95,98,100,101,105,104,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 104) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_727") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 105,Var 1]])]])),Func ("OracleFlatCurryXML","_case_727") 8 Private (TVar (-42)) (Rule [70,86,95,98,100,101,105,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 105) [Branch (Pattern ("Prelude",":") [106,107]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_726") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 107,Var 106,Var 1]])]])),Func ("OracleFlatCurryXML","_case_726") 9 Private (TVar (-42)) (Rule [70,86,95,98,100,101,107,106,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 106) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_725") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 107,Var 1]])]])),Func ("OracleFlatCurryXML","_case_725") 8 Private (TVar (-42)) (Rule [70,86,95,98,100,101,107,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 107) [Branch (Pattern ("Prelude",":") [108,109]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_724") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 109,Var 108,Var 1]])]])),Func ("OracleFlatCurryXML","_case_724") 9 Private (TVar (-42)) (Rule [70,86,95,98,100,101,109,108,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 108) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_723") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 109,Var 1]])]])),Func ("OracleFlatCurryXML","_case_723") 8 Private (TVar (-42)) (Rule [70,86,95,98,100,101,109,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 109) [Branch (Pattern ("Prelude",":") [110,111]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_722") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 111,Var 110,Var 1]])]])),Func ("OracleFlatCurryXML","_case_722") 9 Private (TVar (-42)) (Rule [70,86,95,98,100,101,111,110,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 110) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_721") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 111,Var 1]])]])),Func ("OracleFlatCurryXML","_case_721") 8 Private (TVar (-42)) (Rule [70,86,95,98,100,101,111,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 111) [Branch (Pattern ("Prelude",":") [112,113]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_720") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 113,Var 112,Var 1]])]])),Func ("OracleFlatCurryXML","_case_720") 9 Private (TVar (-42)) (Rule [70,86,95,98,100,101,113,112,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 112) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_719") [Var 70,Var 86,Var 95,Var 98,Var 100,Var 101,Var 113,Var 1]])]])),Func ("OracleFlatCurryXML","_case_719") 8 Private (TVar (-42)) (Rule [70,86,95,98,100,101,113,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 113) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_718") [Var 70,Var 86,Var 95,Var 98,Var 101,Var 100,Var 1]])]])),Func ("OracleFlatCurryXML","_case_718") 7 Private (TVar (-42)) (Rule [70,86,95,98,101,100,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 100) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_717") [Var 70,Var 86,Var 95,Var 101,Var 98,Var 1]])]])),Func ("OracleFlatCurryXML","_case_717") 6 Private (TVar (-42)) (Rule [70,86,95,101,98,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 98) [Branch (Pattern ("Prelude",":") [114,115]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_716") [Var 70,Var 86,Var 95,Var 101,Var 114,Var 115,Var 1]])]])),Func ("OracleFlatCurryXML","_case_716") 7 Private (TVar (-42)) (Rule [70,86,95,101,114,115,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 115) [Branch (Pattern ("Prelude","[]") []) (Let [(116,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(117,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 116,Comb ConsCall ("Prelude",":") [Var 117,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("FlatCurry","TypeSyn") [Comb ConsCall ("Prelude","(,)") [Var 70,Var 86],Comb FuncCall ("OracleFlatCurryXML","xvis2vis") [Var 95,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2typedecl._#lambda10") []],Var 101,Var 116],Comb FuncCall ("OracleFlatCurryXML","flatx2texp") [Var 114,Var 117]]]))]])),Func ("OracleFlatCurryXML","_case_811") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_810") [Var 5,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_810") 4 Private (TVar (-42)) (Rule [5,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude","(,)") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_809") [Var 5,Var 15,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_809") 5 Private (TVar (-42)) (Rule [5,15,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_808") [Var 5,Var 15,Var 17,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_808") 6 Private (TVar (-42)) (Rule [5,15,17,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_807") [Var 5,Var 15,Var 17,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_807") 5 Private (TVar (-42)) (Rule [5,15,17,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_806") [Var 5,Var 15,Var 17,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_806") 6 Private (TVar (-42)) (Rule [5,15,17,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_805") [Var 5,Var 15,Var 17,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_805") 5 Private (TVar (-42)) (Rule [5,15,17,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude",":") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_804") [Var 5,Var 15,Var 17,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_804") 6 Private (TVar (-42)) (Rule [5,15,17,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_803") [Var 5,Var 15,Var 17,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_803") 5 Private (TVar (-42)) (Rule [5,15,17,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_802") [Var 5,Var 15,Var 17,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_802") 6 Private (TVar (-42)) (Rule [5,15,17,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_801") [Var 5,Var 15,Var 17,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_801") 5 Private (TVar (-42)) (Rule [5,15,17,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_800") [Var 5,Var 15,Var 17,Var 27,Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_800") 6 Private (TVar (-42)) (Rule [5,15,17,27,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_799") [Var 5,Var 15,Var 17,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_799") 5 Private (TVar (-42)) (Rule [5,15,17,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_798") [Var 5,Var 15,Var 17,Var 29,Var 28,Var 1]])]])),Func ("OracleFlatCurryXML","_case_798") 6 Private (TVar (-42)) (Rule [5,15,17,29,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_797") [Var 5,Var 15,Var 17,Var 29,Var 1]])]])),Func ("OracleFlatCurryXML","_case_797") 5 Private (TVar (-42)) (Rule [5,15,17,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_796") [Var 5,Var 17,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_796") 4 Private (TVar (-42)) (Rule [5,17,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_795") [Var 5,Var 17,Var 31,Var 30,Var 1]])]])),Func ("OracleFlatCurryXML","_case_795") 5 Private (TVar (-42)) (Rule [5,17,31,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (Pattern ("Prelude","(,)") [32,33]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_794") [Var 5,Var 17,Var 31,Var 33,Var 32,Var 1]])]])),Func ("OracleFlatCurryXML","_case_794") 6 Private (TVar (-42)) (Rule [5,17,31,33,32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 32) [Branch (Pattern ("Prelude",":") [34,35]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_793") [Var 5,Var 17,Var 31,Var 33,Var 35,Var 34,Var 1]])]])),Func ("OracleFlatCurryXML","_case_793") 7 Private (TVar (-42)) (Rule [5,17,31,33,35,34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_792") [Var 5,Var 17,Var 31,Var 33,Var 35,Var 1]])]])),Func ("OracleFlatCurryXML","_case_792") 6 Private (TVar (-42)) (Rule [5,17,31,33,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 35) [Branch (Pattern ("Prelude",":") [36,37]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_791") [Var 5,Var 17,Var 31,Var 33,Var 37,Var 36,Var 1]])]])),Func ("OracleFlatCurryXML","_case_791") 7 Private (TVar (-42)) (Rule [5,17,31,33,37,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_790") [Var 5,Var 17,Var 31,Var 33,Var 37,Var 1]])]])),Func ("OracleFlatCurryXML","_case_790") 6 Private (TVar (-42)) (Rule [5,17,31,33,37,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 37) [Branch (Pattern ("Prelude",":") [38,39]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_789") [Var 5,Var 17,Var 31,Var 33,Var 39,Var 38,Var 1]])]])),Func ("OracleFlatCurryXML","_case_789") 7 Private (TVar (-42)) (Rule [5,17,31,33,39,38,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 38) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_788") [Var 5,Var 17,Var 31,Var 33,Var 39,Var 1]])]])),Func ("OracleFlatCurryXML","_case_788") 6 Private (TVar (-42)) (Rule [5,17,31,33,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 39) [Branch (Pattern ("Prelude",":") [40,41]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_787") [Var 5,Var 17,Var 31,Var 33,Var 41,Var 40,Var 1]])]])),Func ("OracleFlatCurryXML","_case_787") 7 Private (TVar (-42)) (Rule [5,17,31,33,41,40,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 40) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_786") [Var 5,Var 17,Var 31,Var 33,Var 41,Var 1]])]])),Func ("OracleFlatCurryXML","_case_786") 6 Private (TVar (-42)) (Rule [5,17,31,33,41,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 41) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_785") [Var 5,Var 17,Var 33,Var 31,Var 1]])]])),Func ("OracleFlatCurryXML","_case_785") 5 Private (TVar (-42)) (Rule [5,17,33,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (Pattern ("Prelude",":") [42,43]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_784") [Var 5,Var 17,Var 33,Var 42,Var 43,Var 1]])]])),Func ("OracleFlatCurryXML","_case_784") 6 Private (TVar (-42)) (Rule [5,17,33,42,43,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 43) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_783") [Var 17,Var 33,Var 42,Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_783") 5 Private (TVar (-42)) (Rule [17,33,42,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [44,45]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_782") [Var 17,Var 33,Var 42,Var 45,Var 44,Var 1]])]])),Func ("OracleFlatCurryXML","_case_782") 6 Private (TVar (-42)) (Rule [17,33,42,45,44,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 44) [Branch (Pattern ("XML","XElem") [46,47,48]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_781") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 46,Var 1]])]])),Func ("OracleFlatCurryXML","_case_781") 8 Private (TVar (-42)) (Rule [17,33,42,45,47,48,46,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 46) [Branch (Pattern ("Prelude",":") [49,50]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_780") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 50,Var 49,Var 1]])]])),Func ("OracleFlatCurryXML","_case_780") 9 Private (TVar (-42)) (Rule [17,33,42,45,47,48,50,49,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 49) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_779") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 50,Var 1]])]])),Func ("OracleFlatCurryXML","_case_779") 8 Private (TVar (-42)) (Rule [17,33,42,45,47,48,50,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 50) [Branch (Pattern ("Prelude",":") [51,52]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_778") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 52,Var 51,Var 1]])]])),Func ("OracleFlatCurryXML","_case_778") 9 Private (TVar (-42)) (Rule [17,33,42,45,47,48,52,51,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 51) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_777") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 52,Var 1]])]])),Func ("OracleFlatCurryXML","_case_777") 8 Private (TVar (-42)) (Rule [17,33,42,45,47,48,52,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 52) [Branch (Pattern ("Prelude",":") [53,54]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_776") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 54,Var 53,Var 1]])]])),Func ("OracleFlatCurryXML","_case_776") 9 Private (TVar (-42)) (Rule [17,33,42,45,47,48,54,53,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 53) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_775") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 54,Var 1]])]])),Func ("OracleFlatCurryXML","_case_775") 8 Private (TVar (-42)) (Rule [17,33,42,45,47,48,54,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 54) [Branch (Pattern ("Prelude",":") [55,56]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_774") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 56,Var 55,Var 1]])]])),Func ("OracleFlatCurryXML","_case_774") 9 Private (TVar (-42)) (Rule [17,33,42,45,47,48,56,55,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 55) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_773") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 56,Var 1]])]])),Func ("OracleFlatCurryXML","_case_773") 8 Private (TVar (-42)) (Rule [17,33,42,45,47,48,56,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 56) [Branch (Pattern ("Prelude",":") [57,58]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_772") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 58,Var 57,Var 1]])]])),Func ("OracleFlatCurryXML","_case_772") 9 Private (TVar (-42)) (Rule [17,33,42,45,47,48,58,57,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 57) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_771") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 58,Var 1]])]])),Func ("OracleFlatCurryXML","_case_771") 8 Private (TVar (-42)) (Rule [17,33,42,45,47,48,58,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 58) [Branch (Pattern ("Prelude",":") [59,60]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_770") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 60,Var 59,Var 1]])]])),Func ("OracleFlatCurryXML","_case_770") 9 Private (TVar (-42)) (Rule [17,33,42,45,47,48,60,59,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 59) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_769") [Var 17,Var 33,Var 42,Var 45,Var 47,Var 48,Var 60,Var 1]])]])),Func ("OracleFlatCurryXML","_case_769") 8 Private (TVar (-42)) (Rule [17,33,42,45,47,48,60,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 60) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_768") [Var 17,Var 33,Var 42,Var 45,Var 48,Var 47,Var 1]])]])),Func ("OracleFlatCurryXML","_case_768") 7 Private (TVar (-42)) (Rule [17,33,42,45,48,47,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 47) [Branch (Pattern ("Prelude","[]") []) (Let [(49,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(50,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 49,Comb ConsCall ("Prelude",":") [Var 50,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("FlatCurry","Type") [Comb ConsCall ("Prelude","(,)") [Var 17,Var 33],Comb FuncCall ("OracleFlatCurryXML","xvis2vis") [Var 42,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2typedecl._#lambda8") []],Var 48,Var 49],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2typedecl._#lambda9") []],Var 45,Var 50]]]))]])),Func ("OracleFlatCurryXML","_case_881") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_880") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_880") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_879") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_879") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_878") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_878") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_877") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_877") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_876") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_876") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_875") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_875") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_874") [Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_874") 4 Private (TVar (-42)) (Rule [5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude","(,)") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_873") [Var 5,Var 11,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_873") 5 Private (TVar (-42)) (Rule [5,11,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_872") [Var 5,Var 11,Var 13,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_872") 6 Private (TVar (-42)) (Rule [5,11,13,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_871") [Var 5,Var 11,Var 13,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_871") 5 Private (TVar (-42)) (Rule [5,11,13,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_870") [Var 5,Var 11,Var 13,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_870") 6 Private (TVar (-42)) (Rule [5,11,13,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_869") [Var 5,Var 11,Var 13,Var 17,Var 1]])]])),Func ("OracleFlatCurryXML","_case_869") 5 Private (TVar (-42)) (Rule [5,11,13,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_868") [Var 5,Var 11,Var 13,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_868") 6 Private (TVar (-42)) (Rule [5,11,13,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_867") [Var 5,Var 11,Var 13,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_867") 5 Private (TVar (-42)) (Rule [5,11,13,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_866") [Var 5,Var 11,Var 13,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_866") 6 Private (TVar (-42)) (Rule [5,11,13,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_865") [Var 5,Var 11,Var 13,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_865") 5 Private (TVar (-42)) (Rule [5,11,13,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude",":") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_864") [Var 5,Var 11,Var 13,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_864") 6 Private (TVar (-42)) (Rule [5,11,13,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_863") [Var 5,Var 11,Var 13,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_863") 5 Private (TVar (-42)) (Rule [5,11,13,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_862") [Var 5,Var 11,Var 13,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_862") 6 Private (TVar (-42)) (Rule [5,11,13,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_861") [Var 5,Var 11,Var 13,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_861") 5 Private (TVar (-42)) (Rule [5,11,13,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_860") [Var 5,Var 13,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_860") 4 Private (TVar (-42)) (Rule [5,13,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_859") [Var 5,Var 13,Var 27,Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_859") 5 Private (TVar (-42)) (Rule [5,13,27,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (Pattern ("Prelude","(,)") [28,29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_858") [Var 5,Var 13,Var 27,Var 29,Var 28,Var 1]])]])),Func ("OracleFlatCurryXML","_case_858") 6 Private (TVar (-42)) (Rule [5,13,27,29,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (Pattern ("Prelude",":") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_857") [Var 5,Var 13,Var 27,Var 29,Var 31,Var 30,Var 1]])]])),Func ("OracleFlatCurryXML","_case_857") 7 Private (TVar (-42)) (Rule [5,13,27,29,31,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_856") [Var 5,Var 13,Var 27,Var 29,Var 31,Var 1]])]])),Func ("OracleFlatCurryXML","_case_856") 6 Private (TVar (-42)) (Rule [5,13,27,29,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (Pattern ("Prelude",":") [32,33]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_855") [Var 5,Var 13,Var 27,Var 29,Var 33,Var 32,Var 1]])]])),Func ("OracleFlatCurryXML","_case_855") 7 Private (TVar (-42)) (Rule [5,13,27,29,33,32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 32) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_854") [Var 5,Var 13,Var 27,Var 29,Var 33,Var 1]])]])),Func ("OracleFlatCurryXML","_case_854") 6 Private (TVar (-42)) (Rule [5,13,27,29,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 33) [Branch (Pattern ("Prelude",":") [34,35]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_853") [Var 5,Var 13,Var 27,Var 29,Var 35,Var 34,Var 1]])]])),Func ("OracleFlatCurryXML","_case_853") 7 Private (TVar (-42)) (Rule [5,13,27,29,35,34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_852") [Var 5,Var 13,Var 27,Var 29,Var 35,Var 1]])]])),Func ("OracleFlatCurryXML","_case_852") 6 Private (TVar (-42)) (Rule [5,13,27,29,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 35) [Branch (Pattern ("Prelude",":") [36,37]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_851") [Var 5,Var 13,Var 27,Var 29,Var 37,Var 36,Var 1]])]])),Func ("OracleFlatCurryXML","_case_851") 7 Private (TVar (-42)) (Rule [5,13,27,29,37,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_850") [Var 5,Var 13,Var 27,Var 29,Var 37,Var 1]])]])),Func ("OracleFlatCurryXML","_case_850") 6 Private (TVar (-42)) (Rule [5,13,27,29,37,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 37) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_849") [Var 5,Var 13,Var 29,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_849") 5 Private (TVar (-42)) (Rule [5,13,29,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude",":") [38,39]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_848") [Var 5,Var 13,Var 29,Var 39,Var 38,Var 1]])]])),Func ("OracleFlatCurryXML","_case_848") 6 Private (TVar (-42)) (Rule [5,13,29,39,38,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 38) [Branch (Pattern ("Prelude","(,)") [40,41]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_847") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 40,Var 1]])]])),Func ("OracleFlatCurryXML","_case_847") 7 Private (TVar (-42)) (Rule [5,13,29,39,41,40,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 40) [Branch (Pattern ("Prelude",":") [42,43]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_846") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 43,Var 42,Var 1]])]])),Func ("OracleFlatCurryXML","_case_846") 8 Private (TVar (-42)) (Rule [5,13,29,39,41,43,42,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 42) [Branch (LPattern (Charc 'f')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_845") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 43,Var 1]])]])),Func ("OracleFlatCurryXML","_case_845") 7 Private (TVar (-42)) (Rule [5,13,29,39,41,43,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 43) [Branch (Pattern ("Prelude",":") [44,45]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_844") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 45,Var 44,Var 1]])]])),Func ("OracleFlatCurryXML","_case_844") 8 Private (TVar (-42)) (Rule [5,13,29,39,41,45,44,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 44) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_843") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 45,Var 1]])]])),Func ("OracleFlatCurryXML","_case_843") 7 Private (TVar (-42)) (Rule [5,13,29,39,41,45,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 45) [Branch (Pattern ("Prelude",":") [46,47]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_842") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 47,Var 46,Var 1]])]])),Func ("OracleFlatCurryXML","_case_842") 8 Private (TVar (-42)) (Rule [5,13,29,39,41,47,46,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 46) [Branch (LPattern (Charc 'x')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_841") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 47,Var 1]])]])),Func ("OracleFlatCurryXML","_case_841") 7 Private (TVar (-42)) (Rule [5,13,29,39,41,47,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 47) [Branch (Pattern ("Prelude",":") [48,49]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_840") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 49,Var 48,Var 1]])]])),Func ("OracleFlatCurryXML","_case_840") 8 Private (TVar (-42)) (Rule [5,13,29,39,41,49,48,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 48) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_839") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 49,Var 1]])]])),Func ("OracleFlatCurryXML","_case_839") 7 Private (TVar (-42)) (Rule [5,13,29,39,41,49,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 49) [Branch (Pattern ("Prelude",":") [50,51]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_838") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 51,Var 50,Var 1]])]])),Func ("OracleFlatCurryXML","_case_838") 8 Private (TVar (-42)) (Rule [5,13,29,39,41,51,50,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 50) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_837") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 51,Var 1]])]])),Func ("OracleFlatCurryXML","_case_837") 7 Private (TVar (-42)) (Rule [5,13,29,39,41,51,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 51) [Branch (Pattern ("Prelude",":") [52,53]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_836") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 53,Var 52,Var 1]])]])),Func ("OracleFlatCurryXML","_case_836") 8 Private (TVar (-42)) (Rule [5,13,29,39,41,53,52,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 52) [Branch (LPattern (Charc 'y')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_835") [Var 5,Var 13,Var 29,Var 39,Var 41,Var 53,Var 1]])]])),Func ("OracleFlatCurryXML","_case_835") 7 Private (TVar (-42)) (Rule [5,13,29,39,41,53,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 53) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_834") [Var 5,Var 13,Var 29,Var 41,Var 39,Var 1]])]])),Func ("OracleFlatCurryXML","_case_834") 6 Private (TVar (-42)) (Rule [5,13,29,41,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 39) [Branch (Pattern ("Prelude",":") [54,55]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_833") [Var 5,Var 13,Var 29,Var 41,Var 55,Var 54,Var 1]])]])),Func ("OracleFlatCurryXML","_case_833") 7 Private (TVar (-42)) (Rule [5,13,29,41,55,54,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 54) [Branch (Pattern ("Prelude","(,)") [56,57]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_832") [Var 5,Var 13,Var 29,Var 41,Var 55,Var 57,Var 56,Var 1]])]])),Func ("OracleFlatCurryXML","_case_832") 8 Private (TVar (-42)) (Rule [5,13,29,41,55,57,56,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 56) [Branch (Pattern ("Prelude",":") [58,59]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_831") [Var 5,Var 13,Var 29,Var 41,Var 55,Var 57,Var 59,Var 58,Var 1]])]])),Func ("OracleFlatCurryXML","_case_831") 9 Private (TVar (-42)) (Rule [5,13,29,41,55,57,59,58,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 58) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_830") [Var 5,Var 13,Var 29,Var 41,Var 55,Var 57,Var 59,Var 1]])]])),Func ("OracleFlatCurryXML","_case_830") 8 Private (TVar (-42)) (Rule [5,13,29,41,55,57,59,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 59) [Branch (Pattern ("Prelude",":") [60,61]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_829") [Var 5,Var 13,Var 29,Var 41,Var 55,Var 57,Var 61,Var 60,Var 1]])]])),Func ("OracleFlatCurryXML","_case_829") 9 Private (TVar (-42)) (Rule [5,13,29,41,55,57,61,60,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 60) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_828") [Var 5,Var 13,Var 29,Var 41,Var 55,Var 57,Var 61,Var 1]])]])),Func ("OracleFlatCurryXML","_case_828") 8 Private (TVar (-42)) (Rule [5,13,29,41,55,57,61,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 61) [Branch (Pattern ("Prelude",":") [62,63]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_827") [Var 5,Var 13,Var 29,Var 41,Var 55,Var 57,Var 63,Var 62,Var 1]])]])),Func ("OracleFlatCurryXML","_case_827") 9 Private (TVar (-42)) (Rule [5,13,29,41,55,57,63,62,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 62) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_826") [Var 5,Var 13,Var 29,Var 41,Var 55,Var 57,Var 63,Var 1]])]])),Func ("OracleFlatCurryXML","_case_826") 8 Private (TVar (-42)) (Rule [5,13,29,41,55,57,63,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 63) [Branch (Pattern ("Prelude",":") [64,65]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_825") [Var 5,Var 13,Var 29,Var 41,Var 55,Var 57,Var 65,Var 64,Var 1]])]])),Func ("OracleFlatCurryXML","_case_825") 9 Private (TVar (-42)) (Rule [5,13,29,41,55,57,65,64,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 64) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_824") [Var 5,Var 13,Var 29,Var 41,Var 55,Var 57,Var 65,Var 1]])]])),Func ("OracleFlatCurryXML","_case_824") 8 Private (TVar (-42)) (Rule [5,13,29,41,55,57,65,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 65) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_823") [Var 5,Var 13,Var 29,Var 41,Var 57,Var 55,Var 1]])]])),Func ("OracleFlatCurryXML","_case_823") 7 Private (TVar (-42)) (Rule [5,13,29,41,57,55,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 55) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_822") [Var 13,Var 29,Var 41,Var 57,Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_822") 6 Private (TVar (-42)) (Rule [13,29,41,57,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Let [(58,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 58,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("FlatCurry","Op") [Comb ConsCall ("Prelude","(,)") [Var 13,Var 29],Comb FuncCall ("OracleFlatCurryXML","flatx2Fixity") [Var 41,Var 1],Comb FuncCall ("OracleRead","readNat") [Var 57,Var 58]]]))]])),Func ("OracleFlatCurryXML","_case_935") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_934") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_934") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_933") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_933") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 'f')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_932") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_932") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_931") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_931") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_930") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_930") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_929") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_929") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_928") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_928") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_927") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_927") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_926") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_926") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_925") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_925") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_924") [Var 5,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_924") 4 Private (TVar (-42)) (Rule [5,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("Prelude","(,)") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_923") [Var 5,Var 15,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_923") 5 Private (TVar (-42)) (Rule [5,15,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (Pattern ("Prelude",":") [18,19]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_922") [Var 5,Var 15,Var 17,Var 19,Var 18,Var 1]])]])),Func ("OracleFlatCurryXML","_case_922") 6 Private (TVar (-42)) (Rule [5,15,17,19,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 18) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_921") [Var 5,Var 15,Var 17,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_921") 5 Private (TVar (-42)) (Rule [5,15,17,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_920") [Var 5,Var 15,Var 17,Var 21,Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_920") 6 Private (TVar (-42)) (Rule [5,15,17,21,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_919") [Var 5,Var 15,Var 17,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_919") 5 Private (TVar (-42)) (Rule [5,15,17,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (Pattern ("Prelude",":") [22,23]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_918") [Var 5,Var 15,Var 17,Var 23,Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_918") 6 Private (TVar (-42)) (Rule [5,15,17,23,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_917") [Var 5,Var 15,Var 17,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_917") 5 Private (TVar (-42)) (Rule [5,15,17,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_916") [Var 5,Var 15,Var 17,Var 25,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_916") 6 Private (TVar (-42)) (Rule [5,15,17,25,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_915") [Var 5,Var 15,Var 17,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_915") 5 Private (TVar (-42)) (Rule [5,15,17,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_914") [Var 5,Var 15,Var 17,Var 27,Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_914") 6 Private (TVar (-42)) (Rule [5,15,17,27,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_913") [Var 5,Var 15,Var 17,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_913") 5 Private (TVar (-42)) (Rule [5,15,17,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_912") [Var 5,Var 15,Var 17,Var 29,Var 28,Var 1]])]])),Func ("OracleFlatCurryXML","_case_912") 6 Private (TVar (-42)) (Rule [5,15,17,29,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_911") [Var 5,Var 15,Var 17,Var 29,Var 1]])]])),Func ("OracleFlatCurryXML","_case_911") 5 Private (TVar (-42)) (Rule [5,15,17,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_910") [Var 5,Var 17,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_910") 4 Private (TVar (-42)) (Rule [5,17,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_909") [Var 5,Var 17,Var 31,Var 30,Var 1]])]])),Func ("OracleFlatCurryXML","_case_909") 5 Private (TVar (-42)) (Rule [5,17,31,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (Pattern ("Prelude","(,)") [32,33]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_908") [Var 5,Var 17,Var 31,Var 33,Var 32,Var 1]])]])),Func ("OracleFlatCurryXML","_case_908") 6 Private (TVar (-42)) (Rule [5,17,31,33,32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 32) [Branch (Pattern ("Prelude",":") [34,35]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_907") [Var 5,Var 17,Var 31,Var 33,Var 35,Var 34,Var 1]])]])),Func ("OracleFlatCurryXML","_case_907") 7 Private (TVar (-42)) (Rule [5,17,31,33,35,34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_906") [Var 5,Var 17,Var 31,Var 33,Var 35,Var 1]])]])),Func ("OracleFlatCurryXML","_case_906") 6 Private (TVar (-42)) (Rule [5,17,31,33,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 35) [Branch (Pattern ("Prelude",":") [36,37]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_905") [Var 5,Var 17,Var 31,Var 33,Var 37,Var 36,Var 1]])]])),Func ("OracleFlatCurryXML","_case_905") 7 Private (TVar (-42)) (Rule [5,17,31,33,37,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_904") [Var 5,Var 17,Var 31,Var 33,Var 37,Var 1]])]])),Func ("OracleFlatCurryXML","_case_904") 6 Private (TVar (-42)) (Rule [5,17,31,33,37,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 37) [Branch (Pattern ("Prelude",":") [38,39]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_903") [Var 5,Var 17,Var 31,Var 33,Var 39,Var 38,Var 1]])]])),Func ("OracleFlatCurryXML","_case_903") 7 Private (TVar (-42)) (Rule [5,17,31,33,39,38,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 38) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_902") [Var 5,Var 17,Var 31,Var 33,Var 39,Var 1]])]])),Func ("OracleFlatCurryXML","_case_902") 6 Private (TVar (-42)) (Rule [5,17,31,33,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 39) [Branch (Pattern ("Prelude",":") [40,41]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_901") [Var 5,Var 17,Var 31,Var 33,Var 41,Var 40,Var 1]])]])),Func ("OracleFlatCurryXML","_case_901") 7 Private (TVar (-42)) (Rule [5,17,31,33,41,40,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 40) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_900") [Var 5,Var 17,Var 31,Var 33,Var 41,Var 1]])]])),Func ("OracleFlatCurryXML","_case_900") 6 Private (TVar (-42)) (Rule [5,17,31,33,41,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 41) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_899") [Var 5,Var 17,Var 33,Var 31,Var 1]])]])),Func ("OracleFlatCurryXML","_case_899") 5 Private (TVar (-42)) (Rule [5,17,33,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (Pattern ("Prelude",":") [42,43]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_898") [Var 5,Var 17,Var 33,Var 43,Var 42,Var 1]])]])),Func ("OracleFlatCurryXML","_case_898") 6 Private (TVar (-42)) (Rule [5,17,33,43,42,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 42) [Branch (Pattern ("Prelude","(,)") [44,45]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_897") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 44,Var 1]])]])),Func ("OracleFlatCurryXML","_case_897") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,44,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 44) [Branch (Pattern ("Prelude",":") [46,47]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_896") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 47,Var 46,Var 1]])]])),Func ("OracleFlatCurryXML","_case_896") 8 Private (TVar (-42)) (Rule [5,17,33,43,45,47,46,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 46) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_895") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 47,Var 1]])]])),Func ("OracleFlatCurryXML","_case_895") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,47,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 47) [Branch (Pattern ("Prelude",":") [48,49]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_894") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 49,Var 48,Var 1]])]])),Func ("OracleFlatCurryXML","_case_894") 8 Private (TVar (-42)) (Rule [5,17,33,43,45,49,48,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 48) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_893") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 49,Var 1]])]])),Func ("OracleFlatCurryXML","_case_893") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,49,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 49) [Branch (Pattern ("Prelude",":") [50,51]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_892") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 51,Var 50,Var 1]])]])),Func ("OracleFlatCurryXML","_case_892") 8 Private (TVar (-42)) (Rule [5,17,33,43,45,51,50,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 50) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_891") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 51,Var 1]])]])),Func ("OracleFlatCurryXML","_case_891") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,51,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 51) [Branch (Pattern ("Prelude",":") [52,53]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_890") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 53,Var 52,Var 1]])]])),Func ("OracleFlatCurryXML","_case_890") 8 Private (TVar (-42)) (Rule [5,17,33,43,45,53,52,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 52) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_889") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 53,Var 1]])]])),Func ("OracleFlatCurryXML","_case_889") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,53,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 53) [Branch (Pattern ("Prelude",":") [54,55]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_888") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 55,Var 54,Var 1]])]])),Func ("OracleFlatCurryXML","_case_888") 8 Private (TVar (-42)) (Rule [5,17,33,43,45,55,54,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 54) [Branch (LPattern (Charc 'y')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_887") [Var 5,Var 17,Var 33,Var 43,Var 45,Var 55,Var 1]])]])),Func ("OracleFlatCurryXML","_case_887") 7 Private (TVar (-42)) (Rule [5,17,33,43,45,55,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 55) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_886") [Var 5,Var 17,Var 33,Var 45,Var 43,Var 1]])]])),Func ("OracleFlatCurryXML","_case_886") 6 Private (TVar (-42)) (Rule [5,17,33,45,43,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 43) [Branch (Pattern ("Prelude",":") [56,57]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_885") [Var 5,Var 17,Var 33,Var 45,Var 56,Var 57,Var 1]])]])),Func ("OracleFlatCurryXML","_case_885") 7 Private (TVar (-42)) (Rule [5,17,33,45,56,57,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 57) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_884") [Var 17,Var 33,Var 45,Var 56,Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_884") 6 Private (TVar (-42)) (Rule [17,33,45,56,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [58,59]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_883") [Var 17,Var 33,Var 45,Var 56,Var 58,Var 59,Var 1]])]])),Func ("OracleFlatCurryXML","_case_883") 7 Private (TVar (-42)) (Rule [17,33,45,56,58,59,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 59) [Branch (Pattern ("Prelude",":") [60,61]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_882") [Var 17,Var 33,Var 45,Var 56,Var 58,Var 60,Var 61,Var 1]])]])),Func ("OracleFlatCurryXML","_case_882") 8 Private (TVar (-42)) (Rule [17,33,45,56,58,60,61,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 61) [Branch (Pattern ("Prelude","[]") []) (Let [(62,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(63,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(64,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 62,Comb ConsCall ("Prelude",":") [Var 63,Comb ConsCall ("Prelude",":") [Var 64,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("FlatCurry","Func") [Comb ConsCall ("Prelude","(,)") [Var 17,Var 33],Comb FuncCall ("OracleRead","readNat") [Var 45,Var 1],Comb FuncCall ("OracleFlatCurryXML","xvis2vis") [Var 56,Var 62],Comb FuncCall ("OracleFlatCurryXML","flatx2texp") [Var 58,Var 63],Comb FuncCall ("OracleFlatCurryXML","flatx2FunBody") [Var 60,Var 64]]]))]])),Func ("OracleFlatCurryXML","_case_950") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_949") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_949") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_948") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_948") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_947") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_947") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_946") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_946") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_945") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_945") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_944") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_944") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_943") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_943") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_942") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_942") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_941") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_941") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_940") [Var 4,Var 5,Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_940") 5 Private (TVar (-42)) (Rule [4,5,15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_939") [Var 4,Var 5,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_939") 4 Private (TVar (-42)) (Rule [4,5,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_938") [Var 4,Var 5,Var 17,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_938") 5 Private (TVar (-42)) (Rule [4,5,17,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_937") [Var 4,Var 5,Var 17,Var 1]])]])),Func ("OracleFlatCurryXML","_case_937") 4 Private (TVar (-42)) (Rule [4,5,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_936") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_936") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","textOfXml") [Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1052") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1051") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1051") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1050") [Var 4,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1050") 5 Private (TVar (-42)) (Rule [4,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1049") [Var 4,Var 5,Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1049") 4 Private (TVar (-42)) (Rule [4,5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1048") [Var 4,Var 5,Var 9,Var 8,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1048") 5 Private (TVar (-42)) (Rule [4,5,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1047") [Var 4,Var 5,Var 9,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1047") 4 Private (TVar (-42)) (Rule [4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1046") [Var 4,Var 5,Var 11,Var 10,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1046") 5 Private (TVar (-42)) (Rule [4,5,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1045") [Var 4,Var 5,Var 11,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1045") 4 Private (TVar (-42)) (Rule [4,5,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1044") [Var 4,Var 5,Var 13,Var 12,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1044") 5 Private (TVar (-42)) (Rule [4,5,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (LPattern (Charc 'g')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1043") [Var 4,Var 5,Var 13,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1043") 4 Private (TVar (-42)) (Rule [4,5,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 13) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1042") [Var 5,Var 4,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1042") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1041") [Var 5,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1041") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude",":") [14,15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1040") [Var 15,Var 14,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1040") 3 Private (TVar (-42)) (Rule [15,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 14) [Branch (Pattern ("XML","XElem") [16,17,18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1039") [Var 15,Var 17,Var 18,Var 16,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1039") 5 Private (TVar (-42)) (Rule [15,17,18,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 16) [Branch (Pattern ("Prelude",":") [19,20]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1038") [Var 15,Var 17,Var 18,Var 20,Var 19,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1038") 6 Private (TVar (-42)) (Rule [15,17,18,20,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 19) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1037") [Var 15,Var 17,Var 18,Var 20,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1037") 5 Private (TVar (-42)) (Rule [15,17,18,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 20) [Branch (Pattern ("Prelude",":") [21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1036") [Var 15,Var 17,Var 18,Var 22,Var 21,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1036") 6 Private (TVar (-42)) (Rule [15,17,18,22,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 21) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1035") [Var 15,Var 17,Var 18,Var 22,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1035") 5 Private (TVar (-42)) (Rule [15,17,18,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 22) [Branch (Pattern ("Prelude",":") [23,24]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1034") [Var 15,Var 17,Var 18,Var 24,Var 23,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1034") 6 Private (TVar (-42)) (Rule [15,17,18,24,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 23) [Branch (LPattern (Charc 'd')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1033") [Var 15,Var 17,Var 18,Var 24,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1033") 5 Private (TVar (-42)) (Rule [15,17,18,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 24) [Branch (Pattern ("Prelude",":") [25,26]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1032") [Var 15,Var 17,Var 18,Var 26,Var 25,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1032") 6 Private (TVar (-42)) (Rule [15,17,18,26,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 25) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1031") [Var 15,Var 17,Var 18,Var 26,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1031") 5 Private (TVar (-42)) (Rule [15,17,18,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 26) [Branch (Pattern ("Prelude",":") [27,28]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1030") [Var 15,Var 17,Var 18,Var 28,Var 27,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1030") 6 Private (TVar (-42)) (Rule [15,17,18,28,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 27) [Branch (LPattern (Charc 'l')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1029") [Var 15,Var 17,Var 18,Var 28,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1029") 5 Private (TVar (-42)) (Rule [15,17,18,28,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 28) [Branch (Pattern ("Prelude",":") [29,30]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1028") [Var 15,Var 17,Var 18,Var 30,Var 29,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1028") 6 Private (TVar (-42)) (Rule [15,17,18,30,29,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 29) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1027") [Var 15,Var 17,Var 18,Var 30,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1027") 5 Private (TVar (-42)) (Rule [15,17,18,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 30) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1026") [Var 15,Var 18,Var 17,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1026") 4 Private (TVar (-42)) (Rule [15,18,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 17) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1025") [Var 18,Var 15,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1025") 3 Private (TVar (-42)) (Rule [18,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 15) [Branch (Pattern ("Prelude",":") [31,32]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1024") [Var 18,Var 32,Var 31,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1024") 4 Private (TVar (-42)) (Rule [18,32,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 31) [Branch (Pattern ("XML","XElem") [33,34,35]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1023") [Var 18,Var 32,Var 34,Var 35,Var 33,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1023") 6 Private (TVar (-42)) (Rule [18,32,34,35,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 33) [Branch (Pattern ("Prelude",":") [36,37]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1022") [Var 18,Var 32,Var 34,Var 35,Var 37,Var 36,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1022") 7 Private (TVar (-42)) (Rule [18,32,34,35,37,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 36) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1021") [Var 18,Var 32,Var 34,Var 35,Var 37,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1021") 6 Private (TVar (-42)) (Rule [18,32,34,35,37,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 37) [Branch (Pattern ("Prelude",":") [38,39]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1020") [Var 18,Var 32,Var 34,Var 35,Var 39,Var 38,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1020") 7 Private (TVar (-42)) (Rule [18,32,34,35,39,38,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 38) [Branch (LPattern (Charc 'm')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1019") [Var 18,Var 32,Var 34,Var 35,Var 39,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1019") 6 Private (TVar (-42)) (Rule [18,32,34,35,39,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 39) [Branch (Pattern ("Prelude",":") [40,41]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1018") [Var 18,Var 32,Var 34,Var 35,Var 41,Var 40,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1018") 7 Private (TVar (-42)) (Rule [18,32,34,35,41,40,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 40) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1017") [Var 18,Var 32,Var 34,Var 35,Var 41,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1017") 6 Private (TVar (-42)) (Rule [18,32,34,35,41,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 41) [Branch (Pattern ("Prelude",":") [42,43]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1016") [Var 18,Var 32,Var 34,Var 35,Var 43,Var 42,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1016") 7 Private (TVar (-42)) (Rule [18,32,34,35,43,42,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 42) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1015") [Var 18,Var 32,Var 34,Var 35,Var 43,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1015") 6 Private (TVar (-42)) (Rule [18,32,34,35,43,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 43) [Branch (Pattern ("Prelude",":") [44,45]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1014") [Var 18,Var 32,Var 34,Var 35,Var 45,Var 44,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1014") 7 Private (TVar (-42)) (Rule [18,32,34,35,45,44,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 44) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1013") [Var 18,Var 32,Var 34,Var 35,Var 45,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1013") 6 Private (TVar (-42)) (Rule [18,32,34,35,45,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 45) [Branch (Pattern ("Prelude",":") [46,47]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1012") [Var 18,Var 32,Var 34,Var 35,Var 47,Var 46,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1012") 7 Private (TVar (-42)) (Rule [18,32,34,35,47,46,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 46) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1011") [Var 18,Var 32,Var 34,Var 35,Var 47,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1011") 6 Private (TVar (-42)) (Rule [18,32,34,35,47,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 47) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1010") [Var 18,Var 32,Var 35,Var 34,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1010") 5 Private (TVar (-42)) (Rule [18,32,35,34,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 34) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1009") [Var 18,Var 35,Var 32,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1009") 4 Private (TVar (-42)) (Rule [18,35,32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 32) [Branch (Pattern ("Prelude",":") [48,49]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1008") [Var 18,Var 35,Var 49,Var 48,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1008") 5 Private (TVar (-42)) (Rule [18,35,49,48,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 48) [Branch (Pattern ("XML","XElem") [50,51,52]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1007") [Var 18,Var 35,Var 49,Var 51,Var 52,Var 50,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1007") 7 Private (TVar (-42)) (Rule [18,35,49,51,52,50,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 50) [Branch (Pattern ("Prelude",":") [53,54]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1006") [Var 18,Var 35,Var 49,Var 51,Var 52,Var 54,Var 53,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1006") 8 Private (TVar (-42)) (Rule [18,35,49,51,52,54,53,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 53) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1005") [Var 18,Var 35,Var 49,Var 51,Var 52,Var 54,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1005") 7 Private (TVar (-42)) (Rule [18,35,49,51,52,54,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 54) [Branch (Pattern ("Prelude",":") [55,56]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1004") [Var 18,Var 35,Var 49,Var 51,Var 52,Var 56,Var 55,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1004") 8 Private (TVar (-42)) (Rule [18,35,49,51,52,56,55,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 55) [Branch (LPattern (Charc 'y')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1003") [Var 18,Var 35,Var 49,Var 51,Var 52,Var 56,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1003") 7 Private (TVar (-42)) (Rule [18,35,49,51,52,56,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 56) [Branch (Pattern ("Prelude",":") [57,58]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1002") [Var 18,Var 35,Var 49,Var 51,Var 52,Var 58,Var 57,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1002") 8 Private (TVar (-42)) (Rule [18,35,49,51,52,58,57,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 57) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1001") [Var 18,Var 35,Var 49,Var 51,Var 52,Var 58,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1001") 7 Private (TVar (-42)) (Rule [18,35,49,51,52,58,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 58) [Branch (Pattern ("Prelude",":") [59,60]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1000") [Var 18,Var 35,Var 49,Var 51,Var 52,Var 60,Var 59,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1000") 8 Private (TVar (-42)) (Rule [18,35,49,51,52,60,59,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 59) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_999") [Var 18,Var 35,Var 49,Var 51,Var 52,Var 60,Var 1]])]])),Func ("OracleFlatCurryXML","_case_999") 7 Private (TVar (-42)) (Rule [18,35,49,51,52,60,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 60) [Branch (Pattern ("Prelude",":") [61,62]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_998") [Var 18,Var 35,Var 49,Var 51,Var 52,Var 62,Var 61,Var 1]])]])),Func ("OracleFlatCurryXML","_case_998") 8 Private (TVar (-42)) (Rule [18,35,49,51,52,62,61,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 61) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_997") [Var 18,Var 35,Var 49,Var 51,Var 52,Var 62,Var 1]])]])),Func ("OracleFlatCurryXML","_case_997") 7 Private (TVar (-42)) (Rule [18,35,49,51,52,62,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 62) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_996") [Var 18,Var 35,Var 49,Var 52,Var 51,Var 1]])]])),Func ("OracleFlatCurryXML","_case_996") 6 Private (TVar (-42)) (Rule [18,35,49,52,51,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 51) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_995") [Var 18,Var 35,Var 52,Var 49,Var 1]])]])),Func ("OracleFlatCurryXML","_case_995") 5 Private (TVar (-42)) (Rule [18,35,52,49,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 49) [Branch (Pattern ("Prelude",":") [63,64]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_994") [Var 18,Var 35,Var 52,Var 64,Var 63,Var 1]])]])),Func ("OracleFlatCurryXML","_case_994") 6 Private (TVar (-42)) (Rule [18,35,52,64,63,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 63) [Branch (Pattern ("XML","XElem") [65,66,67]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_993") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 65,Var 1]])]])),Func ("OracleFlatCurryXML","_case_993") 8 Private (TVar (-42)) (Rule [18,35,52,64,66,67,65,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 65) [Branch (Pattern ("Prelude",":") [68,69]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_992") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 69,Var 68,Var 1]])]])),Func ("OracleFlatCurryXML","_case_992") 9 Private (TVar (-42)) (Rule [18,35,52,64,66,67,69,68,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 68) [Branch (LPattern (Charc 'f')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_991") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 69,Var 1]])]])),Func ("OracleFlatCurryXML","_case_991") 8 Private (TVar (-42)) (Rule [18,35,52,64,66,67,69,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 69) [Branch (Pattern ("Prelude",":") [70,71]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_990") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 71,Var 70,Var 1]])]])),Func ("OracleFlatCurryXML","_case_990") 9 Private (TVar (-42)) (Rule [18,35,52,64,66,67,71,70,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 70) [Branch (LPattern (Charc 'u')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_989") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 71,Var 1]])]])),Func ("OracleFlatCurryXML","_case_989") 8 Private (TVar (-42)) (Rule [18,35,52,64,66,67,71,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 71) [Branch (Pattern ("Prelude",":") [72,73]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_988") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 73,Var 72,Var 1]])]])),Func ("OracleFlatCurryXML","_case_988") 9 Private (TVar (-42)) (Rule [18,35,52,64,66,67,73,72,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 72) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_987") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 73,Var 1]])]])),Func ("OracleFlatCurryXML","_case_987") 8 Private (TVar (-42)) (Rule [18,35,52,64,66,67,73,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 73) [Branch (Pattern ("Prelude",":") [74,75]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_986") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 75,Var 74,Var 1]])]])),Func ("OracleFlatCurryXML","_case_986") 9 Private (TVar (-42)) (Rule [18,35,52,64,66,67,75,74,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 74) [Branch (LPattern (Charc 'c')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_985") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 75,Var 1]])]])),Func ("OracleFlatCurryXML","_case_985") 8 Private (TVar (-42)) (Rule [18,35,52,64,66,67,75,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 75) [Branch (Pattern ("Prelude",":") [76,77]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_984") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 77,Var 76,Var 1]])]])),Func ("OracleFlatCurryXML","_case_984") 9 Private (TVar (-42)) (Rule [18,35,52,64,66,67,77,76,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 76) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_983") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 77,Var 1]])]])),Func ("OracleFlatCurryXML","_case_983") 8 Private (TVar (-42)) (Rule [18,35,52,64,66,67,77,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 77) [Branch (Pattern ("Prelude",":") [78,79]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_982") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 79,Var 78,Var 1]])]])),Func ("OracleFlatCurryXML","_case_982") 9 Private (TVar (-42)) (Rule [18,35,52,64,66,67,79,78,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 78) [Branch (LPattern (Charc 'i')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_981") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 79,Var 1]])]])),Func ("OracleFlatCurryXML","_case_981") 8 Private (TVar (-42)) (Rule [18,35,52,64,66,67,79,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 79) [Branch (Pattern ("Prelude",":") [80,81]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_980") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 81,Var 80,Var 1]])]])),Func ("OracleFlatCurryXML","_case_980") 9 Private (TVar (-42)) (Rule [18,35,52,64,66,67,81,80,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 80) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_979") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 81,Var 1]])]])),Func ("OracleFlatCurryXML","_case_979") 8 Private (TVar (-42)) (Rule [18,35,52,64,66,67,81,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 81) [Branch (Pattern ("Prelude",":") [82,83]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_978") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 83,Var 82,Var 1]])]])),Func ("OracleFlatCurryXML","_case_978") 9 Private (TVar (-42)) (Rule [18,35,52,64,66,67,83,82,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 82) [Branch (LPattern (Charc 'n')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_977") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 83,Var 1]])]])),Func ("OracleFlatCurryXML","_case_977") 8 Private (TVar (-42)) (Rule [18,35,52,64,66,67,83,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 83) [Branch (Pattern ("Prelude",":") [84,85]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_976") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 85,Var 84,Var 1]])]])),Func ("OracleFlatCurryXML","_case_976") 9 Private (TVar (-42)) (Rule [18,35,52,64,66,67,85,84,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 84) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_975") [Var 18,Var 35,Var 52,Var 64,Var 66,Var 67,Var 85,Var 1]])]])),Func ("OracleFlatCurryXML","_case_975") 8 Private (TVar (-42)) (Rule [18,35,52,64,66,67,85,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 85) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_974") [Var 18,Var 35,Var 52,Var 64,Var 67,Var 66,Var 1]])]])),Func ("OracleFlatCurryXML","_case_974") 7 Private (TVar (-42)) (Rule [18,35,52,64,67,66,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 66) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_973") [Var 18,Var 35,Var 52,Var 67,Var 64,Var 1]])]])),Func ("OracleFlatCurryXML","_case_973") 6 Private (TVar (-42)) (Rule [18,35,52,67,64,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 64) [Branch (Pattern ("Prelude",":") [86,87]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_972") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 86,Var 1]])]])),Func ("OracleFlatCurryXML","_case_972") 7 Private (TVar (-42)) (Rule [18,35,52,67,87,86,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 86) [Branch (Pattern ("XML","XElem") [88,89,90]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_971") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 88,Var 1]])]])),Func ("OracleFlatCurryXML","_case_971") 9 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,88,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 88) [Branch (Pattern ("Prelude",":") [91,92]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_970") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 92,Var 91,Var 1]])]])),Func ("OracleFlatCurryXML","_case_970") 10 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,92,91,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 91) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_969") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 92,Var 1]])]])),Func ("OracleFlatCurryXML","_case_969") 9 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,92,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 92) [Branch (Pattern ("Prelude",":") [93,94]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_968") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 94,Var 93,Var 1]])]])),Func ("OracleFlatCurryXML","_case_968") 10 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,94,93,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 93) [Branch (LPattern (Charc 'p')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_967") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 94,Var 1]])]])),Func ("OracleFlatCurryXML","_case_967") 9 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,94,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 94) [Branch (Pattern ("Prelude",":") [95,96]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_966") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 96,Var 95,Var 1]])]])),Func ("OracleFlatCurryXML","_case_966") 10 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,96,95,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 95) [Branch (LPattern (Charc 'e')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_965") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 96,Var 1]])]])),Func ("OracleFlatCurryXML","_case_965") 9 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,96,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 96) [Branch (Pattern ("Prelude",":") [97,98]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_964") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 98,Var 97,Var 1]])]])),Func ("OracleFlatCurryXML","_case_964") 10 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,98,97,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 97) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_963") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 98,Var 1]])]])),Func ("OracleFlatCurryXML","_case_963") 9 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,98,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 98) [Branch (Pattern ("Prelude",":") [99,100]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_962") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 100,Var 99,Var 1]])]])),Func ("OracleFlatCurryXML","_case_962") 10 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,100,99,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 99) [Branch (LPattern (Charc 'a')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_961") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 100,Var 1]])]])),Func ("OracleFlatCurryXML","_case_961") 9 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,100,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 100) [Branch (Pattern ("Prelude",":") [101,102]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_960") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 102,Var 101,Var 1]])]])),Func ("OracleFlatCurryXML","_case_960") 10 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,102,101,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 101) [Branch (LPattern (Charc 't')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_959") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 102,Var 1]])]])),Func ("OracleFlatCurryXML","_case_959") 9 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,102,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 102) [Branch (Pattern ("Prelude",":") [103,104]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_958") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 104,Var 103,Var 1]])]])),Func ("OracleFlatCurryXML","_case_958") 10 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,104,103,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 103) [Branch (LPattern (Charc 'o')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_957") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 104,Var 1]])]])),Func ("OracleFlatCurryXML","_case_957") 9 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,104,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 104) [Branch (Pattern ("Prelude",":") [105,106]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_956") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 106,Var 105,Var 1]])]])),Func ("OracleFlatCurryXML","_case_956") 10 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,106,105,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 105) [Branch (LPattern (Charc 'r')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_955") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 106,Var 1]])]])),Func ("OracleFlatCurryXML","_case_955") 9 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,106,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 106) [Branch (Pattern ("Prelude",":") [107,108]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_954") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 108,Var 107,Var 1]])]])),Func ("OracleFlatCurryXML","_case_954") 10 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,108,107,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 107) [Branch (LPattern (Charc 's')) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_953") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 89,Var 90,Var 108,Var 1]])]])),Func ("OracleFlatCurryXML","_case_953") 9 Private (TVar (-42)) (Rule [18,35,52,67,87,89,90,108,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 108) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_952") [Var 18,Var 35,Var 52,Var 67,Var 87,Var 90,Var 89,Var 1]])]])),Func ("OracleFlatCurryXML","_case_952") 8 Private (TVar (-42)) (Rule [18,35,52,67,87,90,89,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 89) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_951") [Var 18,Var 35,Var 52,Var 67,Var 90,Var 87,Var 1]])]])),Func ("OracleFlatCurryXML","_case_951") 7 Private (TVar (-42)) (Rule [18,35,52,67,90,87,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 87) [Branch (Pattern ("Prelude","[]") []) (Let [(91,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(92,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(93,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(94,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 91,Comb ConsCall ("Prelude",":") [Var 92,Comb ConsCall ("Prelude",":") [Var 93,Comb ConsCall ("Prelude",":") [Var 94,Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("FlatCurry","Prog") [Comb FuncCall ("OracleXML","textOfXml") [Var 18,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xml2FlatCurry._#lambda5") []],Var 35,Var 91],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatx2typedecl") []],Var 52,Var 92],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xml2FlatCurry._#lambda6") []],Var 67,Var 93],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xml2FlatCurry._#lambda7") []],Var 90,Var 94]]]))]])),Func ("OracleFlatCurryXML","_case_1053") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Op") [3,4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryXML","qname2xmlattrs") [Var 3,Var 1],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 ("OraclePrelude","show") [Var 4,Var 6]],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 ("OraclePrelude","show") [Var 5,Var 7]],Comb ConsCall ("Prelude","[]") []]],Var 8],Comb ConsCall ("Prelude","[]") []]]))]])),Func ("OracleFlatCurryXML","_case_1055") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Branch") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1054") [Var 4,Var 3,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1054") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Pattern") [5,6]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleXML","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 ("OracleFlatCurryXML","qname2xmlattrs") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowVar") []],Var 6,Var 8]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowExpr") [Var 4,Var 9],Comb ConsCall ("Prelude","[]") []]],Var 10]])),Branch (Pattern ("FlatCurry","LPattern") [7]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleXML","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 ("OracleXML","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 ("OracleFlatCurryXML","xmlShowLit") [Var 7,Var 1],Comb ConsCall ("Prelude","[]") []],Var 11],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowExpr") [Var 4,Var 12],Comb ConsCall ("Prelude","[]") []]],Var 13]]))]])),Func ("OracleFlatCurryXML","_case_1056") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Intc") [3]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","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 ("OracleXML","xtxt") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Var 6],Comb ConsCall ("Prelude","[]") []],Var 7]])),Branch (Pattern ("FlatCurry","Floatc") [4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","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 ("OracleXML","xtxt") [Comb FuncCall ("OraclePrelude","show") [Var 4,Var 1],Var 8],Comb ConsCall ("Prelude","[]") []],Var 9]])),Branch (Pattern ("FlatCurry","Charc") [5]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleXML","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 ("OracleXML","xtxt") [Comb FuncCall ("OraclePrelude","show") [Comb FuncCall ("OraclePrelude","ord") [Var 5,Var 1],Var 10],Var 11],Comb ConsCall ("Prelude","[]") []],Var 12]]))]])),Func ("OracleFlatCurryXML","_case_1057") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","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 ("OracleFlatCurryXML","xmlShowVar") [Var 3,Var 1],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowExpr") [Var 4,Var 5],Comb ConsCall ("Prelude","[]") []]],Var 6]]))]])),Func ("OracleFlatCurryXML","_case_1060") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Var") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","xmlShowVar") [Var 3,Var 1]]),Branch (Pattern ("FlatCurry","Lit") [4]) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","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 ("OracleFlatCurryXML","xmlShowLit") [Var 4,Var 1],Comb ConsCall ("Prelude","[]") []],Var 19]])),Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","_case_1059") [Var 6,Var 7,Var 5,Var 1]]),Branch (Pattern ("FlatCurry","Free") [10,11]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleXML","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 ("OracleXML","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 ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowVar") []],Var 10,Var 1],Var 20],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowExpr") [Var 11,Var 21],Comb ConsCall ("Prelude","[]") []]],Var 22]])),Branch (Pattern ("FlatCurry","Or") [12,13]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowExpr") [Var 12,Var 1],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowExpr") [Var 13,Var 23],Comb ConsCall ("Prelude","[]") []]],Var 24]])),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("XML","XElem") [Comb FuncCall ("OracleFlatCurryXML","_case_1058") [Var 14,Comb FuncCall ("OraclePrelude","==") [Var 14,Comb ConsCall ("FlatCurry","Flex") [],Var 1],Var 25],Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowExpr") [Var 15,Var 26],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowBranch") []],Var 16,Var 27],Var 28]]])),Branch (Pattern ("FlatCurry","Let") [17,18]) (Let [(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleXML","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 ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowExpr._#lambda3") []],Var 17,Var 1],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowExpr") [Var 18,Var 29],Comb ConsCall ("Prelude","[]") []],Var 30],Var 31]]))]])),Func ("OracleFlatCurryXML","_case_1058") 3 Private (TVar (-42)) (Rule [14,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 15) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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","[]") []]]]]])]])),Func ("OracleFlatCurryXML","_case_1059") 4 Private (TVar (-42)) (Rule [6,7,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FlatCurry","FuncCall") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],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 ("OracleFlatCurryXML","qname2xmlattrs") [Var 6,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowExpr") []],Var 7,Var 10]]])),Branch (Pattern ("FlatCurry","ConsCall") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],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 ("OracleFlatCurryXML","qname2xmlattrs") [Var 6,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowExpr") []],Var 7,Var 11]]])),Branch (Pattern ("FlatCurry","FuncPartCall") [8]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]],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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryXML","qname2xmlattrs") [Var 6,Var 1],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 ("OraclePrelude","show") [Var 8,Var 12]],Comb ConsCall ("Prelude","[]") []],Var 13],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowExpr") []],Var 7,Var 14]]])),Branch (Pattern ("FlatCurry","ConsPartCall") [9]) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]],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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryXML","qname2xmlattrs") [Var 6,Var 1],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 ("OraclePrelude","show") [Var 9,Var 15]],Comb ConsCall ("Prelude","[]") []],Var 16],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowExpr") []],Var 7,Var 17]]]))]])),Func ("OracleFlatCurryXML","_case_1061") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Rule") [3,4]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleXML","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 ("OracleXML","xml") [Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowVar") []],Var 3,Var 1],Var 6],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleXML","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 ("OracleFlatCurryXML","xmlShowExpr") [Var 4,Var 7],Comb ConsCall ("Prelude","[]") []],Var 8],Comb ConsCall ("Prelude","[]") []]],Var 9]])),Branch (Pattern ("FlatCurry","External") [5]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","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 ("OracleXML","xtxt") [Var 5,Var 1],Comb ConsCall ("Prelude","[]") []],Var 10]]))]])),Func ("OracleFlatCurryXML","_case_1062") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Func") [3,4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]]]],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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryXML","qname2xmlattrs") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 4,Var 8]],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryXML","xmlShowVisibity") [Var 5,Var 9],Var 10],Var 11],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowTypeExpr") [Var 6,Var 12],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowRule") [Var 7,Var 13],Comb ConsCall ("Prelude","[]") []]]]]))]])),Func ("OracleFlatCurryXML","_case_1063") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","FuncType") [3,4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","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 ("OracleFlatCurryXML","xmlShowTypeExpr") [Var 3,Var 1],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowTypeExpr") [Var 4,Var 8],Comb ConsCall ("Prelude","[]") []]],Var 9]])),Branch (Pattern ("FlatCurry","TCons") [5,6]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],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 ("OracleFlatCurryXML","qname2xmlattrs") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowTypeExpr") []],Var 6,Var 10]]])),Branch (Pattern ("FlatCurry","TVar") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryXML","xmlShowTVar") [Var 7,Var 1]])]])),Func ("OracleFlatCurryXML","_case_1064") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Cons") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]],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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryXML","qname2xmlattrs") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","show") [Var 4,Var 7]],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleFlatCurryXML","xmlShowVisibity") [Var 5,Var 8],Var 9],Var 10],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowTypeExpr") []],Var 6,Var 11]]]))]])),Func ("OracleFlatCurryXML","_case_1065") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Type") [3,4,5,6]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]]]],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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryXML","qname2xmlattrs") [Var 3,Var 1],Comb FuncCall ("OracleFlatCurryXML","xmlShowVisibity") [Var 4,Var 11],Var 12],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleXML","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 ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowTVar") []],Var 5,Var 13],Var 14],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowCons") []],Var 6,Var 15],Var 16]]])),Branch (Pattern ("FlatCurry","TypeSyn") [7,8,9,10]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]]]],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 ("OraclePrelude","++") [Comb FuncCall ("OracleFlatCurryXML","qname2xmlattrs") [Var 7,Var 1],Comb FuncCall ("OracleFlatCurryXML","xmlShowVisibity") [Var 8,Var 17],Var 18],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleXML","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 ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowTVar") []],Var 9,Var 19],Var 20],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleFlatCurryXML","xmlShowTypeExpr") [Var 10,Var 21],Comb ConsCall ("Prelude","[]") []]]]]))]])),Func ("OracleFlatCurryXML","_case_1066") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Public") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleFlatCurryXML","_case_1067") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 3],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 4],Comb ConsCall ("Prelude","[]") []]]])]])),Func ("OracleFlatCurryXML","_case_1068") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Prog") [3,4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("OracleXML","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 ("OracleXML","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 ("OracleXML","xtxt") [Var 3,Var 1],Comb ConsCall ("Prelude","[]") []],Var 8],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleXML","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 ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","flatCurry2Xml._#lambda2") []],Var 4,Var 9],Var 10],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleXML","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 ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowType") []],Var 5,Var 11],Var 12],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleXML","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 ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowFunc") []],Var 6,Var 13],Var 14],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleXML","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 ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlatCurryXML","xmlShowOp") []],Var 7,Var 15],Var 16],Comb ConsCall ("Prelude","[]") []]]]]],Var 17]]))]]))] []
+ Curry/Module/OracleFlexRigid.fcy view
@@ -0,0 +1,1 @@+Prog "OracleFlexRigid" ["CEventOracle","Oracle","IOExts","FlexRigid","FlatCurry","Prelude","OracleFlatCurry","OraclePrelude"] [] [Func ("OracleFlexRigid","getFlexRigid") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlexRigid","FlexRigidResult") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlexRigid","_case_7") [Var 2,Var 1]])),Func ("OracleFlexRigid","getFlexRigid._#lambda2") 2 Private (FuncType (TCons ("FlatCurry","BranchExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlexRigid","_case_5") [Var 2,Var 1]])),Func ("OracleFlexRigid","joinCaseTypes") 3 Private (FuncType (TCons ("FlexRigid","FlexRigidResult") []) (FuncType (TCons ("FlexRigid","FlexRigidResult") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlexRigid","FlexRigidResult") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlexRigid","_case_4") [Var 3,Var 2,Var 1]])),Func ("OracleFlexRigid","_case_4") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlexRigid","ConflictFR") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlexRigid","_case_3") [Var 3,Var 1]]),Branch (Pattern ("FlexRigid","UnknownFR") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlexRigid","_case_2") [Var 3,Var 1]]),Branch (Pattern ("FlexRigid","KnownFlex") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlexRigid","_case_1") [Var 3,Var 1]]),Branch (Pattern ("FlexRigid","KnownRigid") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlexRigid","_case_0") [Var 3,Var 1]])]])),Func ("OracleFlexRigid","_case_0") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlexRigid","ConflictFR") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","ConflictFR") []]),Branch (Pattern ("FlexRigid","UnknownFR") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","KnownRigid") []]),Branch (Pattern ("FlexRigid","KnownFlex") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","ConflictFR") []]),Branch (Pattern ("FlexRigid","KnownRigid") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","KnownRigid") []])]])),Func ("OracleFlexRigid","_case_1") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlexRigid","ConflictFR") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","ConflictFR") []]),Branch (Pattern ("FlexRigid","UnknownFR") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","KnownFlex") []]),Branch (Pattern ("FlexRigid","KnownFlex") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","KnownFlex") []]),Branch (Pattern ("FlexRigid","KnownRigid") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","ConflictFR") []])]])),Func ("OracleFlexRigid","_case_2") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlexRigid","ConflictFR") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","ConflictFR") []]),Branch (Pattern ("FlexRigid","UnknownFR") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","UnknownFR") []]),Branch (Pattern ("FlexRigid","KnownFlex") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","KnownFlex") []]),Branch (Pattern ("FlexRigid","KnownRigid") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","KnownRigid") []])]])),Func ("OracleFlexRigid","_case_3") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlexRigid","ConflictFR") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","ConflictFR") []]),Branch (Pattern ("FlexRigid","UnknownFR") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","ConflictFR") []]),Branch (Pattern ("FlexRigid","KnownFlex") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","ConflictFR") []]),Branch (Pattern ("FlexRigid","KnownRigid") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","ConflictFR") []])]])),Func ("OracleFlexRigid","_case_5") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Branch") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFlexRigid","_case_7") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Var") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","UnknownFR") []]),Branch (Pattern ("FlatCurry","Lit") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","UnknownFR") []]),Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlexRigid","joinCaseTypes") []],Comb ConsCall ("FlexRigid","UnknownFR") [],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlexRigid","getFlexRigid") []],Var 7,Var 1],Var 17]])),Branch (Pattern ("FlatCurry","Let") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlexRigid","getFlexRigid") [Var 9,Var 1]]),Branch (Pattern ("FlatCurry","Free") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlexRigid","getFlexRigid") [Var 11,Var 1]]),Branch (Pattern ("FlatCurry","Or") [12,13]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlexRigid","joinCaseTypes") [Comb FuncCall ("OracleFlexRigid","getFlexRigid") [Var 12,Var 1],Comb FuncCall ("OracleFlexRigid","getFlexRigid") [Var 13,Var 18],Var 19]])),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlexRigid","joinCaseTypes") []],Comb FuncCall ("OracleFlexRigid","_case_6") [Var 14,Comb FuncCall ("OraclePrelude","==") [Var 14,Comb ConsCall ("FlatCurry","Flex") [],Var 1],Var 20],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlexRigid","getFlexRigid") []],Comb ConsCall ("Prelude",":") [Var 15,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlexRigid","getFlexRigid._#lambda2") []],Var 16,Var 21]],Var 22],Var 23]]))]])),Func ("OracleFlexRigid","_case_6") 3 Private (TVar (-42)) (Rule [14,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 15) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","KnownFlex") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","KnownRigid") []])]]))] []
+ Curry/Module/OracleFlexRigid.fint view
@@ -0,0 +1,1 @@+Prog "OracleFlexRigid" ["CEventOracle","Oracle","IOExts","FlexRigid","FlatCurry","Prelude","OracleFlatCurry","OraclePrelude"] [] [Func ("OracleFlexRigid","getFlexRigid") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlexRigid","FlexRigidResult") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlexRigid","_case_7") [Var 2,Var 1]])),Func ("OracleFlexRigid","getFlexRigid._#lambda2") 2 Private (FuncType (TCons ("FlatCurry","BranchExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlexRigid","_case_5") [Var 2,Var 1]])),Func ("OracleFlexRigid","joinCaseTypes") 3 Private (FuncType (TCons ("FlexRigid","FlexRigidResult") []) (FuncType (TCons ("FlexRigid","FlexRigidResult") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlexRigid","FlexRigidResult") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlexRigid","_case_4") [Var 3,Var 2,Var 1]])),Func ("OracleFlexRigid","_case_4") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlexRigid","ConflictFR") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlexRigid","_case_3") [Var 3,Var 1]]),Branch (Pattern ("FlexRigid","UnknownFR") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlexRigid","_case_2") [Var 3,Var 1]]),Branch (Pattern ("FlexRigid","KnownFlex") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlexRigid","_case_1") [Var 3,Var 1]]),Branch (Pattern ("FlexRigid","KnownRigid") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlexRigid","_case_0") [Var 3,Var 1]])]])),Func ("OracleFlexRigid","_case_0") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlexRigid","ConflictFR") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","ConflictFR") []]),Branch (Pattern ("FlexRigid","UnknownFR") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","KnownRigid") []]),Branch (Pattern ("FlexRigid","KnownFlex") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","ConflictFR") []]),Branch (Pattern ("FlexRigid","KnownRigid") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","KnownRigid") []])]])),Func ("OracleFlexRigid","_case_1") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlexRigid","ConflictFR") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","ConflictFR") []]),Branch (Pattern ("FlexRigid","UnknownFR") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","KnownFlex") []]),Branch (Pattern ("FlexRigid","KnownFlex") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","KnownFlex") []]),Branch (Pattern ("FlexRigid","KnownRigid") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","ConflictFR") []])]])),Func ("OracleFlexRigid","_case_2") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlexRigid","ConflictFR") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","ConflictFR") []]),Branch (Pattern ("FlexRigid","UnknownFR") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","UnknownFR") []]),Branch (Pattern ("FlexRigid","KnownFlex") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","KnownFlex") []]),Branch (Pattern ("FlexRigid","KnownRigid") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","KnownRigid") []])]])),Func ("OracleFlexRigid","_case_3") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlexRigid","ConflictFR") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","ConflictFR") []]),Branch (Pattern ("FlexRigid","UnknownFR") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","ConflictFR") []]),Branch (Pattern ("FlexRigid","KnownFlex") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","ConflictFR") []]),Branch (Pattern ("FlexRigid","KnownRigid") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","ConflictFR") []])]])),Func ("OracleFlexRigid","_case_5") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Branch") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleFlexRigid","_case_7") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Var") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","UnknownFR") []]),Branch (Pattern ("FlatCurry","Lit") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","UnknownFR") []]),Branch (Pattern ("FlatCurry","Comb") [5,6,7]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlexRigid","joinCaseTypes") []],Comb ConsCall ("FlexRigid","UnknownFR") [],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlexRigid","getFlexRigid") []],Var 7,Var 1],Var 17]])),Branch (Pattern ("FlatCurry","Let") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlexRigid","getFlexRigid") [Var 9,Var 1]]),Branch (Pattern ("FlatCurry","Free") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlexRigid","getFlexRigid") [Var 11,Var 1]]),Branch (Pattern ("FlatCurry","Or") [12,13]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleFlexRigid","joinCaseTypes") [Comb FuncCall ("OracleFlexRigid","getFlexRigid") [Var 12,Var 1],Comb FuncCall ("OracleFlexRigid","getFlexRigid") [Var 13,Var 18],Var 19]])),Branch (Pattern ("FlatCurry","Case") [14,15,16]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFlexRigid","joinCaseTypes") []],Comb FuncCall ("OracleFlexRigid","_case_6") [Var 14,Comb FuncCall ("OraclePrelude","==") [Var 14,Comb ConsCall ("FlatCurry","Flex") [],Var 1],Var 20],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlexRigid","getFlexRigid") []],Comb ConsCall ("Prelude",":") [Var 15,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFlexRigid","getFlexRigid._#lambda2") []],Var 16,Var 21]],Var 22],Var 23]]))]])),Func ("OracleFlexRigid","_case_6") 3 Private (TVar (-42)) (Rule [14,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 15) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","KnownFlex") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlexRigid","KnownRigid") []])]]))] []
+ Curry/Module/OracleFloat.fcy view
@@ -0,0 +1,1 @@+Prog "OracleFloat" ["CEventOracle","Oracle","IOExts","Float","Prelude","OraclePrelude"] [] [Func ("OracleFloat","+.") 3 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFloat","prim_Float_plus") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleFloat","-.") 3 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFloat","prim_Float_minus") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleFloat","*.") 3 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFloat","prim_Float_times") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleFloat","/.") 3 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFloat","prim_Float_divide") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleFloat","<.") 3 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFloat","prim_Float_lt") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleFloat",">.") 3 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFloat","prim_Float_gt") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleFloat","<=.") 3 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFloat","prim_Float_leq") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleFloat",">=.") 3 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFloat","prim_Float_geq") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleFloat","i2f") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFloat","prim_i2f") []],Var 2,Var 1]])),Func ("OracleFloat","truncate") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFloat","prim_truncate") []],Var 2,Var 1]])),Func ("OracleFloat","round") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFloat","prim_round") []],Var 2,Var 1]])),Func ("OracleFloat","sqrt") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFloat","prim_sqrt") []],Var 2,Var 1]])),Func ("OracleFloat","log") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFloat","prim_log") []],Var 2,Var 1]])),Func ("OracleFloat","exp") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFloat","prim_exp") []],Var 2,Var 1]])),Func ("OracleFloat","sin") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFloat","prim_sin") []],Var 2,Var 1]])),Func ("OracleFloat","cos") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFloat","prim_cos") []],Var 2,Var 1]])),Func ("OracleFloat","tan") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFloat","prim_tan") []],Var 2,Var 1]])),Func ("OracleFloat","atan") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFloat","prim_atan") []],Var 2,Var 1]])),Func ("OracleFloat","prim_Float_plus") 3 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_Float_plus") [Var 3,Var 2]])),Func ("OracleFloat","prim_Float_minus") 3 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_Float_minus") [Var 3,Var 2]])),Func ("OracleFloat","prim_Float_times") 3 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_Float_times") [Var 3,Var 2]])),Func ("OracleFloat","prim_Float_divide") 3 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_Float_divide") [Var 3,Var 2]])),Func ("OracleFloat","prim_Float_lt") 3 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_Float_lt") [Var 3,Var 2]])),Func ("OracleFloat","prim_Float_gt") 3 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_Float_gt") [Var 3,Var 2]])),Func ("OracleFloat","prim_Float_leq") 3 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_Float_leq") [Var 3,Var 2]])),Func ("OracleFloat","prim_Float_geq") 3 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_Float_geq") [Var 3,Var 2]])),Func ("OracleFloat","prim_i2f") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_i2f") [Var 2]])),Func ("OracleFloat","prim_truncate") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_truncate") [Var 2]])),Func ("OracleFloat","prim_round") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_round") [Var 2]])),Func ("OracleFloat","prim_sqrt") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_sqrt") [Var 2]])),Func ("OracleFloat","prim_log") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_log") [Var 2]])),Func ("OracleFloat","prim_exp") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_exp") [Var 2]])),Func ("OracleFloat","prim_sin") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_sin") [Var 2]])),Func ("OracleFloat","prim_cos") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_cos") [Var 2]])),Func ("OracleFloat","prim_tan") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_tan") [Var 2]])),Func ("OracleFloat","prim_atan") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_atan") [Var 2]]))] [Op ("OracleFloat","*.") InfixlOp 7,Op ("OracleFloat","/.") InfixlOp 7,Op ("OracleFloat","+.") InfixlOp 6,Op ("OracleFloat","-.") InfixlOp 6,Op ("OracleFloat","<.") InfixOp 4,Op ("OracleFloat",">.") InfixOp 4,Op ("OracleFloat","<=.") InfixOp 4,Op ("OracleFloat",">=.") InfixOp 4]
+ Curry/Module/OracleFloat.fint view
@@ -0,0 +1,1 @@+Prog "OracleFloat" ["CEventOracle","Oracle","IOExts","Float","Prelude","OraclePrelude"] [] [Func ("OracleFloat","+.") 3 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFloat","prim_Float_plus") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleFloat","-.") 3 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFloat","prim_Float_minus") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleFloat","*.") 3 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFloat","prim_Float_times") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleFloat","/.") 3 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFloat","prim_Float_divide") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleFloat","<.") 3 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFloat","prim_Float_lt") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleFloat",">.") 3 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFloat","prim_Float_gt") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleFloat","<=.") 3 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFloat","prim_Float_leq") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleFloat",">=.") 3 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleFloat","prim_Float_geq") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleFloat","i2f") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFloat","prim_i2f") []],Var 2,Var 1]])),Func ("OracleFloat","truncate") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFloat","prim_truncate") []],Var 2,Var 1]])),Func ("OracleFloat","round") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFloat","prim_round") []],Var 2,Var 1]])),Func ("OracleFloat","sqrt") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFloat","prim_sqrt") []],Var 2,Var 1]])),Func ("OracleFloat","log") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFloat","prim_log") []],Var 2,Var 1]])),Func ("OracleFloat","exp") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFloat","prim_exp") []],Var 2,Var 1]])),Func ("OracleFloat","sin") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFloat","prim_sin") []],Var 2,Var 1]])),Func ("OracleFloat","cos") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFloat","prim_cos") []],Var 2,Var 1]])),Func ("OracleFloat","tan") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFloat","prim_tan") []],Var 2,Var 1]])),Func ("OracleFloat","atan") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleFloat","prim_atan") []],Var 2,Var 1]])),Func ("OracleFloat","prim_Float_plus") 3 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_Float_plus") [Var 3,Var 2]])),Func ("OracleFloat","prim_Float_minus") 3 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_Float_minus") [Var 3,Var 2]])),Func ("OracleFloat","prim_Float_times") 3 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_Float_times") [Var 3,Var 2]])),Func ("OracleFloat","prim_Float_divide") 3 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_Float_divide") [Var 3,Var 2]])),Func ("OracleFloat","prim_Float_lt") 3 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_Float_lt") [Var 3,Var 2]])),Func ("OracleFloat","prim_Float_gt") 3 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_Float_gt") [Var 3,Var 2]])),Func ("OracleFloat","prim_Float_leq") 3 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_Float_leq") [Var 3,Var 2]])),Func ("OracleFloat","prim_Float_geq") 3 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_Float_geq") [Var 3,Var 2]])),Func ("OracleFloat","prim_i2f") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_i2f") [Var 2]])),Func ("OracleFloat","prim_truncate") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_truncate") [Var 2]])),Func ("OracleFloat","prim_round") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_round") [Var 2]])),Func ("OracleFloat","prim_sqrt") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_sqrt") [Var 2]])),Func ("OracleFloat","prim_log") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_log") [Var 2]])),Func ("OracleFloat","prim_exp") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_exp") [Var 2]])),Func ("OracleFloat","prim_sin") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_sin") [Var 2]])),Func ("OracleFloat","prim_cos") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_cos") [Var 2]])),Func ("OracleFloat","prim_tan") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_tan") [Var 2]])),Func ("OracleFloat","prim_atan") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Float") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Float","prim_atan") [Var 2]]))] [Op ("OracleFloat","*.") InfixlOp 7,Op ("OracleFloat","/.") InfixlOp 7,Op ("OracleFloat","+.") InfixlOp 6,Op ("OracleFloat","-.") InfixlOp 6,Op ("OracleFloat","<.") InfixOp 4,Op ("OracleFloat",">.") InfixOp 4,Op ("OracleFloat","<=.") InfixOp 4,Op ("OracleFloat",">=.") InfixOp 4]
+ Curry/Module/OracleGlobal.fcy view
@@ -0,0 +1,1 @@+Prog "OracleGlobal" ["CEventOracle","Oracle","IOExts","Global","Prelude","OraclePrelude"] [] [Func ("OracleGlobal","readGlobal") 2 Public (FuncType (TCons ("Global","Global") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGlobal","prim_readGlobal") []],Var 2,Var 1]])),Func ("OracleGlobal","writeGlobal") 3 Public (FuncType (TCons ("Global","Global") [TVar 0]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGlobal","prim_writeGlobal") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleGlobal","prim_readGlobal") 2 Private (FuncType (TCons ("Global","Global") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Global","prim_readGlobal") [Var 2]]]])),Func ("OracleGlobal","prim_writeGlobal") 3 Private (FuncType (TCons ("Global","Global") [TVar 0]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Global","prim_writeGlobal") [Var 3,Var 2]]]))] []
+ Curry/Module/OracleGlobal.fint view
@@ -0,0 +1,1 @@+Prog "OracleGlobal" ["CEventOracle","Oracle","IOExts","Global","Prelude","OraclePrelude"] [] [Func ("OracleGlobal","readGlobal") 2 Public (FuncType (TCons ("Global","Global") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGlobal","prim_readGlobal") []],Var 2,Var 1]])),Func ("OracleGlobal","writeGlobal") 3 Public (FuncType (TCons ("Global","Global") [TVar 0]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGlobal","prim_writeGlobal") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleGlobal","prim_readGlobal") 2 Private (FuncType (TCons ("Global","Global") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Global","prim_readGlobal") [Var 2]]]])),Func ("OracleGlobal","prim_writeGlobal") 3 Private (FuncType (TCons ("Global","Global") [TVar 0]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Global","prim_writeGlobal") [Var 3,Var 2]]]))] []
+ Curry/Module/OracleGraphInductive.fcy view
@@ -0,0 +1,1 @@+Prog "OracleGraphInductive" ["CEventOracle","Oracle","IOExts","GraphInductive","FiniteMap","Maybe","Prelude","Sort","OracleFiniteMap","OracleMaybe","OraclePrelude","OracleSort"] [TypeSyn ("OracleGraphInductive","GDecomp") Public [0,1] (TCons ("Prelude","(,)") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]]],TCons ("GraphInductive","Graph") [TVar 0,TVar 1]]),TypeSyn ("OracleGraphInductive","Decomp") Public [0,1] (TCons ("Prelude","(,)") [TCons ("Prelude","Maybe") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]]]],TCons ("GraphInductive","Graph") [TVar 0,TVar 1]]),TypeSyn ("OracleGraphInductive","GraphRep") Private [0,1] (TCons ("FiniteMap","FM") [TCons ("Prelude","Int") [],TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]],TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]]]]),TypeSyn ("OracleGraphInductive","UGr") Public [] (TCons ("GraphInductive","Graph") [TCons ("Prelude","()") [],TCons ("Prelude","()") []]),Type ("OracleGraphInductive","Graph") Public [0,1] [Cons ("OracleGraphInductive","Gr") 1 Private [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","Int") [],TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]],TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]]]]]]] [Func ("OracleGraphInductive",":&") 3 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 1,TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TVar 1,TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_99") [Var 3,Var 2,Var 1]])),Func ("OracleGraphInductive","matchAny") 2 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]]],TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_95") [Var 2,Var 1]])),Func ("OracleGraphInductive","empty") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleGraphInductive","Gr") [Comb FuncCall ("OracleFiniteMap","emptyFM") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","<") []],Var 1]]])),Func ("OracleGraphInductive","mkGraph") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 1]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","insEdges") [Var 3]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","insNodes") [Var 2]],Var 1],Comb FuncCall ("OracleGraphInductive","empty") [Var 4],Var 5]]))),Func ("OracleGraphInductive","buildGr") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]]) (TCons ("OracleGraphInductive","Graph") [TVar 1,TVar 0])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive",":&") []],Comb FuncCall ("OracleGraphInductive","empty") [Var 1]]]])),Func ("OracleGraphInductive","mkUGraph") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TCons ("Prelude","()") [],TCons ("Prelude","()") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleGraphInductive","mkGraph") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive","labUNodes") [Var 1],Var 2,Var 4],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive","labUEdges") [Var 5],Var 3,Var 6],Var 7]]))),Func ("OracleGraphInductive","insNode") 2 Public (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_89") [Var 2,Var 1]])),Func ("OracleGraphInductive","insEdge") 3 Public (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 0]) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 1,TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TVar 1,TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_88") [Var 3,Var 2,Var 1]])),Func ("OracleGraphInductive","insEdge._#selFP3#pr") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Maybe") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 213,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 212,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 213,TCons ("Prelude","Int") []]]]],TCons ("OracleGraphInductive","Graph") [TVar 212,TVar 213]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 213,TCons ("Prelude","Int") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_87") [Var 2,Var 1]])),Func ("OracleGraphInductive","insEdge._#selFP4#la") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Maybe") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 213,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 212,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 213,TCons ("Prelude","Int") []]]]],TCons ("OracleGraphInductive","Graph") [TVar 212,TVar 213]]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 212))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_84") [Var 2,Var 1]])),Func ("OracleGraphInductive","insEdge._#selFP5#su") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Maybe") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 213,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 212,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 213,TCons ("Prelude","Int") []]]]],TCons ("OracleGraphInductive","Graph") [TVar 212,TVar 213]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 213,TCons ("Prelude","Int") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_81") [Var 2,Var 1]])),Func ("OracleGraphInductive","insEdge._#selFP6#g'") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Maybe") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 213,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 212,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 213,TCons ("Prelude","Int") []]]]],TCons ("OracleGraphInductive","Graph") [TVar 212,TVar 213]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TVar 212,TVar 213]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_78") [Var 2,Var 1]])),Func ("OracleGraphInductive","delNode") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","delNodes") [Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []]]]])),Func ("OracleGraphInductive","delEdge") 3 Public (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_75") [Var 3,Var 2,Var 1]])),Func ("OracleGraphInductive","insNodes") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]]) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldr") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","insNode") []],Var 3,Var 2,Var 1]])),Func ("OracleGraphInductive","insEdges") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 0]]) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 1,TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TVar 1,TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","insEdge") []],Var 3,Var 2,Var 1]])),Func ("OracleGraphInductive","delNodes") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_71") [Var 3,Var 2,Var 1]])),Func ("OracleGraphInductive","delEdges") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","delEdge") []],Var 3,Var 2,Var 1]])),Func ("OracleGraphInductive","isEmpty") 2 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_70") [Var 2,Var 1]])),Func ("OracleGraphInductive","match") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Maybe") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]]]],TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_69") [Var 2,Var 3,Var 1]])),Func ("OracleGraphInductive","match._#lambda5") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","Int") [],TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 146,TCons ("Prelude","Int") []]],TVar 148,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 146,TCons ("Prelude","Int") []]]]],TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 146,TCons ("Prelude","Int") []]],TVar 148,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 146,TCons ("Prelude","Int") []]]]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Maybe") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 146,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 148,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 146,TCons ("Prelude","Int") []]]]],TCons ("OracleGraphInductive","Graph") [TVar 148,TVar 146]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_68") [Var 2,Var 3,Var 1]])),Func ("OracleGraphInductive","noNodes") 2 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_65") [Var 2,Var 1]])),Func ("OracleGraphInductive","nodeRange") 2 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_64") [Var 2,Var 1]])),Func ("OracleGraphInductive","context") 3 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_61") [Var 2,Var 3,Comb FuncCall ("OracleGraphInductive","match") [Var 3,Var 2,Var 1],Var 4]]))),Func ("OracleGraphInductive","lab") 3 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TVar 0])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleMaybe",">>-") [Comb FuncCall ("OraclePrelude","fst") [Comb FuncCall ("OracleGraphInductive","match") [Var 3,Var 2,Var 1],Var 4],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude","Just") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","lab'") []],Var 5],Var 6]]))),Func ("OracleGraphInductive","neighbors") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive",".:") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","neighbors._#lambda7") []],Var 2],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","context") []],Var 3]]))),Func ("OracleGraphInductive","neighbors._#lambda7") 2 Private (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 416,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 415,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 416,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_59") [Var 2,Var 1]])),Func ("OracleGraphInductive","suc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive",".:") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []]]],Var 2],Comb FuncCall ("OracleGraphInductive","context4") [Var 3],Var 4]]))),Func ("OracleGraphInductive","pre") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive",".:") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []]]],Var 2],Comb FuncCall ("OracleGraphInductive","context1") [Var 3],Var 4]]))),Func ("OracleGraphInductive","lsuc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 1]])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive",".:") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","flip2") []]]],Var 2],Comb FuncCall ("OracleGraphInductive","context4") [Var 3],Var 4]]))),Func ("OracleGraphInductive","lpre") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 1]])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive",".:") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","flip2") []]]],Var 2],Comb FuncCall ("OracleGraphInductive","context1") [Var 3],Var 4]]))),Func ("OracleGraphInductive","out") 3 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 1]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","out._#lambda8") [Var 3]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive","context4") [Var 1],Var 2,Var 4],Var 3,Var 5],Var 6]]))),Func ("OracleGraphInductive","out._#lambda8") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","(,)") [TVar 511,TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 511])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_58") [Var 2,Var 3,Var 1]])),Func ("OracleGraphInductive","inn") 3 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 1]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","inn._#lambda9") [Var 3]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive","context1") [Var 1],Var 2,Var 4],Var 3,Var 5],Var 6]]))),Func ("OracleGraphInductive","inn._#lambda9") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","(,)") [TVar 521,TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 521])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_57") [Var 2,Var 3,Var 1]])),Func ("OracleGraphInductive","outdeg") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive",".:") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","length") []],Var 2],Comb FuncCall ("OracleGraphInductive","context4") [Var 3],Var 4]]))),Func ("OracleGraphInductive","indeg") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive",".:") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","length") []],Var 2],Comb FuncCall ("OracleGraphInductive","context1") [Var 3],Var 4]]))),Func ("OracleGraphInductive","deg") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive",".:") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","deg._#lambda10") []],Var 2],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","context") []],Var 3]]))),Func ("OracleGraphInductive","deg._#lambda10") 2 Private (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 553,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 552,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 553,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_56") [Var 2,Var 1]])),Func ("OracleGraphInductive","gelem") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleMaybe","isJust") [Comb FuncCall ("OraclePrelude","fst") [Comb FuncCall ("OracleGraphInductive","match") [Var 2,Var 3,Var 1],Var 4],Var 5]]))),Func ("OracleGraphInductive","equal") 3 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive","slabNodes") [Var 1],Var 2,Var 4],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive","slabNodes") [Var 5],Var 3,Var 6],Var 7],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive","slabEdges") [Var 8],Var 2,Var 9],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive","slabEdges") [Var 10],Var 3,Var 11],Var 12],Var 13]]))),Func ("OracleGraphInductive","nodeComp") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Ordering") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_55") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OracleGraphInductive","slabNodes") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleGraphInductive","sortBy") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","nodeComp") []],Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","labNodes") []],Var 2]]))),Func ("OracleGraphInductive","edgeComp") 3 Private (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 0]) (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Ordering") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(4,Var 2)] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleGraphInductive","edgeComp._#selFP11#v") [Var 4,Var 1])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleGraphInductive","edgeComp._#selFP12#w") [Var 4,Var 10])] (Comb FuncCall ("CEventOracle","replace") [Var 11,Let [(7,Var 3)] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleGraphInductive","edgeComp._#selFP9#x") [Var 7,Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleGraphInductive","edgeComp._#selFP10#y") [Var 7,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_52") [Var 2,Var 3,Var 5,Var 6,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 2,Var 3,Var 13],Var 14]]))]))]))])]))]))])),Func ("OracleGraphInductive","edgeComp._#selFP11#v") 2 Private (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 613]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_49") [Var 2,Var 1]])),Func ("OracleGraphInductive","edgeComp._#selFP12#w") 2 Private (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 613]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_48") [Var 2,Var 1]])),Func ("OracleGraphInductive","edgeComp._#selFP9#x") 2 Private (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 613]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_47") [Var 2,Var 1]])),Func ("OracleGraphInductive","edgeComp._#selFP10#y") 2 Private (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 613]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_46") [Var 2,Var 1]])),Func ("OracleGraphInductive","slabEdges") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 1]])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleGraphInductive","sortBy") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","edgeComp") []],Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","labEdges") []],Var 2]]))),Func ("OracleGraphInductive","node'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_45") [Var 2,Var 1]])),Func ("OracleGraphInductive","lab'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 1))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_44") [Var 2,Var 1]])),Func ("OracleGraphInductive","labNode'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 1]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_43") [Var 2,Var 1]])),Func ("OracleGraphInductive","neighbors'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_42") [Var 2,Var 1]])),Func ("OracleGraphInductive","suc'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_41") [Var 2,Var 1]])),Func ("OracleGraphInductive","pre'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_40") [Var 2,Var 1]])),Func ("OracleGraphInductive","lpre'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_39") [Var 2,Var 1]])),Func ("OracleGraphInductive","lsuc'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_38") [Var 2,Var 1]])),Func ("OracleGraphInductive","out'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 0]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_37") [Var 2,Var 1]])),Func ("OracleGraphInductive","out'._#lambda11") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","(,)") [TVar 732,TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 732])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_36") [Var 2,Var 3,Var 1]])),Func ("OracleGraphInductive","inn'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 0]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_35") [Var 2,Var 1]])),Func ("OracleGraphInductive","inn'._#lambda12") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","(,)") [TVar 742,TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 742])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_34") [Var 2,Var 3,Var 1]])),Func ("OracleGraphInductive","outdeg'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_33") [Var 2,Var 1]])),Func ("OracleGraphInductive","indeg'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_32") [Var 2,Var 1]])),Func ("OracleGraphInductive","deg'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_31") [Var 2,Var 1]])),Func ("OracleGraphInductive","labNodes") 2 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_30") [Var 2,Var 1]])),Func ("OracleGraphInductive","labNodes._#lambda13") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 574,TCons ("Prelude","Int") []]],TVar 573,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 574,TCons ("Prelude","Int") []]]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 573]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_29") [Var 2,Var 1]])),Func ("OracleGraphInductive","labEdges") 2 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 1]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_27") [Var 2,Var 1]])),Func ("OracleGraphInductive","labEdges._#lambda14") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 620,TCons ("Prelude","Int") []]],TVar 619,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 620,TCons ("Prelude","Int") []]]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 620]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_26") [Var 2,Var 1]])),Func ("OracleGraphInductive","labEdges._#lambda14._#lambda15") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","(,)") [TVar 620,TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 620])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_24") [Var 2,Var 3,Var 1]])),Func ("OracleGraphInductive","nodes") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","fst") []]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","labNodes") []],Var 1]])),Func ("OracleGraphInductive","edges") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","edges._#lambda16") []]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","labEdges") []],Var 1]])),Func ("OracleGraphInductive","edges._#lambda16") 2 Private (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 788]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_23") [Var 2,Var 1]])),Func ("OracleGraphInductive","newNodes") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleGraphInductive","nodeRange") [Var 3,Var 1])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleGraphInductive","newNodes._#selFP14#n") [Var 4,Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","enumFromTo") [Comb FuncCall ("OraclePrelude","+") [Var 5,Lit (Intc 1),Var 7],Comb FuncCall ("OraclePrelude","+") [Var 5,Var 2,Var 8],Var 9]]))]))]))),Func ("OracleGraphInductive","newNodes._#selFP14#n") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_22") [Var 2,Var 1]])),Func ("OracleGraphInductive","ufold") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TVar 2))))) (FuncType (TVar 2) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 1,TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 2))))) (Rule [2,3,4,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleGraphInductive","matchAny") [Var 4,Var 1])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleGraphInductive","ufold._#selFP16#c") [Var 5,Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleGraphInductive","ufold._#selFP17#g'") [Var 5,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_21") [Var 2,Var 3,Var 4,Var 6,Var 7,Comb FuncCall ("OracleGraphInductive","isEmpty") [Var 4,Var 10],Var 11]]))]))]))]))),Func ("OracleGraphInductive","ufold._#selFP16#c") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 807,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 806,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 807,TCons ("Prelude","Int") []]]],TCons ("OracleGraphInductive","Graph") [TVar 806,TVar 807]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 807,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 806,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 807,TCons ("Prelude","Int") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_19") [Var 2,Var 1]])),Func ("OracleGraphInductive","ufold._#selFP17#g'") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 807,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 806,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 807,TCons ("Prelude","Int") []]]],TCons ("OracleGraphInductive","Graph") [TVar 806,TVar 807]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TVar 806,TVar 807]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_18") [Var 2,Var 1]])),Func ("OracleGraphInductive","gmap") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 2,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 3,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 2,TCons ("Prelude","Int") []]]]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 1,TVar 0]) (TCons ("OracleGraphInductive","Graph") [TVar 3,TVar 2]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","ufold") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","gmap._#lambda17") [Var 2]],Comb FuncCall ("OracleGraphInductive","empty") [Var 1]]]])),Func ("OracleGraphInductive","gmap._#lambda17") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 821,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 822,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 821,TCons ("Prelude","Int") []]]]) (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 830,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 829,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 830,TCons ("Prelude","Int") []]]]))) (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 821,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 822,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 821,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 829,TVar 830]) (TCons ("OracleGraphInductive","Graph") [TVar 829,TVar 830])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive",":&") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1]]]])),Func ("OracleGraphInductive","nmap") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 2]) (TCons ("OracleGraphInductive","Graph") [TVar 1,TVar 2]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","gmap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","nmap._#lambda18") [Var 2]],Var 1]])),Func ("OracleGraphInductive","nmap._#lambda18") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 841) (TVar 844))) (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 837,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 841,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 837,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 837,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 844,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 837,TCons ("Prelude","Int") []]]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_17") [Var 2,Var 3,Var 1]])),Func ("OracleGraphInductive","emap") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 2,TVar 0]) (TCons ("OracleGraphInductive","Graph") [TVar 2,TVar 1]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","gmap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","emap._#lambda20") [Var 2]],Var 1]])),Func ("OracleGraphInductive","emap.map1.213") 2 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 2]]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TVar 2]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","emap.map1.213._#lambda19") [Var 2]]]]])),Func ("OracleGraphInductive","emap.map1.213._#lambda19") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 853) (TVar 856))) (FuncType (TCons ("Prelude","(,)") [TVar 853,TVar 854]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TVar 856,TVar 854])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_16") [Var 2,Var 3,Var 1]])),Func ("OracleGraphInductive","emap._#lambda20") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 865) (TVar 866))) (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 865,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 863,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 865,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 866,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 863,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 866,TCons ("Prelude","Int") []]]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_15") [Var 2,Var 3,Var 1]])),Func ("OracleGraphInductive","labUEdges") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TVar 0,TVar 1,TCons ("Prelude","()") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","labUEdges._#lambda21") []]]]])),Func ("OracleGraphInductive","labUEdges._#lambda21") 2 Private (FuncType (TCons ("Prelude","(,)") [TVar 249,TVar 250]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,)") [TVar 249,TVar 250,TCons ("Prelude","()") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_14") [Var 2,Var 1]])),Func ("OracleGraphInductive","labUNodes") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","()") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","labUNodes._#lambda22") []]]]])),Func ("OracleGraphInductive","labUNodes._#lambda22") 2 Private (FuncType (TVar 254) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TVar 254,TCons ("Prelude","()") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 2,Comb ConsCall ("Prelude","()") []]])),Func ("OracleGraphInductive","showGraph") 2 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_13") [Var 2,Var 1]])),Func ("OracleGraphInductive","showNode") 2 Private (FuncType (TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","(,,)") [TVar 1,TVar 2,TVar 3]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_12") [Var 2,Var 1]])),Func ("OracleGraphInductive",".:") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 3) (TVar 0))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 3) (TVar 1)))))))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude",".") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude",".") []],Var 1]])),Func ("OracleGraphInductive","fst4") 2 Private (FuncType (TCons ("Prelude","(,,,)") [TVar 0,TVar 1,TVar 2,TVar 3]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_10") [Var 2,Var 1]])),Func ("OracleGraphInductive","fth4") 2 Private (FuncType (TCons ("Prelude","(,,,)") [TVar 0,TVar 1,TVar 2,TVar 3]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 3))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_9") [Var 2,Var 1]])),Func ("OracleGraphInductive","flip2") 2 Private (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TVar 1,TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_8") [Var 2,Var 1]])),Func ("OracleGraphInductive","context1") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive",".:") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","fst4") []],Var 2],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","context") []],Var 3]]))),Func ("OracleGraphInductive","context4") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive",".:") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","fth4") []],Var 2],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","context") []],Var 3]]))),Func ("OracleGraphInductive","addSucc") 4 Private (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("Prelude","(,,)") [TVar 2,TVar 3,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TVar 0]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,)") [TVar 2,TVar 3,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TVar 0]]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_7") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleGraphInductive","addPred") 4 Private (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TVar 0]],TVar 2,TVar 3]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TVar 0]],TVar 2,TVar 3]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_6") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleGraphInductive","clearSucc") 4 Private (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("Prelude","(,,)") [TVar 2,TVar 3,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 4,TVar 0]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,)") [TVar 2,TVar 3,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 4,TVar 0]]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_5") [Var 2,Var 4,Var 1]])),Func ("OracleGraphInductive","clearPred") 4 Private (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 2,TVar 0]],TVar 3,TVar 4]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 2,TVar 0]],TVar 3,TVar 4]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_4") [Var 2,Var 4,Var 1]])),Func ("OracleGraphInductive","updAdj") 4 Private (FuncType (TCons ("OracleFiniteMap","FM") [TCons ("Prelude","Int") [],TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]))))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TCons ("Prelude","Int") [],TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_3") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleGraphInductive","sortBy") 2 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Ordering") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSort","mergeSort") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","sortBy._#lambda23") [Var 2]]]]])),Func ("OracleGraphInductive","sortBy._#lambda23") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 587) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 587) (TCons ("Prelude","Ordering") []))))) (FuncType (TVar 587) (FuncType (TVar 587) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))))) (Rule [2,3,4,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Let [(5,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Var 4,Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 5,Comb ConsCall ("Prelude","EQ") [],Var 7],Comb FuncCall ("OraclePrelude","==") [Var 5,Comb ConsCall ("Prelude","LT") [],Var 8],Var 9]]))]))),Func ("OracleGraphInductive","_case_3") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_2") [Var 2,Var 4,Var 6,Var 5,Var 1]])]])),Func ("OracleGraphInductive","_case_2") 5 Private (TVar (-42)) (Rule [2,4,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","(,)") [7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_1") [Var 2,Var 4,Var 6,Var 7,Var 8,Comb FuncCall ("OracleFiniteMap","elemFM") [Var 8,Var 2,Var 1],Var 9]]))]])),Func ("OracleGraphInductive","_case_1") 7 Private (TVar (-42)) (Rule [2,4,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleGraphInductive","updAdj") [Comb FuncCall ("OracleFiniteMap","updFM") [Var 2,Var 8,Comb FuncCall ("Oracle","apply") [Var 4,Var 7,Var 1],Var 10],Var 6,Var 4,Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_0") [Var 8,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 12]]))]])),Func ("OracleGraphInductive","_case_0") 3 Private (TVar (-42)) (Rule [8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'E'),Comb ConsCall ("Prelude",":") [Lit (Charc 'x'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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 ','),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'N'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),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","[]") []]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","show") [Var 8,Var 1],Var 10],Var 11]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleGraphInductive","_case_4") 3 Private (TVar (-42)) (Rule [2,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,,)") [5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","(,,)") [Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 1],Var 5,Var 8],Var 6,Var 7]]))]])),Func ("OracleGraphInductive","_case_5") 3 Private (TVar (-42)) (Rule [2,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,,)") [5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","(,,)") [Var 5,Var 6,Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 1],Var 7,Var 8]]]))]])),Func ("OracleGraphInductive","_case_6") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,,)") [5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 3,Var 2],Var 5],Var 6,Var 7]])]])),Func ("OracleGraphInductive","_case_7") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,,)") [5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,,)") [Var 5,Var 6,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 3,Var 2],Var 7]]])]])),Func ("OracleGraphInductive","_case_8") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 4,Var 3]])]])),Func ("OracleGraphInductive","_case_9") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleGraphInductive","_case_10") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleGraphInductive","_case_12") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_11") [Var 3,Var 4,Var 1]])]])),Func ("OracleGraphInductive","_case_11") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,,)") [5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 6,Var 8],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude",":") [Lit (Charc '>'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","show") [Var 7,Var 9],Var 10],Var 11],Var 12],Var 13]]))]])),Func ("OracleGraphInductive","_case_13") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleGraphInductive","Gr") [3]) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","unlines") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","showNode") []],Comb FuncCall ("OracleFiniteMap","fmToList") [Var 3,Var 1],Var 4],Var 5]]))]])),Func ("OracleGraphInductive","_case_14") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,,)") [Var 3,Var 4,Comb ConsCall ("Prelude","()") []]])]])),Func ("OracleGraphInductive","_case_15") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,,,)") [4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude","(,,,)") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive","emap.map1.213") [Var 2,Var 1],Var 4,Var 8],Var 5,Var 6,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive","emap.map1.213") [Var 2,Var 9],Var 7,Var 10]]]))]])),Func ("OracleGraphInductive","_case_16") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5]])]])),Func ("OracleGraphInductive","_case_17") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,,,)") [4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","(,,,)") [Var 4,Var 5,Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 1],Var 7]])]])),Func ("OracleGraphInductive","_case_18") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleGraphInductive","_case_19") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleGraphInductive","_case_21") 7 Private (TVar (-42)) (Rule [2,3,4,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_20") [Var 2,Var 3,Var 6,Var 7,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 9]]))]])),Func ("OracleGraphInductive","_case_20") 6 Private (TVar (-42)) (Rule [2,3,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 1],Comb FuncCall ("OracleGraphInductive","ufold") [Var 2,Var 3,Var 7,Var 9],Var 10]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleGraphInductive","_case_22") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleGraphInductive","_case_23") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,)") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 3,Var 4]])]])),Func ("OracleGraphInductive","_case_24") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,,)") [Var 2,Var 5,Var 4]])]])),Func ("OracleGraphInductive","_case_26") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_25") [Var 3,Var 4,Var 1]])]])),Func ("OracleGraphInductive","_case_25") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,,)") [5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","labEdges._#lambda14._#lambda15") [Var 3]],Var 7,Var 1]])]])),Func ("OracleGraphInductive","_case_27") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleGraphInductive","Gr") [3]) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","labEdges._#lambda14") []],Var 1],Comb FuncCall ("OracleFiniteMap","fmToList") [Var 3,Var 4],Var 5]]))]])),Func ("OracleGraphInductive","_case_29") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_28") [Var 3,Var 4,Var 1]])]])),Func ("OracleGraphInductive","_case_28") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,,)") [5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 3,Var 6]])]])),Func ("OracleGraphInductive","_case_30") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleGraphInductive","Gr") [3]) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","labNodes._#lambda13") []],Comb FuncCall ("OracleFiniteMap","fmToList") [Var 3,Var 1],Var 4]]))]])),Func ("OracleGraphInductive","_case_31") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","length") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","length") [Var 6,Var 7],Var 8]]))]])),Func ("OracleGraphInductive","_case_32") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","length") [Var 3,Var 1]])]])),Func ("OracleGraphInductive","_case_33") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","length") [Var 6,Var 1]])]])),Func ("OracleGraphInductive","_case_34") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,,)") [Var 5,Var 2,Var 4]])]])),Func ("OracleGraphInductive","_case_35") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","inn'._#lambda12") [Var 4]],Var 3,Var 1]])]])),Func ("OracleGraphInductive","_case_36") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,,)") [Var 2,Var 5,Var 4]])]])),Func ("OracleGraphInductive","_case_37") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","out'._#lambda11") [Var 4]],Var 6,Var 1]])]])),Func ("OracleGraphInductive","_case_38") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","flip2") []],Var 6,Var 1]])]])),Func ("OracleGraphInductive","_case_39") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","flip2") []],Var 3,Var 1]])]])),Func ("OracleGraphInductive","_case_40") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 3,Var 1]])]])),Func ("OracleGraphInductive","_case_41") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 6,Var 1]])]])),Func ("OracleGraphInductive","_case_42") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 3,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 6,Var 7],Var 8]]))]])),Func ("OracleGraphInductive","_case_43") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 4,Var 5]])]])),Func ("OracleGraphInductive","_case_44") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleGraphInductive","_case_45") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleGraphInductive","_case_46") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,)") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleGraphInductive","_case_47") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,)") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleGraphInductive","_case_48") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,)") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleGraphInductive","_case_49") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,)") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleGraphInductive","_case_52") 8 Private (TVar (-42)) (Rule [2,3,5,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","EQ") []]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleGraphInductive","_case_51") [Var 5,Var 6,Var 8,Var 9,Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","<") [Var 5,Var 8,Var 1],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 5,Var 8,Var 11],Comb FuncCall ("OraclePrelude","<") [Var 6,Var 9,Var 12],Var 13],Var 14],Var 15]]))]])),Func ("OracleGraphInductive","_case_51") 6 Private (TVar (-42)) (Rule [5,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_50") [Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 11]]))]])),Func ("OracleGraphInductive","_case_50") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleGraphInductive","_case_55") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","EQ") []]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleGraphInductive","_case_54") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OraclePrelude","fst") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","fst") [Var 3,Var 5],Var 6],Var 7]]))]])),Func ("OracleGraphInductive","_case_54") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_53") [Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 5]]))]])),Func ("OracleGraphInductive","_case_53") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleGraphInductive","_case_56") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","length") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","length") [Var 6,Var 7],Var 8]]))]])),Func ("OracleGraphInductive","_case_57") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,,)") [Var 5,Var 2,Var 4]])]])),Func ("OracleGraphInductive","_case_58") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,,)") [Var 2,Var 5,Var 4]])]])),Func ("OracleGraphInductive","_case_59") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Comb FuncCall ("OraclePrelude","++") [Var 3,Var 6,Var 1],Var 7]]))]])),Func ("OracleGraphInductive","_case_61") 4 Private (TVar (-42)) (Rule [2,3,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_60") [Var 3,Var 4,Var 1]])]])),Func ("OracleGraphInductive","_case_60") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","Nothing") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'M'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'E'),Comb ConsCall ("Prelude",":") [Lit (Charc 'x'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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 ','),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'N'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),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","[]") []]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Var 7],Var 8]])),Branch (Pattern ("Prelude","Just") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleGraphInductive","_case_64") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleGraphInductive","Gr") [3]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","fst") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMaybe","fromJust") []],Var 1])] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_63") [Var 3,Var 4,Comb FuncCall ("OracleFiniteMap","isEmptyFM") [Var 3,Var 5],Var 6]]))]))]])),Func ("OracleGraphInductive","_case_63") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Lit (Intc 0),Lit (Intc 0)]]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_62") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 6]]))]])),Func ("OracleGraphInductive","_case_62") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Oracle","apply") [Var 4,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFiniteMap","minFM") [Var 1],Var 3,Var 6],Var 7],Comb FuncCall ("Oracle","apply") [Var 4,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFiniteMap","maxFM") [Var 8],Var 3,Var 9],Var 10]]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleGraphInductive","_case_65") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleGraphInductive","Gr") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","sizeFM") [Var 3,Var 1]])]])),Func ("OracleGraphInductive","_case_68") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_67") [Var 2,Var 4,Var 5,Var 1]])]])),Func ("OracleGraphInductive","_case_67") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_66") [Var 2,Var 4,Var 7,Var 1]])]])),Func ("OracleGraphInductive","_case_66") 4 Private (TVar (-42)) (Rule [2,4,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude","(,,)") [8,9,10]) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]],Let [(11,Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 1],Var 10,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]],Let [(12,Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 16],Var 8,Var 17])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OracleGraphInductive","updAdj") [Var 4,Var 11,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","clearPred") [Var 2]],Var 18])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Let [(14,Comb FuncCall ("OracleGraphInductive","updAdj") [Var 13,Var 12,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","clearSucc") [Var 2]],Var 19])] (Comb FuncCall ("CEventOracle","collapse") [Var 20,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","(,,,)") [Var 12,Var 2,Var 9,Var 10]],Comb ConsCall ("OracleGraphInductive","Gr") [Var 14]]])]))]))]))]))]])),Func ("OracleGraphInductive","_case_69") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleGraphInductive","Gr") [4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","maybe") [Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Nothing") [],Comb ConsCall ("OracleGraphInductive","Gr") [Var 4]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","match._#lambda5") [Var 2]],Comb FuncCall ("OracleFiniteMap","splitFM") [Var 4,Var 2,Var 1],Var 5]]))]])),Func ("OracleGraphInductive","_case_70") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleGraphInductive","Gr") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","isEmptyFM") [Var 3,Var 1]])]])),Func ("OracleGraphInductive","_case_71") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleGraphInductive","delNodes") [Var 5,Comb FuncCall ("OraclePrelude","snd") [Comb FuncCall ("OracleGraphInductive","match") [Var 4,Var 3,Var 1],Var 6],Var 7]]))]])),Func ("OracleGraphInductive","_case_75") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_74") [Var 3,Var 4,Var 5,Comb FuncCall ("OracleGraphInductive","match") [Var 4,Var 3,Var 1],Var 6]]))]])),Func ("OracleGraphInductive","_case_74") 5 Private (TVar (-42)) (Rule [3,4,5,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_73") [Var 3,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleGraphInductive","_case_73") 5 Private (TVar (-42)) (Rule [3,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","Just") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_72") [Var 5,Var 7,Var 8,Var 1]])]])),Func ("OracleGraphInductive","_case_72") 4 Private (TVar (-42)) (Rule [5,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","(,,,)") [9,10,11,12]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleGraphInductive",":&") [Comb ConsCall ("Prelude","(,,,)") [Var 9,Var 10,Var 11,Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Var 5]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 1],Var 12,Var 13]],Var 7,Var 14]]))]])),Func ("OracleGraphInductive","_case_78") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_77") [Var 4,Var 3,Var 1]])]])),Func ("OracleGraphInductive","_case_77") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Just") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_76") [Var 4,Var 5,Var 1]])]])),Func ("OracleGraphInductive","_case_76") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","(,,,)") [6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleGraphInductive","_case_81") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_80") [Var 3,Var 1]])]])),Func ("OracleGraphInductive","_case_80") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Just") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_79") [Var 5,Var 1]])]])),Func ("OracleGraphInductive","_case_79") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","(,,,)") [6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleGraphInductive","_case_84") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_83") [Var 3,Var 1]])]])),Func ("OracleGraphInductive","_case_83") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Just") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_82") [Var 5,Var 1]])]])),Func ("OracleGraphInductive","_case_82") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","(,,,)") [6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleGraphInductive","_case_87") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_86") [Var 3,Var 1]])]])),Func ("OracleGraphInductive","_case_86") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Just") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_85") [Var 5,Var 1]])]])),Func ("OracleGraphInductive","_case_85") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","(,,,)") [6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleGraphInductive","_case_88") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,)") [4,5,6]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleGraphInductive","match") [Var 4,Var 3,Var 1])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleGraphInductive","insEdge._#selFP3#pr") [Var 7,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleGraphInductive","insEdge._#selFP4#la") [Var 7,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleGraphInductive","insEdge._#selFP5#su") [Var 7,Var 14])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleGraphInductive","insEdge._#selFP6#g'") [Var 7,Var 15])] (Comb FuncCall ("CEventOracle","replace") [Var 16,Comb FuncCall ("OracleGraphInductive",":&") [Comb ConsCall ("Prelude","(,,,)") [Var 8,Var 4,Var 9,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 6,Var 5],Var 10]],Var 11,Var 16]])]))]))]))]))]))]])),Func ("OracleGraphInductive","_case_89") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive",":&") [Comb ConsCall ("Prelude","(,,,)") [Comb ConsCall ("Prelude","[]") [],Var 3,Var 4,Comb ConsCall ("Prelude","[]") []]]]])]])),Func ("OracleGraphInductive","_case_95") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleGraphInductive","Gr") [3]) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_94") [Var 3,Comb FuncCall ("OracleFiniteMap","isEmptyFM") [Var 3,Var 1],Var 4]]))]])),Func ("OracleGraphInductive","_case_94") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc 'M'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'E'),Comb ConsCall ("Prelude",":") [Lit (Charc 'x'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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 ','),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'E'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'G'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_93") [Var 3,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 5]]))]])),Func ("OracleGraphInductive","_case_93") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleGraphInductive","_case_92") [Var 3,Comb FuncCall ("OraclePrelude","head") [Comb FuncCall ("OracleFiniteMap","fmToListPreOrder") [Var 3,Var 1],Var 5],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleGraphInductive","_case_92") 3 Private (TVar (-42)) (Rule [3,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_91") [Var 3,Var 4,Comb FuncCall ("OracleGraphInductive","match") [Var 4,Comb ConsCall ("OracleGraphInductive","Gr") [Var 3],Var 1],Var 7]]))]])),Func ("OracleGraphInductive","_case_91") 4 Private (TVar (-42)) (Rule [3,4,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_90") [Var 7,Var 6,Var 1]])]])),Func ("OracleGraphInductive","_case_90") 3 Private (TVar (-42)) (Rule [7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","Just") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 8,Var 7]]),Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleGraphInductive","_case_99") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_98") [Var 4,Var 5,Var 6,Var 7,Var 3,Var 1]])]])),Func ("OracleGraphInductive","_case_98") 6 Private (TVar (-42)) (Rule [4,5,6,7,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleGraphInductive","Gr") [8]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleFiniteMap","addToFM") [Var 8,Var 5,Comb ConsCall ("Prelude","(,,)") [Var 4,Var 6,Var 7],Var 1])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleGraphInductive","updAdj") [Var 9,Var 4,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","addSucc") [Var 5]],Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleGraphInductive","updAdj") [Var 10,Var 7,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","addPred") [Var 5]],Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_97") [Var 5,Var 6,Var 8,Var 11,Comb FuncCall ("OracleFiniteMap","elemFM") [Var 5,Var 8,Var 14],Var 15]]))]))]))]))]])),Func ("OracleGraphInductive","_case_97") 6 Private (TVar (-42)) (Rule [5,6,8,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'N'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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 ','),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'N'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),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","[]") []]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","show") [Var 6,Var 13],Var 14],Var 15],Var 16],Var 17]])),Branch (Pattern ("Prelude","False") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_96") [Var 11,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 18]]))]])),Func ("OracleGraphInductive","_case_96") 3 Private (TVar (-42)) (Rule [11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OracleGraphInductive","Gr") [Var 11]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]]))] [Op ("OracleGraphInductive",".:") InfixrOp 5,Op ("OracleGraphInductive",":&") InfixrOp 5]
+ Curry/Module/OracleGraphInductive.fint view
@@ -0,0 +1,1 @@+Prog "OracleGraphInductive" ["CEventOracle","Oracle","IOExts","GraphInductive","FiniteMap","Maybe","Prelude","Sort","OracleFiniteMap","OracleMaybe","OraclePrelude","OracleSort"] [TypeSyn ("OracleGraphInductive","GDecomp") Public [0,1] (TCons ("Prelude","(,)") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]]],TCons ("GraphInductive","Graph") [TVar 0,TVar 1]]),TypeSyn ("OracleGraphInductive","Decomp") Public [0,1] (TCons ("Prelude","(,)") [TCons ("Prelude","Maybe") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]]]],TCons ("GraphInductive","Graph") [TVar 0,TVar 1]]),TypeSyn ("OracleGraphInductive","GraphRep") Private [0,1] (TCons ("FiniteMap","FM") [TCons ("Prelude","Int") [],TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]],TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]]]]),TypeSyn ("OracleGraphInductive","UGr") Public [] (TCons ("GraphInductive","Graph") [TCons ("Prelude","()") [],TCons ("Prelude","()") []]),Type ("OracleGraphInductive","Graph") Public [0,1] [Cons ("OracleGraphInductive","Gr") 1 Private [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","Int") [],TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]],TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]]]]]]] [Func ("OracleGraphInductive",":&") 3 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 1,TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TVar 1,TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_99") [Var 3,Var 2,Var 1]])),Func ("OracleGraphInductive","matchAny") 2 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]]],TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_95") [Var 2,Var 1]])),Func ("OracleGraphInductive","empty") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleGraphInductive","Gr") [Comb FuncCall ("OracleFiniteMap","emptyFM") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","<") []],Var 1]]])),Func ("OracleGraphInductive","mkGraph") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 1]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","insEdges") [Var 3]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","insNodes") [Var 2]],Var 1],Comb FuncCall ("OracleGraphInductive","empty") [Var 4],Var 5]]))),Func ("OracleGraphInductive","buildGr") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]]) (TCons ("OracleGraphInductive","Graph") [TVar 1,TVar 0])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive",":&") []],Comb FuncCall ("OracleGraphInductive","empty") [Var 1]]]])),Func ("OracleGraphInductive","mkUGraph") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TCons ("Prelude","()") [],TCons ("Prelude","()") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleGraphInductive","mkGraph") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive","labUNodes") [Var 1],Var 2,Var 4],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive","labUEdges") [Var 5],Var 3,Var 6],Var 7]]))),Func ("OracleGraphInductive","insNode") 2 Public (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_89") [Var 2,Var 1]])),Func ("OracleGraphInductive","insEdge") 3 Public (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 0]) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 1,TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TVar 1,TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_88") [Var 3,Var 2,Var 1]])),Func ("OracleGraphInductive","insEdge._#selFP3#pr") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Maybe") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 213,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 212,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 213,TCons ("Prelude","Int") []]]]],TCons ("OracleGraphInductive","Graph") [TVar 212,TVar 213]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 213,TCons ("Prelude","Int") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_87") [Var 2,Var 1]])),Func ("OracleGraphInductive","insEdge._#selFP4#la") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Maybe") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 213,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 212,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 213,TCons ("Prelude","Int") []]]]],TCons ("OracleGraphInductive","Graph") [TVar 212,TVar 213]]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 212))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_84") [Var 2,Var 1]])),Func ("OracleGraphInductive","insEdge._#selFP5#su") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Maybe") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 213,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 212,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 213,TCons ("Prelude","Int") []]]]],TCons ("OracleGraphInductive","Graph") [TVar 212,TVar 213]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 213,TCons ("Prelude","Int") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_81") [Var 2,Var 1]])),Func ("OracleGraphInductive","insEdge._#selFP6#g'") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Maybe") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 213,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 212,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 213,TCons ("Prelude","Int") []]]]],TCons ("OracleGraphInductive","Graph") [TVar 212,TVar 213]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TVar 212,TVar 213]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_78") [Var 2,Var 1]])),Func ("OracleGraphInductive","delNode") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","delNodes") [Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []]]]])),Func ("OracleGraphInductive","delEdge") 3 Public (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_75") [Var 3,Var 2,Var 1]])),Func ("OracleGraphInductive","insNodes") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]]) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldr") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","insNode") []],Var 3,Var 2,Var 1]])),Func ("OracleGraphInductive","insEdges") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 0]]) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 1,TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TVar 1,TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","insEdge") []],Var 3,Var 2,Var 1]])),Func ("OracleGraphInductive","delNodes") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_71") [Var 3,Var 2,Var 1]])),Func ("OracleGraphInductive","delEdges") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","delEdge") []],Var 3,Var 2,Var 1]])),Func ("OracleGraphInductive","isEmpty") 2 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_70") [Var 2,Var 1]])),Func ("OracleGraphInductive","match") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Maybe") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]]]],TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_69") [Var 2,Var 3,Var 1]])),Func ("OracleGraphInductive","match._#lambda5") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","(,)") [TCons ("OracleFiniteMap","FM") [TCons ("Prelude","Int") [],TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 146,TCons ("Prelude","Int") []]],TVar 148,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 146,TCons ("Prelude","Int") []]]]],TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 146,TCons ("Prelude","Int") []]],TVar 148,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 146,TCons ("Prelude","Int") []]]]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Maybe") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 146,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 148,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 146,TCons ("Prelude","Int") []]]]],TCons ("OracleGraphInductive","Graph") [TVar 148,TVar 146]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_68") [Var 2,Var 3,Var 1]])),Func ("OracleGraphInductive","noNodes") 2 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_65") [Var 2,Var 1]])),Func ("OracleGraphInductive","nodeRange") 2 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_64") [Var 2,Var 1]])),Func ("OracleGraphInductive","context") 3 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_61") [Var 2,Var 3,Comb FuncCall ("OracleGraphInductive","match") [Var 3,Var 2,Var 1],Var 4]]))),Func ("OracleGraphInductive","lab") 3 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TVar 0])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleMaybe",">>-") [Comb FuncCall ("OraclePrelude","fst") [Comb FuncCall ("OracleGraphInductive","match") [Var 3,Var 2,Var 1],Var 4],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude","Just") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","lab'") []],Var 5],Var 6]]))),Func ("OracleGraphInductive","neighbors") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive",".:") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","neighbors._#lambda7") []],Var 2],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","context") []],Var 3]]))),Func ("OracleGraphInductive","neighbors._#lambda7") 2 Private (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 416,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 415,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 416,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_59") [Var 2,Var 1]])),Func ("OracleGraphInductive","suc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive",".:") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []]]],Var 2],Comb FuncCall ("OracleGraphInductive","context4") [Var 3],Var 4]]))),Func ("OracleGraphInductive","pre") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive",".:") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []]]],Var 2],Comb FuncCall ("OracleGraphInductive","context1") [Var 3],Var 4]]))),Func ("OracleGraphInductive","lsuc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 1]])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive",".:") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","flip2") []]]],Var 2],Comb FuncCall ("OracleGraphInductive","context4") [Var 3],Var 4]]))),Func ("OracleGraphInductive","lpre") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 1]])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive",".:") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","flip2") []]]],Var 2],Comb FuncCall ("OracleGraphInductive","context1") [Var 3],Var 4]]))),Func ("OracleGraphInductive","out") 3 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 1]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","out._#lambda8") [Var 3]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive","context4") [Var 1],Var 2,Var 4],Var 3,Var 5],Var 6]]))),Func ("OracleGraphInductive","out._#lambda8") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","(,)") [TVar 511,TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 511])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_58") [Var 2,Var 3,Var 1]])),Func ("OracleGraphInductive","inn") 3 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 1]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","inn._#lambda9") [Var 3]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive","context1") [Var 1],Var 2,Var 4],Var 3,Var 5],Var 6]]))),Func ("OracleGraphInductive","inn._#lambda9") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","(,)") [TVar 521,TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 521])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_57") [Var 2,Var 3,Var 1]])),Func ("OracleGraphInductive","outdeg") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive",".:") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","length") []],Var 2],Comb FuncCall ("OracleGraphInductive","context4") [Var 3],Var 4]]))),Func ("OracleGraphInductive","indeg") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive",".:") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","length") []],Var 2],Comb FuncCall ("OracleGraphInductive","context1") [Var 3],Var 4]]))),Func ("OracleGraphInductive","deg") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive",".:") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","deg._#lambda10") []],Var 2],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","context") []],Var 3]]))),Func ("OracleGraphInductive","deg._#lambda10") 2 Private (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 553,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 552,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 553,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_56") [Var 2,Var 1]])),Func ("OracleGraphInductive","gelem") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleMaybe","isJust") [Comb FuncCall ("OraclePrelude","fst") [Comb FuncCall ("OracleGraphInductive","match") [Var 2,Var 3,Var 1],Var 4],Var 5]]))),Func ("OracleGraphInductive","equal") 3 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive","slabNodes") [Var 1],Var 2,Var 4],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive","slabNodes") [Var 5],Var 3,Var 6],Var 7],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive","slabEdges") [Var 8],Var 2,Var 9],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive","slabEdges") [Var 10],Var 3,Var 11],Var 12],Var 13]]))),Func ("OracleGraphInductive","nodeComp") 3 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Ordering") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_55") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OracleGraphInductive","slabNodes") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleGraphInductive","sortBy") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","nodeComp") []],Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","labNodes") []],Var 2]]))),Func ("OracleGraphInductive","edgeComp") 3 Private (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 0]) (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Ordering") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(4,Var 2)] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleGraphInductive","edgeComp._#selFP11#v") [Var 4,Var 1])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleGraphInductive","edgeComp._#selFP12#w") [Var 4,Var 10])] (Comb FuncCall ("CEventOracle","replace") [Var 11,Let [(7,Var 3)] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleGraphInductive","edgeComp._#selFP9#x") [Var 7,Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleGraphInductive","edgeComp._#selFP10#y") [Var 7,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_52") [Var 2,Var 3,Var 5,Var 6,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 2,Var 3,Var 13],Var 14]]))]))]))])]))]))])),Func ("OracleGraphInductive","edgeComp._#selFP11#v") 2 Private (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 613]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_49") [Var 2,Var 1]])),Func ("OracleGraphInductive","edgeComp._#selFP12#w") 2 Private (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 613]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_48") [Var 2,Var 1]])),Func ("OracleGraphInductive","edgeComp._#selFP9#x") 2 Private (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 613]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_47") [Var 2,Var 1]])),Func ("OracleGraphInductive","edgeComp._#selFP10#y") 2 Private (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 613]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_46") [Var 2,Var 1]])),Func ("OracleGraphInductive","slabEdges") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 1]])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleGraphInductive","sortBy") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","edgeComp") []],Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","labEdges") []],Var 2]]))),Func ("OracleGraphInductive","node'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_45") [Var 2,Var 1]])),Func ("OracleGraphInductive","lab'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 1))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_44") [Var 2,Var 1]])),Func ("OracleGraphInductive","labNode'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 1]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_43") [Var 2,Var 1]])),Func ("OracleGraphInductive","neighbors'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_42") [Var 2,Var 1]])),Func ("OracleGraphInductive","suc'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_41") [Var 2,Var 1]])),Func ("OracleGraphInductive","pre'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_40") [Var 2,Var 1]])),Func ("OracleGraphInductive","lpre'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_39") [Var 2,Var 1]])),Func ("OracleGraphInductive","lsuc'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_38") [Var 2,Var 1]])),Func ("OracleGraphInductive","out'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 0]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_37") [Var 2,Var 1]])),Func ("OracleGraphInductive","out'._#lambda11") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","(,)") [TVar 732,TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 732])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_36") [Var 2,Var 3,Var 1]])),Func ("OracleGraphInductive","inn'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 0]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_35") [Var 2,Var 1]])),Func ("OracleGraphInductive","inn'._#lambda12") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","(,)") [TVar 742,TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 742])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_34") [Var 2,Var 3,Var 1]])),Func ("OracleGraphInductive","outdeg'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_33") [Var 2,Var 1]])),Func ("OracleGraphInductive","indeg'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_32") [Var 2,Var 1]])),Func ("OracleGraphInductive","deg'") 2 Public (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_31") [Var 2,Var 1]])),Func ("OracleGraphInductive","labNodes") 2 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 0]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_30") [Var 2,Var 1]])),Func ("OracleGraphInductive","labNodes._#lambda13") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 574,TCons ("Prelude","Int") []]],TVar 573,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 574,TCons ("Prelude","Int") []]]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TVar 573]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_29") [Var 2,Var 1]])),Func ("OracleGraphInductive","labEdges") 2 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 1]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_27") [Var 2,Var 1]])),Func ("OracleGraphInductive","labEdges._#lambda14") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 620,TCons ("Prelude","Int") []]],TVar 619,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 620,TCons ("Prelude","Int") []]]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 620]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_26") [Var 2,Var 1]])),Func ("OracleGraphInductive","labEdges._#lambda14._#lambda15") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","(,)") [TVar 620,TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 620])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_24") [Var 2,Var 3,Var 1]])),Func ("OracleGraphInductive","nodes") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","fst") []]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","labNodes") []],Var 1]])),Func ("OracleGraphInductive","edges") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","edges._#lambda16") []]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","labEdges") []],Var 1]])),Func ("OracleGraphInductive","edges._#lambda16") 2 Private (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TVar 788]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_23") [Var 2,Var 1]])),Func ("OracleGraphInductive","newNodes") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleGraphInductive","nodeRange") [Var 3,Var 1])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleGraphInductive","newNodes._#selFP14#n") [Var 4,Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","enumFromTo") [Comb FuncCall ("OraclePrelude","+") [Var 5,Lit (Intc 1),Var 7],Comb FuncCall ("OraclePrelude","+") [Var 5,Var 2,Var 8],Var 9]]))]))]))),Func ("OracleGraphInductive","newNodes._#selFP14#n") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_22") [Var 2,Var 1]])),Func ("OracleGraphInductive","ufold") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TVar 2))))) (FuncType (TVar 2) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 1,TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 2))))) (Rule [2,3,4,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleGraphInductive","matchAny") [Var 4,Var 1])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleGraphInductive","ufold._#selFP16#c") [Var 5,Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleGraphInductive","ufold._#selFP17#g'") [Var 5,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_21") [Var 2,Var 3,Var 4,Var 6,Var 7,Comb FuncCall ("OracleGraphInductive","isEmpty") [Var 4,Var 10],Var 11]]))]))]))]))),Func ("OracleGraphInductive","ufold._#selFP16#c") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 807,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 806,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 807,TCons ("Prelude","Int") []]]],TCons ("OracleGraphInductive","Graph") [TVar 806,TVar 807]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 807,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 806,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 807,TCons ("Prelude","Int") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_19") [Var 2,Var 1]])),Func ("OracleGraphInductive","ufold._#selFP17#g'") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 807,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 806,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 807,TCons ("Prelude","Int") []]]],TCons ("OracleGraphInductive","Graph") [TVar 806,TVar 807]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleGraphInductive","Graph") [TVar 806,TVar 807]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_18") [Var 2,Var 1]])),Func ("OracleGraphInductive","gmap") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 2,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 3,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 2,TCons ("Prelude","Int") []]]]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 1,TVar 0]) (TCons ("OracleGraphInductive","Graph") [TVar 3,TVar 2]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","ufold") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","gmap._#lambda17") [Var 2]],Comb FuncCall ("OracleGraphInductive","empty") [Var 1]]]])),Func ("OracleGraphInductive","gmap._#lambda17") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 821,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 822,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 821,TCons ("Prelude","Int") []]]]) (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 830,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 829,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 830,TCons ("Prelude","Int") []]]]))) (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 821,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 822,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 821,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 829,TVar 830]) (TCons ("OracleGraphInductive","Graph") [TVar 829,TVar 830])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive",":&") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1]]]])),Func ("OracleGraphInductive","nmap") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 2]) (TCons ("OracleGraphInductive","Graph") [TVar 1,TVar 2]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","gmap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","nmap._#lambda18") [Var 2]],Var 1]])),Func ("OracleGraphInductive","nmap._#lambda18") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 841) (TVar 844))) (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 837,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 841,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 837,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 837,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 844,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 837,TCons ("Prelude","Int") []]]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_17") [Var 2,Var 3,Var 1]])),Func ("OracleGraphInductive","emap") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 2,TVar 0]) (TCons ("OracleGraphInductive","Graph") [TVar 2,TVar 1]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","gmap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","emap._#lambda20") [Var 2]],Var 1]])),Func ("OracleGraphInductive","emap.map1.213") 2 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 2]]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TVar 2]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","emap.map1.213._#lambda19") [Var 2]]]]])),Func ("OracleGraphInductive","emap.map1.213._#lambda19") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 853) (TVar 856))) (FuncType (TCons ("Prelude","(,)") [TVar 853,TVar 854]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TVar 856,TVar 854])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_16") [Var 2,Var 3,Var 1]])),Func ("OracleGraphInductive","emap._#lambda20") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 865) (TVar 866))) (FuncType (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 865,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 863,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 865,TCons ("Prelude","Int") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 866,TCons ("Prelude","Int") []]],TCons ("Prelude","Int") [],TVar 863,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 866,TCons ("Prelude","Int") []]]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_15") [Var 2,Var 3,Var 1]])),Func ("OracleGraphInductive","labUEdges") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TVar 0,TVar 1,TCons ("Prelude","()") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","labUEdges._#lambda21") []]]]])),Func ("OracleGraphInductive","labUEdges._#lambda21") 2 Private (FuncType (TCons ("Prelude","(,)") [TVar 249,TVar 250]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,)") [TVar 249,TVar 250,TCons ("Prelude","()") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_14") [Var 2,Var 1]])),Func ("OracleGraphInductive","labUNodes") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","()") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","labUNodes._#lambda22") []]]]])),Func ("OracleGraphInductive","labUNodes._#lambda22") 2 Private (FuncType (TVar 254) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TVar 254,TCons ("Prelude","()") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 2,Comb ConsCall ("Prelude","()") []]])),Func ("OracleGraphInductive","showGraph") 2 Public (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_13") [Var 2,Var 1]])),Func ("OracleGraphInductive","showNode") 2 Private (FuncType (TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","(,,)") [TVar 1,TVar 2,TVar 3]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_12") [Var 2,Var 1]])),Func ("OracleGraphInductive",".:") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 3) (TVar 0))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 3) (TVar 1)))))))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude",".") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude",".") []],Var 1]])),Func ("OracleGraphInductive","fst4") 2 Private (FuncType (TCons ("Prelude","(,,,)") [TVar 0,TVar 1,TVar 2,TVar 3]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_10") [Var 2,Var 1]])),Func ("OracleGraphInductive","fth4") 2 Private (FuncType (TCons ("Prelude","(,,,)") [TVar 0,TVar 1,TVar 2,TVar 3]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 3))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_9") [Var 2,Var 1]])),Func ("OracleGraphInductive","flip2") 2 Private (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TVar 1,TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_8") [Var 2,Var 1]])),Func ("OracleGraphInductive","context1") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive",".:") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","fst4") []],Var 2],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","context") []],Var 3]]))),Func ("OracleGraphInductive","context4") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleGraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TCons ("Prelude","Int") []]])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive",".:") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","fth4") []],Var 2],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","context") []],Var 3]]))),Func ("OracleGraphInductive","addSucc") 4 Private (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("Prelude","(,,)") [TVar 2,TVar 3,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TVar 0]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,)") [TVar 2,TVar 3,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TVar 0]]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_7") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleGraphInductive","addPred") 4 Private (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TVar 0]],TVar 2,TVar 3]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 1,TVar 0]],TVar 2,TVar 3]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_6") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleGraphInductive","clearSucc") 4 Private (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("Prelude","(,,)") [TVar 2,TVar 3,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 4,TVar 0]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,)") [TVar 2,TVar 3,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 4,TVar 0]]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_5") [Var 2,Var 4,Var 1]])),Func ("OracleGraphInductive","clearPred") 4 Private (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 2,TVar 0]],TVar 3,TVar 4]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 2,TVar 0]],TVar 3,TVar 4]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_4") [Var 2,Var 4,Var 1]])),Func ("OracleGraphInductive","updAdj") 4 Private (FuncType (TCons ("OracleFiniteMap","FM") [TCons ("Prelude","Int") [],TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]) (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]))))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleFiniteMap","FM") [TCons ("Prelude","Int") [],TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]],TVar 1,TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","Int") []]]]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_3") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleGraphInductive","sortBy") 2 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Ordering") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSort","mergeSort") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","sortBy._#lambda23") [Var 2]]]]])),Func ("OracleGraphInductive","sortBy._#lambda23") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 587) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 587) (TCons ("Prelude","Ordering") []))))) (FuncType (TVar 587) (FuncType (TVar 587) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))))) (Rule [2,3,4,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Let [(5,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Var 4,Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 5,Comb ConsCall ("Prelude","EQ") [],Var 7],Comb FuncCall ("OraclePrelude","==") [Var 5,Comb ConsCall ("Prelude","LT") [],Var 8],Var 9]]))]))),Func ("OracleGraphInductive","_case_3") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_2") [Var 2,Var 4,Var 6,Var 5,Var 1]])]])),Func ("OracleGraphInductive","_case_2") 5 Private (TVar (-42)) (Rule [2,4,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","(,)") [7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_1") [Var 2,Var 4,Var 6,Var 7,Var 8,Comb FuncCall ("OracleFiniteMap","elemFM") [Var 8,Var 2,Var 1],Var 9]]))]])),Func ("OracleGraphInductive","_case_1") 7 Private (TVar (-42)) (Rule [2,4,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleGraphInductive","updAdj") [Comb FuncCall ("OracleFiniteMap","updFM") [Var 2,Var 8,Comb FuncCall ("Oracle","apply") [Var 4,Var 7,Var 1],Var 10],Var 6,Var 4,Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_0") [Var 8,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 12]]))]])),Func ("OracleGraphInductive","_case_0") 3 Private (TVar (-42)) (Rule [8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [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",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'E'),Comb ConsCall ("Prelude",":") [Lit (Charc 'x'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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 ','),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'N'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),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","[]") []]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","show") [Var 8,Var 1],Var 10],Var 11]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleGraphInductive","_case_4") 3 Private (TVar (-42)) (Rule [2,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,,)") [5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","(,,)") [Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 1],Var 5,Var 8],Var 6,Var 7]]))]])),Func ("OracleGraphInductive","_case_5") 3 Private (TVar (-42)) (Rule [2,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,,)") [5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","(,,)") [Var 5,Var 6,Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 1],Var 7,Var 8]]]))]])),Func ("OracleGraphInductive","_case_6") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,,)") [5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 3,Var 2],Var 5],Var 6,Var 7]])]])),Func ("OracleGraphInductive","_case_7") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,,)") [5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,,)") [Var 5,Var 6,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 3,Var 2],Var 7]]])]])),Func ("OracleGraphInductive","_case_8") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 4,Var 3]])]])),Func ("OracleGraphInductive","_case_9") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleGraphInductive","_case_10") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleGraphInductive","_case_12") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_11") [Var 3,Var 4,Var 1]])]])),Func ("OracleGraphInductive","_case_11") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,,)") [5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 6,Var 8],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude",":") [Lit (Charc '>'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","show") [Var 7,Var 9],Var 10],Var 11],Var 12],Var 13]]))]])),Func ("OracleGraphInductive","_case_13") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleGraphInductive","Gr") [3]) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","unlines") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","showNode") []],Comb FuncCall ("OracleFiniteMap","fmToList") [Var 3,Var 1],Var 4],Var 5]]))]])),Func ("OracleGraphInductive","_case_14") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,,)") [Var 3,Var 4,Comb ConsCall ("Prelude","()") []]])]])),Func ("OracleGraphInductive","_case_15") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,,,)") [4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude","(,,,)") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive","emap.map1.213") [Var 2,Var 1],Var 4,Var 8],Var 5,Var 6,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleGraphInductive","emap.map1.213") [Var 2,Var 9],Var 7,Var 10]]]))]])),Func ("OracleGraphInductive","_case_16") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5]])]])),Func ("OracleGraphInductive","_case_17") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,,,)") [4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","(,,,)") [Var 4,Var 5,Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 1],Var 7]])]])),Func ("OracleGraphInductive","_case_18") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleGraphInductive","_case_19") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleGraphInductive","_case_21") 7 Private (TVar (-42)) (Rule [2,3,4,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_20") [Var 2,Var 3,Var 6,Var 7,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 9]]))]])),Func ("OracleGraphInductive","_case_20") 6 Private (TVar (-42)) (Rule [2,3,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 1],Comb FuncCall ("OracleGraphInductive","ufold") [Var 2,Var 3,Var 7,Var 9],Var 10]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleGraphInductive","_case_22") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleGraphInductive","_case_23") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,)") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 3,Var 4]])]])),Func ("OracleGraphInductive","_case_24") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,,)") [Var 2,Var 5,Var 4]])]])),Func ("OracleGraphInductive","_case_26") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_25") [Var 3,Var 4,Var 1]])]])),Func ("OracleGraphInductive","_case_25") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,,)") [5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","labEdges._#lambda14._#lambda15") [Var 3]],Var 7,Var 1]])]])),Func ("OracleGraphInductive","_case_27") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleGraphInductive","Gr") [3]) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","labEdges._#lambda14") []],Var 1],Comb FuncCall ("OracleFiniteMap","fmToList") [Var 3,Var 4],Var 5]]))]])),Func ("OracleGraphInductive","_case_29") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_28") [Var 3,Var 4,Var 1]])]])),Func ("OracleGraphInductive","_case_28") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,,)") [5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 3,Var 6]])]])),Func ("OracleGraphInductive","_case_30") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleGraphInductive","Gr") [3]) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","labNodes._#lambda13") []],Comb FuncCall ("OracleFiniteMap","fmToList") [Var 3,Var 1],Var 4]]))]])),Func ("OracleGraphInductive","_case_31") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","length") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","length") [Var 6,Var 7],Var 8]]))]])),Func ("OracleGraphInductive","_case_32") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","length") [Var 3,Var 1]])]])),Func ("OracleGraphInductive","_case_33") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","length") [Var 6,Var 1]])]])),Func ("OracleGraphInductive","_case_34") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,,)") [Var 5,Var 2,Var 4]])]])),Func ("OracleGraphInductive","_case_35") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","inn'._#lambda12") [Var 4]],Var 3,Var 1]])]])),Func ("OracleGraphInductive","_case_36") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,,)") [Var 2,Var 5,Var 4]])]])),Func ("OracleGraphInductive","_case_37") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","out'._#lambda11") [Var 4]],Var 6,Var 1]])]])),Func ("OracleGraphInductive","_case_38") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","flip2") []],Var 6,Var 1]])]])),Func ("OracleGraphInductive","_case_39") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","flip2") []],Var 3,Var 1]])]])),Func ("OracleGraphInductive","_case_40") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 3,Var 1]])]])),Func ("OracleGraphInductive","_case_41") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 6,Var 1]])]])),Func ("OracleGraphInductive","_case_42") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 3,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 6,Var 7],Var 8]]))]])),Func ("OracleGraphInductive","_case_43") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 4,Var 5]])]])),Func ("OracleGraphInductive","_case_44") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleGraphInductive","_case_45") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleGraphInductive","_case_46") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,)") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleGraphInductive","_case_47") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,)") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleGraphInductive","_case_48") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,)") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleGraphInductive","_case_49") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,)") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleGraphInductive","_case_52") 8 Private (TVar (-42)) (Rule [2,3,5,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","EQ") []]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleGraphInductive","_case_51") [Var 5,Var 6,Var 8,Var 9,Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","<") [Var 5,Var 8,Var 1],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 5,Var 8,Var 11],Comb FuncCall ("OraclePrelude","<") [Var 6,Var 9,Var 12],Var 13],Var 14],Var 15]]))]])),Func ("OracleGraphInductive","_case_51") 6 Private (TVar (-42)) (Rule [5,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_50") [Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 11]]))]])),Func ("OracleGraphInductive","_case_50") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleGraphInductive","_case_55") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","EQ") []]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleGraphInductive","_case_54") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OraclePrelude","fst") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","fst") [Var 3,Var 5],Var 6],Var 7]]))]])),Func ("OracleGraphInductive","_case_54") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_53") [Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 5]]))]])),Func ("OracleGraphInductive","_case_53") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleGraphInductive","_case_56") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","length") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","length") [Var 6,Var 7],Var 8]]))]])),Func ("OracleGraphInductive","_case_57") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,,)") [Var 5,Var 2,Var 4]])]])),Func ("OracleGraphInductive","_case_58") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,,)") [Var 2,Var 5,Var 4]])]])),Func ("OracleGraphInductive","_case_59") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Comb FuncCall ("OraclePrelude","++") [Var 3,Var 6,Var 1],Var 7]]))]])),Func ("OracleGraphInductive","_case_61") 4 Private (TVar (-42)) (Rule [2,3,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_60") [Var 3,Var 4,Var 1]])]])),Func ("OracleGraphInductive","_case_60") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","Nothing") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'M'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'E'),Comb ConsCall ("Prelude",":") [Lit (Charc 'x'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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 ','),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'N'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),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","[]") []]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","show") [Var 3,Var 1],Var 7],Var 8]])),Branch (Pattern ("Prelude","Just") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleGraphInductive","_case_64") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleGraphInductive","Gr") [3]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","fst") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMaybe","fromJust") []],Var 1])] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_63") [Var 3,Var 4,Comb FuncCall ("OracleFiniteMap","isEmptyFM") [Var 3,Var 5],Var 6]]))]))]])),Func ("OracleGraphInductive","_case_63") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Lit (Intc 0),Lit (Intc 0)]]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_62") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 6]]))]])),Func ("OracleGraphInductive","_case_62") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Oracle","apply") [Var 4,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFiniteMap","minFM") [Var 1],Var 3,Var 6],Var 7],Comb FuncCall ("Oracle","apply") [Var 4,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFiniteMap","maxFM") [Var 8],Var 3,Var 9],Var 10]]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleGraphInductive","_case_65") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleGraphInductive","Gr") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","sizeFM") [Var 3,Var 1]])]])),Func ("OracleGraphInductive","_case_68") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_67") [Var 2,Var 4,Var 5,Var 1]])]])),Func ("OracleGraphInductive","_case_67") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_66") [Var 2,Var 4,Var 7,Var 1]])]])),Func ("OracleGraphInductive","_case_66") 4 Private (TVar (-42)) (Rule [2,4,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 7) [Branch (Pattern ("Prelude","(,,)") [8,9,10]) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]],Let [(11,Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 1],Var 10,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]],Let [(12,Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 16],Var 8,Var 17])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OracleGraphInductive","updAdj") [Var 4,Var 11,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","clearPred") [Var 2]],Var 18])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Let [(14,Comb FuncCall ("OracleGraphInductive","updAdj") [Var 13,Var 12,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","clearSucc") [Var 2]],Var 19])] (Comb FuncCall ("CEventOracle","collapse") [Var 20,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","(,,,)") [Var 12,Var 2,Var 9,Var 10]],Comb ConsCall ("OracleGraphInductive","Gr") [Var 14]]])]))]))]))]))]])),Func ("OracleGraphInductive","_case_69") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleGraphInductive","Gr") [4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","maybe") [Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Nothing") [],Comb ConsCall ("OracleGraphInductive","Gr") [Var 4]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive","match._#lambda5") [Var 2]],Comb FuncCall ("OracleFiniteMap","splitFM") [Var 4,Var 2,Var 1],Var 5]]))]])),Func ("OracleGraphInductive","_case_70") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleGraphInductive","Gr") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFiniteMap","isEmptyFM") [Var 3,Var 1]])]])),Func ("OracleGraphInductive","_case_71") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleGraphInductive","delNodes") [Var 5,Comb FuncCall ("OraclePrelude","snd") [Comb FuncCall ("OracleGraphInductive","match") [Var 4,Var 3,Var 1],Var 6],Var 7]]))]])),Func ("OracleGraphInductive","_case_75") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_74") [Var 3,Var 4,Var 5,Comb FuncCall ("OracleGraphInductive","match") [Var 4,Var 3,Var 1],Var 6]]))]])),Func ("OracleGraphInductive","_case_74") 5 Private (TVar (-42)) (Rule [3,4,5,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_73") [Var 3,Var 5,Var 7,Var 6,Var 1]])]])),Func ("OracleGraphInductive","_case_73") 5 Private (TVar (-42)) (Rule [3,5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","Just") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_72") [Var 5,Var 7,Var 8,Var 1]])]])),Func ("OracleGraphInductive","_case_72") 4 Private (TVar (-42)) (Rule [5,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","(,,,)") [9,10,11,12]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleGraphInductive",":&") [Comb ConsCall ("Prelude","(,,,)") [Var 9,Var 10,Var 11,Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Var 5]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 1],Var 12,Var 13]],Var 7,Var 14]]))]])),Func ("OracleGraphInductive","_case_78") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_77") [Var 4,Var 3,Var 1]])]])),Func ("OracleGraphInductive","_case_77") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Just") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_76") [Var 4,Var 5,Var 1]])]])),Func ("OracleGraphInductive","_case_76") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","(,,,)") [6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleGraphInductive","_case_81") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_80") [Var 3,Var 1]])]])),Func ("OracleGraphInductive","_case_80") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Just") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_79") [Var 5,Var 1]])]])),Func ("OracleGraphInductive","_case_79") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","(,,,)") [6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleGraphInductive","_case_84") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_83") [Var 3,Var 1]])]])),Func ("OracleGraphInductive","_case_83") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Just") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_82") [Var 5,Var 1]])]])),Func ("OracleGraphInductive","_case_82") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","(,,,)") [6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleGraphInductive","_case_87") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_86") [Var 3,Var 1]])]])),Func ("OracleGraphInductive","_case_86") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Just") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_85") [Var 5,Var 1]])]])),Func ("OracleGraphInductive","_case_85") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","(,,,)") [6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleGraphInductive","_case_88") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,)") [4,5,6]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleGraphInductive","match") [Var 4,Var 3,Var 1])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleGraphInductive","insEdge._#selFP3#pr") [Var 7,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleGraphInductive","insEdge._#selFP4#la") [Var 7,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleGraphInductive","insEdge._#selFP5#su") [Var 7,Var 14])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleGraphInductive","insEdge._#selFP6#g'") [Var 7,Var 15])] (Comb FuncCall ("CEventOracle","replace") [Var 16,Comb FuncCall ("OracleGraphInductive",":&") [Comb ConsCall ("Prelude","(,,,)") [Var 8,Var 4,Var 9,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 6,Var 5],Var 10]],Var 11,Var 16]])]))]))]))]))]))]])),Func ("OracleGraphInductive","_case_89") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleGraphInductive",":&") [Comb ConsCall ("Prelude","(,,,)") [Comb ConsCall ("Prelude","[]") [],Var 3,Var 4,Comb ConsCall ("Prelude","[]") []]]]])]])),Func ("OracleGraphInductive","_case_95") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleGraphInductive","Gr") [3]) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_94") [Var 3,Comb FuncCall ("OracleFiniteMap","isEmptyFM") [Var 3,Var 1],Var 4]]))]])),Func ("OracleGraphInductive","_case_94") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc 'M'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'E'),Comb ConsCall ("Prelude",":") [Lit (Charc 'x'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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 ','),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'E'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'G'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_93") [Var 3,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 5]]))]])),Func ("OracleGraphInductive","_case_93") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleGraphInductive","_case_92") [Var 3,Comb FuncCall ("OraclePrelude","head") [Comb FuncCall ("OracleFiniteMap","fmToListPreOrder") [Var 3,Var 1],Var 5],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleGraphInductive","_case_92") 3 Private (TVar (-42)) (Rule [3,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_91") [Var 3,Var 4,Comb FuncCall ("OracleGraphInductive","match") [Var 4,Comb ConsCall ("OracleGraphInductive","Gr") [Var 3],Var 1],Var 7]]))]])),Func ("OracleGraphInductive","_case_91") 4 Private (TVar (-42)) (Rule [3,4,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_90") [Var 7,Var 6,Var 1]])]])),Func ("OracleGraphInductive","_case_90") 3 Private (TVar (-42)) (Rule [7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","Just") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 8,Var 7]]),Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleGraphInductive","_case_99") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,,)") [4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleGraphInductive","_case_98") [Var 4,Var 5,Var 6,Var 7,Var 3,Var 1]])]])),Func ("OracleGraphInductive","_case_98") 6 Private (TVar (-42)) (Rule [4,5,6,7,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleGraphInductive","Gr") [8]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleFiniteMap","addToFM") [Var 8,Var 5,Comb ConsCall ("Prelude","(,,)") [Var 4,Var 6,Var 7],Var 1])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleGraphInductive","updAdj") [Var 9,Var 4,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","addSucc") [Var 5]],Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleGraphInductive","updAdj") [Var 10,Var 7,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleGraphInductive","addPred") [Var 5]],Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_97") [Var 5,Var 6,Var 8,Var 11,Comb FuncCall ("OracleFiniteMap","elemFM") [Var 5,Var 8,Var 14],Var 15]]))]))]))]))]])),Func ("OracleGraphInductive","_case_97") 6 Private (TVar (-42)) (Rule [5,6,8,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'N'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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 ','),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'N'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),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","[]") []]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","show") [Var 6,Var 13],Var 14],Var 15],Var 16],Var 17]])),Branch (Pattern ("Prelude","False") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleGraphInductive","_case_96") [Var 11,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 18]]))]])),Func ("OracleGraphInductive","_case_96") 3 Private (TVar (-42)) (Rule [11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OracleGraphInductive","Gr") [Var 11]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]]))] [Op ("OracleGraphInductive",".:") InfixrOp 5,Op ("OracleGraphInductive",":&") InfixrOp 5]
+ Curry/Module/OracleIO.fcy view
@@ -0,0 +1,1 @@+Prog "OracleIO" ["CEventOracle","Oracle","IOExts","IO","Prelude","OraclePrelude"] [] [Func ("OracleIO","openFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("IO","IOMode") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("IO","Handle") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleIO","prim_openFile") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleIO","hClose") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","prim_hClose") []],Var 2,Var 1]])),Func ("OracleIO","hFlush") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","prim_hFlush") []],Var 2,Var 1]])),Func ("OracleIO","hIsEOF") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","prim_hIsEOF") []],Var 2,Var 1]])),Func ("OracleIO","isEOF") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleIO","hIsEOF") [Comb FuncCall ("OracleIO","stdin") [Var 1],Var 2]]))),Func ("OracleIO","hSeek") 4 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("IO","SeekMode") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleIO","prim_hSeek") []],Var 2,Var 1],Var 3,Var 5],Var 4,Var 6]]))),Func ("OracleIO","hWaitForInput") 3 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleIO","prim_hWaitForInput") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleIO","hWaitForInputs") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("IO","Handle") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleIO","prim_hWaitForInputs") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleIO","hReady") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleIO","hWaitForInput") [Var 2,Lit (Intc 0),Var 1]])),Func ("OracleIO","hGetChar") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Char") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","prim_hGetChar") []],Var 2,Var 1]])),Func ("OracleIO","hGetLine") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleIO","hGetChar") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","hGetLine._#lambda2") [Var 2]],Var 3]]))),Func ("OracleIO","hGetLine._#lambda2") 3 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleIO","_case_2") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '\n'),Var 1],Var 4]]))),Func ("OracleIO","hGetLine._#lambda2._#lambda3") 3 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude",":") [Var 2,Var 3],Var 1]])),Func ("OracleIO","hGetContents") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleIO","hIsEOF") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","hGetContents._#lambda4") [Var 2]],Var 3]]))),Func ("OracleIO","hGetContents._#lambda4") 3 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleIO","_case_1") [Var 2,Var 3,Var 1]])),Func ("OracleIO","hGetContents._#lambda4._#lambda5") 3 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleIO","hGetContents") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","hGetContents._#lambda4._#lambda5._#lambda6") [Var 3]],Var 4]]))),Func ("OracleIO","hGetContents._#lambda4._#lambda5._#lambda6") 3 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude",":") [Var 2,Var 3],Var 1]])),Func ("OracleIO","getContents") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleIO","hGetContents") [Comb FuncCall ("OracleIO","stdin") [Var 1],Var 2]]))),Func ("OracleIO","hPutChar") 3 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleIO","prim_hPutChar") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleIO","hPutStr") 3 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleIO","_case_0") [Var 2,Var 3,Var 1]])),Func ("OracleIO","hPutStrLn") 3 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleIO","hPutStr") [Var 2,Var 3,Var 1],Comb FuncCall ("OracleIO","hPutChar") [Var 2,Lit (Charc '\n'),Var 4],Var 5]]))),Func ("OracleIO","hPrint") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","hPutStrLn") [Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 1]])),Func ("OracleIO","hIsReadable") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","prim_hIsReadable") []],Var 2,Var 1]])),Func ("OracleIO","hIsWritable") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","prim_hIsWritable") []],Var 2,Var 1]])),Func ("OracleIO","_case_0") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","done") [Var 1]]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleIO","hPutChar") [Var 2,Var 4,Var 1],Comb FuncCall ("OracleIO","hPutStr") [Var 2,Var 5,Var 6],Var 7]]))]])),Func ("OracleIO","_case_1") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleIO","hClose") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","[]") [],Var 4],Var 5]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleIO","hGetChar") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","hGetContents._#lambda4._#lambda5") [Var 2]],Var 6]]))]])),Func ("OracleIO","_case_2") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","[]") [],Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleIO","hGetLine") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","hGetLine._#lambda2._#lambda3") [Var 3]],Var 5]]))]])),Func ("OracleIO","stdin") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("IO","Handle") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("IO","stdin") []])),Func ("OracleIO","stdout") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("IO","Handle") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("IO","stdout") []])),Func ("OracleIO","stderr") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("IO","Handle") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("IO","stderr") []])),Func ("OracleIO","prim_openFile") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("IO","IOMode") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("IO","Handle") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IO","prim_openFile") [Var 3,Var 2]]]])),Func ("OracleIO","prim_hClose") 2 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("IO","prim_hClose") [Var 2]]])),Func ("OracleIO","prim_hFlush") 2 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("IO","prim_hFlush") [Var 2]]])),Func ("OracleIO","prim_hIsEOF") 2 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IO","prim_hIsEOF") [Var 2]]]])),Func ("OracleIO","prim_hSeek") 4 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("IO","SeekMode") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [4,3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("IO","prim_hSeek") [Var 4,Var 3,Var 2]]])),Func ("OracleIO","prim_hWaitForInput") 3 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IO","prim_hWaitForInput") [Var 3,Var 2]]]])),Func ("OracleIO","prim_hWaitForInputs") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("IO","Handle") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IO","prim_hWaitForInputs") [Var 3,Var 2]]]])),Func ("OracleIO","prim_hGetChar") 2 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Char") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IO","prim_hGetChar") [Var 2]]]])),Func ("OracleIO","prim_hPutChar") 3 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("IO","prim_hPutChar") [Var 3,Var 2]]])),Func ("OracleIO","prim_hIsReadable") 2 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IO","prim_hIsReadable") [Var 2]]]])),Func ("OracleIO","prim_hIsWritable") 2 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IO","prim_hIsWritable") [Var 2]]]]))] []
+ Curry/Module/OracleIO.fint view
@@ -0,0 +1,1 @@+Prog "OracleIO" ["CEventOracle","Oracle","IOExts","IO","Prelude","OraclePrelude"] [] [Func ("OracleIO","openFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("IO","IOMode") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("IO","Handle") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleIO","prim_openFile") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleIO","hClose") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","prim_hClose") []],Var 2,Var 1]])),Func ("OracleIO","hFlush") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","prim_hFlush") []],Var 2,Var 1]])),Func ("OracleIO","hIsEOF") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","prim_hIsEOF") []],Var 2,Var 1]])),Func ("OracleIO","isEOF") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleIO","hIsEOF") [Comb FuncCall ("OracleIO","stdin") [Var 1],Var 2]]))),Func ("OracleIO","hSeek") 4 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("IO","SeekMode") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OracleIO","prim_hSeek") []],Var 2,Var 1],Var 3,Var 5],Var 4,Var 6]]))),Func ("OracleIO","hWaitForInput") 3 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleIO","prim_hWaitForInput") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleIO","hWaitForInputs") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("IO","Handle") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleIO","prim_hWaitForInputs") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleIO","hReady") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleIO","hWaitForInput") [Var 2,Lit (Intc 0),Var 1]])),Func ("OracleIO","hGetChar") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Char") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","prim_hGetChar") []],Var 2,Var 1]])),Func ("OracleIO","hGetLine") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleIO","hGetChar") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","hGetLine._#lambda2") [Var 2]],Var 3]]))),Func ("OracleIO","hGetLine._#lambda2") 3 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleIO","_case_2") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '\n'),Var 1],Var 4]]))),Func ("OracleIO","hGetLine._#lambda2._#lambda3") 3 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude",":") [Var 2,Var 3],Var 1]])),Func ("OracleIO","hGetContents") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleIO","hIsEOF") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","hGetContents._#lambda4") [Var 2]],Var 3]]))),Func ("OracleIO","hGetContents._#lambda4") 3 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleIO","_case_1") [Var 2,Var 3,Var 1]])),Func ("OracleIO","hGetContents._#lambda4._#lambda5") 3 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleIO","hGetContents") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","hGetContents._#lambda4._#lambda5._#lambda6") [Var 3]],Var 4]]))),Func ("OracleIO","hGetContents._#lambda4._#lambda5._#lambda6") 3 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude",":") [Var 2,Var 3],Var 1]])),Func ("OracleIO","getContents") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleIO","hGetContents") [Comb FuncCall ("OracleIO","stdin") [Var 1],Var 2]]))),Func ("OracleIO","hPutChar") 3 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleIO","prim_hPutChar") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleIO","hPutStr") 3 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleIO","_case_0") [Var 2,Var 3,Var 1]])),Func ("OracleIO","hPutStrLn") 3 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleIO","hPutStr") [Var 2,Var 3,Var 1],Comb FuncCall ("OracleIO","hPutChar") [Var 2,Lit (Charc '\n'),Var 4],Var 5]]))),Func ("OracleIO","hPrint") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","hPutStrLn") [Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 1]])),Func ("OracleIO","hIsReadable") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","prim_hIsReadable") []],Var 2,Var 1]])),Func ("OracleIO","hIsWritable") 2 Public (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","prim_hIsWritable") []],Var 2,Var 1]])),Func ("OracleIO","_case_0") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","done") [Var 1]]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleIO","hPutChar") [Var 2,Var 4,Var 1],Comb FuncCall ("OracleIO","hPutStr") [Var 2,Var 5,Var 6],Var 7]]))]])),Func ("OracleIO","_case_1") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleIO","hClose") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","[]") [],Var 4],Var 5]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleIO","hGetChar") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","hGetContents._#lambda4._#lambda5") [Var 2]],Var 6]]))]])),Func ("OracleIO","_case_2") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","[]") [],Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleIO","hGetLine") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIO","hGetLine._#lambda2._#lambda3") [Var 3]],Var 5]]))]])),Func ("OracleIO","stdin") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("IO","Handle") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("IO","stdin") []])),Func ("OracleIO","stdout") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("IO","Handle") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("IO","stdout") []])),Func ("OracleIO","stderr") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("IO","Handle") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("IO","stderr") []])),Func ("OracleIO","prim_openFile") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("IO","IOMode") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("IO","Handle") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IO","prim_openFile") [Var 3,Var 2]]]])),Func ("OracleIO","prim_hClose") 2 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("IO","prim_hClose") [Var 2]]])),Func ("OracleIO","prim_hFlush") 2 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("IO","prim_hFlush") [Var 2]]])),Func ("OracleIO","prim_hIsEOF") 2 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IO","prim_hIsEOF") [Var 2]]]])),Func ("OracleIO","prim_hSeek") 4 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("IO","SeekMode") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [4,3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("IO","prim_hSeek") [Var 4,Var 3,Var 2]]])),Func ("OracleIO","prim_hWaitForInput") 3 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IO","prim_hWaitForInput") [Var 3,Var 2]]]])),Func ("OracleIO","prim_hWaitForInputs") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("IO","Handle") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IO","prim_hWaitForInputs") [Var 3,Var 2]]]])),Func ("OracleIO","prim_hGetChar") 2 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Char") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IO","prim_hGetChar") [Var 2]]]])),Func ("OracleIO","prim_hPutChar") 3 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("IO","prim_hPutChar") [Var 3,Var 2]]])),Func ("OracleIO","prim_hIsReadable") 2 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IO","prim_hIsReadable") [Var 2]]]])),Func ("OracleIO","prim_hIsWritable") 2 Private (FuncType (TCons ("IO","Handle") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IO","prim_hIsWritable") [Var 2]]]]))] []
+ Curry/Module/OracleIOExts.fcy view
@@ -0,0 +1,1 @@+Prog "OracleIOExts" ["CEventOracle","Oracle","IOExts","IOExts","IO","Prelude","System","OracleIO","OraclePrelude","OracleSystem"] [] [Func ("OracleIOExts","execCmd") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,,)") [TCons ("IO","Handle") [],TCons ("IO","Handle") [],TCons ("IO","Handle") []]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIOExts","prim_execCmd") []],Var 2,Var 1]])),Func ("OracleIOExts","connectToCommand") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("IO","Handle") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIOExts","prim_connectToCmd") []],Var 2,Var 1]])),Func ("OracleIOExts","readCompleteFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIOExts","readCompleteFile._#lambda2") []],Var 3]]))),Func ("OracleIOExts","readCompleteFile.f.7") 3 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 1)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleIOExts","_case_0") [Var 3,Var 2,Var 1]])),Func ("OracleIOExts","readCompleteFile._#lambda2") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleIOExts","readCompleteFile.f.7") [Var 2,Comb FuncCall ("OraclePrelude","return") [Var 2,Var 1],Var 3]]))),Func ("OracleIOExts","updateFile") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleIOExts","readCompleteFile") [Var 3,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIOExts","updateFile._#lambda3") [Var 2,Var 3]],Var 4]]))),Func ("OracleIOExts","updateFile._#lambda3") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","writeFile") [Var 3,Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5]]))),Func ("OracleIOExts","exclusiveIO") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleSystem","system") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'k'),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 '1'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]],Var 2,Var 1],Var 4],Comb FuncCall ("Oracle","catchFail") [Comb FuncCall ("Oracle",">>=") [Var 3,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIOExts","exclusiveIO._#lambda4") [Var 2]],Var 5],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleSystem","system") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Var 2,Var 6],Var 7],Comb FuncCall ("OraclePrelude","failed") [Var 8],Var 9],Var 10],Var 11]]))),Func ("OracleIOExts","exclusiveIO._#lambda4") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TVar 44) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 44])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleSystem","system") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Var 2,Var 1],Var 4],Comb FuncCall ("OraclePrelude","return") [Var 3,Var 5],Var 6]]))),Func ("OracleIOExts","setAssoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleIOExts","prim_setAssoc") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleIOExts","getAssoc") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIOExts","prim_getAssoc") []],Var 2,Var 1]])),Func ("OracleIOExts","readIORef") 2 Public (FuncType (TCons ("IOExts","IORef") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIOExts","prim_readIORef") []],Var 2,Var 1]])),Func ("OracleIOExts","writeIORef") 3 Public (FuncType (TCons ("IOExts","IORef") [TVar 0]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleIOExts","prim_writeIORef") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleIOExts","_case_0") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleIOExts","readCompleteFile.f.7") [Var 5,Var 3,Var 1]])]])),Func ("OracleIOExts","prim_execCmd") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,,)") [TCons ("IO","Handle") [],TCons ("IO","Handle") [],TCons ("IO","Handle") []]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IOExts","prim_execCmd") [Var 2]]]])),Func ("OracleIOExts","prim_connectToCmd") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("IO","Handle") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IOExts","prim_connectToCmd") [Var 2]]]])),Func ("OracleIOExts","prim_setAssoc") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("IOExts","prim_setAssoc") [Var 3,Var 2]]])),Func ("OracleIOExts","prim_getAssoc") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IOExts","prim_getAssoc") [Var 2]]]])),Func ("OracleIOExts","newIORef") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("IOExts","IORef") [TVar 0]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IOExts","newIORef") [Var 2]]]])),Func ("OracleIOExts","prim_readIORef") 2 Private (FuncType (TCons ("IOExts","IORef") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IOExts","prim_readIORef") [Var 2]]]])),Func ("OracleIOExts","prim_writeIORef") 3 Private (FuncType (TCons ("IOExts","IORef") [TVar 0]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("IOExts","prim_writeIORef") [Var 3,Var 2]]]))] []
+ Curry/Module/OracleIOExts.fint view
@@ -0,0 +1,1 @@+Prog "OracleIOExts" ["CEventOracle","Oracle","IOExts","IOExts","IO","Prelude","System","OracleIO","OraclePrelude","OracleSystem"] [] [Func ("OracleIOExts","execCmd") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,,)") [TCons ("IO","Handle") [],TCons ("IO","Handle") [],TCons ("IO","Handle") []]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIOExts","prim_execCmd") []],Var 2,Var 1]])),Func ("OracleIOExts","connectToCommand") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("IO","Handle") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIOExts","prim_connectToCmd") []],Var 2,Var 1]])),Func ("OracleIOExts","readCompleteFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIOExts","readCompleteFile._#lambda2") []],Var 3]]))),Func ("OracleIOExts","readCompleteFile.f.7") 3 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 1)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleIOExts","_case_0") [Var 3,Var 2,Var 1]])),Func ("OracleIOExts","readCompleteFile._#lambda2") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleIOExts","readCompleteFile.f.7") [Var 2,Comb FuncCall ("OraclePrelude","return") [Var 2,Var 1],Var 3]]))),Func ("OracleIOExts","updateFile") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleIOExts","readCompleteFile") [Var 3,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIOExts","updateFile._#lambda3") [Var 2,Var 3]],Var 4]]))),Func ("OracleIOExts","updateFile._#lambda3") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","writeFile") [Var 3,Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5]]))),Func ("OracleIOExts","exclusiveIO") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleSystem","system") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'k'),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 '1'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]],Var 2,Var 1],Var 4],Comb FuncCall ("Oracle","catchFail") [Comb FuncCall ("Oracle",">>=") [Var 3,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIOExts","exclusiveIO._#lambda4") [Var 2]],Var 5],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleSystem","system") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Var 2,Var 6],Var 7],Comb FuncCall ("OraclePrelude","failed") [Var 8],Var 9],Var 10],Var 11]]))),Func ("OracleIOExts","exclusiveIO._#lambda4") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TVar 44) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 44])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleSystem","system") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]],Var 2,Var 1],Var 4],Comb FuncCall ("OraclePrelude","return") [Var 3,Var 5],Var 6]]))),Func ("OracleIOExts","setAssoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleIOExts","prim_setAssoc") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleIOExts","getAssoc") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIOExts","prim_getAssoc") []],Var 2,Var 1]])),Func ("OracleIOExts","readIORef") 2 Public (FuncType (TCons ("IOExts","IORef") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleIOExts","prim_readIORef") []],Var 2,Var 1]])),Func ("OracleIOExts","writeIORef") 3 Public (FuncType (TCons ("IOExts","IORef") [TVar 0]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleIOExts","prim_writeIORef") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleIOExts","_case_0") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleIOExts","readCompleteFile.f.7") [Var 5,Var 3,Var 1]])]])),Func ("OracleIOExts","prim_execCmd") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,,)") [TCons ("IO","Handle") [],TCons ("IO","Handle") [],TCons ("IO","Handle") []]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IOExts","prim_execCmd") [Var 2]]]])),Func ("OracleIOExts","prim_connectToCmd") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("IO","Handle") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IOExts","prim_connectToCmd") [Var 2]]]])),Func ("OracleIOExts","prim_setAssoc") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("IOExts","prim_setAssoc") [Var 3,Var 2]]])),Func ("OracleIOExts","prim_getAssoc") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IOExts","prim_getAssoc") [Var 2]]]])),Func ("OracleIOExts","newIORef") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("IOExts","IORef") [TVar 0]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IOExts","newIORef") [Var 2]]]])),Func ("OracleIOExts","prim_readIORef") 2 Private (FuncType (TCons ("IOExts","IORef") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("IOExts","prim_readIORef") [Var 2]]]])),Func ("OracleIOExts","prim_writeIORef") 3 Private (FuncType (TCons ("IOExts","IORef") [TVar 0]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("IOExts","prim_writeIORef") [Var 3,Var 2]]]))] []
+ Curry/Module/OracleInteger.fcy view
@@ -0,0 +1,1 @@+Prog "OracleInteger" ["CEventOracle","Oracle","IOExts","Integer","Prelude","OraclePrelude"] [] [Func ("OracleInteger","pow") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_27") [Var 2,Var 3,Comb FuncCall ("OraclePrelude",">=") [Var 3,Lit (Intc 0),Var 1],Var 4]]))),Func ("OracleInteger","pow.powaux.3") 4 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_26") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Intc 0),Var 1],Var 5]]))),Func ("OracleInteger","ilog") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_24") [Var 2,Comb FuncCall ("OraclePrelude",">") [Var 2,Lit (Intc 0),Var 1],Var 3]]))),Func ("OracleInteger","isqrt") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_22") [Var 2,Comb FuncCall ("OraclePrelude",">=") [Var 2,Lit (Intc 0),Var 1],Var 3]]))),Func ("OracleInteger","isqrt.aux.21") 4 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleInteger","_case_19") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 4,Comb FuncCall ("OraclePrelude","+") [Var 3,Lit (Intc 1),Var 1],Var 5],Var 6]]))),Func ("OracleInteger","factorial") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_17") [Var 2,Comb FuncCall ("OraclePrelude",">=") [Var 2,Lit (Intc 0),Var 1],Var 3]]))),Func ("OracleInteger","binomial") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleInteger","_case_15") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">") [Var 3,Lit (Intc 0),Var 1],Comb FuncCall ("OraclePrelude",">=") [Var 2,Var 3,Var 4],Var 5],Var 6]]))),Func ("OracleInteger","binomial.aux.41") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_14") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 0),Var 1],Var 4]]))),Func ("OracleInteger","abs") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_13") [Var 2,Comb FuncCall ("OraclePrelude","<") [Var 2,Lit (Intc 0),Var 1],Var 3]]))),Func ("OracleInteger","max") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_12") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","<") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OracleInteger","min") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_11") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","<") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OracleInteger","max3") 4 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","max") [Var 2,Comb FuncCall ("OracleInteger","max") [Var 3,Var 4,Var 1],Var 5]]))),Func ("OracleInteger","min3") 4 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","min") [Var 2,Comb FuncCall ("OracleInteger","min") [Var 3,Var 4,Var 1],Var 5]]))),Func ("OracleInteger","maxlist") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteger","_case_10") [Var 2,Var 1]])),Func ("OracleInteger","minlist") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteger","_case_8") [Var 2,Var 1]])),Func ("OracleInteger","bitTrunc") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleInteger","bitAnd") [Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OracleInteger","pow") [Lit (Intc 2),Var 2,Var 1],Lit (Intc 1),Var 4],Var 3,Var 5]]))),Func ("OracleInteger","bitAnd") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_6") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Intc 0),Var 1],Var 4]]))),Func ("OracleInteger","bitOr") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_4") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Intc 0),Var 1],Var 4]]))),Func ("OracleInteger","bitNot") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteger","bitNot.aux.100") [Lit (Intc 32),Var 2,Var 1]])),Func ("OracleInteger","bitNot.aux.100") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_2") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 0),Var 1],Var 4]]))),Func ("OracleInteger","bitXor") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_1") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Intc 0),Var 1],Var 4]]))),Func ("OracleInteger","even") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","mod") [Var 2,Lit (Intc 2),Var 1],Lit (Intc 0),Var 3]]))),Func ("OracleInteger","odd") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","/=") [Comb FuncCall ("OraclePrelude","mod") [Var 2,Lit (Intc 2),Var 1],Lit (Intc 0),Var 3]]))),Func ("OracleInteger","_case_1") 4 Private (TVar (-42)) (Rule [2,3,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Let [(4,Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Comb FuncCall ("OracleInteger","bitXor") [Comb FuncCall ("OraclePrelude","div") [Var 2,Lit (Intc 2),Var 1],Comb FuncCall ("OraclePrelude","div") [Var 3,Lit (Intc 2),Var 7],Var 8],Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]],Let [(5,Comb FuncCall ("OracleInteger","_case_0") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","mod") [Var 3,Lit (Intc 2),Var 10],Comb FuncCall ("OraclePrelude","mod") [Var 2,Lit (Intc 2),Var 11],Var 12],Var 13])] (Comb FuncCall ("CEventOracle","replace") [Var 14,Comb FuncCall ("OraclePrelude","+") [Var 4,Var 5,Var 14]])]))]))]])),Func ("OracleInteger","_case_0") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 1)])]])),Func ("OracleInteger","_case_2") 4 Private (TVar (-42)) (Rule [2,3,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Let [(4,Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Comb FuncCall ("OracleInteger","bitNot.aux.100") [Comb FuncCall ("OraclePrelude","-") [Var 2,Lit (Intc 1),Var 1],Comb FuncCall ("OraclePrelude","div") [Var 3,Lit (Intc 2),Var 7],Var 8],Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Let [(5,Comb FuncCall ("OraclePrelude","-") [Lit (Intc 1),Comb FuncCall ("OraclePrelude","mod") [Var 3,Lit (Intc 2),Var 10],Var 11])] (Comb FuncCall ("CEventOracle","replace") [Var 12,Comb FuncCall ("OraclePrelude","+") [Var 4,Var 5,Var 12]])]))]))]])),Func ("OracleInteger","_case_4") 4 Private (TVar (-42)) (Rule [2,3,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Let [(4,Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Comb FuncCall ("OracleInteger","bitOr") [Comb FuncCall ("OraclePrelude","div") [Var 2,Lit (Intc 2),Var 1],Comb FuncCall ("OraclePrelude","div") [Var 3,Lit (Intc 2),Var 7],Var 8],Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Let [(5,Comb FuncCall ("OracleInteger","_case_3") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","mod") [Var 3,Lit (Intc 2),Var 10],Lit (Intc 1),Var 11],Var 12])] (Comb FuncCall ("CEventOracle","replace") [Var 13,Comb FuncCall ("OraclePrelude","+") [Var 4,Var 5,Var 13]])]))]))]])),Func ("OracleInteger","_case_3") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 1)]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","mod") [Var 2,Lit (Intc 2),Var 1]])]])),Func ("OracleInteger","_case_6") 4 Private (TVar (-42)) (Rule [2,3,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Let [(4,Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Comb FuncCall ("OracleInteger","bitAnd") [Comb FuncCall ("OraclePrelude","div") [Var 2,Lit (Intc 2),Var 1],Comb FuncCall ("OraclePrelude","div") [Var 3,Lit (Intc 2),Var 7],Var 8],Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Let [(5,Comb FuncCall ("OracleInteger","_case_5") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","mod") [Var 3,Lit (Intc 2),Var 10],Lit (Intc 0),Var 11],Var 12])] (Comb FuncCall ("CEventOracle","replace") [Var 13,Comb FuncCall ("OraclePrelude","+") [Var 4,Var 5,Var 13]])]))]))]])),Func ("OracleInteger","_case_5") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","mod") [Var 2,Lit (Intc 2),Var 1]])]])),Func ("OracleInteger","_case_8") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteger","_case_7") [Var 3,Var 4,Var 1]])]])),Func ("OracleInteger","_case_7") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","min") [Var 3,Comb FuncCall ("OracleInteger","minlist") [Comb ConsCall ("Prelude",":") [Var 5,Var 6],Var 1],Var 7]]))]])),Func ("OracleInteger","_case_10") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteger","_case_9") [Var 3,Var 4,Var 1]])]])),Func ("OracleInteger","_case_9") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","max") [Var 3,Comb FuncCall ("OracleInteger","maxlist") [Comb ConsCall ("Prelude",":") [Var 5,Var 6],Var 1],Var 7]]))]])),Func ("OracleInteger","_case_11") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleInteger","_case_12") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]])),Func ("OracleInteger","_case_13") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","negate") [Var 2,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]])),Func ("OracleInteger","_case_14") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 1)]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","*") [Var 3,Comb FuncCall ("OracleInteger","binomial.aux.41") [Comb FuncCall ("OraclePrelude","-") [Var 2,Lit (Intc 1),Var 1],Comb FuncCall ("OraclePrelude","-") [Var 3,Lit (Intc 1),Var 5],Var 6],Var 7]]))]])),Func ("OracleInteger","_case_15") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","div") [Comb FuncCall ("OracleInteger","binomial.aux.41") [Var 3,Var 2,Var 1],Comb FuncCall ("OracleInteger","factorial") [Var 3,Var 5],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleInteger","_case_17") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_16") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 0),Var 1],Var 4]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleInteger","_case_16") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 1)]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","*") [Var 2,Comb FuncCall ("OracleInteger","factorial") [Comb FuncCall ("OraclePrelude","-") [Var 2,Lit (Intc 1),Var 1],Var 4],Var 5]]))]])),Func ("OracleInteger","_case_19") 5 Private (TVar (-42)) (Rule [2,3,4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Let [(5,Comb FuncCall ("OraclePrelude","div") [Comb FuncCall ("OraclePrelude","+") [Var 4,Var 3,Var 1],Lit (Intc 2),Var 7])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleInteger","_case_18") [Var 2,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude",">") [Comb FuncCall ("OraclePrelude","*") [Var 5,Var 5,Var 8],Var 2,Var 9],Var 10]]))]))]])),Func ("OracleInteger","_case_18") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteger","isqrt.aux.21") [Var 2,Var 3,Var 5,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteger","isqrt.aux.21") [Var 2,Var 5,Var 4,Var 1]])]])),Func ("OracleInteger","_case_22") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_21") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 0),Var 1],Var 4]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleInteger","_case_21") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_20") [Var 2,Comb FuncCall ("OraclePrelude","<") [Var 2,Lit (Intc 4),Var 1],Var 4]]))]])),Func ("OracleInteger","_case_20") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 1)]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteger","isqrt.aux.21") [Var 2,Lit (Intc 2),Var 2,Var 1]])]])),Func ("OracleInteger","_case_24") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_23") [Var 2,Comb FuncCall ("OraclePrelude","<") [Var 2,Lit (Intc 10),Var 1],Var 4]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleInteger","_case_23") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","+") [Lit (Intc 1),Comb FuncCall ("OracleInteger","ilog") [Comb FuncCall ("OraclePrelude","div") [Var 2,Lit (Intc 10),Var 1],Var 4],Var 5]]))]])),Func ("OracleInteger","_case_26") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OracleInteger","pow.powaux.3") [Comb FuncCall ("OraclePrelude","*") [Var 2,Comb FuncCall ("OracleInteger","_case_25") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","mod") [Var 4,Lit (Intc 2),Var 1],Lit (Intc 1),Var 6],Var 7],Var 8],Comb FuncCall ("OraclePrelude","*") [Var 3,Var 3,Var 9],Comb FuncCall ("OraclePrelude","div") [Var 4,Lit (Intc 2),Var 10],Var 11]]))]])),Func ("OracleInteger","_case_25") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 1)])]])),Func ("OracleInteger","_case_27") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteger","pow.powaux.3") [Lit (Intc 1),Var 2,Var 3,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]]))] []
+ Curry/Module/OracleInteger.fint view
@@ -0,0 +1,1 @@+Prog "OracleInteger" ["CEventOracle","Oracle","IOExts","Integer","Prelude","OraclePrelude"] [] [Func ("OracleInteger","pow") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_27") [Var 2,Var 3,Comb FuncCall ("OraclePrelude",">=") [Var 3,Lit (Intc 0),Var 1],Var 4]]))),Func ("OracleInteger","pow.powaux.3") 4 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_26") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Intc 0),Var 1],Var 5]]))),Func ("OracleInteger","ilog") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_24") [Var 2,Comb FuncCall ("OraclePrelude",">") [Var 2,Lit (Intc 0),Var 1],Var 3]]))),Func ("OracleInteger","isqrt") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_22") [Var 2,Comb FuncCall ("OraclePrelude",">=") [Var 2,Lit (Intc 0),Var 1],Var 3]]))),Func ("OracleInteger","isqrt.aux.21") 4 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleInteger","_case_19") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 4,Comb FuncCall ("OraclePrelude","+") [Var 3,Lit (Intc 1),Var 1],Var 5],Var 6]]))),Func ("OracleInteger","factorial") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_17") [Var 2,Comb FuncCall ("OraclePrelude",">=") [Var 2,Lit (Intc 0),Var 1],Var 3]]))),Func ("OracleInteger","binomial") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleInteger","_case_15") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">") [Var 3,Lit (Intc 0),Var 1],Comb FuncCall ("OraclePrelude",">=") [Var 2,Var 3,Var 4],Var 5],Var 6]]))),Func ("OracleInteger","binomial.aux.41") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_14") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 0),Var 1],Var 4]]))),Func ("OracleInteger","abs") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_13") [Var 2,Comb FuncCall ("OraclePrelude","<") [Var 2,Lit (Intc 0),Var 1],Var 3]]))),Func ("OracleInteger","max") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_12") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","<") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OracleInteger","min") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_11") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","<") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OracleInteger","max3") 4 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","max") [Var 2,Comb FuncCall ("OracleInteger","max") [Var 3,Var 4,Var 1],Var 5]]))),Func ("OracleInteger","min3") 4 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","min") [Var 2,Comb FuncCall ("OracleInteger","min") [Var 3,Var 4,Var 1],Var 5]]))),Func ("OracleInteger","maxlist") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteger","_case_10") [Var 2,Var 1]])),Func ("OracleInteger","minlist") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteger","_case_8") [Var 2,Var 1]])),Func ("OracleInteger","bitTrunc") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleInteger","bitAnd") [Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OracleInteger","pow") [Lit (Intc 2),Var 2,Var 1],Lit (Intc 1),Var 4],Var 3,Var 5]]))),Func ("OracleInteger","bitAnd") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_6") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Intc 0),Var 1],Var 4]]))),Func ("OracleInteger","bitOr") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_4") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Intc 0),Var 1],Var 4]]))),Func ("OracleInteger","bitNot") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteger","bitNot.aux.100") [Lit (Intc 32),Var 2,Var 1]])),Func ("OracleInteger","bitNot.aux.100") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_2") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 0),Var 1],Var 4]]))),Func ("OracleInteger","bitXor") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_1") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Intc 0),Var 1],Var 4]]))),Func ("OracleInteger","even") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","mod") [Var 2,Lit (Intc 2),Var 1],Lit (Intc 0),Var 3]]))),Func ("OracleInteger","odd") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","/=") [Comb FuncCall ("OraclePrelude","mod") [Var 2,Lit (Intc 2),Var 1],Lit (Intc 0),Var 3]]))),Func ("OracleInteger","_case_1") 4 Private (TVar (-42)) (Rule [2,3,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Let [(4,Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Comb FuncCall ("OracleInteger","bitXor") [Comb FuncCall ("OraclePrelude","div") [Var 2,Lit (Intc 2),Var 1],Comb FuncCall ("OraclePrelude","div") [Var 3,Lit (Intc 2),Var 7],Var 8],Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]],Let [(5,Comb FuncCall ("OracleInteger","_case_0") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","mod") [Var 3,Lit (Intc 2),Var 10],Comb FuncCall ("OraclePrelude","mod") [Var 2,Lit (Intc 2),Var 11],Var 12],Var 13])] (Comb FuncCall ("CEventOracle","replace") [Var 14,Comb FuncCall ("OraclePrelude","+") [Var 4,Var 5,Var 14]])]))]))]])),Func ("OracleInteger","_case_0") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 1)])]])),Func ("OracleInteger","_case_2") 4 Private (TVar (-42)) (Rule [2,3,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Let [(4,Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Comb FuncCall ("OracleInteger","bitNot.aux.100") [Comb FuncCall ("OraclePrelude","-") [Var 2,Lit (Intc 1),Var 1],Comb FuncCall ("OraclePrelude","div") [Var 3,Lit (Intc 2),Var 7],Var 8],Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Let [(5,Comb FuncCall ("OraclePrelude","-") [Lit (Intc 1),Comb FuncCall ("OraclePrelude","mod") [Var 3,Lit (Intc 2),Var 10],Var 11])] (Comb FuncCall ("CEventOracle","replace") [Var 12,Comb FuncCall ("OraclePrelude","+") [Var 4,Var 5,Var 12]])]))]))]])),Func ("OracleInteger","_case_4") 4 Private (TVar (-42)) (Rule [2,3,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Let [(4,Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Comb FuncCall ("OracleInteger","bitOr") [Comb FuncCall ("OraclePrelude","div") [Var 2,Lit (Intc 2),Var 1],Comb FuncCall ("OraclePrelude","div") [Var 3,Lit (Intc 2),Var 7],Var 8],Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Let [(5,Comb FuncCall ("OracleInteger","_case_3") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","mod") [Var 3,Lit (Intc 2),Var 10],Lit (Intc 1),Var 11],Var 12])] (Comb FuncCall ("CEventOracle","replace") [Var 13,Comb FuncCall ("OraclePrelude","+") [Var 4,Var 5,Var 13]])]))]))]])),Func ("OracleInteger","_case_3") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 1)]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","mod") [Var 2,Lit (Intc 2),Var 1]])]])),Func ("OracleInteger","_case_6") 4 Private (TVar (-42)) (Rule [2,3,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Let [(4,Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Comb FuncCall ("OracleInteger","bitAnd") [Comb FuncCall ("OraclePrelude","div") [Var 2,Lit (Intc 2),Var 1],Comb FuncCall ("OraclePrelude","div") [Var 3,Lit (Intc 2),Var 7],Var 8],Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Let [(5,Comb FuncCall ("OracleInteger","_case_5") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","mod") [Var 3,Lit (Intc 2),Var 10],Lit (Intc 0),Var 11],Var 12])] (Comb FuncCall ("CEventOracle","replace") [Var 13,Comb FuncCall ("OraclePrelude","+") [Var 4,Var 5,Var 13]])]))]))]])),Func ("OracleInteger","_case_5") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","mod") [Var 2,Lit (Intc 2),Var 1]])]])),Func ("OracleInteger","_case_8") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteger","_case_7") [Var 3,Var 4,Var 1]])]])),Func ("OracleInteger","_case_7") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","min") [Var 3,Comb FuncCall ("OracleInteger","minlist") [Comb ConsCall ("Prelude",":") [Var 5,Var 6],Var 1],Var 7]]))]])),Func ("OracleInteger","_case_10") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteger","_case_9") [Var 3,Var 4,Var 1]])]])),Func ("OracleInteger","_case_9") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","max") [Var 3,Comb FuncCall ("OracleInteger","maxlist") [Comb ConsCall ("Prelude",":") [Var 5,Var 6],Var 1],Var 7]]))]])),Func ("OracleInteger","_case_11") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleInteger","_case_12") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]])),Func ("OracleInteger","_case_13") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","negate") [Var 2,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]])),Func ("OracleInteger","_case_14") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 1)]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","*") [Var 3,Comb FuncCall ("OracleInteger","binomial.aux.41") [Comb FuncCall ("OraclePrelude","-") [Var 2,Lit (Intc 1),Var 1],Comb FuncCall ("OraclePrelude","-") [Var 3,Lit (Intc 1),Var 5],Var 6],Var 7]]))]])),Func ("OracleInteger","_case_15") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","div") [Comb FuncCall ("OracleInteger","binomial.aux.41") [Var 3,Var 2,Var 1],Comb FuncCall ("OracleInteger","factorial") [Var 3,Var 5],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleInteger","_case_17") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_16") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 0),Var 1],Var 4]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleInteger","_case_16") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 1)]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","*") [Var 2,Comb FuncCall ("OracleInteger","factorial") [Comb FuncCall ("OraclePrelude","-") [Var 2,Lit (Intc 1),Var 1],Var 4],Var 5]]))]])),Func ("OracleInteger","_case_19") 5 Private (TVar (-42)) (Rule [2,3,4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Let [(5,Comb FuncCall ("OraclePrelude","div") [Comb FuncCall ("OraclePrelude","+") [Var 4,Var 3,Var 1],Lit (Intc 2),Var 7])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleInteger","_case_18") [Var 2,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude",">") [Comb FuncCall ("OraclePrelude","*") [Var 5,Var 5,Var 8],Var 2,Var 9],Var 10]]))]))]])),Func ("OracleInteger","_case_18") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteger","isqrt.aux.21") [Var 2,Var 3,Var 5,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteger","isqrt.aux.21") [Var 2,Var 5,Var 4,Var 1]])]])),Func ("OracleInteger","_case_22") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_21") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 0),Var 1],Var 4]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleInteger","_case_21") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_20") [Var 2,Comb FuncCall ("OraclePrelude","<") [Var 2,Lit (Intc 4),Var 1],Var 4]]))]])),Func ("OracleInteger","_case_20") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 1)]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteger","isqrt.aux.21") [Var 2,Lit (Intc 2),Var 2,Var 1]])]])),Func ("OracleInteger","_case_24") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteger","_case_23") [Var 2,Comb FuncCall ("OraclePrelude","<") [Var 2,Lit (Intc 10),Var 1],Var 4]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleInteger","_case_23") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","+") [Lit (Intc 1),Comb FuncCall ("OracleInteger","ilog") [Comb FuncCall ("OraclePrelude","div") [Var 2,Lit (Intc 10),Var 1],Var 4],Var 5]]))]])),Func ("OracleInteger","_case_26") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OracleInteger","pow.powaux.3") [Comb FuncCall ("OraclePrelude","*") [Var 2,Comb FuncCall ("OracleInteger","_case_25") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","mod") [Var 4,Lit (Intc 2),Var 1],Lit (Intc 1),Var 6],Var 7],Var 8],Comb FuncCall ("OraclePrelude","*") [Var 3,Var 3,Var 9],Comb FuncCall ("OraclePrelude","div") [Var 4,Lit (Intc 2),Var 10],Var 11]]))]])),Func ("OracleInteger","_case_25") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 1)])]])),Func ("OracleInteger","_case_27") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteger","pow.powaux.3") [Lit (Intc 1),Var 2,Var 3,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]]))] []
+ Curry/Module/OracleInteractive.fcy view
@@ -0,0 +1,1 @@+Prog "OracleInteractive" ["CEventOracle","Oracle","IOExts","Interactive","Prelude","OraclePrelude"] [] [Func ("OracleInteractive","interactiveSols") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteractive","_case_3") [Var 2,Var 1]])),Func ("OracleInteractive","interactiveSols._#lambda2") 3 Private (FuncType (TCons ("Prelude","[]") [TVar 5]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteractive","_case_2") [Var 2,Var 3,Var 1]])),Func ("OracleInteractive","printIO") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle",">>=") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleInteractive","printIO._#lambda4") []],Var 1]])),Func ("OracleInteractive","printIO._#lambda4") 2 Private (FuncType (TVar 25) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","putStr") [Comb ConsCall ("Prelude",":") [Lit (Charc 'I'),Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]],Var 1],Comb FuncCall ("Oracle","$!!") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleInteractive","printTerm") []],Var 2,Var 3],Var 4]]))),Func ("OracleInteractive","_case_2") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteractive","_case_1") [Var 2,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc 'n'),Var 1],Var 6]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteractive","interactiveSols") [Var 2,Var 1]])]])),Func ("OracleInteractive","_case_1") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","()") [],Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteractive","_case_0") [Var 2,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc 'N'),Var 1],Var 6]]))]])),Func ("OracleInteractive","_case_0") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","()") [],Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteractive","interactiveSols") [Var 2,Var 1]])]])),Func ("OracleInteractive","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","putStrLn") [Comb ConsCall ("Prelude",":") [Lit (Charc 'N'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),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 's'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]],Var 1]]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleInteractive","printTerm") [Var 3,Var 1],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","putStrLn") [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","[]") []]]]]],Var 5],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","getLine") [Var 6],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleInteractive","interactiveSols._#lambda2") [Var 4]],Var 7],Var 8],Var 9]]))]])),Func ("OracleInteractive","printTerm") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Interactive","printTerm") [Var 2]]]))] []
+ Curry/Module/OracleInteractive.fint view
@@ -0,0 +1,1 @@+Prog "OracleInteractive" ["CEventOracle","Oracle","IOExts","Interactive","Prelude","OraclePrelude"] [] [Func ("OracleInteractive","interactiveSols") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteractive","_case_3") [Var 2,Var 1]])),Func ("OracleInteractive","interactiveSols._#lambda2") 3 Private (FuncType (TCons ("Prelude","[]") [TVar 5]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteractive","_case_2") [Var 2,Var 3,Var 1]])),Func ("OracleInteractive","printIO") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle",">>=") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleInteractive","printIO._#lambda4") []],Var 1]])),Func ("OracleInteractive","printIO._#lambda4") 2 Private (FuncType (TVar 25) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","putStr") [Comb ConsCall ("Prelude",":") [Lit (Charc 'I'),Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]],Var 1],Comb FuncCall ("Oracle","$!!") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleInteractive","printTerm") []],Var 2,Var 3],Var 4]]))),Func ("OracleInteractive","_case_2") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteractive","_case_1") [Var 2,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc 'n'),Var 1],Var 6]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteractive","interactiveSols") [Var 2,Var 1]])]])),Func ("OracleInteractive","_case_1") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","()") [],Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleInteractive","_case_0") [Var 2,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc 'N'),Var 1],Var 6]]))]])),Func ("OracleInteractive","_case_0") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","()") [],Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleInteractive","interactiveSols") [Var 2,Var 1]])]])),Func ("OracleInteractive","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","putStrLn") [Comb ConsCall ("Prelude",":") [Lit (Charc 'N'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),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 's'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]],Var 1]]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OracleInteractive","printTerm") [Var 3,Var 1],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","putStrLn") [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","[]") []]]]]],Var 5],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","getLine") [Var 6],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleInteractive","interactiveSols._#lambda2") [Var 4]],Var 7],Var 8],Var 9]]))]])),Func ("OracleInteractive","printTerm") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Interactive","printTerm") [Var 2]]]))] []
+ Curry/Module/OracleList.fcy view
@@ -0,0 +1,1 @@+Prog "OracleList" ["CEventOracle","Oracle","IOExts","List","Maybe","Prelude","OracleMaybe","OraclePrelude"] [] [Func ("OracleList","elemIndex") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Maybe") [TCons ("Prelude","Int") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","findIndex") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","==") [Var 2]],Var 1]])),Func ("OracleList","elemIndices") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleList","findIndices") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","==") [Var 2]]]]])),Func ("OracleList","find") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Maybe") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMaybe","listToMaybe") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","filter") [Var 2]],Var 1]])),Func ("OracleList","findIndex") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Maybe") [TCons ("Prelude","Int") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMaybe","listToMaybe") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleList","findIndices") [Var 2]],Var 1]])),Func ("OracleList","findIndices") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleList","findIndices._#lambda4") [Var 2]],Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("OraclePrelude","zip") [Var 3,Comb FuncCall ("OraclePrelude","enumFrom") [Lit (Intc 0),Var 1],Var 4],Var 5]]))),Func ("OracleList","findIndices._#lambda4") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 7) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","(,)") [TVar 7,TCons ("Prelude","Int") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_26") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleList","nub") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","nubBy") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []],Var 2,Var 1]])),Func ("OracleList","nubBy") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_24") [Var 2,Var 3,Var 1]])),Func ("OracleList","nubBy._#lambda6") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 45) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 45) (TCons ("Prelude","Bool") []))))) (FuncType (TVar 45) (FuncType (TVar 45) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Var 4,Var 5],Var 6]]))),Func ("OracleList","delete") 3 Public (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_23") [Var 2,Var 3,Var 1]])),Func ("OracleList","\\\\") 3 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldl") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleList","delete") []]]],Var 2,Var 3,Var 1]])),Func ("OracleList","union") 3 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_21") [Var 3,Var 2,Var 1]])),Func ("OracleList","intersect") 3 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_19") [Var 3,Var 2,Var 1]])),Func ("OracleList","intersperse") 3 Public (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_17") [Var 2,Var 3,Var 1]])),Func ("OracleList","transpose") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_15") [Var 2,Var 1]])),Func ("OracleList","partition") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleList","partition.select.53") [Var 2]],Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []],Var 3,Var 1]])),Func ("OracleList","partition.select.53") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 146) (TCons ("Prelude","Bool") []))) (FuncType (TVar 146) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 146],TCons ("Prelude","[]") [TVar 146]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 146],TCons ("Prelude","[]") [TVar 146]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_13") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleList","group") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleList","groupBy") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []]]]])),Func ("OracleList","groupBy") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_11") [Var 2,Var 3,Var 1]])),Func ("OracleList","groupBy._#selFP3#ys") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 154],TCons ("Prelude","[]") [TVar 154]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 154]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_10") [Var 2,Var 1]])),Func ("OracleList","groupBy._#selFP4#zs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 154],TCons ("Prelude","[]") [TVar 154]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 154]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_9") [Var 2,Var 1]])),Func ("OracleList","replace") 4 Public (FuncType (TVar 0) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_8") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleList","isPrefixOf") 3 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_5") [Var 3,Var 2,Var 1]])),Func ("OracleList","sortBy") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleList","insertBy") [Var 2]],Comb ConsCall ("Prelude","[]") []]]])),Func ("OracleList","insertBy") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_3") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleList","last") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_1") [Var 2,Var 1]])),Func ("OracleList","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_0") [Var 3,Var 4,Var 1]])]])),Func ("OracleList","_case_0") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","last") [Comb ConsCall ("Prelude",":") [Var 5,Var 6],Var 1]])]])),Func ("OracleList","_case_3") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleList","_case_2") [Var 2,Var 3,Var 5,Var 6,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Var 5,Var 7],Var 8]]))]])),Func ("OracleList","_case_2") 6 Private (TVar (-42)) (Rule [2,3,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 5,Var 6]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb FuncCall ("OracleList","insertBy") [Var 2,Var 3,Var 6,Var 1]]])]])),Func ("OracleList","_case_5") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_4") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleList","_case_4") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude",":") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 4,Var 6,Var 1],Comb FuncCall ("OracleList","isPrefixOf") [Var 5,Var 7,Var 8],Var 9]]))]])),Func ("OracleList","_case_8") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleList","_case_7") [Var 2,Var 3,Var 5,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Intc 0),Var 1],Var 7]]))]])),Func ("OracleList","_case_7") 6 Private (TVar (-42)) (Rule [2,3,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Var 6]]),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleList","_case_6") [Var 2,Var 3,Var 5,Var 6,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 8]]))]])),Func ("OracleList","_case_6") 6 Private (TVar (-42)) (Rule [2,3,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 5,Comb FuncCall ("OracleList","replace") [Var 2,Comb FuncCall ("OraclePrelude","-") [Var 3,Lit (Intc 1),Var 1],Var 6,Var 8]]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleList","_case_9") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleList","_case_10") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleList","_case_11") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Let [(6,Comb FuncCall ("OraclePrelude","span") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleList","groupBy._#selFP3#ys") [Var 6,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleList","groupBy._#selFP4#zs") [Var 6,Var 11])] (Comb FuncCall ("CEventOracle","replace") [Var 12,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 4,Var 7],Comb FuncCall ("OracleList","groupBy") [Var 2,Var 8,Var 12]]])]))]))]))]])),Func ("OracleList","_case_13") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleList","_case_12") [Var 2,Var 3,Var 5,Var 6,Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Var 7]]))]])),Func ("OracleList","_case_12") 6 Private (TVar (-42)) (Rule [2,3,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 3,Var 5],Var 6]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 5,Comb ConsCall ("Prelude",":") [Var 3,Var 6]]])]])),Func ("OracleList","_case_15") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_14") [Var 4,Var 3,Var 1]])]])),Func ("OracleList","_case_14") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","transpose") [Var 4,Var 1]]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 5,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","head") []],Var 4,Var 1]],Comb FuncCall ("OracleList","transpose") [Comb ConsCall ("Prelude",":") [Var 6,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","tail") []],Var 4,Var 7]],Var 8]]]))]])),Func ("OracleList","_case_17") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_16") [Var 2,Var 4,Var 5,Var 1]])]])),Func ("OracleList","_case_16") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 2,Comb FuncCall ("OracleList","intersperse") [Var 2,Comb ConsCall ("Prelude",":") [Var 6,Var 7],Var 1]]]])]])),Func ("OracleList","_case_19") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleList","_case_18") [Var 3,Var 4,Var 5,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 4,Var 1],Var 3,Var 6],Var 7]]))]])),Func ("OracleList","_case_18") 5 Private (TVar (-42)) (Rule [3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb FuncCall ("OracleList","intersect") [Var 5,Var 3,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","intersect") [Var 5,Var 3,Var 1]])]])),Func ("OracleList","_case_21") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleList","_case_20") [Var 3,Var 4,Var 5,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 4,Var 1],Var 3,Var 6],Var 7]]))]])),Func ("OracleList","_case_20") 5 Private (TVar (-42)) (Rule [3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","union") [Var 5,Var 3,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb FuncCall ("OracleList","union") [Var 5,Var 3,Var 1]]])]])),Func ("OracleList","_case_23") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleList","_case_22") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 2,Var 4,Var 1],Var 6]]))]])),Func ("OracleList","_case_22") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb FuncCall ("OracleList","delete") [Var 2,Var 5,Var 1]]])]])),Func ("OracleList","_case_24") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 4,Comb FuncCall ("OracleList","nubBy") [Var 2,Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleList","nubBy._#lambda6") [Var 2,Var 4]],Var 5,Var 1],Var 6]]]))]])),Func ("OracleList","_case_26") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleList","_case_25") [Var 2,Var 5,Var 6,Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 7],Var 4,Var 8]]))]])),Func ("OracleList","_case_25") 5 Private (TVar (-42)) (Rule [2,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]]))] [Op ("OracleList","\\\\") InfixOp 5]
+ Curry/Module/OracleList.fint view
@@ -0,0 +1,1 @@+Prog "OracleList" ["CEventOracle","Oracle","IOExts","List","Maybe","Prelude","OracleMaybe","OraclePrelude"] [] [Func ("OracleList","elemIndex") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Maybe") [TCons ("Prelude","Int") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","findIndex") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","==") [Var 2]],Var 1]])),Func ("OracleList","elemIndices") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleList","findIndices") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","==") [Var 2]]]]])),Func ("OracleList","find") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Maybe") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMaybe","listToMaybe") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","filter") [Var 2]],Var 1]])),Func ("OracleList","findIndex") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Maybe") [TCons ("Prelude","Int") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMaybe","listToMaybe") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleList","findIndices") [Var 2]],Var 1]])),Func ("OracleList","findIndices") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleList","findIndices._#lambda4") [Var 2]],Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("OraclePrelude","zip") [Var 3,Comb FuncCall ("OraclePrelude","enumFrom") [Lit (Intc 0),Var 1],Var 4],Var 5]]))),Func ("OracleList","findIndices._#lambda4") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 7) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","(,)") [TVar 7,TCons ("Prelude","Int") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_26") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleList","nub") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","nubBy") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []],Var 2,Var 1]])),Func ("OracleList","nubBy") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_24") [Var 2,Var 3,Var 1]])),Func ("OracleList","nubBy._#lambda6") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 45) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 45) (TCons ("Prelude","Bool") []))))) (FuncType (TVar 45) (FuncType (TVar 45) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Var 4,Var 5],Var 6]]))),Func ("OracleList","delete") 3 Public (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_23") [Var 2,Var 3,Var 1]])),Func ("OracleList","\\\\") 3 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldl") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleList","delete") []]]],Var 2,Var 3,Var 1]])),Func ("OracleList","union") 3 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_21") [Var 3,Var 2,Var 1]])),Func ("OracleList","intersect") 3 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_19") [Var 3,Var 2,Var 1]])),Func ("OracleList","intersperse") 3 Public (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_17") [Var 2,Var 3,Var 1]])),Func ("OracleList","transpose") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_15") [Var 2,Var 1]])),Func ("OracleList","partition") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleList","partition.select.53") [Var 2]],Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []],Var 3,Var 1]])),Func ("OracleList","partition.select.53") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 146) (TCons ("Prelude","Bool") []))) (FuncType (TVar 146) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 146],TCons ("Prelude","[]") [TVar 146]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 146],TCons ("Prelude","[]") [TVar 146]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_13") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleList","group") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleList","groupBy") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []]]]])),Func ("OracleList","groupBy") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_11") [Var 2,Var 3,Var 1]])),Func ("OracleList","groupBy._#selFP3#ys") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 154],TCons ("Prelude","[]") [TVar 154]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 154]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_10") [Var 2,Var 1]])),Func ("OracleList","groupBy._#selFP4#zs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 154],TCons ("Prelude","[]") [TVar 154]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 154]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_9") [Var 2,Var 1]])),Func ("OracleList","replace") 4 Public (FuncType (TVar 0) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_8") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleList","isPrefixOf") 3 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_5") [Var 3,Var 2,Var 1]])),Func ("OracleList","sortBy") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleList","insertBy") [Var 2]],Comb ConsCall ("Prelude","[]") []]]])),Func ("OracleList","insertBy") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_3") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleList","last") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_1") [Var 2,Var 1]])),Func ("OracleList","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_0") [Var 3,Var 4,Var 1]])]])),Func ("OracleList","_case_0") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","last") [Comb ConsCall ("Prelude",":") [Var 5,Var 6],Var 1]])]])),Func ("OracleList","_case_3") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleList","_case_2") [Var 2,Var 3,Var 5,Var 6,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Var 5,Var 7],Var 8]]))]])),Func ("OracleList","_case_2") 6 Private (TVar (-42)) (Rule [2,3,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 5,Var 6]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb FuncCall ("OracleList","insertBy") [Var 2,Var 3,Var 6,Var 1]]])]])),Func ("OracleList","_case_5") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_4") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleList","_case_4") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude",":") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 4,Var 6,Var 1],Comb FuncCall ("OracleList","isPrefixOf") [Var 5,Var 7,Var 8],Var 9]]))]])),Func ("OracleList","_case_8") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleList","_case_7") [Var 2,Var 3,Var 5,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Intc 0),Var 1],Var 7]]))]])),Func ("OracleList","_case_7") 6 Private (TVar (-42)) (Rule [2,3,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Var 6]]),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleList","_case_6") [Var 2,Var 3,Var 5,Var 6,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 8]]))]])),Func ("OracleList","_case_6") 6 Private (TVar (-42)) (Rule [2,3,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 5,Comb FuncCall ("OracleList","replace") [Var 2,Comb FuncCall ("OraclePrelude","-") [Var 3,Lit (Intc 1),Var 1],Var 6,Var 8]]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleList","_case_9") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleList","_case_10") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleList","_case_11") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Let [(6,Comb FuncCall ("OraclePrelude","span") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleList","groupBy._#selFP3#ys") [Var 6,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleList","groupBy._#selFP4#zs") [Var 6,Var 11])] (Comb FuncCall ("CEventOracle","replace") [Var 12,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 4,Var 7],Comb FuncCall ("OracleList","groupBy") [Var 2,Var 8,Var 12]]])]))]))]))]])),Func ("OracleList","_case_13") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleList","_case_12") [Var 2,Var 3,Var 5,Var 6,Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Var 7]]))]])),Func ("OracleList","_case_12") 6 Private (TVar (-42)) (Rule [2,3,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 3,Var 5],Var 6]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 5,Comb ConsCall ("Prelude",":") [Var 3,Var 6]]])]])),Func ("OracleList","_case_15") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_14") [Var 4,Var 3,Var 1]])]])),Func ("OracleList","_case_14") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","transpose") [Var 4,Var 1]]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 5,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","head") []],Var 4,Var 1]],Comb FuncCall ("OracleList","transpose") [Comb ConsCall ("Prelude",":") [Var 6,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","tail") []],Var 4,Var 7]],Var 8]]]))]])),Func ("OracleList","_case_17") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","_case_16") [Var 2,Var 4,Var 5,Var 1]])]])),Func ("OracleList","_case_16") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 2,Comb FuncCall ("OracleList","intersperse") [Var 2,Comb ConsCall ("Prelude",":") [Var 6,Var 7],Var 1]]]])]])),Func ("OracleList","_case_19") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleList","_case_18") [Var 3,Var 4,Var 5,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 4,Var 1],Var 3,Var 6],Var 7]]))]])),Func ("OracleList","_case_18") 5 Private (TVar (-42)) (Rule [3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb FuncCall ("OracleList","intersect") [Var 5,Var 3,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","intersect") [Var 5,Var 3,Var 1]])]])),Func ("OracleList","_case_21") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleList","_case_20") [Var 3,Var 4,Var 5,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 4,Var 1],Var 3,Var 6],Var 7]]))]])),Func ("OracleList","_case_20") 5 Private (TVar (-42)) (Rule [3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleList","union") [Var 5,Var 3,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb FuncCall ("OracleList","union") [Var 5,Var 3,Var 1]]])]])),Func ("OracleList","_case_23") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleList","_case_22") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 2,Var 4,Var 1],Var 6]]))]])),Func ("OracleList","_case_22") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb FuncCall ("OracleList","delete") [Var 2,Var 5,Var 1]]])]])),Func ("OracleList","_case_24") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 4,Comb FuncCall ("OracleList","nubBy") [Var 2,Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleList","nubBy._#lambda6") [Var 2,Var 4]],Var 5,Var 1],Var 6]]]))]])),Func ("OracleList","_case_26") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleList","_case_25") [Var 2,Var 5,Var 6,Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 7],Var 4,Var 8]]))]])),Func ("OracleList","_case_25") 5 Private (TVar (-42)) (Rule [2,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]]))] [Op ("OracleList","\\\\") InfixOp 5]
+ Curry/Module/OracleMaybe.fcy view
@@ -0,0 +1,1 @@+Prog "OracleMaybe" ["CEventOracle","Oracle","IOExts","Maybe","Prelude","OraclePrelude"] [] [Func ("OracleMaybe","isJust") 2 Public (FuncType (TCons ("Prelude","Maybe") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMaybe","_case_8") [Var 2,Var 1]])),Func ("OracleMaybe","isNothing") 2 Public (FuncType (TCons ("Prelude","Maybe") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMaybe","_case_7") [Var 2,Var 1]])),Func ("OracleMaybe","fromJust") 2 Public (FuncType (TCons ("Prelude","Maybe") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMaybe","_case_6") [Var 2,Var 1]])),Func ("OracleMaybe","fromMaybe") 3 Public (FuncType (TVar 0) (FuncType (TCons ("Prelude","Maybe") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMaybe","_case_5") [Var 2,Var 3,Var 1]])),Func ("OracleMaybe","maybeToList") 2 Public (FuncType (TCons ("Prelude","Maybe") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMaybe","_case_4") [Var 2,Var 1]])),Func ("OracleMaybe","listToMaybe") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMaybe","_case_3") [Var 2,Var 1]])),Func ("OracleMaybe","catMaybes") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Maybe") [TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleMaybe","catMaybes._#lambda4") []],Comb ConsCall ("Prelude","[]") [],Var 2,Var 1]])),Func ("OracleMaybe","catMaybes._#lambda4") 3 Private (FuncType (TCons ("Prelude","Maybe") [TVar 37]) (FuncType (TCons ("Prelude","[]") [TVar 37]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 37])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMaybe","_case_2") [Var 3,Var 2,Var 1]])),Func ("OracleMaybe","mapMaybe") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Maybe") [TVar 1]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 1]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMaybe","catMaybes") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Var 2]],Var 1]])),Func ("OracleMaybe",">>-") 3 Public (FuncType (TCons ("Prelude","Maybe") [TVar 0]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Maybe") [TVar 1]))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMaybe","_case_1") [Var 3,Var 2,Var 1]])),Func ("OracleMaybe","sequenceMaybe") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Maybe") [TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TVar 0]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMaybe","_case_0") [Var 2,Var 1]])),Func ("OracleMaybe","sequenceMaybe._#lambda6") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Maybe") [TVar 66]]) (FuncType (TVar 66) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TVar 66]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleMaybe",">>-") [Comb FuncCall ("OracleMaybe","sequenceMaybe") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMaybe","sequenceMaybe._#lambda6._#lambda7") [Var 3]],Var 4]]))),Func ("OracleMaybe","sequenceMaybe._#lambda6._#lambda7") 3 Private (FuncType (TVar 66) (FuncType (TCons ("Prelude","[]") [TVar 66]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TVar 66]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude",":") [Var 2,Var 3]]])),Func ("OracleMaybe","mapMMaybe") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Maybe") [TVar 1]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TVar 1]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMaybe","sequenceMaybe") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Var 2]],Var 1]])),Func ("OracleMaybe","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMaybe",">>-") [Var 3,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMaybe","sequenceMaybe._#lambda6") [Var 4]],Var 1]])]])),Func ("OracleMaybe","_case_1") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("Prelude","Just") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 3,Var 4,Var 1]])]])),Func ("OracleMaybe","_case_2") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","Just") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Var 3]]),Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleMaybe","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Var 3]])]])),Func ("OracleMaybe","_case_4") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","Just") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]])]])),Func ("OracleMaybe","_case_5") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","Just") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleMaybe","_case_6") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Just") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc 'M'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'J'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),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","[]") []]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleMaybe","_case_7") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude","Just") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleMaybe","_case_8") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Just") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]]))] [Op ("OracleMaybe",">>-") InfixlOp 1]
+ Curry/Module/OracleMaybe.fint view
@@ -0,0 +1,1 @@+Prog "OracleMaybe" ["CEventOracle","Oracle","IOExts","Maybe","Prelude","OraclePrelude"] [] [Func ("OracleMaybe","isJust") 2 Public (FuncType (TCons ("Prelude","Maybe") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMaybe","_case_8") [Var 2,Var 1]])),Func ("OracleMaybe","isNothing") 2 Public (FuncType (TCons ("Prelude","Maybe") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMaybe","_case_7") [Var 2,Var 1]])),Func ("OracleMaybe","fromJust") 2 Public (FuncType (TCons ("Prelude","Maybe") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMaybe","_case_6") [Var 2,Var 1]])),Func ("OracleMaybe","fromMaybe") 3 Public (FuncType (TVar 0) (FuncType (TCons ("Prelude","Maybe") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMaybe","_case_5") [Var 2,Var 3,Var 1]])),Func ("OracleMaybe","maybeToList") 2 Public (FuncType (TCons ("Prelude","Maybe") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMaybe","_case_4") [Var 2,Var 1]])),Func ("OracleMaybe","listToMaybe") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMaybe","_case_3") [Var 2,Var 1]])),Func ("OracleMaybe","catMaybes") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Maybe") [TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleMaybe","catMaybes._#lambda4") []],Comb ConsCall ("Prelude","[]") [],Var 2,Var 1]])),Func ("OracleMaybe","catMaybes._#lambda4") 3 Private (FuncType (TCons ("Prelude","Maybe") [TVar 37]) (FuncType (TCons ("Prelude","[]") [TVar 37]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 37])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMaybe","_case_2") [Var 3,Var 2,Var 1]])),Func ("OracleMaybe","mapMaybe") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Maybe") [TVar 1]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 1]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMaybe","catMaybes") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Var 2]],Var 1]])),Func ("OracleMaybe",">>-") 3 Public (FuncType (TCons ("Prelude","Maybe") [TVar 0]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Maybe") [TVar 1]))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMaybe","_case_1") [Var 3,Var 2,Var 1]])),Func ("OracleMaybe","sequenceMaybe") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Maybe") [TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TVar 0]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMaybe","_case_0") [Var 2,Var 1]])),Func ("OracleMaybe","sequenceMaybe._#lambda6") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Maybe") [TVar 66]]) (FuncType (TVar 66) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TVar 66]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleMaybe",">>-") [Comb FuncCall ("OracleMaybe","sequenceMaybe") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMaybe","sequenceMaybe._#lambda6._#lambda7") [Var 3]],Var 4]]))),Func ("OracleMaybe","sequenceMaybe._#lambda6._#lambda7") 3 Private (FuncType (TVar 66) (FuncType (TCons ("Prelude","[]") [TVar 66]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TVar 66]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude",":") [Var 2,Var 3]]])),Func ("OracleMaybe","mapMMaybe") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Maybe") [TVar 1]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TVar 1]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMaybe","sequenceMaybe") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Var 2]],Var 1]])),Func ("OracleMaybe","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMaybe",">>-") [Var 3,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMaybe","sequenceMaybe._#lambda6") [Var 4]],Var 1]])]])),Func ("OracleMaybe","_case_1") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("Prelude","Just") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 3,Var 4,Var 1]])]])),Func ("OracleMaybe","_case_2") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","Just") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Var 3]]),Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleMaybe","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Var 3]])]])),Func ("OracleMaybe","_case_4") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","Just") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]])]])),Func ("OracleMaybe","_case_5") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","Just") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleMaybe","_case_6") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Just") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc 'M'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'J'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),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","[]") []]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleMaybe","_case_7") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude","Just") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleMaybe","_case_8") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Just") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]]))] [Op ("OracleMaybe",">>-") InfixlOp 1]
+ Curry/Module/OracleMeta.fcy view
@@ -0,0 +1,1 @@+Prog "OracleMeta" ["CEventOracle","Oracle","IOExts","Meta","Prelude","OraclePrelude"] [] [Func ("OracleMeta","isFree") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Either") [TVar 0,TVar 0]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","headNormalFormIO") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMeta","prim_isFree") []],Var 2,Var 1]])),Func ("OracleMeta","throw") 2 Public (FuncType (TCons ("Meta","Exception") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMeta","prim_throw") []],Var 2,Var 1]])),Func ("OracleMeta","list") 2 Private (FuncType (TCons ("Meta","Seq") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMeta","_case_4") [Var 2,Var 1]])),Func ("OracleMeta","interleave") 3 Private (FuncType (TCons ("Meta","Seq") [TVar 0]) (FuncType (TCons ("Meta","Seq") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Meta","Seq") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMeta","_case_3") [Var 3,Var 2,Var 1]])),Func ("OracleMeta","seq") 2 Private (FuncType (TCons ("Prelude","SearchTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Meta","Seq") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMeta","_case_1") [Var 2,Var 1]])),Func ("OracleMeta","isValOrChoice") 2 Private (FuncType (TCons ("Prelude","SearchTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMeta","_case_0") [Var 2,Var 1]])),Func ("OracleMeta","allValuesI") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","SearchTree") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMeta","list") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMeta","seq") []],Var 1]])),Func ("OracleMeta","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Fail") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude","Value") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude","Choice") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude","Suspend") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleMeta","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Fail") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Meta","Nil") []]),Branch (Pattern ("Prelude","Value") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Meta","Cons") [Var 3,Comb ConsCall ("Meta","Nil") []]]),Branch (Pattern ("Prelude","Choice") [4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","foldr1") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleMeta","interleave") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Meta","Nil") [],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMeta","seq") []],Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMeta","isValOrChoice") []],Var 4,Var 1],Var 5]],Var 6]])),Branch (Pattern ("Prelude","Suspend") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Meta","Nil") []])]])),Func ("OracleMeta","_case_3") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Meta","Nil") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Meta","Continued") [Var 3]]),Branch (Pattern ("Meta","Cons") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Meta","Cons") [Var 4,Comb FuncCall ("OracleMeta","interleave") [Var 3,Var 5,Var 1]]]),Branch (Pattern ("Meta","Continued") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMeta","_case_2") [Var 2,Var 6,Var 3,Var 1]])]])),Func ("OracleMeta","_case_2") 4 Private (TVar (-42)) (Rule [2,6,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Meta","Nil") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Meta","Cons") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Meta","Cons") [Var 7,Comb FuncCall ("OracleMeta","interleave") [Var 6,Var 8,Var 1]]]),Branch (Pattern ("Meta","Continued") [9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Meta","Continued") [Comb FuncCall ("OracleMeta","interleave") [Var 6,Var 9,Var 1]]])]])),Func ("OracleMeta","_case_4") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Meta","Nil") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Meta","Cons") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("OracleMeta","list") [Var 4,Var 1]]]),Branch (Pattern ("Meta","Continued") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMeta","list") [Var 5,Var 1]])]])),Func ("OracleMeta","prim_isFree") 2 Private (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Either") [TVar 0,TVar 0]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Meta","prim_isFree") [Var 2]]]])),Func ("OracleMeta","searchTree") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","SearchTree") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Meta","searchTree") [Var 2]])),Func ("OracleMeta","gnfIO") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Meta","gnfIO") [Var 2]]]])),Func ("OracleMeta","ghnfIO") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Meta","ghnfIO") [Var 2]]]])),Func ("OracleMeta","nfIO") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Meta","nfIO") [Var 2]]]])),Func ("OracleMeta","hnfIO") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Meta","hnfIO") [Var 2]]]])),Func ("OracleMeta","getRichSearchTree") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Meta","RichSearchTree") [TVar 0]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Meta","getRichSearchTree") [Var 2]]]])),Func ("OracleMeta","richSearchTree") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Meta","RichSearchTree") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Meta","richSearchTree") [Var 2]])),Func ("OracleMeta","parallelSearch") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TVar 0]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Meta","parallelSearch") [Var 2]]]])),Func ("OracleMeta","cover") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Meta","cover") [Var 2]])),Func ("OracleMeta","st") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","SearchTree") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Meta","st") [Var 2]])),Func ("OracleMeta","richST") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Meta","RichSearchTree") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Meta","richST") [Var 2]])),Func ("OracleMeta","ors") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Meta","ors") [Var 2]])),Func ("OracleMeta","prim_throw") 2 Private (FuncType (TCons ("Meta","Exception") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Meta","prim_throw") [Var 2]]))] []
+ Curry/Module/OracleMeta.fint view
@@ -0,0 +1,1 @@+Prog "OracleMeta" ["CEventOracle","Oracle","IOExts","Meta","Prelude","OraclePrelude"] [] [Func ("OracleMeta","isFree") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Either") [TVar 0,TVar 0]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","headNormalFormIO") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMeta","prim_isFree") []],Var 2,Var 1]])),Func ("OracleMeta","throw") 2 Public (FuncType (TCons ("Meta","Exception") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMeta","prim_throw") []],Var 2,Var 1]])),Func ("OracleMeta","list") 2 Private (FuncType (TCons ("Meta","Seq") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMeta","_case_4") [Var 2,Var 1]])),Func ("OracleMeta","interleave") 3 Private (FuncType (TCons ("Meta","Seq") [TVar 0]) (FuncType (TCons ("Meta","Seq") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Meta","Seq") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMeta","_case_3") [Var 3,Var 2,Var 1]])),Func ("OracleMeta","seq") 2 Private (FuncType (TCons ("Prelude","SearchTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Meta","Seq") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMeta","_case_1") [Var 2,Var 1]])),Func ("OracleMeta","isValOrChoice") 2 Private (FuncType (TCons ("Prelude","SearchTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMeta","_case_0") [Var 2,Var 1]])),Func ("OracleMeta","allValuesI") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","SearchTree") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMeta","list") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMeta","seq") []],Var 1]])),Func ("OracleMeta","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Fail") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude","Value") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude","Choice") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude","Suspend") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleMeta","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Fail") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Meta","Nil") []]),Branch (Pattern ("Prelude","Value") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Meta","Cons") [Var 3,Comb ConsCall ("Meta","Nil") []]]),Branch (Pattern ("Prelude","Choice") [4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","foldr1") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleMeta","interleave") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Meta","Nil") [],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMeta","seq") []],Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMeta","isValOrChoice") []],Var 4,Var 1],Var 5]],Var 6]])),Branch (Pattern ("Prelude","Suspend") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Meta","Nil") []])]])),Func ("OracleMeta","_case_3") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Meta","Nil") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Meta","Continued") [Var 3]]),Branch (Pattern ("Meta","Cons") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Meta","Cons") [Var 4,Comb FuncCall ("OracleMeta","interleave") [Var 3,Var 5,Var 1]]]),Branch (Pattern ("Meta","Continued") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMeta","_case_2") [Var 2,Var 6,Var 3,Var 1]])]])),Func ("OracleMeta","_case_2") 4 Private (TVar (-42)) (Rule [2,6,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Meta","Nil") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Meta","Cons") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Meta","Cons") [Var 7,Comb FuncCall ("OracleMeta","interleave") [Var 6,Var 8,Var 1]]]),Branch (Pattern ("Meta","Continued") [9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Meta","Continued") [Comb FuncCall ("OracleMeta","interleave") [Var 6,Var 9,Var 1]]])]])),Func ("OracleMeta","_case_4") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Meta","Nil") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Meta","Cons") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("OracleMeta","list") [Var 4,Var 1]]]),Branch (Pattern ("Meta","Continued") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleMeta","list") [Var 5,Var 1]])]])),Func ("OracleMeta","prim_isFree") 2 Private (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Either") [TVar 0,TVar 0]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Meta","prim_isFree") [Var 2]]]])),Func ("OracleMeta","searchTree") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","SearchTree") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Meta","searchTree") [Var 2]])),Func ("OracleMeta","gnfIO") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Meta","gnfIO") [Var 2]]]])),Func ("OracleMeta","ghnfIO") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Meta","ghnfIO") [Var 2]]]])),Func ("OracleMeta","nfIO") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Meta","nfIO") [Var 2]]]])),Func ("OracleMeta","hnfIO") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Meta","hnfIO") [Var 2]]]])),Func ("OracleMeta","getRichSearchTree") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Meta","RichSearchTree") [TVar 0]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Meta","getRichSearchTree") [Var 2]]]])),Func ("OracleMeta","richSearchTree") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Meta","RichSearchTree") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Meta","richSearchTree") [Var 2]])),Func ("OracleMeta","parallelSearch") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TVar 0]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Meta","parallelSearch") [Var 2]]]])),Func ("OracleMeta","cover") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Meta","cover") [Var 2]])),Func ("OracleMeta","st") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","SearchTree") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Meta","st") [Var 2]])),Func ("OracleMeta","richST") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Meta","RichSearchTree") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Meta","richST") [Var 2]])),Func ("OracleMeta","ors") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Meta","ors") [Var 2]])),Func ("OracleMeta","prim_throw") 2 Private (FuncType (TCons ("Meta","Exception") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Meta","prim_throw") [Var 2]]))] []
+ Curry/Module/OracleParser.fcy view
@@ -0,0 +1,1 @@+Prog "OracleParser" ["CEventOracle","Oracle","IOExts","Parser","Prelude","OraclePrelude"] [] [Func ("OracleParser","<|>") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Or (Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleParser","<|>._#lambda2") [Var 2]]) (Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleParser","<|>._#lambda3") [Var 3]])])),Func ("OracleParser","<|>._#lambda2") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 2]) (TCons ("Prelude","[]") [TVar 2]))) (FuncType (TCons ("Prelude","[]") [TVar 2]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 2])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1]])),Func ("OracleParser","<|>._#lambda3") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 2]) (TCons ("Prelude","[]") [TVar 2]))) (FuncType (TCons ("Prelude","[]") [TVar 2]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 2])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1]])),Func ("OracleParser","<||>") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TCons ("Prelude","[]") [TVar 1]))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TCons ("Prelude","[]") [TVar 1]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TCons ("Prelude","[]") [TVar 1])))))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleParser","<||>._#lambda4") [Var 2,Var 3]]])),Func ("OracleParser","<||>._#lambda4") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 17) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 18]) (TCons ("Prelude","[]") [TVar 18]))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 17) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 18]) (TCons ("Prelude","[]") [TVar 18]))))) (FuncType (TVar 17) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 18]) (TCons ("Prelude","[]") [TVar 18]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleParser","<|>") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Comb FuncCall ("Oracle","apply") [Var 3,Var 4,Var 5],Var 6]]))),Func ("OracleParser","<*>") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleParser","<*>.seq.14") [Var 2,Var 3]]])),Func ("OracleParser","<*>.seq.14") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 23]) (TCons ("Prelude","[]") [TVar 23]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 23]) (TCons ("Prelude","[]") [TVar 23]))) (FuncType (TCons ("Prelude","[]") [TVar 23]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 23]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$!!") [Var 3,Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5]]))),Func ("OracleParser",">>>") 5 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (FuncType (TVar 1) (FuncType (TVar 1) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$!!") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleParser",">>>.attach.18") [Var 4,Var 3]],Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 6]]))),Func ("OracleParser",">>>.attach.18") 4 Private (FuncType (TVar 36) (FuncType (TVar 36) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","cond") [Comb FuncCall ("OraclePrelude","=:=") [Var 3,Var 2,Var 1],Var 4,Var 5]]))),Func ("OracleParser","empty") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OracleParser","terminal") 3 Public (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleParser","_case_1") [Var 2,Var 3,Var 1]])),Func ("OracleParser","satisfy") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleParser","_case_0") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleParser","star") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TCons ("Prelude","[]") [TVar 1]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TCons ("Prelude","[]") [TVar 1]))))))) (Rule [2,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]]],Let [(3,Comb FuncCall ("Oracle","unknown") [Var 1]),(4,Comb FuncCall ("Oracle","unknown") [Var 5])] (Comb FuncCall ("OracleParser","<||>") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleParser",">>>") [Comb FuncCall ("OracleParser","<*>") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 6],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleParser","star") [Var 2,Var 7],Var 4,Var 8],Var 9],Comb ConsCall ("Prelude",":") [Var 3,Var 4]]],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleParser",">>>") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleParser","empty") []],Comb ConsCall ("Prelude","[]") []]],Var 10])]))),Func ("OracleParser","some") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TCons ("Prelude","[]") [TVar 1]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TCons ("Prelude","[]") [TVar 1]))))))) (Rule [2,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]]],Let [(3,Comb FuncCall ("Oracle","unknown") [Var 1]),(4,Comb FuncCall ("Oracle","unknown") [Var 5])] (Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleParser",">>>") [Comb FuncCall ("OracleParser","<*>") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 6],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleParser","star") [Var 2,Var 7],Var 4,Var 8],Var 9],Comb ConsCall ("Prelude",":") [Var 3,Var 4]]])]))),Func ("OracleParser","_case_0") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","cond") [Comb FuncCall ("OraclePrelude","&") [Comb FuncCall ("OraclePrelude","=:=") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Comb ConsCall ("Prelude","True") [],Var 7],Comb FuncCall ("OraclePrelude","=:=") [Var 3,Var 5,Var 8],Var 9],Var 6,Var 10]]))]])),Func ("OracleParser","_case_1") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","cond") [Comb FuncCall ("OraclePrelude","=:=") [Var 2,Var 4,Var 1],Var 5,Var 6]]))]]))] [Op ("OracleParser","<*>") InfixrOp 4,Op ("OracleParser",">>>") InfixrOp 3,Op ("OracleParser","<|>") InfixrOp 2,Op ("OracleParser","<||>") InfixrOp 2]
+ Curry/Module/OracleParser.fint view
@@ -0,0 +1,1 @@+Prog "OracleParser" ["CEventOracle","Oracle","IOExts","Parser","Prelude","OraclePrelude"] [] [Func ("OracleParser","<|>") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Or (Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleParser","<|>._#lambda2") [Var 2]]) (Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleParser","<|>._#lambda3") [Var 3]])])),Func ("OracleParser","<|>._#lambda2") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 2]) (TCons ("Prelude","[]") [TVar 2]))) (FuncType (TCons ("Prelude","[]") [TVar 2]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 2])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1]])),Func ("OracleParser","<|>._#lambda3") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 2]) (TCons ("Prelude","[]") [TVar 2]))) (FuncType (TCons ("Prelude","[]") [TVar 2]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 2])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1]])),Func ("OracleParser","<||>") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TCons ("Prelude","[]") [TVar 1]))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TCons ("Prelude","[]") [TVar 1]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TCons ("Prelude","[]") [TVar 1])))))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleParser","<||>._#lambda4") [Var 2,Var 3]]])),Func ("OracleParser","<||>._#lambda4") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 17) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 18]) (TCons ("Prelude","[]") [TVar 18]))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 17) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 18]) (TCons ("Prelude","[]") [TVar 18]))))) (FuncType (TVar 17) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 18]) (TCons ("Prelude","[]") [TVar 18]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleParser","<|>") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Comb FuncCall ("Oracle","apply") [Var 3,Var 4,Var 5],Var 6]]))),Func ("OracleParser","<*>") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleParser","<*>.seq.14") [Var 2,Var 3]]])),Func ("OracleParser","<*>.seq.14") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 23]) (TCons ("Prelude","[]") [TVar 23]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 23]) (TCons ("Prelude","[]") [TVar 23]))) (FuncType (TCons ("Prelude","[]") [TVar 23]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 23]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$!!") [Var 3,Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5]]))),Func ("OracleParser",">>>") 5 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (FuncType (TVar 1) (FuncType (TVar 1) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$!!") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleParser",">>>.attach.18") [Var 4,Var 3]],Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 6]]))),Func ("OracleParser",">>>.attach.18") 4 Private (FuncType (TVar 36) (FuncType (TVar 36) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","cond") [Comb FuncCall ("OraclePrelude","=:=") [Var 3,Var 2,Var 1],Var 4,Var 5]]))),Func ("OracleParser","empty") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OracleParser","terminal") 3 Public (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleParser","_case_1") [Var 2,Var 3,Var 1]])),Func ("OracleParser","satisfy") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleParser","_case_0") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleParser","star") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TCons ("Prelude","[]") [TVar 1]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TCons ("Prelude","[]") [TVar 1]))))))) (Rule [2,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]]],Let [(3,Comb FuncCall ("Oracle","unknown") [Var 1]),(4,Comb FuncCall ("Oracle","unknown") [Var 5])] (Comb FuncCall ("OracleParser","<||>") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleParser",">>>") [Comb FuncCall ("OracleParser","<*>") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 6],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleParser","star") [Var 2,Var 7],Var 4,Var 8],Var 9],Comb ConsCall ("Prelude",":") [Var 3,Var 4]]],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleParser",">>>") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleParser","empty") []],Comb ConsCall ("Prelude","[]") []]],Var 10])]))),Func ("OracleParser","some") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TCons ("Prelude","[]") [TVar 1]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TCons ("Prelude","[]") [TVar 1]))))))) (Rule [2,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]]],Let [(3,Comb FuncCall ("Oracle","unknown") [Var 1]),(4,Comb FuncCall ("Oracle","unknown") [Var 5])] (Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleParser",">>>") [Comb FuncCall ("OracleParser","<*>") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 6],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleParser","star") [Var 2,Var 7],Var 4,Var 8],Var 9],Comb ConsCall ("Prelude",":") [Var 3,Var 4]]])]))),Func ("OracleParser","_case_0") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","cond") [Comb FuncCall ("OraclePrelude","&") [Comb FuncCall ("OraclePrelude","=:=") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Comb ConsCall ("Prelude","True") [],Var 7],Comb FuncCall ("OraclePrelude","=:=") [Var 3,Var 5,Var 8],Var 9],Var 6,Var 10]]))]])),Func ("OracleParser","_case_1") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","cond") [Comb FuncCall ("OraclePrelude","=:=") [Var 2,Var 4,Var 1],Var 5,Var 6]]))]]))] [Op ("OracleParser","<*>") InfixrOp 4,Op ("OracleParser",">>>") InfixrOp 3,Op ("OracleParser","<|>") InfixrOp 2,Op ("OracleParser","<||>") InfixrOp 2]
+ Curry/Module/OraclePrelude.fcy view
@@ -0,0 +1,1 @@+Prog "OraclePrelude" ["CEventOracle","Oracle","IOExts","Prelude"] [] [Func ("OraclePrelude",".") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TVar 0))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TVar 1)))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude",".._#lambda2") [Var 2,Var 3]]])),Func ("OraclePrelude",".._#lambda2") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 9) (TVar 11))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 7) (TVar 9))) (FuncType (TVar 7) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 11))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Var 2,Comb FuncCall ("Oracle","apply") [Var 3,Var 4,Var 1],Var 5]]))),Func ("OraclePrelude","id") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OraclePrelude","const") 3 Public (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OraclePrelude","curry") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 1]) (TVar 2))) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 2))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude","(,)") [Var 3,Var 4],Var 1]])),Func ("OraclePrelude","uncurry") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 2))))) (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 2)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_155") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","flip") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 2))))) (FuncType (TVar 1) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 2))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 3,Var 5]]))),Func ("OraclePrelude","until") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_154") [Var 2,Var 3,Var 4,Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5]]))),Func ("OraclePrelude","$") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1))) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 1)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","ensureSpine") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","ensureSpine.ensureList.21") []]]]])),Func ("OraclePrelude","ensureSpine.ensureList.21") 2 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_153") [Var 2,Var 1]])),Func ("OraclePrelude","seq") 3 Public (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 1)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$!") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","const") [Var 3]],Var 2,Var 1]])),Func ("OraclePrelude","error") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","prim_error") []],Var 2,Var 1]])),Func ("OraclePrelude","&&") 3 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_152") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","||") 3 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_151") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","not") 2 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_150") [Var 2,Var 1]])),Func ("OraclePrelude","otherwise") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])),Func ("OraclePrelude","if_then_else") 4 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_149") [Var 3,Var 4,Var 2,Var 1]])),Func ("OraclePrelude","isLT") 2 Public (FuncType (TCons ("Prelude","Ordering") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_148") [Var 2,Var 1]])),Func ("OraclePrelude","isGT") 2 Public (FuncType (TCons ("Prelude","Ordering") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_147") [Var 2,Var 1]])),Func ("OraclePrelude","isEQ") 2 Public (FuncType (TCons ("Prelude","Ordering") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_146") [Var 2,Var 1]])),Func ("OraclePrelude","compare") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Ordering") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_145") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","<") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","compare") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude","LT") [],Var 4]]))),Func ("OraclePrelude",">") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","compare") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude","GT") [],Var 4]]))),Func ("OraclePrelude","<=") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","/=") [Comb FuncCall ("OraclePrelude","compare") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude","GT") [],Var 4]]))),Func ("OraclePrelude",">=") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","/=") [Comb FuncCall ("OraclePrelude","compare") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude","LT") [],Var 4]]))),Func ("OraclePrelude","max") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_141") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","compare") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OraclePrelude","min") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_140") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","compare") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OraclePrelude","/=") 3 Public (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("OraclePrelude","==") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OraclePrelude","fst") 2 Public (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_139") [Var 2,Var 1]])),Func ("OraclePrelude","snd") 2 Public (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 1))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_138") [Var 2,Var 1]])),Func ("OraclePrelude","head") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_137") [Var 2,Var 1]])),Func ("OraclePrelude","tail") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_136") [Var 2,Var 1]])),Func ("OraclePrelude","null") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_135") [Var 2,Var 1]])),Func ("OraclePrelude","++") 3 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_134") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","length") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_133") [Var 2,Var 1]])),Func ("OraclePrelude","!!") 3 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_132") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","map") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_129") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","foldl") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 0))))) (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_128") [Var 2,Var 3,Var 4,Var 1]])),Func ("OraclePrelude","foldl1") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_127") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","foldr") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 1))))) (FuncType (TVar 1) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 1))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_126") [Var 2,Var 3,Var 4,Var 1]])),Func ("OraclePrelude","foldr1") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_125") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","filter") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_123") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","zip") 3 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_121") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","zip3") 4 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 1]) (FuncType (TCons ("Prelude","[]") [TVar 2]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TVar 0,TVar 1,TVar 2]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_119") [Var 3,Var 4,Var 2,Var 1]])),Func ("OraclePrelude","zipWith") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 2))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 2]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_116") [Var 2,Var 4,Var 3,Var 1]])),Func ("OraclePrelude","zipWith3") 5 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TVar 3))))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 1]) (FuncType (TCons ("Prelude","[]") [TVar 2]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 3])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_114") [Var 2,Var 4,Var 5,Var 3,Var 1]])),Func ("OraclePrelude","unzip") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 1]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_111") [Var 2,Var 1]])),Func ("OraclePrelude","unzip._#selFP3#xs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 476],TCons ("Prelude","[]") [TVar 477]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 476]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_109") [Var 2,Var 1]])),Func ("OraclePrelude","unzip._#selFP4#ys") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 476],TCons ("Prelude","[]") [TVar 477]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 477]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_108") [Var 2,Var 1]])),Func ("OraclePrelude","unzip3") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TVar 0,TVar 1,TVar 2]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 1],TCons ("Prelude","[]") [TVar 2]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_107") [Var 2,Var 1]])),Func ("OraclePrelude","unzip3._#selFP6#xs") 2 Private (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TVar 493],TCons ("Prelude","[]") [TVar 494],TCons ("Prelude","[]") [TVar 495]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 493]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_105") [Var 2,Var 1]])),Func ("OraclePrelude","unzip3._#selFP7#ys") 2 Private (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TVar 493],TCons ("Prelude","[]") [TVar 494],TCons ("Prelude","[]") [TVar 495]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 494]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_104") [Var 2,Var 1]])),Func ("OraclePrelude","unzip3._#selFP8#zs") 2 Private (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TVar 493],TCons ("Prelude","[]") [TVar 494],TCons ("Prelude","[]") [TVar 495]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 495]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_103") [Var 2,Var 1]])),Func ("OraclePrelude","concat") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","++") []],Comb ConsCall ("Prelude","[]") [],Var 2,Var 1]])),Func ("OraclePrelude","concatMap") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TVar 1]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 1]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","concat") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Var 2]],Var 1]])),Func ("OraclePrelude","iterate") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("OraclePrelude","iterate") [Var 2,Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Var 4]]]))),Func ("OraclePrelude","repeat") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb FuncCall ("OraclePrelude","repeat") [Var 2,Var 1]]])),Func ("OraclePrelude","replicate") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","take") [Var 2,Comb FuncCall ("OraclePrelude","repeat") [Var 3,Var 1],Var 4]]))),Func ("OraclePrelude","take") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_102") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","drop") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_100") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","<=") [Var 2,Lit (Intc 0),Var 1],Var 4]]))),Func ("OraclePrelude","drop.dropp.272") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_99") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","splitAt") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_98") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","<=") [Var 2,Lit (Intc 0),Var 1],Var 4]]))),Func ("OraclePrelude","splitAt.splitAtp.282") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_97") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","splitAt.splitAtp.282._#selFP10#ys") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 576],TCons ("Prelude","[]") [TVar 576]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 576]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_96") [Var 2,Var 1]])),Func ("OraclePrelude","splitAt.splitAtp.282._#selFP11#zs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 576],TCons ("Prelude","[]") [TVar 576]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 576]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_95") [Var 2,Var 1]])),Func ("OraclePrelude","takeWhile") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_94") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","dropWhile") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_92") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","span") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_90") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","span._#selFP13#ys") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 627],TCons ("Prelude","[]") [TVar 627]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 627]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_87") [Var 2,Var 1]])),Func ("OraclePrelude","span._#selFP14#zs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 627],TCons ("Prelude","[]") [TVar 627]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 627]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_86") [Var 2,Var 1]])),Func ("OraclePrelude","break") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","span") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","not") []],Var 2,Var 1]]]])),Func ("OraclePrelude","lines") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_85") [Var 2,Var 1]])),Func ("OraclePrelude","lines.splitline.314") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_84") [Var 2,Var 1]])),Func ("OraclePrelude","lines.splitline.314._#selFP16#ds") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_82") [Var 2,Var 1]])),Func ("OraclePrelude","lines.splitline.314._#selFP17#es") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_81") [Var 2,Var 1]])),Func ("OraclePrelude","lines._#selFP19#l") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_80") [Var 2,Var 1]])),Func ("OraclePrelude","lines._#selFP20#xs_l") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_79") [Var 2,Var 1]])),Func ("OraclePrelude","unlines") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","++") []],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 2,Var 3]]))),Func ("OraclePrelude","words") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OraclePrelude","dropWhile") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","words.isSpace.326") []],Var 2,Var 1])] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_78") [Var 3,Comb FuncCall ("OraclePrelude","==") [Var 3,Comb ConsCall ("Prelude","[]") [],Var 4],Var 5]]))]))),Func ("OraclePrelude","words.isSpace.326") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc ' '),Var 1],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '\t'),Var 3],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '\n'),Var 4],Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '\r'),Var 5],Var 6],Var 7],Var 8]]))),Func ("OraclePrelude","words._#selFP22#w") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_77") [Var 2,Var 1]])),Func ("OraclePrelude","words._#selFP23#s2") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_76") [Var 2,Var 1]])),Func ("OraclePrelude","unwords") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_75") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Var 3]]))),Func ("OraclePrelude","unwords._#lambda6") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Var 3],Var 1]])),Func ("OraclePrelude","reverse") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","foldl") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("Prelude",":") []]]],Comb ConsCall ("Prelude","[]") []]]])),Func ("OraclePrelude","and") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Bool") []]) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","&&") []],Comb ConsCall ("Prelude","True") []]]])),Func ("OraclePrelude","or") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Bool") []]) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","||") []],Comb ConsCall ("Prelude","False") []]]])),Func ("OraclePrelude","any") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Bool") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePrelude","or") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Var 2]],Var 3]]))),Func ("OraclePrelude","all") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Bool") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePrelude","and") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Var 2]],Var 3]]))),Func ("OraclePrelude","elem") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Bool") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","any") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","==") [Var 2]],Var 1]])),Func ("OraclePrelude","notElem") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Bool") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","all") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","/=") [Var 2]],Var 1]])),Func ("OraclePrelude","lookup") 3 Public (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_74") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","enumFrom") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 2,Comb FuncCall ("OraclePrelude","enumFrom") [Comb FuncCall ("OraclePrelude","+") [Var 2,Lit (Intc 1),Var 1],Var 3]]]))),Func ("OraclePrelude","enumFromThen") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","iterate") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","-") [Var 3,Var 2,Var 1]]],Var 2,Var 4]]))),Func ("OraclePrelude","enumFromTo") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_70") [Var 2,Var 3,Comb FuncCall ("OraclePrelude",">") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OraclePrelude","enumFromThenTo") 4 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","takeWhile") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","enumFromThenTo.p.364") [Var 4,Var 2,Var 3]],Comb FuncCall ("OraclePrelude","enumFromThen") [Var 2,Var 3,Var 1],Var 5]]))),Func ("OraclePrelude","enumFromThenTo.p.364") 5 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_69") [Var 2,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude",">=") [Var 4,Var 3,Var 1],Var 6]]))),Func ("OraclePrelude","ord") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","prim_ord") []],Var 2,Var 1]])),Func ("OraclePrelude","chr") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","prim_chr") []],Var 2,Var 1]])),Func ("OraclePrelude","succ") 2 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Nat") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_67") [Var 2,Var 1]])),Func ("OraclePrelude","+^") 3 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Nat") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_66") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","cmpNat") 3 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Ordering") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_63") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","cmpNatLT") 3 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Ordering") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_59") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","cmpNatGT") 3 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Ordering") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_56") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","<^") 3 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","isLT") [Comb FuncCall ("OraclePrelude","cmpNat") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OraclePrelude",">^") 3 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","isGT") [Comb FuncCall ("OraclePrelude","cmpNat") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OraclePrelude","<=^") 3 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("OraclePrelude","isGT") [Comb FuncCall ("OraclePrelude","cmpNat") [Var 2,Var 3,Var 1],Var 4],Var 5]]))),Func ("OraclePrelude",">=^") 3 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("OraclePrelude","isLT") [Comb FuncCall ("OraclePrelude","cmpNat") [Var 2,Var 3,Var 1],Var 4],Var 5]]))),Func ("OraclePrelude","*^") 3 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Nat") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_53") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","pred") 2 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Nat") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_52") [Var 2,Var 1]])),Func ("OraclePrelude","inc") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_50") [Var 2,Var 1]])),Func ("OraclePrelude","dec") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_48") [Var 2,Var 1]])),Func ("OraclePrelude","mult2") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_46") [Var 2,Var 1]])),Func ("OraclePrelude","-^") 3 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_45") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","div2") 2 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Nat") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_42") [Var 2,Var 1]])),Func ("OraclePrelude","mod2") 2 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_41") [Var 2,Var 1]])),Func ("OraclePrelude","divmodNat") 3 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_40") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 3,Comb ConsCall ("Prelude","IHi") [],Var 1],Var 4]]))),Func ("OraclePrelude","divmodNat.shift.523") 3 Private (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Nat") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_32") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","+") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_31") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","-") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_28") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","*") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_27") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","divmod") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_24") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","divmod._#selFP25#d") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_21") [Var 2,Var 1]])),Func ("OraclePrelude","divmod._#selFP26#m") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_20") [Var 2,Var 1]])),Func ("OraclePrelude","divmod._#selFP28#d") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_19") [Var 2,Var 1]])),Func ("OraclePrelude","divmod._#selFP29#m") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_18") [Var 2,Var 1]])),Func ("OraclePrelude","divmod._#selFP31#d") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_17") [Var 2,Var 1]])),Func ("OraclePrelude","divmod._#selFP32#m") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_16") [Var 2,Var 1]])),Func ("OraclePrelude","div") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","fst") [Comb FuncCall ("OraclePrelude","divmod") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OraclePrelude","mod") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","snd") [Comb FuncCall ("OraclePrelude","divmod") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OraclePrelude","negate") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_15") [Var 2,Var 1]])),Func ("OraclePrelude","success") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Success") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Success") []])),Func ("OraclePrelude","=:=") 3 Public (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Success") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_14") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","===") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OraclePrelude","&>") 3 Public (FuncType (TCons ("Prelude","Success") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cond") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","maybe") 4 Public (FuncType (TVar 0) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 0))) (FuncType (TCons ("Prelude","Maybe") [TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_13") [Var 2,Var 3,Var 4,Var 1]])),Func ("OraclePrelude","either") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TVar 1))) (FuncType (TCons ("Prelude","Either") [TVar 0,TVar 2]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 1))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_12") [Var 2,Var 3,Var 4,Var 1]])),Func ("OraclePrelude",">>") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 1]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 1])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle",">>=") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","const") [Var 3]],Var 1]])),Func ("OraclePrelude","done") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","()") [],Var 1]])),Func ("OraclePrelude","putChar") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","prim_putChar") []],Var 2,Var 1]])),Func ("OraclePrelude","readFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","prim_readFile") []],Var 2,Var 1]])),Func ("OraclePrelude","writeFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","prim_writeFile") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OraclePrelude","appendFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","prim_appendFile") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OraclePrelude","putStr") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_11") [Var 2,Var 1]])),Func ("OraclePrelude","putStrLn") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","putStr") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","putChar") [Lit (Charc '\n'),Var 3],Var 4]]))),Func ("OraclePrelude","getLine") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","getChar") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","getLine._#lambda10") []],Var 2]]))),Func ("OraclePrelude","getLine._#lambda10") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_10") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '\n'),Var 1],Var 3]]))),Func ("OraclePrelude","getLine._#lambda10._#lambda11") 3 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude",":") [Var 2,Var 3],Var 1]])),Func ("OraclePrelude","show") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","prim_show") []],Var 2,Var 1]])),Func ("OraclePrelude","print") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","putStrLn") [Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],Var 3]]))),Func ("OraclePrelude","doSolve") 2 Public (FuncType (TCons ("Prelude","Success") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","cond") [Var 2,Comb FuncCall ("OraclePrelude","done") [Var 1],Var 3]]))),Func ("OraclePrelude","sequenceIO") 2 Public (FuncType (TCons ("Prelude","[]") [FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TVar 0]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_9") [Var 2,Var 1]])),Func ("OraclePrelude","sequenceIO._#lambda12") 3 Private (FuncType (TCons ("Prelude","[]") [FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 937]))]) (FuncType (TVar 937) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TVar 937]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","sequenceIO") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","sequenceIO._#lambda12._#lambda13") [Var 3]],Var 4]]))),Func ("OraclePrelude","sequenceIO._#lambda12._#lambda13") 3 Private (FuncType (TVar 937) (FuncType (TCons ("Prelude","[]") [TVar 937]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TVar 937]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude",":") [Var 2,Var 3],Var 1]])),Func ("OraclePrelude","sequenceIO_") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude",">>") []],Comb FuncCall ("OraclePrelude","done") [Var 1]]]])),Func ("OraclePrelude","mapIO") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 1]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TVar 1]]))))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","sequenceIO") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Var 2]],Var 1]])),Func ("OraclePrelude","mapIO_") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 1]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePrelude","sequenceIO_") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Var 2]],Var 3]]))),Func ("OraclePrelude","?") 3 Public (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Or (Var 2) (Var 3)])),Func ("OraclePrelude","allValuesD") 2 Public (FuncType (TCons ("Prelude","SearchTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_8") [Var 2,Var 1]])),Func ("OraclePrelude","allValuesB") 2 Public (FuncType (TCons ("Prelude","SearchTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","allValuesB.unfoldOrs.692") [Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Var 1]])),Func ("OraclePrelude","allValuesB.partition.692") 3 Private (FuncType (TCons ("Prelude","SearchTree") [TVar 0]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 0]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 0]]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_7") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","allValuesB.partition.692._#selFP34#vs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1001],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1001]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 1001]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_6") [Var 2,Var 1]])),Func ("OraclePrelude","allValuesB.partition.692._#selFP35#ors") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1001],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1001]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1001]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_5") [Var 2,Var 1]])),Func ("OraclePrelude","allValuesB.partition.692._#selFP37#vs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1001],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1001]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 1001]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_4") [Var 2,Var 1]])),Func ("OraclePrelude","allValuesB.partition.692._#selFP38#ors") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1001],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1001]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1001]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_3") [Var 2,Var 1]])),Func ("OraclePrelude","allValuesB.unfoldOrs.692") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_2") [Var 2,Var 1]])),Func ("OraclePrelude","allValuesB.unfoldOrs.692._#selFP40#vals") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1014],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1014]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 1014]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_1") [Var 2,Var 1]])),Func ("OraclePrelude","allValuesB.unfoldOrs.692._#selFP41#ors") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1014],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1014]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1014]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_0") [Var 2,Var 1]])),Func ("OraclePrelude","inject") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Success") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Success") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Success") [])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","inject._#lambda14") [Var 2,Var 3]]])),Func ("OraclePrelude","inject._#lambda14") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1025) (TCons ("Prelude","Success") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1025) (TCons ("Prelude","Success") []))) (FuncType (TVar 1025) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Success") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&") [Comb FuncCall ("Oracle","apply") [Var 3,Var 4,Var 1],Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 5],Var 6]]))),Func ("OraclePrelude","PEVAL") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OraclePrelude","unknown") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(2,Comb FuncCall ("Oracle","unknown") [Var 1])] (Var 2)])),Func ("OraclePrelude","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_2") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","allValuesB.partition.692") []],Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 3,Var 4],Var 1])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePrelude","allValuesB.unfoldOrs.692._#selFP40#vals") [Var 5,Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OraclePrelude","allValuesB.unfoldOrs.692._#selFP41#ors") [Var 5,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 6,Comb FuncCall ("OraclePrelude","allValuesB.unfoldOrs.692") [Var 7,Var 10],Var 11]]))]))]))]))]])),Func ("OraclePrelude","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_4") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_5") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_6") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_7") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Value") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(5,Var 3)] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePrelude","allValuesB.partition.692._#selFP34#vs") [Var 5,Var 1])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OraclePrelude","allValuesB.partition.692._#selFP35#ors") [Var 5,Var 12])] (Comb FuncCall ("CEventOracle","collapse") [Var 13,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 4,Var 6],Var 7]])]))]))]),Branch (Pattern ("Prelude","Choice") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(9,Var 3)] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OraclePrelude","allValuesB.partition.692._#selFP37#vs") [Var 9,Var 1])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OraclePrelude","allValuesB.partition.692._#selFP38#ors") [Var 9,Var 14])] (Comb FuncCall ("CEventOracle","replace") [Var 15,Comb ConsCall ("Prelude","(,)") [Var 10,Comb FuncCall ("OraclePrelude","++") [Var 8,Var 11,Var 15]]])]))]))]),Branch (Pattern ("Prelude","Fail") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","Suspend") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_8") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Value") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","Fail") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","Suspend") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","Choice") [4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","allValuesD") []],Var 1],Var 4,Var 5]]))]])),Func ("OraclePrelude","_case_9") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","[]") [],Var 1]]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle",">>=") [Var 3,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","sequenceIO._#lambda12") [Var 4]],Var 1]])]])),Func ("OraclePrelude","_case_10") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","[]") [],Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","getLine") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","getLine._#lambda10._#lambda11") [Var 2]],Var 4]]))]])),Func ("OraclePrelude","_case_11") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","done") [Var 1]]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","putChar") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","putStr") [Var 4,Var 5],Var 6]]))]])),Func ("OraclePrelude","_case_12") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","Left") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1]]),Branch (Pattern ("Prelude","Right") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 3,Var 6,Var 1]])]])),Func ("OraclePrelude","_case_13") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","Just") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 1]])]])),Func ("OraclePrelude","_case_14") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","success") [Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrelude","_case_15") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Zero") []]),Branch (Pattern ("Prelude","Pos") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Neg") [Var 3]]),Branch (Pattern ("Prelude","Neg") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Pos") [Var 4]])]])),Func ("OraclePrelude","_case_16") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_17") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_18") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_19") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_20") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_21") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_24") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Zero") [],Comb ConsCall ("Prelude","Zero") []]]),Branch (Pattern ("Prelude","Pos") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_23") [Var 4,Var 3,Var 1]]),Branch (Pattern ("Prelude","Neg") [10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_22") [Var 10,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_22") 3 Private (TVar (-42)) (Rule [10,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),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 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '0'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]],Var 1]]),Branch (Pattern ("Prelude","Pos") [11]) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Let [(12,Comb FuncCall ("OraclePrelude","divmodNat") [Var 10,Var 11,Var 1])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OraclePrelude","divmod._#selFP28#d") [Var 12,Var 19])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Let [(14,Comb FuncCall ("OraclePrelude","divmod._#selFP29#m") [Var 12,Var 20])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","negate") [Var 13,Var 21],Comb FuncCall ("OraclePrelude","negate") [Var 14,Var 22]]]))]))]))])),Branch (Pattern ("Prelude","Neg") [15]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Let [(16,Comb FuncCall ("OraclePrelude","divmodNat") [Var 10,Var 15,Var 1])] (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Let [(17,Comb FuncCall ("OraclePrelude","divmod._#selFP31#d") [Var 16,Var 23])] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(18,Comb FuncCall ("OraclePrelude","divmod._#selFP32#m") [Var 16,Var 24])] (Comb FuncCall ("CEventOracle","replace") [Var 25,Comb ConsCall ("Prelude","(,)") [Var 17,Comb FuncCall ("OraclePrelude","negate") [Var 18,Var 25]]])]))]))]))]])),Func ("OraclePrelude","_case_23") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),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 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '0'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]],Var 1]]),Branch (Pattern ("Prelude","Pos") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","divmodNat") [Var 4,Var 5,Var 1]]),Branch (Pattern ("Prelude","Neg") [6]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OraclePrelude","divmodNat") [Var 4,Var 6,Var 1])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OraclePrelude","divmod._#selFP25#d") [Var 7,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OraclePrelude","divmod._#selFP26#m") [Var 7,Var 11])] (Comb FuncCall ("CEventOracle","replace") [Var 12,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","negate") [Var 8,Var 12],Var 9]])]))]))]))]])),Func ("OraclePrelude","_case_27") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Pos") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_26") [Var 4,Var 3,Var 1]]),Branch (Pattern ("Prelude","Neg") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_25") [Var 7,Var 3,Var 1]]),Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Zero") []])]])),Func ("OraclePrelude","_case_25") 3 Private (TVar (-42)) (Rule [7,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Neg") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb FuncCall ("OraclePrelude","*^") [Var 7,Var 8,Var 1]]]),Branch (Pattern ("Prelude","Pos") [9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Neg") [Comb FuncCall ("OraclePrelude","*^") [Var 7,Var 9,Var 1]]]),Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Zero") []])]])),Func ("OraclePrelude","_case_26") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Pos") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb FuncCall ("OraclePrelude","*^") [Var 4,Var 5,Var 1]]]),Branch (Pattern ("Prelude","Neg") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Neg") [Comb FuncCall ("OraclePrelude","*^") [Var 4,Var 6,Var 1]]]),Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Zero") []])]])),Func ("OraclePrelude","_case_28") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Neg") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","+") [Var 2,Comb ConsCall ("Prelude","Pos") [Var 4],Var 1]]),Branch (Pattern ("Prelude","Pos") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","+") [Var 2,Comb ConsCall ("Prelude","Neg") [Var 5],Var 1]]),Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]])),Func ("OraclePrelude","_case_31") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Pos") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_30") [Var 2,Var 4,Var 3,Var 1]]),Branch (Pattern ("Prelude","Neg") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_29") [Var 2,Var 7,Var 3,Var 1]]),Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_29") 4 Private (TVar (-42)) (Rule [2,7,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Neg") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Neg") [Comb FuncCall ("OraclePrelude","+^") [Var 7,Var 8,Var 1]]]),Branch (Pattern ("Prelude","Pos") [9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","-^") [Var 9,Var 7,Var 1]]),Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]])),Func ("OraclePrelude","_case_30") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Pos") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb FuncCall ("OraclePrelude","+^") [Var 4,Var 5,Var 1]]]),Branch (Pattern ("Prelude","Neg") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","-^") [Var 4,Var 6,Var 1]]),Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]])),Func ("OraclePrelude","_case_32") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","O") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","O") [Var 3]]),Branch (Pattern ("Prelude","I") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","I") [Var 3]])]])),Func ("OraclePrelude","_case_40") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Pos") [Var 2],Comb ConsCall ("Prelude","Zero") []]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_39") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 5]]))]])),Func ("OraclePrelude","_case_39") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_38") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","cmpNat") [Var 2,Var 3,Var 1],Var 5]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrelude","_case_38") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","EQ") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","IHi") []],Comb ConsCall ("Prelude","Zero") []]]),Branch (Pattern ("Prelude","LT") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Zero") [],Comb ConsCall ("Prelude","Pos") [Var 2]]]),Branch (Pattern ("Prelude","GT") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","_case_37") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","divmodNat") [Comb FuncCall ("OraclePrelude","div2") [Var 2,Var 1],Var 3,Var 5],Var 6]]))]])),Func ("OraclePrelude","_case_37") 4 Private (TVar (-42)) (Rule [2,3,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_36") [Var 2,Var 3,Var 5,Var 4,Var 1]])]])),Func ("OraclePrelude","_case_36") 5 Private (TVar (-42)) (Rule [2,3,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","IHi") []],Comb FuncCall ("OraclePrelude","-^") [Var 2,Var 3,Var 1]]]),Branch (Pattern ("Prelude","Pos") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_35") [Var 2,Var 3,Var 6,Var 5,Var 1]]),Branch (Pattern ("Prelude","Neg") [13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrelude","_case_35") 5 Private (TVar (-42)) (Rule [2,3,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","O") [Var 6]],Comb FuncCall ("OraclePrelude","mod2") [Var 2,Var 1]]]),Branch (Pattern ("Prelude","Pos") [7]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","_case_34") [Var 2,Var 3,Var 6,Var 7,Comb FuncCall ("OraclePrelude","divmodNat") [Comb FuncCall ("OraclePrelude","divmodNat.shift.523") [Var 2,Var 7,Var 1],Var 3,Var 13],Var 14]])),Branch (Pattern ("Prelude","Neg") [12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrelude","_case_34") 6 Private (TVar (-42)) (Rule [2,3,6,7,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","(,)") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_33") [Var 6,Var 9,Var 8,Var 1]])]])),Func ("OraclePrelude","_case_33") 4 Private (TVar (-42)) (Rule [6,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","O") [Var 6]],Var 9]]),Branch (Pattern ("Prelude","Pos") [10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Pos") [Comb FuncCall ("OraclePrelude","+^") [Comb ConsCall ("Prelude","O") [Var 6],Var 10,Var 1]],Var 9]]),Branch (Pattern ("Prelude","Neg") [11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrelude","_case_41") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","IHi") []]]),Branch (Pattern ("Prelude","O") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Zero") []]),Branch (Pattern ("Prelude","I") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","IHi") []]])]])),Func ("OraclePrelude","_case_42") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","O") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","I") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_45") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","inc") [Comb ConsCall ("Prelude","Neg") [Var 3],Var 1]]),Branch (Pattern ("Prelude","O") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_44") [Var 4,Var 3,Var 1]]),Branch (Pattern ("Prelude","I") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_43") [Var 7,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_43") 3 Private (TVar (-42)) (Rule [7,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","O") [Var 7]]]),Branch (Pattern ("Prelude","O") [8]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","inc") [Comb FuncCall ("OraclePrelude","mult2") [Comb FuncCall ("OraclePrelude","-^") [Var 7,Var 8,Var 1],Var 10],Var 11]])),Branch (Pattern ("Prelude","I") [9]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","mult2") [Comb FuncCall ("OraclePrelude","-^") [Var 7,Var 9,Var 1],Var 12]]))]])),Func ("OraclePrelude","_case_44") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb FuncCall ("OraclePrelude","pred") [Comb ConsCall ("Prelude","O") [Var 4],Var 1]]]),Branch (Pattern ("Prelude","O") [5]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","mult2") [Comb FuncCall ("OraclePrelude","-^") [Var 4,Var 5,Var 1],Var 7]])),Branch (Pattern ("Prelude","I") [6]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","dec") [Comb FuncCall ("OraclePrelude","mult2") [Comb FuncCall ("OraclePrelude","-^") [Var 4,Var 6,Var 1],Var 8],Var 9]]))]])),Func ("OraclePrelude","_case_46") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Pos") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","O") [Var 3]]]),Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Zero") []]),Branch (Pattern ("Prelude","Neg") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Neg") [Comb ConsCall ("Prelude","O") [Var 4]]])]])),Func ("OraclePrelude","_case_48") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Neg") [Comb ConsCall ("Prelude","IHi") []]]),Branch (Pattern ("Prelude","Neg") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Neg") [Comb FuncCall ("OraclePrelude","succ") [Var 3,Var 1]]]),Branch (Pattern ("Prelude","Pos") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_47") [Var 4,Var 1]])]])),Func ("OraclePrelude","_case_47") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Zero") []]),Branch (Pattern ("Prelude","O") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb FuncCall ("OraclePrelude","pred") [Comb ConsCall ("Prelude","O") [Var 5],Var 1]]]),Branch (Pattern ("Prelude","I") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","O") [Var 6]]])]])),Func ("OraclePrelude","_case_50") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","IHi") []]]),Branch (Pattern ("Prelude","Pos") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb FuncCall ("OraclePrelude","succ") [Var 3,Var 1]]]),Branch (Pattern ("Prelude","Neg") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_49") [Var 4,Var 1]])]])),Func ("OraclePrelude","_case_49") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Zero") []]),Branch (Pattern ("Prelude","O") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Neg") [Comb FuncCall ("OraclePrelude","pred") [Comb ConsCall ("Prelude","O") [Var 5],Var 1]]]),Branch (Pattern ("Prelude","I") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Neg") [Comb ConsCall ("Prelude","O") [Var 6]]])]])),Func ("OraclePrelude","_case_52") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","O") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_51") [Var 3,Var 1]]),Branch (Pattern ("Prelude","I") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","O") [Var 6]])]])),Func ("OraclePrelude","_case_51") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","IHi") []]),Branch (Pattern ("Prelude","O") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","I") [Comb FuncCall ("OraclePrelude","pred") [Var 3,Var 1]]]),Branch (Pattern ("Prelude","I") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","I") [Comb ConsCall ("Prelude","O") [Var 5]]])]])),Func ("OraclePrelude","_case_53") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","I") [4]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","+^") [Comb ConsCall ("Prelude","O") [Comb FuncCall ("OraclePrelude","*^") [Var 3,Var 4,Var 1]],Var 3,Var 6]])),Branch (Pattern ("Prelude","O") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","O") [Comb FuncCall ("OraclePrelude","*^") [Var 5,Var 3,Var 1]]])]])),Func ("OraclePrelude","_case_56") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []]),Branch (Pattern ("Prelude","O") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_55") [Var 4,Var 2,Var 1]]),Branch (Pattern ("Prelude","I") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_54") [Var 7,Var 2,Var 1]])]])),Func ("OraclePrelude","_case_54") 3 Private (TVar (-42)) (Rule [7,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []]),Branch (Pattern ("Prelude","I") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNatGT") [Var 8,Var 7,Var 1]]),Branch (Pattern ("Prelude","O") [9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNatLT") [Var 9,Var 7,Var 1]])]])),Func ("OraclePrelude","_case_55") 3 Private (TVar (-42)) (Rule [4,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []]),Branch (Pattern ("Prelude","O") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNatGT") [Var 5,Var 4,Var 1]]),Branch (Pattern ("Prelude","I") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNatGT") [Var 6,Var 4,Var 1]])]])),Func ("OraclePrelude","_case_59") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []]),Branch (Pattern ("Prelude","O") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_58") [Var 4,Var 3,Var 1]]),Branch (Pattern ("Prelude","I") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_57") [Var 7,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_57") 3 Private (TVar (-42)) (Rule [7,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []]),Branch (Pattern ("Prelude","I") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNatLT") [Var 7,Var 8,Var 1]]),Branch (Pattern ("Prelude","O") [9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNatGT") [Var 7,Var 9,Var 1]])]])),Func ("OraclePrelude","_case_58") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []]),Branch (Pattern ("Prelude","O") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNatLT") [Var 4,Var 5,Var 1]]),Branch (Pattern ("Prelude","I") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNatLT") [Var 4,Var 6,Var 1]])]])),Func ("OraclePrelude","_case_63") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_62") [Var 3,Var 1]]),Branch (Pattern ("Prelude","O") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_61") [Var 6,Var 3,Var 1]]),Branch (Pattern ("Prelude","I") [9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_60") [Var 9,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_60") 3 Private (TVar (-42)) (Rule [9,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []]),Branch (Pattern ("Prelude","I") [10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNat") [Var 9,Var 10,Var 1]]),Branch (Pattern ("Prelude","O") [11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNatGT") [Var 9,Var 11,Var 1]])]])),Func ("OraclePrelude","_case_61") 3 Private (TVar (-42)) (Rule [6,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []]),Branch (Pattern ("Prelude","O") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNat") [Var 6,Var 7,Var 1]]),Branch (Pattern ("Prelude","I") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNatLT") [Var 6,Var 8,Var 1]])]])),Func ("OraclePrelude","_case_62") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","EQ") []]),Branch (Pattern ("Prelude","O") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []]),Branch (Pattern ("Prelude","I") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []])]])),Func ("OraclePrelude","_case_66") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","O") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_65") [Var 4,Var 3,Var 1]]),Branch (Pattern ("Prelude","I") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_64") [Var 7,Var 3,Var 1]]),Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","succ") [Var 3,Var 1]])]])),Func ("OraclePrelude","_case_64") 3 Private (TVar (-42)) (Rule [7,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","O") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","I") [Comb FuncCall ("OraclePrelude","+^") [Var 7,Var 8,Var 1]]]),Branch (Pattern ("Prelude","I") [9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","O") [Comb FuncCall ("OraclePrelude","+^") [Comb FuncCall ("OraclePrelude","succ") [Var 7,Var 1],Var 9,Var 10]]])),Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","O") [Comb FuncCall ("OraclePrelude","succ") [Var 7,Var 1]]])]])),Func ("OraclePrelude","_case_65") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","O") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","O") [Comb FuncCall ("OraclePrelude","+^") [Var 4,Var 5,Var 1]]]),Branch (Pattern ("Prelude","I") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","I") [Comb FuncCall ("OraclePrelude","+^") [Var 4,Var 6,Var 1]]]),Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","I") [Var 4]])]])),Func ("OraclePrelude","_case_67") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","O") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","I") [Var 3]]),Branch (Pattern ("Prelude","I") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","O") [Comb FuncCall ("OraclePrelude","succ") [Var 4,Var 1]]]),Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","O") [Comb ConsCall ("Prelude","IHi") []]])]])),Func ("OraclePrelude","_case_69") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","<=") [Var 5,Var 2,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_68") [Var 2,Var 5,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 7]]))]])),Func ("OraclePrelude","_case_68") 4 Private (TVar (-42)) (Rule [2,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",">=") [Var 5,Var 2,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrelude","_case_70") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 2,Comb FuncCall ("OraclePrelude","enumFromTo") [Comb FuncCall ("OraclePrelude","+") [Var 2,Lit (Intc 1),Var 1],Var 3,Var 5]]]))]])),Func ("OraclePrelude","_case_74") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_73") [Var 2,Var 5,Var 4,Var 1]])]])),Func ("OraclePrelude","_case_73") 4 Private (TVar (-42)) (Rule [2,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_72") [Var 2,Var 5,Var 6,Var 7,Comb FuncCall ("OraclePrelude","==") [Var 2,Var 6,Var 1],Var 8]]))]])),Func ("OraclePrelude","_case_72") 6 Private (TVar (-42)) (Rule [2,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Var 7]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_71") [Var 2,Var 5,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 9]]))]])),Func ("OraclePrelude","_case_71") 4 Private (TVar (-42)) (Rule [2,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","lookup") [Var 2,Var 5,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrelude","_case_75") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldr1") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","unwords._#lambda6") []],Var 2,Var 1]])]])),Func ("OraclePrelude","_case_76") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_77") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_78") 3 Private (TVar (-42)) (Rule [3,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Let [(4,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","break") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","words.isSpace.326") []],Var 1],Var 3,Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OraclePrelude","words._#selFP22#w") [Var 4,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePrelude","words._#selFP23#s2") [Var 4,Var 10])] (Comb FuncCall ("CEventOracle","replace") [Var 11,Comb ConsCall ("Prelude",":") [Var 5,Comb FuncCall ("OraclePrelude","words") [Var 6,Var 11]]])]))]))]))]])),Func ("OraclePrelude","_case_79") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_80") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_81") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_82") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_84") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_83") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '\n'),Var 1],Var 5]]))]])),Func ("OraclePrelude","_case_83") 4 Private (TVar (-42)) (Rule [3,4,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Var 4]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OraclePrelude","lines.splitline.314") [Var 4,Var 1])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePrelude","lines.splitline.314._#selFP16#ds") [Var 5,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OraclePrelude","lines.splitline.314._#selFP17#es") [Var 5,Var 10])] (Comb FuncCall ("CEventOracle","collapse") [Var 11,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 3,Var 6],Var 7]])]))]))]))]])),Func ("OraclePrelude","_case_85") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OraclePrelude","lines.splitline.314") [Comb ConsCall ("Prelude",":") [Var 3,Var 4],Var 1])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePrelude","lines._#selFP19#l") [Var 5,Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OraclePrelude","lines._#selFP20#xs_l") [Var 5,Var 9])] (Comb FuncCall ("CEventOracle","replace") [Var 10,Comb ConsCall ("Prelude",":") [Var 6,Comb FuncCall ("OraclePrelude","lines") [Var 7,Var 10]]])]))]))]))]])),Func ("OraclePrelude","_case_86") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_87") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_90") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_89") [Var 2,Var 4,Var 5,Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 6]]))]])),Func ("OraclePrelude","_case_89") 5 Private (TVar (-42)) (Rule [2,4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePrelude","span") [Var 2,Var 5,Var 1])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OraclePrelude","span._#selFP13#ys") [Var 6,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OraclePrelude","span._#selFP14#zs") [Var 6,Var 11])] (Comb FuncCall ("CEventOracle","collapse") [Var 12,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 4,Var 7],Var 8]])]))]))])),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_88") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 13]]))]])),Func ("OraclePrelude","_case_88") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude",":") [Var 4,Var 5]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrelude","_case_92") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_91") [Var 2,Var 4,Var 5,Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 6]]))]])),Func ("OraclePrelude","_case_91") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","dropWhile") [Var 2,Var 5,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Var 5]])]])),Func ("OraclePrelude","_case_94") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_93") [Var 2,Var 4,Var 5,Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 6]]))]])),Func ("OraclePrelude","_case_93") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb FuncCall ("OraclePrelude","takeWhile") [Var 2,Var 5,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OraclePrelude","_case_95") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_96") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_97") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Let [(6,Comb FuncCall ("OraclePrelude","splitAt") [Comb FuncCall ("OraclePrelude","-") [Var 2,Lit (Intc 1),Var 1],Var 5,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OraclePrelude","splitAt.splitAtp.282._#selFP10#ys") [Var 6,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OraclePrelude","splitAt.splitAtp.282._#selFP11#zs") [Var 6,Var 11])] (Comb FuncCall ("CEventOracle","collapse") [Var 12,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 4,Var 7],Var 8]])]))]))]))]])),Func ("OraclePrelude","_case_98") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Var 3]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","splitAt.splitAtp.282") [Var 2,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_99") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","drop") [Comb FuncCall ("OraclePrelude","-") [Var 2,Lit (Intc 1),Var 1],Var 5,Var 6]]))]])),Func ("OraclePrelude","_case_100") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","drop.dropp.272") [Var 2,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_102") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Neg") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","Pos") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_101") [Var 5,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_101") 3 Private (TVar (-42)) (Rule [5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 6,Comb FuncCall ("OraclePrelude","take") [Comb FuncCall ("OraclePrelude","-") [Comb ConsCall ("Prelude","Pos") [Var 5],Lit (Intc 1),Var 1],Var 7,Var 8]]]))]])),Func ("OraclePrelude","_case_103") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,)") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OraclePrelude","_case_104") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,)") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_105") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,)") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_107") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_106") [Var 4,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_106") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,,)") [5,6,7]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OraclePrelude","unzip3") [Var 4,Var 1])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OraclePrelude","unzip3._#selFP6#xs") [Var 8,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OraclePrelude","unzip3._#selFP7#ys") [Var 8,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OraclePrelude","unzip3._#selFP8#zs") [Var 8,Var 14])] (Comb FuncCall ("CEventOracle","collapse") [Var 15,Comb ConsCall ("Prelude","(,,)") [Comb ConsCall ("Prelude",":") [Var 5,Var 9],Comb ConsCall ("Prelude",":") [Var 6,Var 10],Comb ConsCall ("Prelude",":") [Var 7,Var 11]]])]))]))]))]))]])),Func ("OraclePrelude","_case_108") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_109") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_111") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_110") [Var 4,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_110") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OraclePrelude","unzip") [Var 4,Var 1])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OraclePrelude","unzip._#selFP3#xs") [Var 7,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OraclePrelude","unzip._#selFP4#ys") [Var 7,Var 11])] (Comb FuncCall ("CEventOracle","collapse") [Var 12,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 5,Var 8],Comb ConsCall ("Prelude",":") [Var 6,Var 9]]])]))]))]))]])),Func ("OraclePrelude","_case_114") 5 Private (TVar (-42)) (Rule [2,4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_113") [Var 2,Var 5,Var 6,Var 7,Var 4,Var 1]])]])),Func ("OraclePrelude","_case_113") 6 Private (TVar (-42)) (Rule [2,5,6,7,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_112") [Var 2,Var 6,Var 7,Var 8,Var 9,Var 5,Var 1]])]])),Func ("OraclePrelude","_case_112") 7 Private (TVar (-42)) (Rule [2,6,7,8,9,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [10,11]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 1],Var 8,Var 12],Var 10,Var 13],Comb FuncCall ("OraclePrelude","zipWith3") [Var 2,Var 7,Var 9,Var 11,Var 14]]]))]])),Func ("OraclePrelude","_case_116") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_115") [Var 2,Var 5,Var 6,Var 4,Var 1]])]])),Func ("OraclePrelude","_case_115") 5 Private (TVar (-42)) (Rule [2,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 7,Var 9],Comb FuncCall ("OraclePrelude","zipWith") [Var 2,Var 6,Var 8,Var 10]]]))]])),Func ("OraclePrelude","_case_119") 4 Private (TVar (-42)) (Rule [3,4,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_118") [Var 4,Var 5,Var 6,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_118") 5 Private (TVar (-42)) (Rule [4,5,6,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_117") [Var 5,Var 6,Var 7,Var 8,Var 4,Var 1]])]])),Func ("OraclePrelude","_case_117") 6 Private (TVar (-42)) (Rule [5,6,7,8,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,,)") [Var 5,Var 7,Var 9],Comb FuncCall ("OraclePrelude","zip3") [Var 6,Var 8,Var 10,Var 1]]])]])),Func ("OraclePrelude","_case_121") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_120") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_120") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 4,Var 6],Comb FuncCall ("OraclePrelude","zip") [Var 5,Var 7,Var 1]]])]])),Func ("OraclePrelude","_case_123") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_122") [Var 2,Var 4,Var 5,Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 6]]))]])),Func ("OraclePrelude","_case_122") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb FuncCall ("OraclePrelude","filter") [Var 2,Var 5,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","filter") [Var 2,Var 5,Var 1]])]])),Func ("OraclePrelude","_case_125") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_124") [Var 2,Var 4,Var 5,Var 1]])]])),Func ("OraclePrelude","_case_124") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude",":") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Comb FuncCall ("OraclePrelude","foldr1") [Var 2,Comb ConsCall ("Prelude",":") [Var 6,Var 7],Var 8],Var 9]]))]])),Func ("OraclePrelude","_case_126") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Comb FuncCall ("OraclePrelude","foldr") [Var 2,Var 3,Var 6,Var 7],Var 8]]))]])),Func ("OraclePrelude","_case_127") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldl") [Var 2,Var 4,Var 5,Var 1]])]])),Func ("OraclePrelude","_case_128") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","foldl") [Var 2,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Var 5,Var 7],Var 6,Var 8]]))]])),Func ("OraclePrelude","_case_129") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Comb FuncCall ("OraclePrelude","map") [Var 2,Var 5,Var 6]]]))]])),Func ("OraclePrelude","_case_132") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_131") [Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Intc 0),Var 1],Var 6]]))]])),Func ("OraclePrelude","_case_131") 5 Private (TVar (-42)) (Rule [3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_130") [Var 3,Var 5,Comb FuncCall ("OraclePrelude",">") [Var 3,Lit (Intc 0),Var 1],Var 7]]))]])),Func ("OraclePrelude","_case_130") 4 Private (TVar (-42)) (Rule [3,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","!!") [Var 5,Comb FuncCall ("OraclePrelude","-") [Var 3,Lit (Intc 1),Var 1],Var 7]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrelude","_case_133") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","+") [Lit (Intc 1),Comb FuncCall ("OraclePrelude","length") [Var 4,Var 1],Var 5]]))]])),Func ("OraclePrelude","_case_134") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb FuncCall ("OraclePrelude","++") [Var 5,Var 3,Var 1]]])]])),Func ("OraclePrelude","_case_135") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OraclePrelude","_case_136") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_137") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_138") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_139") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_140") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","GT") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","LT") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","EQ") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]])),Func ("OraclePrelude","_case_141") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","LT") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","EQ") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","GT") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]])),Func ("OraclePrelude","_case_145") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_144") [Var 3,Var 1]]),Branch (Pattern ("Prelude","Pos") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_143") [Var 6,Var 3,Var 1]]),Branch (Pattern ("Prelude","Neg") [9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_142") [Var 9,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_142") 3 Private (TVar (-42)) (Rule [9,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []]),Branch (Pattern ("Prelude","Pos") [10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []]),Branch (Pattern ("Prelude","Neg") [11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNat") [Var 11,Var 9,Var 1]])]])),Func ("OraclePrelude","_case_143") 3 Private (TVar (-42)) (Rule [6,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []]),Branch (Pattern ("Prelude","Pos") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNat") [Var 6,Var 7,Var 1]]),Branch (Pattern ("Prelude","Neg") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []])]])),Func ("OraclePrelude","_case_144") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","EQ") []]),Branch (Pattern ("Prelude","Pos") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []]),Branch (Pattern ("Prelude","Neg") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []])]])),Func ("OraclePrelude","_case_146") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","LT") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude","GT") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude","EQ") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])]])),Func ("OraclePrelude","_case_147") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","LT") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude","GT") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude","EQ") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OraclePrelude","_case_148") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","LT") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude","GT") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude","EQ") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OraclePrelude","_case_149") 4 Private (TVar (-42)) (Rule [3,4,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_150") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])]])),Func ("OraclePrelude","_case_151") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_152") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OraclePrelude","_case_153") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","ensureSpine") [Var 1],Var 4,Var 5]]]))]])),Func ("OraclePrelude","_case_154") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","until") [Var 2,Var 3,Comb FuncCall ("Oracle","apply") [Var 3,Var 4,Var 1],Var 6]]))]])),Func ("OraclePrelude","_case_155") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5,Var 6]]))]])),Func ("OraclePrelude","prim_error") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Prelude","prim_error") [Var 2]])),Func ("OraclePrelude","failed") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Prelude","failed") []])),Func ("OraclePrelude","==") 3 Public (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Prelude","==") [Var 3,Var 2]])),Func ("OraclePrelude","prim_ord") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Prelude","prim_ord") [Var 2]])),Func ("OraclePrelude","prim_chr") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Prelude","prim_chr") [Var 2]])),Func ("OraclePrelude","===") 3 Public (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Prelude","===") [Var 3,Var 2]])),Func ("OraclePrelude","&") 3 Public (FuncType (TCons ("Prelude","Success") []) (FuncType (TCons ("Prelude","Success") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Success") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Prelude","&") [Var 3,Var 2]])),Func ("OraclePrelude","return") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Prelude","return") [Var 2]]])),Func ("OraclePrelude","prim_putChar") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Prelude","prim_putChar") [Var 2]]])),Func ("OraclePrelude","getChar") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Prelude","getChar") []]]])),Func ("OraclePrelude","prim_readFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Prelude","prim_readFile") [Var 2]]]])),Func ("OraclePrelude","prim_writeFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Prelude","prim_writeFile") [Var 3,Var 2]]])),Func ("OraclePrelude","prim_appendFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Prelude","prim_appendFile") [Var 3,Var 2]]])),Func ("OraclePrelude","prim_show") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Prelude","prim_show") [Var 2]])),Func ("OraclePrelude","getSearchTree") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","SearchTree") [TVar 0]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Prelude","getSearchTree") [Var 2]]])),Func ("OraclePrelude","cond") 3 Public (FuncType (TCons ("Prelude","Success") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Prelude","cond") [Var 3,Var 2]])),Func ("OraclePrelude","=:<=") 3 Public (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Success") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Prelude","=:<=") [Var 3,Var 2]]))] [Op ("OraclePrelude","!!") InfixlOp 9,Op ("OraclePrelude",".") InfixrOp 9,Op ("OraclePrelude","*") InfixlOp 7,Op ("OraclePrelude","*^") InfixlOp 7,Op ("OraclePrelude","div") InfixlOp 7,Op ("OraclePrelude","mod") InfixlOp 7,Op ("OraclePrelude","+") InfixlOp 6,Op ("OraclePrelude","+^") InfixlOp 6,Op ("OraclePrelude","-") InfixlOp 6,Op ("OraclePrelude","-^") InfixlOp 6,Op ("OraclePrelude","++") InfixrOp 5,Op ("OraclePrelude","=:=") InfixOp 4,Op ("OraclePrelude","==") InfixOp 4,Op ("OraclePrelude","===") InfixOp 4,Op ("OraclePrelude","/=") InfixOp 4,Op ("OraclePrelude","<") InfixOp 4,Op ("OraclePrelude",">") InfixOp 4,Op ("OraclePrelude","<=") InfixOp 4,Op ("OraclePrelude",">=") InfixOp 4,Op ("OraclePrelude","=:<=") InfixOp 4,Op ("OraclePrelude","<^") InfixOp 4,Op ("OraclePrelude","<=^") InfixOp 4,Op ("OraclePrelude",">^") InfixOp 4,Op ("OraclePrelude",">=^") InfixOp 4,Op ("OraclePrelude","elem") InfixOp 4,Op ("OraclePrelude","notElem") InfixOp 4,Op ("OraclePrelude","&&") InfixrOp 3,Op ("OraclePrelude","||") InfixrOp 2,Op ("OraclePrelude",">>") InfixlOp 1,Op ("OraclePrelude",">>=") InfixlOp 1,Op ("OraclePrelude","$") InfixrOp 0,Op ("OraclePrelude","$!") InfixrOp 0,Op ("OraclePrelude","$!!") InfixrOp 0,Op ("OraclePrelude","$#") InfixrOp 0,Op ("OraclePrelude","$##") InfixrOp 0,Op ("OraclePrelude","seq") InfixrOp 0,Op ("OraclePrelude","&") InfixrOp 0,Op ("OraclePrelude","&>") InfixrOp 0,Op ("OraclePrelude","?") InfixrOp 0]
+ Curry/Module/OraclePrelude.fint view
@@ -0,0 +1,1 @@+Prog "OraclePrelude" ["CEventOracle","Oracle","IOExts","Prelude"] [] [Func ("OraclePrelude",".") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TVar 0))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TVar 1)))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude",".._#lambda2") [Var 2,Var 3]]])),Func ("OraclePrelude",".._#lambda2") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 9) (TVar 11))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 7) (TVar 9))) (FuncType (TVar 7) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 11))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Var 2,Comb FuncCall ("Oracle","apply") [Var 3,Var 4,Var 1],Var 5]]))),Func ("OraclePrelude","id") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OraclePrelude","const") 3 Public (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OraclePrelude","curry") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 1]) (TVar 2))) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 2))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("Prelude","(,)") [Var 3,Var 4],Var 1]])),Func ("OraclePrelude","uncurry") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 2))))) (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 2)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_155") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","flip") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 2))))) (FuncType (TVar 1) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 2))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 3,Var 5]]))),Func ("OraclePrelude","until") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_154") [Var 2,Var 3,Var 4,Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5]]))),Func ("OraclePrelude","$") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1))) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 1)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","ensureSpine") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","ensureSpine.ensureList.21") []]]]])),Func ("OraclePrelude","ensureSpine.ensureList.21") 2 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_153") [Var 2,Var 1]])),Func ("OraclePrelude","seq") 3 Public (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 1)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$!") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","const") [Var 3]],Var 2,Var 1]])),Func ("OraclePrelude","error") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","prim_error") []],Var 2,Var 1]])),Func ("OraclePrelude","&&") 3 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_152") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","||") 3 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_151") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","not") 2 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_150") [Var 2,Var 1]])),Func ("OraclePrelude","otherwise") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])),Func ("OraclePrelude","if_then_else") 4 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_149") [Var 3,Var 4,Var 2,Var 1]])),Func ("OraclePrelude","isLT") 2 Public (FuncType (TCons ("Prelude","Ordering") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_148") [Var 2,Var 1]])),Func ("OraclePrelude","isGT") 2 Public (FuncType (TCons ("Prelude","Ordering") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_147") [Var 2,Var 1]])),Func ("OraclePrelude","isEQ") 2 Public (FuncType (TCons ("Prelude","Ordering") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_146") [Var 2,Var 1]])),Func ("OraclePrelude","compare") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Ordering") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_145") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","<") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","compare") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude","LT") [],Var 4]]))),Func ("OraclePrelude",">") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","compare") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude","GT") [],Var 4]]))),Func ("OraclePrelude","<=") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","/=") [Comb FuncCall ("OraclePrelude","compare") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude","GT") [],Var 4]]))),Func ("OraclePrelude",">=") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","/=") [Comb FuncCall ("OraclePrelude","compare") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude","LT") [],Var 4]]))),Func ("OraclePrelude","max") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_141") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","compare") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OraclePrelude","min") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_140") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","compare") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OraclePrelude","/=") 3 Public (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("OraclePrelude","==") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OraclePrelude","fst") 2 Public (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_139") [Var 2,Var 1]])),Func ("OraclePrelude","snd") 2 Public (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 1))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_138") [Var 2,Var 1]])),Func ("OraclePrelude","head") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_137") [Var 2,Var 1]])),Func ("OraclePrelude","tail") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_136") [Var 2,Var 1]])),Func ("OraclePrelude","null") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_135") [Var 2,Var 1]])),Func ("OraclePrelude","++") 3 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_134") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","length") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_133") [Var 2,Var 1]])),Func ("OraclePrelude","!!") 3 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_132") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","map") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_129") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","foldl") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 0))))) (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_128") [Var 2,Var 3,Var 4,Var 1]])),Func ("OraclePrelude","foldl1") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_127") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","foldr") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 1))))) (FuncType (TVar 1) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 1))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_126") [Var 2,Var 3,Var 4,Var 1]])),Func ("OraclePrelude","foldr1") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_125") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","filter") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_123") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","zip") 3 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_121") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","zip3") 4 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 1]) (FuncType (TCons ("Prelude","[]") [TVar 2]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TVar 0,TVar 1,TVar 2]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_119") [Var 3,Var 4,Var 2,Var 1]])),Func ("OraclePrelude","zipWith") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 2))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 2]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_116") [Var 2,Var 4,Var 3,Var 1]])),Func ("OraclePrelude","zipWith3") 5 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TVar 3))))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 1]) (FuncType (TCons ("Prelude","[]") [TVar 2]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 3])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_114") [Var 2,Var 4,Var 5,Var 3,Var 1]])),Func ("OraclePrelude","unzip") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 1]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_111") [Var 2,Var 1]])),Func ("OraclePrelude","unzip._#selFP3#xs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 476],TCons ("Prelude","[]") [TVar 477]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 476]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_109") [Var 2,Var 1]])),Func ("OraclePrelude","unzip._#selFP4#ys") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 476],TCons ("Prelude","[]") [TVar 477]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 477]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_108") [Var 2,Var 1]])),Func ("OraclePrelude","unzip3") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TVar 0,TVar 1,TVar 2]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 1],TCons ("Prelude","[]") [TVar 2]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_107") [Var 2,Var 1]])),Func ("OraclePrelude","unzip3._#selFP6#xs") 2 Private (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TVar 493],TCons ("Prelude","[]") [TVar 494],TCons ("Prelude","[]") [TVar 495]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 493]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_105") [Var 2,Var 1]])),Func ("OraclePrelude","unzip3._#selFP7#ys") 2 Private (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TVar 493],TCons ("Prelude","[]") [TVar 494],TCons ("Prelude","[]") [TVar 495]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 494]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_104") [Var 2,Var 1]])),Func ("OraclePrelude","unzip3._#selFP8#zs") 2 Private (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TVar 493],TCons ("Prelude","[]") [TVar 494],TCons ("Prelude","[]") [TVar 495]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 495]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_103") [Var 2,Var 1]])),Func ("OraclePrelude","concat") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","++") []],Comb ConsCall ("Prelude","[]") [],Var 2,Var 1]])),Func ("OraclePrelude","concatMap") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TVar 1]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 1]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","concat") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Var 2]],Var 1]])),Func ("OraclePrelude","iterate") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("OraclePrelude","iterate") [Var 2,Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Var 4]]]))),Func ("OraclePrelude","repeat") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb FuncCall ("OraclePrelude","repeat") [Var 2,Var 1]]])),Func ("OraclePrelude","replicate") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","take") [Var 2,Comb FuncCall ("OraclePrelude","repeat") [Var 3,Var 1],Var 4]]))),Func ("OraclePrelude","take") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_102") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","drop") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_100") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","<=") [Var 2,Lit (Intc 0),Var 1],Var 4]]))),Func ("OraclePrelude","drop.dropp.272") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_99") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","splitAt") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_98") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","<=") [Var 2,Lit (Intc 0),Var 1],Var 4]]))),Func ("OraclePrelude","splitAt.splitAtp.282") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_97") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","splitAt.splitAtp.282._#selFP10#ys") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 576],TCons ("Prelude","[]") [TVar 576]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 576]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_96") [Var 2,Var 1]])),Func ("OraclePrelude","splitAt.splitAtp.282._#selFP11#zs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 576],TCons ("Prelude","[]") [TVar 576]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 576]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_95") [Var 2,Var 1]])),Func ("OraclePrelude","takeWhile") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_94") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","dropWhile") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_92") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","span") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_90") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","span._#selFP13#ys") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 627],TCons ("Prelude","[]") [TVar 627]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 627]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_87") [Var 2,Var 1]])),Func ("OraclePrelude","span._#selFP14#zs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 627],TCons ("Prelude","[]") [TVar 627]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 627]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_86") [Var 2,Var 1]])),Func ("OraclePrelude","break") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","span") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","not") []],Var 2,Var 1]]]])),Func ("OraclePrelude","lines") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_85") [Var 2,Var 1]])),Func ("OraclePrelude","lines.splitline.314") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_84") [Var 2,Var 1]])),Func ("OraclePrelude","lines.splitline.314._#selFP16#ds") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_82") [Var 2,Var 1]])),Func ("OraclePrelude","lines.splitline.314._#selFP17#es") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_81") [Var 2,Var 1]])),Func ("OraclePrelude","lines._#selFP19#l") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_80") [Var 2,Var 1]])),Func ("OraclePrelude","lines._#selFP20#xs_l") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_79") [Var 2,Var 1]])),Func ("OraclePrelude","unlines") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","++") []],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 2,Var 3]]))),Func ("OraclePrelude","words") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OraclePrelude","dropWhile") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","words.isSpace.326") []],Var 2,Var 1])] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_78") [Var 3,Comb FuncCall ("OraclePrelude","==") [Var 3,Comb ConsCall ("Prelude","[]") [],Var 4],Var 5]]))]))),Func ("OraclePrelude","words.isSpace.326") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc ' '),Var 1],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '\t'),Var 3],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '\n'),Var 4],Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '\r'),Var 5],Var 6],Var 7],Var 8]]))),Func ("OraclePrelude","words._#selFP22#w") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_77") [Var 2,Var 1]])),Func ("OraclePrelude","words._#selFP23#s2") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_76") [Var 2,Var 1]])),Func ("OraclePrelude","unwords") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_75") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1],Var 3]]))),Func ("OraclePrelude","unwords._#lambda6") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Var 3],Var 1]])),Func ("OraclePrelude","reverse") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","foldl") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("Prelude",":") []]]],Comb ConsCall ("Prelude","[]") []]]])),Func ("OraclePrelude","and") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Bool") []]) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","&&") []],Comb ConsCall ("Prelude","True") []]]])),Func ("OraclePrelude","or") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Bool") []]) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","||") []],Comb ConsCall ("Prelude","False") []]]])),Func ("OraclePrelude","any") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Bool") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePrelude","or") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Var 2]],Var 3]]))),Func ("OraclePrelude","all") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Bool") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePrelude","and") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Var 2]],Var 3]]))),Func ("OraclePrelude","elem") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Bool") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","any") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","==") [Var 2]],Var 1]])),Func ("OraclePrelude","notElem") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Bool") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","all") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","/=") [Var 2]],Var 1]])),Func ("OraclePrelude","lookup") 3 Public (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TVar 1])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_74") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","enumFrom") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 2,Comb FuncCall ("OraclePrelude","enumFrom") [Comb FuncCall ("OraclePrelude","+") [Var 2,Lit (Intc 1),Var 1],Var 3]]]))),Func ("OraclePrelude","enumFromThen") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","iterate") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","-") [Var 3,Var 2,Var 1]]],Var 2,Var 4]]))),Func ("OraclePrelude","enumFromTo") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_70") [Var 2,Var 3,Comb FuncCall ("OraclePrelude",">") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OraclePrelude","enumFromThenTo") 4 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","takeWhile") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","enumFromThenTo.p.364") [Var 4,Var 2,Var 3]],Comb FuncCall ("OraclePrelude","enumFromThen") [Var 2,Var 3,Var 1],Var 5]]))),Func ("OraclePrelude","enumFromThenTo.p.364") 5 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_69") [Var 2,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude",">=") [Var 4,Var 3,Var 1],Var 6]]))),Func ("OraclePrelude","ord") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","prim_ord") []],Var 2,Var 1]])),Func ("OraclePrelude","chr") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","prim_chr") []],Var 2,Var 1]])),Func ("OraclePrelude","succ") 2 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Nat") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_67") [Var 2,Var 1]])),Func ("OraclePrelude","+^") 3 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Nat") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_66") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","cmpNat") 3 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Ordering") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_63") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","cmpNatLT") 3 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Ordering") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_59") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","cmpNatGT") 3 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Ordering") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_56") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","<^") 3 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","isLT") [Comb FuncCall ("OraclePrelude","cmpNat") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OraclePrelude",">^") 3 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","isGT") [Comb FuncCall ("OraclePrelude","cmpNat") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OraclePrelude","<=^") 3 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("OraclePrelude","isGT") [Comb FuncCall ("OraclePrelude","cmpNat") [Var 2,Var 3,Var 1],Var 4],Var 5]]))),Func ("OraclePrelude",">=^") 3 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("OraclePrelude","isLT") [Comb FuncCall ("OraclePrelude","cmpNat") [Var 2,Var 3,Var 1],Var 4],Var 5]]))),Func ("OraclePrelude","*^") 3 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Nat") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_53") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","pred") 2 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Nat") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_52") [Var 2,Var 1]])),Func ("OraclePrelude","inc") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_50") [Var 2,Var 1]])),Func ("OraclePrelude","dec") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_48") [Var 2,Var 1]])),Func ("OraclePrelude","mult2") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_46") [Var 2,Var 1]])),Func ("OraclePrelude","-^") 3 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_45") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","div2") 2 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Nat") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_42") [Var 2,Var 1]])),Func ("OraclePrelude","mod2") 2 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_41") [Var 2,Var 1]])),Func ("OraclePrelude","divmodNat") 3 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_40") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 3,Comb ConsCall ("Prelude","IHi") [],Var 1],Var 4]]))),Func ("OraclePrelude","divmodNat.shift.523") 3 Private (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Nat") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_32") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","+") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_31") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","-") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_28") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","*") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_27") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","divmod") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_24") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","divmod._#selFP25#d") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_21") [Var 2,Var 1]])),Func ("OraclePrelude","divmod._#selFP26#m") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_20") [Var 2,Var 1]])),Func ("OraclePrelude","divmod._#selFP28#d") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_19") [Var 2,Var 1]])),Func ("OraclePrelude","divmod._#selFP29#m") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_18") [Var 2,Var 1]])),Func ("OraclePrelude","divmod._#selFP31#d") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_17") [Var 2,Var 1]])),Func ("OraclePrelude","divmod._#selFP32#m") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_16") [Var 2,Var 1]])),Func ("OraclePrelude","div") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","fst") [Comb FuncCall ("OraclePrelude","divmod") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OraclePrelude","mod") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","snd") [Comb FuncCall ("OraclePrelude","divmod") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OraclePrelude","negate") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_15") [Var 2,Var 1]])),Func ("OraclePrelude","success") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Success") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Success") []])),Func ("OraclePrelude","=:=") 3 Public (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Success") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_14") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","===") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OraclePrelude","&>") 3 Public (FuncType (TCons ("Prelude","Success") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cond") [Var 2,Var 3,Var 1]])),Func ("OraclePrelude","maybe") 4 Public (FuncType (TVar 0) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 0))) (FuncType (TCons ("Prelude","Maybe") [TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_13") [Var 2,Var 3,Var 4,Var 1]])),Func ("OraclePrelude","either") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 2) (TVar 1))) (FuncType (TCons ("Prelude","Either") [TVar 0,TVar 2]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 1))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_12") [Var 2,Var 3,Var 4,Var 1]])),Func ("OraclePrelude",">>") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 1]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 1])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle",">>=") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","const") [Var 3]],Var 1]])),Func ("OraclePrelude","done") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","()") [],Var 1]])),Func ("OraclePrelude","putChar") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","prim_putChar") []],Var 2,Var 1]])),Func ("OraclePrelude","readFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","prim_readFile") []],Var 2,Var 1]])),Func ("OraclePrelude","writeFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","prim_writeFile") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OraclePrelude","appendFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","prim_appendFile") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OraclePrelude","putStr") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_11") [Var 2,Var 1]])),Func ("OraclePrelude","putStrLn") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","putStr") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","putChar") [Lit (Charc '\n'),Var 3],Var 4]]))),Func ("OraclePrelude","getLine") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","getChar") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","getLine._#lambda10") []],Var 2]]))),Func ("OraclePrelude","getLine._#lambda10") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_10") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc '\n'),Var 1],Var 3]]))),Func ("OraclePrelude","getLine._#lambda10._#lambda11") 3 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude",":") [Var 2,Var 3],Var 1]])),Func ("OraclePrelude","show") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","prim_show") []],Var 2,Var 1]])),Func ("OraclePrelude","print") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","putStrLn") [Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],Var 3]]))),Func ("OraclePrelude","doSolve") 2 Public (FuncType (TCons ("Prelude","Success") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","cond") [Var 2,Comb FuncCall ("OraclePrelude","done") [Var 1],Var 3]]))),Func ("OraclePrelude","sequenceIO") 2 Public (FuncType (TCons ("Prelude","[]") [FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TVar 0]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_9") [Var 2,Var 1]])),Func ("OraclePrelude","sequenceIO._#lambda12") 3 Private (FuncType (TCons ("Prelude","[]") [FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 937]))]) (FuncType (TVar 937) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TVar 937]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","sequenceIO") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","sequenceIO._#lambda12._#lambda13") [Var 3]],Var 4]]))),Func ("OraclePrelude","sequenceIO._#lambda12._#lambda13") 3 Private (FuncType (TVar 937) (FuncType (TCons ("Prelude","[]") [TVar 937]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TVar 937]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude",":") [Var 2,Var 3],Var 1]])),Func ("OraclePrelude","sequenceIO_") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude",">>") []],Comb FuncCall ("OraclePrelude","done") [Var 1]]]])),Func ("OraclePrelude","mapIO") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 1]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TVar 1]]))))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","sequenceIO") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Var 2]],Var 1]])),Func ("OraclePrelude","mapIO_") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 1]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePrelude","sequenceIO_") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Var 2]],Var 3]]))),Func ("OraclePrelude","?") 3 Public (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Or (Var 2) (Var 3)])),Func ("OraclePrelude","allValuesD") 2 Public (FuncType (TCons ("Prelude","SearchTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_8") [Var 2,Var 1]])),Func ("OraclePrelude","allValuesB") 2 Public (FuncType (TCons ("Prelude","SearchTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","allValuesB.unfoldOrs.692") [Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Var 1]])),Func ("OraclePrelude","allValuesB.partition.692") 3 Private (FuncType (TCons ("Prelude","SearchTree") [TVar 0]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 0]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 0]]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_7") [Var 3,Var 2,Var 1]])),Func ("OraclePrelude","allValuesB.partition.692._#selFP34#vs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1001],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1001]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 1001]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_6") [Var 2,Var 1]])),Func ("OraclePrelude","allValuesB.partition.692._#selFP35#ors") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1001],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1001]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1001]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_5") [Var 2,Var 1]])),Func ("OraclePrelude","allValuesB.partition.692._#selFP37#vs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1001],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1001]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 1001]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_4") [Var 2,Var 1]])),Func ("OraclePrelude","allValuesB.partition.692._#selFP38#ors") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1001],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1001]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1001]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_3") [Var 2,Var 1]])),Func ("OraclePrelude","allValuesB.unfoldOrs.692") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 0]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_2") [Var 2,Var 1]])),Func ("OraclePrelude","allValuesB.unfoldOrs.692._#selFP40#vals") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1014],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1014]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 1014]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_1") [Var 2,Var 1]])),Func ("OraclePrelude","allValuesB.unfoldOrs.692._#selFP41#ors") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1014],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1014]]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1014]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_0") [Var 2,Var 1]])),Func ("OraclePrelude","inject") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Success") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Success") []))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Success") [])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","inject._#lambda14") [Var 2,Var 3]]])),Func ("OraclePrelude","inject._#lambda14") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1025) (TCons ("Prelude","Success") []))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1025) (TCons ("Prelude","Success") []))) (FuncType (TVar 1025) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Success") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","&") [Comb FuncCall ("Oracle","apply") [Var 3,Var 4,Var 1],Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 5],Var 6]]))),Func ("OraclePrelude","PEVAL") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])),Func ("OraclePrelude","unknown") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(2,Comb FuncCall ("Oracle","unknown") [Var 1])] (Var 2)])),Func ("OraclePrelude","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_2") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","allValuesB.partition.692") []],Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 3,Var 4],Var 1])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePrelude","allValuesB.unfoldOrs.692._#selFP40#vals") [Var 5,Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OraclePrelude","allValuesB.unfoldOrs.692._#selFP41#ors") [Var 5,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 6,Comb FuncCall ("OraclePrelude","allValuesB.unfoldOrs.692") [Var 7,Var 10],Var 11]]))]))]))]))]])),Func ("OraclePrelude","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_4") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_5") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_6") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_7") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Value") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(5,Var 3)] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePrelude","allValuesB.partition.692._#selFP34#vs") [Var 5,Var 1])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OraclePrelude","allValuesB.partition.692._#selFP35#ors") [Var 5,Var 12])] (Comb FuncCall ("CEventOracle","collapse") [Var 13,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 4,Var 6],Var 7]])]))]))]),Branch (Pattern ("Prelude","Choice") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(9,Var 3)] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OraclePrelude","allValuesB.partition.692._#selFP37#vs") [Var 9,Var 1])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OraclePrelude","allValuesB.partition.692._#selFP38#ors") [Var 9,Var 14])] (Comb FuncCall ("CEventOracle","replace") [Var 15,Comb ConsCall ("Prelude","(,)") [Var 10,Comb FuncCall ("OraclePrelude","++") [Var 8,Var 11,Var 15]]])]))]))]),Branch (Pattern ("Prelude","Fail") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","Suspend") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_8") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Value") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","Fail") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","Suspend") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","Choice") [4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","allValuesD") []],Var 1],Var 4,Var 5]]))]])),Func ("OraclePrelude","_case_9") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","[]") [],Var 1]]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle",">>=") [Var 3,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","sequenceIO._#lambda12") [Var 4]],Var 1]])]])),Func ("OraclePrelude","_case_10") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","[]") [],Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","getLine") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","getLine._#lambda10._#lambda11") [Var 2]],Var 4]]))]])),Func ("OraclePrelude","_case_11") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","done") [Var 1]]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","putChar") [Var 3,Var 1],Comb FuncCall ("OraclePrelude","putStr") [Var 4,Var 5],Var 6]]))]])),Func ("OraclePrelude","_case_12") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","Left") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1]]),Branch (Pattern ("Prelude","Right") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 3,Var 6,Var 1]])]])),Func ("OraclePrelude","_case_13") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","Just") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 1]])]])),Func ("OraclePrelude","_case_14") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","success") [Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrelude","_case_15") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Zero") []]),Branch (Pattern ("Prelude","Pos") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Neg") [Var 3]]),Branch (Pattern ("Prelude","Neg") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Pos") [Var 4]])]])),Func ("OraclePrelude","_case_16") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_17") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_18") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_19") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_20") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_21") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_24") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Zero") [],Comb ConsCall ("Prelude","Zero") []]]),Branch (Pattern ("Prelude","Pos") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_23") [Var 4,Var 3,Var 1]]),Branch (Pattern ("Prelude","Neg") [10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_22") [Var 10,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_22") 3 Private (TVar (-42)) (Rule [10,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),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 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '0'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]],Var 1]]),Branch (Pattern ("Prelude","Pos") [11]) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Let [(12,Comb FuncCall ("OraclePrelude","divmodNat") [Var 10,Var 11,Var 1])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OraclePrelude","divmod._#selFP28#d") [Var 12,Var 19])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Let [(14,Comb FuncCall ("OraclePrelude","divmod._#selFP29#m") [Var 12,Var 20])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","negate") [Var 13,Var 21],Comb FuncCall ("OraclePrelude","negate") [Var 14,Var 22]]]))]))]))])),Branch (Pattern ("Prelude","Neg") [15]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Let [(16,Comb FuncCall ("OraclePrelude","divmodNat") [Var 10,Var 15,Var 1])] (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Let [(17,Comb FuncCall ("OraclePrelude","divmod._#selFP31#d") [Var 16,Var 23])] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(18,Comb FuncCall ("OraclePrelude","divmod._#selFP32#m") [Var 16,Var 24])] (Comb FuncCall ("CEventOracle","replace") [Var 25,Comb ConsCall ("Prelude","(,)") [Var 17,Comb FuncCall ("OraclePrelude","negate") [Var 18,Var 25]]])]))]))]))]])),Func ("OraclePrelude","_case_23") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),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 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc '0'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]],Var 1]]),Branch (Pattern ("Prelude","Pos") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","divmodNat") [Var 4,Var 5,Var 1]]),Branch (Pattern ("Prelude","Neg") [6]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OraclePrelude","divmodNat") [Var 4,Var 6,Var 1])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OraclePrelude","divmod._#selFP25#d") [Var 7,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OraclePrelude","divmod._#selFP26#m") [Var 7,Var 11])] (Comb FuncCall ("CEventOracle","replace") [Var 12,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrelude","negate") [Var 8,Var 12],Var 9]])]))]))]))]])),Func ("OraclePrelude","_case_27") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Pos") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_26") [Var 4,Var 3,Var 1]]),Branch (Pattern ("Prelude","Neg") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_25") [Var 7,Var 3,Var 1]]),Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Zero") []])]])),Func ("OraclePrelude","_case_25") 3 Private (TVar (-42)) (Rule [7,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Neg") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb FuncCall ("OraclePrelude","*^") [Var 7,Var 8,Var 1]]]),Branch (Pattern ("Prelude","Pos") [9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Neg") [Comb FuncCall ("OraclePrelude","*^") [Var 7,Var 9,Var 1]]]),Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Zero") []])]])),Func ("OraclePrelude","_case_26") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Pos") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb FuncCall ("OraclePrelude","*^") [Var 4,Var 5,Var 1]]]),Branch (Pattern ("Prelude","Neg") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Neg") [Comb FuncCall ("OraclePrelude","*^") [Var 4,Var 6,Var 1]]]),Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Zero") []])]])),Func ("OraclePrelude","_case_28") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Neg") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","+") [Var 2,Comb ConsCall ("Prelude","Pos") [Var 4],Var 1]]),Branch (Pattern ("Prelude","Pos") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","+") [Var 2,Comb ConsCall ("Prelude","Neg") [Var 5],Var 1]]),Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]])),Func ("OraclePrelude","_case_31") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Pos") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_30") [Var 2,Var 4,Var 3,Var 1]]),Branch (Pattern ("Prelude","Neg") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_29") [Var 2,Var 7,Var 3,Var 1]]),Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_29") 4 Private (TVar (-42)) (Rule [2,7,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Neg") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Neg") [Comb FuncCall ("OraclePrelude","+^") [Var 7,Var 8,Var 1]]]),Branch (Pattern ("Prelude","Pos") [9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","-^") [Var 9,Var 7,Var 1]]),Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]])),Func ("OraclePrelude","_case_30") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Pos") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb FuncCall ("OraclePrelude","+^") [Var 4,Var 5,Var 1]]]),Branch (Pattern ("Prelude","Neg") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","-^") [Var 4,Var 6,Var 1]]),Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]])),Func ("OraclePrelude","_case_32") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","O") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","O") [Var 3]]),Branch (Pattern ("Prelude","I") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","I") [Var 3]])]])),Func ("OraclePrelude","_case_40") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Pos") [Var 2],Comb ConsCall ("Prelude","Zero") []]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_39") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 5]]))]])),Func ("OraclePrelude","_case_39") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_38") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","cmpNat") [Var 2,Var 3,Var 1],Var 5]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrelude","_case_38") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","EQ") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","IHi") []],Comb ConsCall ("Prelude","Zero") []]]),Branch (Pattern ("Prelude","LT") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Zero") [],Comb ConsCall ("Prelude","Pos") [Var 2]]]),Branch (Pattern ("Prelude","GT") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","_case_37") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","divmodNat") [Comb FuncCall ("OraclePrelude","div2") [Var 2,Var 1],Var 3,Var 5],Var 6]]))]])),Func ("OraclePrelude","_case_37") 4 Private (TVar (-42)) (Rule [2,3,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_36") [Var 2,Var 3,Var 5,Var 4,Var 1]])]])),Func ("OraclePrelude","_case_36") 5 Private (TVar (-42)) (Rule [2,3,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","IHi") []],Comb FuncCall ("OraclePrelude","-^") [Var 2,Var 3,Var 1]]]),Branch (Pattern ("Prelude","Pos") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_35") [Var 2,Var 3,Var 6,Var 5,Var 1]]),Branch (Pattern ("Prelude","Neg") [13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrelude","_case_35") 5 Private (TVar (-42)) (Rule [2,3,6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","O") [Var 6]],Comb FuncCall ("OraclePrelude","mod2") [Var 2,Var 1]]]),Branch (Pattern ("Prelude","Pos") [7]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","_case_34") [Var 2,Var 3,Var 6,Var 7,Comb FuncCall ("OraclePrelude","divmodNat") [Comb FuncCall ("OraclePrelude","divmodNat.shift.523") [Var 2,Var 7,Var 1],Var 3,Var 13],Var 14]])),Branch (Pattern ("Prelude","Neg") [12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrelude","_case_34") 6 Private (TVar (-42)) (Rule [2,3,6,7,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","(,)") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_33") [Var 6,Var 9,Var 8,Var 1]])]])),Func ("OraclePrelude","_case_33") 4 Private (TVar (-42)) (Rule [6,9,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","O") [Var 6]],Var 9]]),Branch (Pattern ("Prelude","Pos") [10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Pos") [Comb FuncCall ("OraclePrelude","+^") [Comb ConsCall ("Prelude","O") [Var 6],Var 10,Var 1]],Var 9]]),Branch (Pattern ("Prelude","Neg") [11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrelude","_case_41") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","IHi") []]]),Branch (Pattern ("Prelude","O") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Zero") []]),Branch (Pattern ("Prelude","I") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","IHi") []]])]])),Func ("OraclePrelude","_case_42") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","O") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","I") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_45") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","inc") [Comb ConsCall ("Prelude","Neg") [Var 3],Var 1]]),Branch (Pattern ("Prelude","O") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_44") [Var 4,Var 3,Var 1]]),Branch (Pattern ("Prelude","I") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_43") [Var 7,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_43") 3 Private (TVar (-42)) (Rule [7,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","O") [Var 7]]]),Branch (Pattern ("Prelude","O") [8]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","inc") [Comb FuncCall ("OraclePrelude","mult2") [Comb FuncCall ("OraclePrelude","-^") [Var 7,Var 8,Var 1],Var 10],Var 11]])),Branch (Pattern ("Prelude","I") [9]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","mult2") [Comb FuncCall ("OraclePrelude","-^") [Var 7,Var 9,Var 1],Var 12]]))]])),Func ("OraclePrelude","_case_44") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb FuncCall ("OraclePrelude","pred") [Comb ConsCall ("Prelude","O") [Var 4],Var 1]]]),Branch (Pattern ("Prelude","O") [5]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","mult2") [Comb FuncCall ("OraclePrelude","-^") [Var 4,Var 5,Var 1],Var 7]])),Branch (Pattern ("Prelude","I") [6]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","dec") [Comb FuncCall ("OraclePrelude","mult2") [Comb FuncCall ("OraclePrelude","-^") [Var 4,Var 6,Var 1],Var 8],Var 9]]))]])),Func ("OraclePrelude","_case_46") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Pos") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","O") [Var 3]]]),Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Zero") []]),Branch (Pattern ("Prelude","Neg") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Neg") [Comb ConsCall ("Prelude","O") [Var 4]]])]])),Func ("OraclePrelude","_case_48") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Neg") [Comb ConsCall ("Prelude","IHi") []]]),Branch (Pattern ("Prelude","Neg") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Neg") [Comb FuncCall ("OraclePrelude","succ") [Var 3,Var 1]]]),Branch (Pattern ("Prelude","Pos") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_47") [Var 4,Var 1]])]])),Func ("OraclePrelude","_case_47") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Zero") []]),Branch (Pattern ("Prelude","O") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb FuncCall ("OraclePrelude","pred") [Comb ConsCall ("Prelude","O") [Var 5],Var 1]]]),Branch (Pattern ("Prelude","I") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","O") [Var 6]]])]])),Func ("OraclePrelude","_case_50") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","IHi") []]]),Branch (Pattern ("Prelude","Pos") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Pos") [Comb FuncCall ("OraclePrelude","succ") [Var 3,Var 1]]]),Branch (Pattern ("Prelude","Neg") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_49") [Var 4,Var 1]])]])),Func ("OraclePrelude","_case_49") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Zero") []]),Branch (Pattern ("Prelude","O") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","Neg") [Comb FuncCall ("OraclePrelude","pred") [Comb ConsCall ("Prelude","O") [Var 5],Var 1]]]),Branch (Pattern ("Prelude","I") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Neg") [Comb ConsCall ("Prelude","O") [Var 6]]])]])),Func ("OraclePrelude","_case_52") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","O") [3]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_51") [Var 3,Var 1]]),Branch (Pattern ("Prelude","I") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","O") [Var 6]])]])),Func ("OraclePrelude","_case_51") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","IHi") []]),Branch (Pattern ("Prelude","O") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","I") [Comb FuncCall ("OraclePrelude","pred") [Var 3,Var 1]]]),Branch (Pattern ("Prelude","I") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","I") [Comb ConsCall ("Prelude","O") [Var 5]]])]])),Func ("OraclePrelude","_case_53") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","I") [4]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","+^") [Comb ConsCall ("Prelude","O") [Comb FuncCall ("OraclePrelude","*^") [Var 3,Var 4,Var 1]],Var 3,Var 6]])),Branch (Pattern ("Prelude","O") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","O") [Comb FuncCall ("OraclePrelude","*^") [Var 5,Var 3,Var 1]]])]])),Func ("OraclePrelude","_case_56") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []]),Branch (Pattern ("Prelude","O") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_55") [Var 4,Var 2,Var 1]]),Branch (Pattern ("Prelude","I") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_54") [Var 7,Var 2,Var 1]])]])),Func ("OraclePrelude","_case_54") 3 Private (TVar (-42)) (Rule [7,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []]),Branch (Pattern ("Prelude","I") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNatGT") [Var 8,Var 7,Var 1]]),Branch (Pattern ("Prelude","O") [9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNatLT") [Var 9,Var 7,Var 1]])]])),Func ("OraclePrelude","_case_55") 3 Private (TVar (-42)) (Rule [4,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []]),Branch (Pattern ("Prelude","O") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNatGT") [Var 5,Var 4,Var 1]]),Branch (Pattern ("Prelude","I") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNatGT") [Var 6,Var 4,Var 1]])]])),Func ("OraclePrelude","_case_59") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []]),Branch (Pattern ("Prelude","O") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_58") [Var 4,Var 3,Var 1]]),Branch (Pattern ("Prelude","I") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_57") [Var 7,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_57") 3 Private (TVar (-42)) (Rule [7,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []]),Branch (Pattern ("Prelude","I") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNatLT") [Var 7,Var 8,Var 1]]),Branch (Pattern ("Prelude","O") [9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNatGT") [Var 7,Var 9,Var 1]])]])),Func ("OraclePrelude","_case_58") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []]),Branch (Pattern ("Prelude","O") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNatLT") [Var 4,Var 5,Var 1]]),Branch (Pattern ("Prelude","I") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNatLT") [Var 4,Var 6,Var 1]])]])),Func ("OraclePrelude","_case_63") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_62") [Var 3,Var 1]]),Branch (Pattern ("Prelude","O") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_61") [Var 6,Var 3,Var 1]]),Branch (Pattern ("Prelude","I") [9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_60") [Var 9,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_60") 3 Private (TVar (-42)) (Rule [9,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []]),Branch (Pattern ("Prelude","I") [10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNat") [Var 9,Var 10,Var 1]]),Branch (Pattern ("Prelude","O") [11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNatGT") [Var 9,Var 11,Var 1]])]])),Func ("OraclePrelude","_case_61") 3 Private (TVar (-42)) (Rule [6,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []]),Branch (Pattern ("Prelude","O") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNat") [Var 6,Var 7,Var 1]]),Branch (Pattern ("Prelude","I") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNatLT") [Var 6,Var 8,Var 1]])]])),Func ("OraclePrelude","_case_62") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","EQ") []]),Branch (Pattern ("Prelude","O") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []]),Branch (Pattern ("Prelude","I") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []])]])),Func ("OraclePrelude","_case_66") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","O") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_65") [Var 4,Var 3,Var 1]]),Branch (Pattern ("Prelude","I") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_64") [Var 7,Var 3,Var 1]]),Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","succ") [Var 3,Var 1]])]])),Func ("OraclePrelude","_case_64") 3 Private (TVar (-42)) (Rule [7,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","O") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","I") [Comb FuncCall ("OraclePrelude","+^") [Var 7,Var 8,Var 1]]]),Branch (Pattern ("Prelude","I") [9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","O") [Comb FuncCall ("OraclePrelude","+^") [Comb FuncCall ("OraclePrelude","succ") [Var 7,Var 1],Var 9,Var 10]]])),Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","O") [Comb FuncCall ("OraclePrelude","succ") [Var 7,Var 1]]])]])),Func ("OraclePrelude","_case_65") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","O") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","O") [Comb FuncCall ("OraclePrelude","+^") [Var 4,Var 5,Var 1]]]),Branch (Pattern ("Prelude","I") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","I") [Comb FuncCall ("OraclePrelude","+^") [Var 4,Var 6,Var 1]]]),Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","I") [Var 4]])]])),Func ("OraclePrelude","_case_67") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","O") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","I") [Var 3]]),Branch (Pattern ("Prelude","I") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude","O") [Comb FuncCall ("OraclePrelude","succ") [Var 4,Var 1]]]),Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","O") [Comb ConsCall ("Prelude","IHi") []]])]])),Func ("OraclePrelude","_case_69") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","<=") [Var 5,Var 2,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_68") [Var 2,Var 5,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 7]]))]])),Func ("OraclePrelude","_case_68") 4 Private (TVar (-42)) (Rule [2,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",">=") [Var 5,Var 2,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrelude","_case_70") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 2,Comb FuncCall ("OraclePrelude","enumFromTo") [Comb FuncCall ("OraclePrelude","+") [Var 2,Lit (Intc 1),Var 1],Var 3,Var 5]]]))]])),Func ("OraclePrelude","_case_74") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_73") [Var 2,Var 5,Var 4,Var 1]])]])),Func ("OraclePrelude","_case_73") 4 Private (TVar (-42)) (Rule [2,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_72") [Var 2,Var 5,Var 6,Var 7,Comb FuncCall ("OraclePrelude","==") [Var 2,Var 6,Var 1],Var 8]]))]])),Func ("OraclePrelude","_case_72") 6 Private (TVar (-42)) (Rule [2,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Var 7]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_71") [Var 2,Var 5,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 9]]))]])),Func ("OraclePrelude","_case_71") 4 Private (TVar (-42)) (Rule [2,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","lookup") [Var 2,Var 5,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrelude","_case_75") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldr1") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","unwords._#lambda6") []],Var 2,Var 1]])]])),Func ("OraclePrelude","_case_76") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_77") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_78") 3 Private (TVar (-42)) (Rule [3,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Let [(4,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","break") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","words.isSpace.326") []],Var 1],Var 3,Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OraclePrelude","words._#selFP22#w") [Var 4,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePrelude","words._#selFP23#s2") [Var 4,Var 10])] (Comb FuncCall ("CEventOracle","replace") [Var 11,Comb ConsCall ("Prelude",":") [Var 5,Comb FuncCall ("OraclePrelude","words") [Var 6,Var 11]]])]))]))]))]])),Func ("OraclePrelude","_case_79") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_80") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_81") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_82") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_84") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_83") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '\n'),Var 1],Var 5]]))]])),Func ("OraclePrelude","_case_83") 4 Private (TVar (-42)) (Rule [3,4,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Var 4]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OraclePrelude","lines.splitline.314") [Var 4,Var 1])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePrelude","lines.splitline.314._#selFP16#ds") [Var 5,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OraclePrelude","lines.splitline.314._#selFP17#es") [Var 5,Var 10])] (Comb FuncCall ("CEventOracle","collapse") [Var 11,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 3,Var 6],Var 7]])]))]))]))]])),Func ("OraclePrelude","_case_85") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OraclePrelude","lines.splitline.314") [Comb ConsCall ("Prelude",":") [Var 3,Var 4],Var 1])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePrelude","lines._#selFP19#l") [Var 5,Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OraclePrelude","lines._#selFP20#xs_l") [Var 5,Var 9])] (Comb FuncCall ("CEventOracle","replace") [Var 10,Comb ConsCall ("Prelude",":") [Var 6,Comb FuncCall ("OraclePrelude","lines") [Var 7,Var 10]]])]))]))]))]])),Func ("OraclePrelude","_case_86") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_87") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_90") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_89") [Var 2,Var 4,Var 5,Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 6]]))]])),Func ("OraclePrelude","_case_89") 5 Private (TVar (-42)) (Rule [2,4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePrelude","span") [Var 2,Var 5,Var 1])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OraclePrelude","span._#selFP13#ys") [Var 6,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OraclePrelude","span._#selFP14#zs") [Var 6,Var 11])] (Comb FuncCall ("CEventOracle","collapse") [Var 12,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 4,Var 7],Var 8]])]))]))])),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_88") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 13]]))]])),Func ("OraclePrelude","_case_88") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude",":") [Var 4,Var 5]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrelude","_case_92") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_91") [Var 2,Var 4,Var 5,Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 6]]))]])),Func ("OraclePrelude","_case_91") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","dropWhile") [Var 2,Var 5,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Var 5]])]])),Func ("OraclePrelude","_case_94") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_93") [Var 2,Var 4,Var 5,Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 6]]))]])),Func ("OraclePrelude","_case_93") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb FuncCall ("OraclePrelude","takeWhile") [Var 2,Var 5,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OraclePrelude","_case_95") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_96") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_97") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Let [(6,Comb FuncCall ("OraclePrelude","splitAt") [Comb FuncCall ("OraclePrelude","-") [Var 2,Lit (Intc 1),Var 1],Var 5,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OraclePrelude","splitAt.splitAtp.282._#selFP10#ys") [Var 6,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OraclePrelude","splitAt.splitAtp.282._#selFP11#zs") [Var 6,Var 11])] (Comb FuncCall ("CEventOracle","collapse") [Var 12,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 4,Var 7],Var 8]])]))]))]))]])),Func ("OraclePrelude","_case_98") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Var 3]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","splitAt.splitAtp.282") [Var 2,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_99") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","drop") [Comb FuncCall ("OraclePrelude","-") [Var 2,Lit (Intc 1),Var 1],Var 5,Var 6]]))]])),Func ("OraclePrelude","_case_100") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","drop.dropp.272") [Var 2,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_102") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Neg") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","Pos") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_101") [Var 5,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_101") 3 Private (TVar (-42)) (Rule [5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 6,Comb FuncCall ("OraclePrelude","take") [Comb FuncCall ("OraclePrelude","-") [Comb ConsCall ("Prelude","Pos") [Var 5],Lit (Intc 1),Var 1],Var 7,Var 8]]]))]])),Func ("OraclePrelude","_case_103") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,)") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OraclePrelude","_case_104") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,)") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_105") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,,)") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_107") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_106") [Var 4,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_106") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,,)") [5,6,7]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OraclePrelude","unzip3") [Var 4,Var 1])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OraclePrelude","unzip3._#selFP6#xs") [Var 8,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OraclePrelude","unzip3._#selFP7#ys") [Var 8,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OraclePrelude","unzip3._#selFP8#zs") [Var 8,Var 14])] (Comb FuncCall ("CEventOracle","collapse") [Var 15,Comb ConsCall ("Prelude","(,,)") [Comb ConsCall ("Prelude",":") [Var 5,Var 9],Comb ConsCall ("Prelude",":") [Var 6,Var 10],Comb ConsCall ("Prelude",":") [Var 7,Var 11]]])]))]))]))]))]])),Func ("OraclePrelude","_case_108") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_109") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_111") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_110") [Var 4,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_110") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OraclePrelude","unzip") [Var 4,Var 1])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OraclePrelude","unzip._#selFP3#xs") [Var 7,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OraclePrelude","unzip._#selFP4#ys") [Var 7,Var 11])] (Comb FuncCall ("CEventOracle","collapse") [Var 12,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 5,Var 8],Comb ConsCall ("Prelude",":") [Var 6,Var 9]]])]))]))]))]])),Func ("OraclePrelude","_case_114") 5 Private (TVar (-42)) (Rule [2,4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_113") [Var 2,Var 5,Var 6,Var 7,Var 4,Var 1]])]])),Func ("OraclePrelude","_case_113") 6 Private (TVar (-42)) (Rule [2,5,6,7,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_112") [Var 2,Var 6,Var 7,Var 8,Var 9,Var 5,Var 1]])]])),Func ("OraclePrelude","_case_112") 7 Private (TVar (-42)) (Rule [2,6,7,8,9,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [10,11]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 1],Var 8,Var 12],Var 10,Var 13],Comb FuncCall ("OraclePrelude","zipWith3") [Var 2,Var 7,Var 9,Var 11,Var 14]]]))]])),Func ("OraclePrelude","_case_116") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_115") [Var 2,Var 5,Var 6,Var 4,Var 1]])]])),Func ("OraclePrelude","_case_115") 5 Private (TVar (-42)) (Rule [2,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 7,Var 9],Comb FuncCall ("OraclePrelude","zipWith") [Var 2,Var 6,Var 8,Var 10]]]))]])),Func ("OraclePrelude","_case_119") 4 Private (TVar (-42)) (Rule [3,4,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_118") [Var 4,Var 5,Var 6,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_118") 5 Private (TVar (-42)) (Rule [4,5,6,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_117") [Var 5,Var 6,Var 7,Var 8,Var 4,Var 1]])]])),Func ("OraclePrelude","_case_117") 6 Private (TVar (-42)) (Rule [5,6,7,8,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,,)") [Var 5,Var 7,Var 9],Comb FuncCall ("OraclePrelude","zip3") [Var 6,Var 8,Var 10,Var 1]]])]])),Func ("OraclePrelude","_case_121") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_120") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_120") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 4,Var 6],Comb FuncCall ("OraclePrelude","zip") [Var 5,Var 7,Var 1]]])]])),Func ("OraclePrelude","_case_123") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_122") [Var 2,Var 4,Var 5,Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 6]]))]])),Func ("OraclePrelude","_case_122") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb FuncCall ("OraclePrelude","filter") [Var 2,Var 5,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","filter") [Var 2,Var 5,Var 1]])]])),Func ("OraclePrelude","_case_125") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_124") [Var 2,Var 4,Var 5,Var 1]])]])),Func ("OraclePrelude","_case_124") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude",":") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Comb FuncCall ("OraclePrelude","foldr1") [Var 2,Comb ConsCall ("Prelude",":") [Var 6,Var 7],Var 8],Var 9]]))]])),Func ("OraclePrelude","_case_126") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Comb FuncCall ("OraclePrelude","foldr") [Var 2,Var 3,Var 6,Var 7],Var 8]]))]])),Func ("OraclePrelude","_case_127") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldl") [Var 2,Var 4,Var 5,Var 1]])]])),Func ("OraclePrelude","_case_128") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","foldl") [Var 2,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Var 5,Var 7],Var 6,Var 8]]))]])),Func ("OraclePrelude","_case_129") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Comb FuncCall ("OraclePrelude","map") [Var 2,Var 5,Var 6]]]))]])),Func ("OraclePrelude","_case_132") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_131") [Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Intc 0),Var 1],Var 6]]))]])),Func ("OraclePrelude","_case_131") 5 Private (TVar (-42)) (Rule [3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","_case_130") [Var 3,Var 5,Comb FuncCall ("OraclePrelude",">") [Var 3,Lit (Intc 0),Var 1],Var 7]]))]])),Func ("OraclePrelude","_case_130") 4 Private (TVar (-42)) (Rule [3,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","!!") [Var 5,Comb FuncCall ("OraclePrelude","-") [Var 3,Lit (Intc 1),Var 1],Var 7]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrelude","_case_133") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","+") [Lit (Intc 1),Comb FuncCall ("OraclePrelude","length") [Var 4,Var 1],Var 5]]))]])),Func ("OraclePrelude","_case_134") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb FuncCall ("OraclePrelude","++") [Var 5,Var 3,Var 1]]])]])),Func ("OraclePrelude","_case_135") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OraclePrelude","_case_136") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_137") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_138") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_139") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_140") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","GT") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","LT") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","EQ") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]])),Func ("OraclePrelude","_case_141") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","LT") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","EQ") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","GT") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]])),Func ("OraclePrelude","_case_145") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_144") [Var 3,Var 1]]),Branch (Pattern ("Prelude","Pos") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_143") [Var 6,Var 3,Var 1]]),Branch (Pattern ("Prelude","Neg") [9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","_case_142") [Var 9,Var 3,Var 1]])]])),Func ("OraclePrelude","_case_142") 3 Private (TVar (-42)) (Rule [9,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []]),Branch (Pattern ("Prelude","Pos") [10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []]),Branch (Pattern ("Prelude","Neg") [11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNat") [Var 11,Var 9,Var 1]])]])),Func ("OraclePrelude","_case_143") 3 Private (TVar (-42)) (Rule [6,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []]),Branch (Pattern ("Prelude","Pos") [7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","cmpNat") [Var 6,Var 7,Var 1]]),Branch (Pattern ("Prelude","Neg") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []])]])),Func ("OraclePrelude","_case_144") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","EQ") []]),Branch (Pattern ("Prelude","Pos") [4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []]),Branch (Pattern ("Prelude","Neg") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []])]])),Func ("OraclePrelude","_case_146") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","LT") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude","GT") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude","EQ") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])]])),Func ("OraclePrelude","_case_147") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","LT") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude","GT") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude","EQ") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OraclePrelude","_case_148") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","LT") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude","GT") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude","EQ") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OraclePrelude","_case_149") 4 Private (TVar (-42)) (Rule [3,4,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrelude","_case_150") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []])]])),Func ("OraclePrelude","_case_151") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrelude","_case_152") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OraclePrelude","_case_153") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","ensureSpine") [Var 1],Var 4,Var 5]]]))]])),Func ("OraclePrelude","_case_154") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","until") [Var 2,Var 3,Comb FuncCall ("Oracle","apply") [Var 3,Var 4,Var 1],Var 6]]))]])),Func ("OraclePrelude","_case_155") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 5,Var 6]]))]])),Func ("OraclePrelude","prim_error") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Prelude","prim_error") [Var 2]])),Func ("OraclePrelude","failed") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Prelude","failed") []])),Func ("OraclePrelude","==") 3 Public (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Prelude","==") [Var 3,Var 2]])),Func ("OraclePrelude","prim_ord") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Prelude","prim_ord") [Var 2]])),Func ("OraclePrelude","prim_chr") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Prelude","prim_chr") [Var 2]])),Func ("OraclePrelude","===") 3 Public (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Prelude","===") [Var 3,Var 2]])),Func ("OraclePrelude","&") 3 Public (FuncType (TCons ("Prelude","Success") []) (FuncType (TCons ("Prelude","Success") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Success") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Prelude","&") [Var 3,Var 2]])),Func ("OraclePrelude","return") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Prelude","return") [Var 2]]])),Func ("OraclePrelude","prim_putChar") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Prelude","prim_putChar") [Var 2]]])),Func ("OraclePrelude","getChar") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Prelude","getChar") []]]])),Func ("OraclePrelude","prim_readFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Prelude","prim_readFile") [Var 2]]]])),Func ("OraclePrelude","prim_writeFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Prelude","prim_writeFile") [Var 3,Var 2]]])),Func ("OraclePrelude","prim_appendFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Prelude","prim_appendFile") [Var 3,Var 2]]])),Func ("OraclePrelude","prim_show") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Prelude","prim_show") [Var 2]])),Func ("OraclePrelude","getSearchTree") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","SearchTree") [TVar 0]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Prelude","getSearchTree") [Var 2]]])),Func ("OraclePrelude","cond") 3 Public (FuncType (TCons ("Prelude","Success") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Prelude","cond") [Var 3,Var 2]])),Func ("OraclePrelude","=:<=") 3 Public (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Success") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Prelude","=:<=") [Var 3,Var 2]]))] [Op ("OraclePrelude","!!") InfixlOp 9,Op ("OraclePrelude",".") InfixrOp 9,Op ("OraclePrelude","*") InfixlOp 7,Op ("OraclePrelude","*^") InfixlOp 7,Op ("OraclePrelude","div") InfixlOp 7,Op ("OraclePrelude","mod") InfixlOp 7,Op ("OraclePrelude","+") InfixlOp 6,Op ("OraclePrelude","+^") InfixlOp 6,Op ("OraclePrelude","-") InfixlOp 6,Op ("OraclePrelude","-^") InfixlOp 6,Op ("OraclePrelude","++") InfixrOp 5,Op ("OraclePrelude","=:=") InfixOp 4,Op ("OraclePrelude","==") InfixOp 4,Op ("OraclePrelude","===") InfixOp 4,Op ("OraclePrelude","/=") InfixOp 4,Op ("OraclePrelude","<") InfixOp 4,Op ("OraclePrelude",">") InfixOp 4,Op ("OraclePrelude","<=") InfixOp 4,Op ("OraclePrelude",">=") InfixOp 4,Op ("OraclePrelude","=:<=") InfixOp 4,Op ("OraclePrelude","<^") InfixOp 4,Op ("OraclePrelude","<=^") InfixOp 4,Op ("OraclePrelude",">^") InfixOp 4,Op ("OraclePrelude",">=^") InfixOp 4,Op ("OraclePrelude","elem") InfixOp 4,Op ("OraclePrelude","notElem") InfixOp 4,Op ("OraclePrelude","&&") InfixrOp 3,Op ("OraclePrelude","||") InfixrOp 2,Op ("OraclePrelude",">>") InfixlOp 1,Op ("OraclePrelude",">>=") InfixlOp 1,Op ("OraclePrelude","$") InfixrOp 0,Op ("OraclePrelude","$!") InfixrOp 0,Op ("OraclePrelude","$!!") InfixrOp 0,Op ("OraclePrelude","$#") InfixrOp 0,Op ("OraclePrelude","$##") InfixrOp 0,Op ("OraclePrelude","seq") InfixrOp 0,Op ("OraclePrelude","&") InfixrOp 0,Op ("OraclePrelude","&>") InfixrOp 0,Op ("OraclePrelude","?") InfixrOp 0]
+ Curry/Module/OraclePretty.fcy view
@@ -0,0 +1,1 @@+Prog "OraclePretty" ["CEventOracle","Oracle","IOExts","Pretty","Dequeue","Prelude","OracleDequeue","OraclePrelude"] [Type ("OraclePretty","Doc") Public [] [Cons ("OraclePretty","Doc") 1 Private [FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Tokens") []) (TCons ("OraclePretty","Tokens") []))]],Type ("OraclePretty","Tokens") Private [] [Cons ("OraclePretty","Text") 2 Private [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("OraclePretty","Tokens") []],Cons ("OraclePretty","Line") 2 Private [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("OraclePretty","Tokens") []],Cons ("OraclePretty","Open") 1 Private [TCons ("OraclePretty","Tokens") []],Cons ("OraclePretty","Close") 1 Private [TCons ("OraclePretty","Tokens") []],Cons ("OraclePretty","Empty") 0 Private [],Cons ("OraclePretty","OpenNest") 2 Private [FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))))),TCons ("OraclePretty","Tokens") []],Cons ("OraclePretty","CloseNest") 1 Private [TCons ("OraclePretty","Tokens") []]]] [Func ("OraclePretty","deDoc") 2 Private (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Tokens") []) (TCons ("OraclePretty","Tokens") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_30") [Var 2,Var 1]])),Func ("OraclePretty","empty") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","text") [Comb ConsCall ("Prelude","[]") [],Var 1]])),Func ("OraclePretty","text") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OraclePretty","Doc") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("OraclePretty","Text") [Var 2]]]])),Func ("OraclePretty","linesep") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("OraclePretty","Doc") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("OraclePretty","Line") []],Var 1]])),Func ("OraclePretty","line") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","linesep") [Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 2]]))),Func ("OraclePretty","linebreak") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","linesep") [Var 1],Comb ConsCall ("Prelude","[]") [],Var 2]]))),Func ("OraclePretty","softline") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","group") [Comb FuncCall ("OraclePretty","line") [Var 1],Var 2]]))),Func ("OraclePretty","softbreak") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","group") [Comb FuncCall ("OraclePretty","linebreak") [Var 1],Var 2]]))),Func ("OraclePretty","group") 2 Public (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("OraclePretty","Doc") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("OraclePretty","Open") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePretty","deDoc") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("OraclePretty","Close") []],Var 3],Var 4]]]))),Func ("OraclePretty","nest") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("OraclePretty","Doc") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("OraclePretty","OpenNest") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OraclePretty","nest._#lambda2") [Var 2]]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePretty","deDoc") [Var 3,Var 1],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("OraclePretty","CloseNest") []],Var 4],Var 5]]]))),Func ("OraclePretty","nest._#lambda2") 5 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_29") [Var 2,Var 3,Var 1]])),Func ("OraclePretty","hang") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("OraclePretty","Doc") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("OraclePretty","OpenNest") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OraclePretty","hang._#lambda3") [Var 2]]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePretty","deDoc") [Var 3,Var 1],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("OraclePretty","CloseNest") []],Var 4],Var 5]]]))),Func ("OraclePretty","hang._#lambda3") 5 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","-") [Var 5,Var 4,Var 1],Var 2,Var 6],Var 3]]))),Func ("OraclePretty","align") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","hang") [Lit (Intc 0)]]])),Func ("OraclePretty","combine") 4 Public (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","enclose") [Var 3,Var 4,Var 2,Var 1]])),Func ("OraclePretty","<>") 3 Public (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("OraclePretty","Doc") [Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePretty","deDoc") [Var 2,Var 1],Comb FuncCall ("OraclePretty","deDoc") [Var 3,Var 4],Var 5]]]))),Func ("OraclePretty","<+>") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","combine") [Comb FuncCall ("OraclePretty","space") [Var 1]]]])),Func ("OraclePretty","<$>") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","combine") [Comb FuncCall ("OraclePretty","line") [Var 1]]]])),Func ("OraclePretty","</>") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","combine") [Comb FuncCall ("OraclePretty","softline") [Var 1]]]])),Func ("OraclePretty","<$$>") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","combine") [Comb FuncCall ("OraclePretty","linebreak") [Var 1]]]])),Func ("OraclePretty","<//>") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","combine") [Comb FuncCall ("OraclePretty","softbreak") [Var 1]]]])),Func ("OraclePretty","compose") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") []))))) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_28") [Var 2,Var 3,Var 1]])),Func ("OraclePretty","hsep") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","compose") [Comb FuncCall ("OraclePretty","<+>") [Var 1]]]])),Func ("OraclePretty","vsep") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","compose") [Comb FuncCall ("OraclePretty","<$>") [Var 1]]]])),Func ("OraclePretty","fillSep") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","compose") [Comb FuncCall ("OraclePretty","</>") [Var 1]]]])),Func ("OraclePretty","sep") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","group") []],Comb FuncCall ("OraclePretty","vsep") [Var 1],Var 2]]))),Func ("OraclePretty","hcat") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","compose") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","<>") []]]]])),Func ("OraclePretty","vcat") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","compose") [Comb FuncCall ("OraclePretty","<$$>") [Var 1]]]])),Func ("OraclePretty","fillCat") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","compose") [Comb FuncCall ("OraclePretty","<//>") [Var 1]]]])),Func ("OraclePretty","cat") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","group") []],Comb FuncCall ("OraclePretty","vcat") [Var 1],Var 2]]))),Func ("OraclePretty","punctuate") 3 Public (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_27") [Var 2,Var 3,Var 1]])),Func ("OraclePretty","punctuate.go.75") 3 Private (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_26") [Var 2,Var 3,Var 1]])),Func ("OraclePretty","encloseSep") 5 Public (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_24") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OraclePretty","hEncloseSep") 5 Public (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_23") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OraclePretty","fillEncloseSep") 5 Public (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_22") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OraclePretty","fillEncloseSep.withSoftBreaks.96") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_21") [Var 2,Var 1]])),Func ("OraclePretty","list") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","fillEncloseSep") [Comb FuncCall ("OraclePretty","lbracket") [Var 1],Comb FuncCall ("OraclePretty","rbracket") [Var 2],Comb FuncCall ("OraclePretty","comma") [Var 3]]]]))),Func ("OraclePretty","tupled") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","fillEncloseSep") [Comb FuncCall ("OraclePretty","lparen") [Var 1],Comb FuncCall ("OraclePretty","rparen") [Var 2],Comb FuncCall ("OraclePretty","comma") [Var 3]]]]))),Func ("OraclePretty","semiBraces") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","fillEncloseSep") [Comb FuncCall ("OraclePretty","lbrace") [Var 1],Comb FuncCall ("OraclePretty","rbrace") [Var 2],Comb FuncCall ("OraclePretty","semi") [Var 3]]]]))),Func ("OraclePretty","enclose") 4 Public (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePretty","<>") [Var 2,Var 4,Var 1],Var 3,Var 5]]))),Func ("OraclePretty","squotes") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","enclose") [Comb FuncCall ("OraclePretty","squote") [Var 1],Comb FuncCall ("OraclePretty","squote") [Var 2]]]]))),Func ("OraclePretty","dquotes") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","enclose") [Comb FuncCall ("OraclePretty","dquote") [Var 1],Comb FuncCall ("OraclePretty","dquote") [Var 2]]]]))),Func ("OraclePretty","bquotes") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","enclose") [Comb FuncCall ("OraclePretty","bquote") [Var 1],Comb FuncCall ("OraclePretty","bquote") [Var 2]]]]))),Func ("OraclePretty","parens") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","enclose") [Comb FuncCall ("OraclePretty","lparen") [Var 1],Comb FuncCall ("OraclePretty","rparen") [Var 2]]]]))),Func ("OraclePretty","angles") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","enclose") [Comb FuncCall ("OraclePretty","langle") [Var 1],Comb FuncCall ("OraclePretty","rangle") [Var 2]]]]))),Func ("OraclePretty","braces") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","enclose") [Comb FuncCall ("OraclePretty","lbrace") [Var 1],Comb FuncCall ("OraclePretty","rbrace") [Var 2]]]]))),Func ("OraclePretty","brackets") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","enclose") [Comb FuncCall ("OraclePretty","lbracket") [Var 1],Comb FuncCall ("OraclePretty","rbracket") [Var 2]]]]))),Func ("OraclePretty","char") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","text") [Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Var 1]])),Func ("OraclePretty","string") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePretty","hcat") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","string._#lambda4") []]]],Var 2]]))),Func ("OraclePretty","string._#lambda4") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePretty","_case_19") [Var 2,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 2,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc '\r'),Comb ConsCall ("Prelude","[]") []]],Var 3],Var 4]]))),Func ("OraclePretty","int") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","text") [Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],Var 3]]))),Func ("OraclePretty","float") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","text") [Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],Var 3]]))),Func ("OraclePretty","lparen") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '('),Var 1]])),Func ("OraclePretty","rparen") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc ')'),Var 1]])),Func ("OraclePretty","langle") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '<'),Var 1]])),Func ("OraclePretty","rangle") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '>'),Var 1]])),Func ("OraclePretty","lbrace") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '{'),Var 1]])),Func ("OraclePretty","rbrace") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '}'),Var 1]])),Func ("OraclePretty","lbracket") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '['),Var 1]])),Func ("OraclePretty","rbracket") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc ']'),Var 1]])),Func ("OraclePretty","squote") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '\''),Var 1]])),Func ("OraclePretty","dquote") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '"'),Var 1]])),Func ("OraclePretty","bquote") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '`'),Var 1]])),Func ("OraclePretty","semi") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc ';'),Var 1]])),Func ("OraclePretty","colon") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc ':'),Var 1]])),Func ("OraclePretty","comma") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc ','),Var 1]])),Func ("OraclePretty","space") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc ' '),Var 1]])),Func ("OraclePretty","dot") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '.'),Var 1]])),Func ("OraclePretty","backslash") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '\\'),Var 1]])),Func ("OraclePretty","equals") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '='),Var 1]])),Func ("OraclePretty","normalise") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Tokens") []) (TCons ("OraclePretty","Tokens") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","normalise.go.173") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OraclePretty","normalise.open.173") 2 Private (FuncType (TCons ("OraclePretty","Tokens") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Tokens") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_18") [Var 2,Var 1]])),Func ("OraclePretty","normalise.go.173") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Tokens") []) (TCons ("OraclePretty","Tokens") []))) (FuncType (TCons ("OraclePretty","Tokens") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Tokens") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_17") [Var 2,Var 3,Var 1]])),Func ("OraclePretty","doc2Tokens") 2 Private (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Tokens") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_16") [Var 2,Var 1]])),Func ("OraclePretty","pretty") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","noGroup") [Comb FuncCall ("OraclePretty","doc2Tokens") [Var 3,Var 1],Var 2,Lit (Intc 1),Var 2,Comb ConsCall ("Prelude",":") [Lit (Intc 0),Comb ConsCall ("Prelude","[]") []],Var 4]]))),Func ("OraclePretty","length") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Int") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","length") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","not") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","elem") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Intc 5),Comb ConsCall ("Prelude",":") [Lit (Intc 6),Comb ConsCall ("Prelude",":") [Lit (Intc 7),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","enumFromTo") [Lit (Intc 16),Lit (Intc 31),Var 1],Var 2]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","ord") []],Var 3],Var 4]]],Var 5]]))),Func ("OraclePretty","noGroup") 6 Private (FuncType (TCons ("OraclePretty","Tokens") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_15") [Var 3,Var 4,Var 5,Var 6,Var 2,Var 1]])),Func ("OraclePretty","noGroup._#lambda6") 3 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OraclePretty","oneGroup") 6 Private (FuncType (TCons ("OraclePretty","Tokens") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_13") [Var 3,Var 4,Var 5,Var 6,Var 2,Var 1]])),Func ("OraclePretty","oneGroup.outText.234") 6 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 4,Comb FuncCall ("OraclePrelude","-") [Var 5,Var 2,Var 1],Var 7],Var 6,Var 8],Var 9]]))),Func ("OraclePretty","oneGroup._#lambda7") 6 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 1],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","oneGroup.outText.234") [Var 2,Var 4,Var 6]],Var 7]]))),Func ("OraclePretty","oneGroup.outLine.240") 8 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (Rule [2,3,4,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_12") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 1]])),Func ("OraclePretty","oneGroup._#lambda8") 7 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 6,Var 1],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","oneGroup.outLine.240") [Var 2,Var 4,Var 5,Var 6,Var 7]],Var 8]]))),Func ("OraclePretty","oneGroup._#lambda9") 3 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OraclePretty","oneGroup._#lambda10") 6 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 1],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","oneGroup._#lambda10._#lambda11") [Var 6,Var 2,Var 4]],Var 7]]))),Func ("OraclePretty","oneGroup._#lambda10._#lambda11") 6 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 6,Var 7],Var 5,Var 8],Var 4,Var 9],Var 10]]))),Func ("OraclePretty","oneGroup._#lambda12") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","oneGroup._#lambda12._#lambda13") [Var 4]],Var 5]]))),Func ("OraclePretty","oneGroup._#lambda12._#lambda13") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","tail") [Var 4,Var 5],Var 6]]))),Func ("OraclePretty","multiGroup") 9 Private (FuncType (TCons ("OraclePretty","Tokens") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Dequeue","Queue") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))))))))))) (Rule [2,3,4,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_10") [Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9,Var 2,Var 1]])),Func ("OraclePretty","multiGroup.outText.261") 6 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 4,Comb FuncCall ("OraclePrelude","-") [Var 5,Var 2,Var 1],Var 7],Var 6,Var 8],Var 9]]))),Func ("OraclePretty","multiGroup._#lambda14") 6 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 1],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","multiGroup.outText.261") [Var 2,Var 4,Var 6]],Var 7]]))),Func ("OraclePretty","multiGroup.outLine.267") 8 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (Rule [2,3,4,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_6") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 1]])),Func ("OraclePretty","multiGroup._#lambda15") 7 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 6,Var 1],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","multiGroup.outLine.267") [Var 2,Var 4,Var 5,Var 6,Var 7]],Var 8]]))),Func ("OraclePretty","multiGroup._#lambda16") 3 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OraclePretty","multiGroup._#lambda18") 7 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 6,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","multiGroup._#lambda18._#lambda19") [Var 7,Var 2,Var 4,Var 5]],Var 8]]))),Func ("OraclePretty","multiGroup._#lambda18._#lambda19") 6 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Comb FuncCall ("OraclePrelude","<=") [Var 4,Comb FuncCall ("OraclePrelude","+") [Var 5,Var 6,Var 1],Var 7],Var 8],Var 2,Var 9],Var 6,Var 10]]))),Func ("OraclePretty","multiGroup._#lambda20") 7 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","multiGroup._#lambda20._#lambda21") [Var 7,Var 3,Var 4,Var 5]],Var 8]]))),Func ("OraclePretty","multiGroup._#lambda20._#lambda21") 6 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Comb FuncCall ("OraclePrelude","<=") [Var 4,Comb FuncCall ("OraclePrelude","+") [Var 5,Var 6,Var 1],Var 7],Var 8],Var 2,Var 9],Var 6,Var 10]]))),Func ("OraclePretty","multiGroup._#lambda22") 6 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 1],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","multiGroup._#lambda22._#lambda23") [Var 6,Var 2,Var 4]],Var 7]]))),Func ("OraclePretty","multiGroup._#lambda22._#lambda23") 6 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 6,Var 7],Var 5,Var 8],Var 4,Var 9],Var 10]]))),Func ("OraclePretty","multiGroup._#lambda24") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","multiGroup._#lambda24._#lambda25") [Var 4]],Var 5]]))),Func ("OraclePretty","multiGroup._#lambda24._#lambda25") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","tail") [Var 4,Var 5],Var 6]]))),Func ("OraclePretty","pruneOne") 6 Private (FuncType (TCons ("OraclePretty","Tokens") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","_case_4") [Var 2,Var 3,Var 4,Var 5,Var 6,Comb FuncCall ("OraclePrelude","<=") [Var 4,Var 5,Var 1],Var 7]]))),Func ("OraclePretty","pruneMulti") 9 Private (FuncType (TCons ("OraclePretty","Tokens") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Dequeue","Queue") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))))))))))) (Rule [2,3,4,5,6,7,8,9,1] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","_case_3") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9,Comb FuncCall ("OraclePrelude","<=") [Var 4,Var 5,Var 1],Var 10]]))),Func ("OraclePretty","pruneMulti._#lambda26") 8 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Dequeue","Queue") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("OraclePretty","Tokens") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))))) (Rule [2,3,4,5,6,7,8,1] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","_case_2") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OracleDequeue","matchLast") [Var 4,Var 1],Var 9]]))),Func ("OraclePretty","_case_2") 9 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","Nothing") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","pruneOne") [Var 6,Var 7,Var 3,Comb FuncCall ("OraclePrelude","+") [Var 5,Var 8,Var 1],Var 2,Var 11],Var 8,Var 12]])),Branch (Pattern ("Prelude","Just") [9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_1") [Var 2,Var 3,Var 5,Var 6,Var 7,Var 8,Var 9,Var 1]])]])),Func ("OraclePretty","_case_1") 8 Private (TVar (-42)) (Rule [2,3,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","(,)") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_0") [Var 2,Var 3,Var 5,Var 6,Var 7,Var 8,Var 11,Var 10,Var 1]])]])),Func ("OraclePretty","_case_0") 9 Private (TVar (-42)) (Rule [2,3,5,6,7,8,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","(,)") [12,13]) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","pruneMulti") [Var 6,Var 7,Var 3,Comb FuncCall ("OraclePrelude","+") [Var 12,Var 8,Var 1],Var 13,Var 11,Var 5,Var 2,Var 14],Var 8,Var 15]]))]])),Func ("OraclePretty","_case_3") 10 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","multiGroup") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 6,Comb ConsCall ("Prelude","False") [],Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","pruneMulti._#lambda26") [Var 9,Var 4,Var 7,Var 8,Var 2,Var 3]],Var 11]]))]])),Func ("OraclePretty","_case_4") 7 Private (TVar (-42)) (Rule [2,3,4,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","oneGroup") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 6,Comb ConsCall ("Prelude","False") [],Var 1],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","noGroup") [Var 2,Var 3,Var 4]],Var 8]]))]])),Func ("OraclePretty","_case_6") 8 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_5") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Var 5,Var 1]])]])),Func ("OraclePretty","_case_5") 9 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 6,Comb FuncCall ("OraclePrelude","-") [Var 7,Var 2,Var 1],Var 10],Var 8,Var 11],Var 12]])),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","replicate") [Var 9,Lit (Charc ' '),Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 6,Comb FuncCall ("OraclePrelude","-") [Var 4,Var 9,Var 13],Var 14],Var 8,Var 15],Var 16]]]))]])),Func ("OraclePretty","_case_10") 9 Private (TVar (-42)) (Rule [3,4,5,6,7,8,9,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OraclePretty","Text") [10,11]) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]],Let [(12,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","length") [Var 1],Var 10,Var 26])] (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","pruneMulti") [Var 11,Var 3,Comb FuncCall ("OraclePrelude","+") [Var 4,Var 12,Var 27],Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","multiGroup._#lambda14") [Var 12,Var 9,Var 10]],Var 28]]))])),Branch (Pattern ("OraclePretty","Line") [13,14]) (Let [(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []]],Let [(15,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","length") [Var 1],Var 13,Var 29])] (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","pruneMulti") [Var 14,Var 3,Comb FuncCall ("OraclePrelude","+") [Var 4,Var 15,Var 30],Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","multiGroup._#lambda15") [Var 15,Var 9,Var 13,Var 3]],Var 31]]))])),Branch (Pattern ("OraclePretty","Open") [16]) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","multiGroup") [Var 16,Var 3,Var 4,Var 5,Var 6,Comb FuncCall ("OracleDequeue","cons") [Comb ConsCall ("Prelude","(,)") [Var 8,Var 9],Var 7,Var 1],Var 4,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","multiGroup._#lambda16") []],Var 32]])),Branch (Pattern ("OraclePretty","Close") [17]) (Let [(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","_case_9") [Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9,Var 17,Comb FuncCall ("OracleDequeue","matchHead") [Var 7,Var 1],Var 33]])),Branch (Pattern ("OraclePretty","OpenNest") [23,24]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","multiGroup") [Var 24,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","multiGroup._#lambda22") [Var 23,Var 9,Var 3]],Var 1]]),Branch (Pattern ("OraclePretty","CloseNest") [25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","multiGroup") [Var 25,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","multiGroup._#lambda24") [Var 9]],Var 1]])]])),Func ("OraclePretty","_case_9") 10 Private (TVar (-42)) (Rule [3,4,5,6,7,8,9,17,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 19) [Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","oneGroup") [Var 17,Var 3,Var 4,Var 5,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","multiGroup._#lambda18") [Var 9,Var 6,Var 4,Var 8]],Var 1]]),Branch (Pattern ("Prelude","Just") [18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_8") [Var 3,Var 4,Var 5,Var 6,Var 8,Var 9,Var 17,Var 18,Var 1]])]])),Func ("OraclePretty","_case_8") 9 Private (TVar (-42)) (Rule [3,4,5,6,8,9,17,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 18) [Branch (Pattern ("Prelude","(,)") [19,20]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_7") [Var 3,Var 4,Var 5,Var 6,Var 8,Var 9,Var 17,Var 20,Var 19,Var 1]])]])),Func ("OraclePretty","_case_7") 10 Private (TVar (-42)) (Rule [3,4,5,6,8,9,17,20,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 19) [Branch (Pattern ("Prelude","(,)") [21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","multiGroup") [Var 17,Var 3,Var 4,Var 5,Var 6,Var 20,Var 21,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","multiGroup._#lambda20") [Var 22,Var 9,Var 4,Var 8]],Var 1]])]])),Func ("OraclePretty","_case_12") 8 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_11") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Var 5,Var 1]])]])),Func ("OraclePretty","_case_11") 9 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 6,Comb FuncCall ("OraclePrelude","-") [Var 7,Var 2,Var 1],Var 10],Var 8,Var 11],Var 12]])),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","replicate") [Var 9,Lit (Charc ' '),Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 6,Comb FuncCall ("OraclePrelude","-") [Var 4,Var 9,Var 13],Var 14],Var 8,Var 15],Var 16]]]))]])),Func ("OraclePretty","_case_13") 6 Private (TVar (-42)) (Rule [3,4,5,6,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OraclePretty","Text") [7,8]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]],Let [(9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","length") [Var 1],Var 7,Var 18])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","pruneOne") [Var 8,Var 3,Comb FuncCall ("OraclePrelude","+") [Var 4,Var 9,Var 19],Var 5,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","oneGroup._#lambda7") [Var 9,Var 6,Var 7]],Var 20]]))])),Branch (Pattern ("OraclePretty","Line") [10,11]) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]],Let [(12,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","length") [Var 1],Var 10,Var 21])] (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","pruneOne") [Var 11,Var 3,Comb FuncCall ("OraclePrelude","+") [Var 4,Var 12,Var 22],Var 5,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","oneGroup._#lambda8") [Var 12,Var 6,Var 10,Var 3]],Var 23]]))])),Branch (Pattern ("OraclePretty","Open") [13]) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","multiGroup") [Var 13,Var 3,Var 4,Var 5,Var 6,Comb FuncCall ("OracleDequeue","empty") [Var 1],Var 4,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","oneGroup._#lambda9") []],Var 24]])),Branch (Pattern ("OraclePretty","Close") [14]) (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 6,Comb FuncCall ("OraclePrelude","<=") [Var 4,Var 5,Var 1],Var 25],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","noGroup") [Var 14,Var 3,Var 4]],Var 26]])),Branch (Pattern ("OraclePretty","OpenNest") [15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","oneGroup") [Var 16,Var 3,Var 4,Var 5,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","oneGroup._#lambda10") [Var 15,Var 6,Var 3]],Var 1]]),Branch (Pattern ("OraclePretty","CloseNest") [17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","oneGroup") [Var 17,Var 3,Var 4,Var 5,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","oneGroup._#lambda12") [Var 6]],Var 1]])]])),Func ("OraclePretty","_case_15") 6 Private (TVar (-42)) (Rule [3,4,5,6,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OraclePretty","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("OraclePretty","Text") [7,8]) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]],Let [(9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","length") [Var 1],Var 7,Var 19])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Var 7,Comb FuncCall ("OraclePretty","noGroup") [Var 8,Var 3,Comb FuncCall ("OraclePrelude","+") [Var 4,Var 9,Var 20],Comb FuncCall ("OraclePrelude","-") [Var 5,Var 9,Var 21],Var 6,Var 22],Var 23]]))])),Branch (Pattern ("OraclePretty","Line") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_14") [Var 3,Var 4,Var 11,Var 6,Var 1]]),Branch (Pattern ("OraclePretty","Open") [14]) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","oneGroup") [Var 14,Var 3,Var 4,Comb FuncCall ("OraclePrelude","+") [Var 4,Var 5,Var 1],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","noGroup._#lambda6") []],Var 24],Var 5,Var 25],Var 6,Var 26]])),Branch (Pattern ("OraclePretty","Close") [15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","noGroup") [Var 15,Var 3,Var 4,Var 5,Var 6,Var 1]]),Branch (Pattern ("OraclePretty","OpenNest") [16,17]) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePretty","noGroup") [Var 17,Var 3,Var 4,Var 5,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 16,Var 6,Var 1],Var 5,Var 27],Var 3,Var 28],Var 29]])),Branch (Pattern ("OraclePretty","CloseNest") [18]) (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","noGroup") [Var 18,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","tail") [Var 6,Var 1],Var 30]]))]])),Func ("OraclePretty","_case_14") 5 Private (TVar (-42)) (Rule [3,4,11,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude",":") [12,13]) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","replicate") [Var 12,Lit (Charc ' '),Var 1],Comb FuncCall ("OraclePretty","noGroup") [Var 11,Var 3,Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 1),Var 14],Comb FuncCall ("OraclePrelude","-") [Var 3,Var 12,Var 15],Var 6,Var 16],Var 17]]]))]])),Func ("OraclePretty","_case_16") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OraclePretty","Doc") [3]) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","normalise") [Var 1],Comb FuncCall ("Oracle","apply") [Var 3,Comb ConsCall ("OraclePretty","Empty") [],Var 4],Var 5]]))]])),Func ("OraclePretty","_case_17") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OraclePretty","Empty") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("OraclePretty","Empty") [],Var 1]]),Branch (Pattern ("OraclePretty","Open") [4]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","normalise.go.173") [Comb FuncCall ("OraclePrelude",".") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","normalise.open.173") []],Var 1],Var 4,Var 13]])),Branch (Pattern ("OraclePretty","Close") [5]) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","normalise.go.173") [Comb FuncCall ("OraclePrelude",".") [Var 2,Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("OraclePretty","Close") []],Var 1],Var 5,Var 14]])),Branch (Pattern ("OraclePretty","Line") [6,7]) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePrelude",".") [Var 2,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("OraclePretty","Line") [Var 6]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","normalise.go.173") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]],Var 1],Var 15],Var 7,Var 16]])),Branch (Pattern ("OraclePretty","Text") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OraclePretty","Text") [Var 8,Comb FuncCall ("OraclePretty","normalise.go.173") [Var 2,Var 9,Var 1]]]),Branch (Pattern ("OraclePretty","OpenNest") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OraclePretty","OpenNest") [Var 10,Comb FuncCall ("OraclePretty","normalise.go.173") [Var 2,Var 11,Var 1]]]),Branch (Pattern ("OraclePretty","CloseNest") [12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OraclePretty","CloseNest") [Comb FuncCall ("OraclePretty","normalise.go.173") [Var 2,Var 12,Var 1]]])]])),Func ("OraclePretty","_case_18") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("OraclePretty","Close") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("OraclePretty","Text") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OraclePretty","Open") [Var 2]]),Branch (Pattern ("OraclePretty","Line") [6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OraclePretty","Open") [Var 2]]),Branch (Pattern ("OraclePretty","Open") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OraclePretty","Open") [Var 2]]),Branch (Pattern ("OraclePretty","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OraclePretty","Open") [Var 2]]),Branch (Pattern ("OraclePretty","OpenNest") [9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OraclePretty","Open") [Var 2]]),Branch (Pattern ("OraclePretty","CloseNest") [11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OraclePretty","Open") [Var 2]])]])),Func ("OraclePretty","_case_19") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","line") [Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Var 2,Var 1]])]])),Func ("OraclePretty","_case_21") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_20") [Var 3,Var 4,Var 1]])]])),Func ("OraclePretty","_case_20") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePretty","group") [Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePretty","linebreak") [Var 1],Var 3,Var 7],Var 8],Comb ConsCall ("Prelude","[]") []]])),Branch (Pattern ("Prelude",":") [5,6]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePretty","group") [Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePretty","linebreak") [Var 1],Comb FuncCall ("OraclePretty","group") [Comb FuncCall ("OraclePretty","<>") [Var 3,Comb FuncCall ("OraclePretty","linebreak") [Var 9],Var 10],Var 11],Var 12],Var 13],Comb FuncCall ("OraclePretty","fillEncloseSep.withSoftBreaks.96") [Var 4,Var 14]]]))]])),Func ("OraclePretty","_case_22") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","<>") [Var 2,Var 3,Var 1]]),Branch (Pattern ("Prelude",":") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","align") [Var 1],Comb FuncCall ("OraclePretty","enclose") [Var 2,Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","hcat") [Var 8],Comb ConsCall ("Prelude",":") [Var 6,Comb FuncCall ("OraclePretty","fillEncloseSep.withSoftBreaks.96") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","<>") [Var 4]],Var 7,Var 9],Var 10]],Var 11],Var 12],Var 13]]))]])),Func ("OraclePretty","_case_23") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","<>") [Var 2,Var 3,Var 1]]),Branch (Pattern ("Prelude",":") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","align") [Var 1],Comb FuncCall ("OraclePretty","enclose") [Var 2,Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","hcat") [Var 8],Comb ConsCall ("Prelude",":") [Var 6,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","<>") [Var 4]],Var 7,Var 9]],Var 10],Var 11],Var 12]]))]])),Func ("OraclePretty","_case_24") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","<>") [Var 2,Var 3,Var 1]]),Branch (Pattern ("Prelude",":") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","align") [Var 1],Comb FuncCall ("OraclePretty","enclose") [Var 2,Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","cat") [Var 8],Comb ConsCall ("Prelude",":") [Var 6,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","<>") [Var 4]],Var 7,Var 9]],Var 10],Var 11],Var 12]]))]])),Func ("OraclePretty","_case_26") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_25") [Var 2,Var 4,Var 5,Var 1]])]])),Func ("OraclePretty","_case_25") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePretty","<>") [Var 4,Var 2,Var 1],Comb FuncCall ("OraclePretty","punctuate.go.75") [Var 2,Var 5,Var 8]]]))]])),Func ("OraclePretty","_case_27") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","punctuate.go.75") [Var 2,Var 3,Var 1]])]])),Func ("OraclePretty","_case_28") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","empty") [Var 1]]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldr1") [Var 2,Var 3,Var 1]])]])),Func ("OraclePretty","_case_29") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","+") [Var 6,Var 2,Var 1],Var 3]])]])),Func ("OraclePretty","_case_30") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OraclePretty","Doc") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]]))] [Op ("OraclePretty","<>") InfixlOp 1,Op ("OraclePretty","<+>") InfixlOp 1,Op ("OraclePretty","<$>") InfixlOp 1,Op ("OraclePretty","</>") InfixlOp 1,Op ("OraclePretty","<$$>") InfixlOp 1,Op ("OraclePretty","<//>") InfixlOp 1]
+ Curry/Module/OraclePretty.fint view
@@ -0,0 +1,1 @@+Prog "OraclePretty" ["CEventOracle","Oracle","IOExts","Pretty","Dequeue","Prelude","OracleDequeue","OraclePrelude"] [Type ("OraclePretty","Doc") Public [] [Cons ("OraclePretty","Doc") 1 Private [FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Tokens") []) (TCons ("OraclePretty","Tokens") []))]],Type ("OraclePretty","Tokens") Private [] [Cons ("OraclePretty","Text") 2 Private [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("OraclePretty","Tokens") []],Cons ("OraclePretty","Line") 2 Private [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("OraclePretty","Tokens") []],Cons ("OraclePretty","Open") 1 Private [TCons ("OraclePretty","Tokens") []],Cons ("OraclePretty","Close") 1 Private [TCons ("OraclePretty","Tokens") []],Cons ("OraclePretty","Empty") 0 Private [],Cons ("OraclePretty","OpenNest") 2 Private [FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))))),TCons ("OraclePretty","Tokens") []],Cons ("OraclePretty","CloseNest") 1 Private [TCons ("OraclePretty","Tokens") []]]] [Func ("OraclePretty","deDoc") 2 Private (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Tokens") []) (TCons ("OraclePretty","Tokens") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_30") [Var 2,Var 1]])),Func ("OraclePretty","empty") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","text") [Comb ConsCall ("Prelude","[]") [],Var 1]])),Func ("OraclePretty","text") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OraclePretty","Doc") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("OraclePretty","Text") [Var 2]]]])),Func ("OraclePretty","linesep") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("OraclePretty","Doc") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partCons") []],Comb (ConsPartCall 2) ("OraclePretty","Line") []],Var 1]])),Func ("OraclePretty","line") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","linesep") [Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Var 2]]))),Func ("OraclePretty","linebreak") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","linesep") [Var 1],Comb ConsCall ("Prelude","[]") [],Var 2]]))),Func ("OraclePretty","softline") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","group") [Comb FuncCall ("OraclePretty","line") [Var 1],Var 2]]))),Func ("OraclePretty","softbreak") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","group") [Comb FuncCall ("OraclePretty","linebreak") [Var 1],Var 2]]))),Func ("OraclePretty","group") 2 Public (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("OraclePretty","Doc") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("OraclePretty","Open") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePretty","deDoc") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("OraclePretty","Close") []],Var 3],Var 4]]]))),Func ("OraclePretty","nest") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("OraclePretty","Doc") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("OraclePretty","OpenNest") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OraclePretty","nest._#lambda2") [Var 2]]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePretty","deDoc") [Var 3,Var 1],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("OraclePretty","CloseNest") []],Var 4],Var 5]]]))),Func ("OraclePretty","nest._#lambda2") 5 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_29") [Var 2,Var 3,Var 1]])),Func ("OraclePretty","hang") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("OraclePretty","Doc") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("OraclePretty","OpenNest") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OraclePretty","hang._#lambda3") [Var 2]]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePretty","deDoc") [Var 3,Var 1],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("OraclePretty","CloseNest") []],Var 4],Var 5]]]))),Func ("OraclePretty","hang._#lambda3") 5 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","-") [Var 5,Var 4,Var 1],Var 2,Var 6],Var 3]]))),Func ("OraclePretty","align") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","hang") [Lit (Intc 0)]]])),Func ("OraclePretty","combine") 4 Public (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","enclose") [Var 3,Var 4,Var 2,Var 1]])),Func ("OraclePretty","<>") 3 Public (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("OraclePretty","Doc") [Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePretty","deDoc") [Var 2,Var 1],Comb FuncCall ("OraclePretty","deDoc") [Var 3,Var 4],Var 5]]]))),Func ("OraclePretty","<+>") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","combine") [Comb FuncCall ("OraclePretty","space") [Var 1]]]])),Func ("OraclePretty","<$>") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","combine") [Comb FuncCall ("OraclePretty","line") [Var 1]]]])),Func ("OraclePretty","</>") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","combine") [Comb FuncCall ("OraclePretty","softline") [Var 1]]]])),Func ("OraclePretty","<$$>") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","combine") [Comb FuncCall ("OraclePretty","linebreak") [Var 1]]]])),Func ("OraclePretty","<//>") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","combine") [Comb FuncCall ("OraclePretty","softbreak") [Var 1]]]])),Func ("OraclePretty","compose") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") []))))) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_28") [Var 2,Var 3,Var 1]])),Func ("OraclePretty","hsep") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","compose") [Comb FuncCall ("OraclePretty","<+>") [Var 1]]]])),Func ("OraclePretty","vsep") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","compose") [Comb FuncCall ("OraclePretty","<$>") [Var 1]]]])),Func ("OraclePretty","fillSep") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","compose") [Comb FuncCall ("OraclePretty","</>") [Var 1]]]])),Func ("OraclePretty","sep") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","group") []],Comb FuncCall ("OraclePretty","vsep") [Var 1],Var 2]]))),Func ("OraclePretty","hcat") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","compose") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","<>") []]]]])),Func ("OraclePretty","vcat") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","compose") [Comb FuncCall ("OraclePretty","<$$>") [Var 1]]]])),Func ("OraclePretty","fillCat") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","compose") [Comb FuncCall ("OraclePretty","<//>") [Var 1]]]])),Func ("OraclePretty","cat") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","group") []],Comb FuncCall ("OraclePretty","vcat") [Var 1],Var 2]]))),Func ("OraclePretty","punctuate") 3 Public (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_27") [Var 2,Var 3,Var 1]])),Func ("OraclePretty","punctuate.go.75") 3 Private (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_26") [Var 2,Var 3,Var 1]])),Func ("OraclePretty","encloseSep") 5 Public (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_24") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OraclePretty","hEncloseSep") 5 Public (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_23") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OraclePretty","fillEncloseSep") 5 Public (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_22") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OraclePretty","fillEncloseSep.withSoftBreaks.96") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_21") [Var 2,Var 1]])),Func ("OraclePretty","list") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","fillEncloseSep") [Comb FuncCall ("OraclePretty","lbracket") [Var 1],Comb FuncCall ("OraclePretty","rbracket") [Var 2],Comb FuncCall ("OraclePretty","comma") [Var 3]]]]))),Func ("OraclePretty","tupled") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","fillEncloseSep") [Comb FuncCall ("OraclePretty","lparen") [Var 1],Comb FuncCall ("OraclePretty","rparen") [Var 2],Comb FuncCall ("OraclePretty","comma") [Var 3]]]]))),Func ("OraclePretty","semiBraces") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","fillEncloseSep") [Comb FuncCall ("OraclePretty","lbrace") [Var 1],Comb FuncCall ("OraclePretty","rbrace") [Var 2],Comb FuncCall ("OraclePretty","semi") [Var 3]]]]))),Func ("OraclePretty","enclose") 4 Public (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePretty","<>") [Var 2,Var 4,Var 1],Var 3,Var 5]]))),Func ("OraclePretty","squotes") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","enclose") [Comb FuncCall ("OraclePretty","squote") [Var 1],Comb FuncCall ("OraclePretty","squote") [Var 2]]]]))),Func ("OraclePretty","dquotes") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","enclose") [Comb FuncCall ("OraclePretty","dquote") [Var 1],Comb FuncCall ("OraclePretty","dquote") [Var 2]]]]))),Func ("OraclePretty","bquotes") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","enclose") [Comb FuncCall ("OraclePretty","bquote") [Var 1],Comb FuncCall ("OraclePretty","bquote") [Var 2]]]]))),Func ("OraclePretty","parens") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","enclose") [Comb FuncCall ("OraclePretty","lparen") [Var 1],Comb FuncCall ("OraclePretty","rparen") [Var 2]]]]))),Func ("OraclePretty","angles") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","enclose") [Comb FuncCall ("OraclePretty","langle") [Var 1],Comb FuncCall ("OraclePretty","rangle") [Var 2]]]]))),Func ("OraclePretty","braces") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","enclose") [Comb FuncCall ("OraclePretty","lbrace") [Var 1],Comb FuncCall ("OraclePretty","rbrace") [Var 2]]]]))),Func ("OraclePretty","brackets") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","enclose") [Comb FuncCall ("OraclePretty","lbracket") [Var 1],Comb FuncCall ("OraclePretty","rbracket") [Var 2]]]]))),Func ("OraclePretty","char") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","text") [Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Var 1]])),Func ("OraclePretty","string") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePretty","hcat") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","string._#lambda4") []]]],Var 2]]))),Func ("OraclePretty","string._#lambda4") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePretty","_case_19") [Var 2,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Var 2,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc '\r'),Comb ConsCall ("Prelude","[]") []]],Var 3],Var 4]]))),Func ("OraclePretty","int") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","text") [Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],Var 3]]))),Func ("OraclePretty","float") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","text") [Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],Var 3]]))),Func ("OraclePretty","lparen") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '('),Var 1]])),Func ("OraclePretty","rparen") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc ')'),Var 1]])),Func ("OraclePretty","langle") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '<'),Var 1]])),Func ("OraclePretty","rangle") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '>'),Var 1]])),Func ("OraclePretty","lbrace") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '{'),Var 1]])),Func ("OraclePretty","rbrace") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '}'),Var 1]])),Func ("OraclePretty","lbracket") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '['),Var 1]])),Func ("OraclePretty","rbracket") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc ']'),Var 1]])),Func ("OraclePretty","squote") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '\''),Var 1]])),Func ("OraclePretty","dquote") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '"'),Var 1]])),Func ("OraclePretty","bquote") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '`'),Var 1]])),Func ("OraclePretty","semi") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc ';'),Var 1]])),Func ("OraclePretty","colon") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc ':'),Var 1]])),Func ("OraclePretty","comma") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc ','),Var 1]])),Func ("OraclePretty","space") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc ' '),Var 1]])),Func ("OraclePretty","dot") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '.'),Var 1]])),Func ("OraclePretty","backslash") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '\\'),Var 1]])),Func ("OraclePretty","equals") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Lit (Charc '='),Var 1]])),Func ("OraclePretty","normalise") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Tokens") []) (TCons ("OraclePretty","Tokens") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","normalise.go.173") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]]])),Func ("OraclePretty","normalise.open.173") 2 Private (FuncType (TCons ("OraclePretty","Tokens") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Tokens") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_18") [Var 2,Var 1]])),Func ("OraclePretty","normalise.go.173") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Tokens") []) (TCons ("OraclePretty","Tokens") []))) (FuncType (TCons ("OraclePretty","Tokens") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Tokens") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_17") [Var 2,Var 3,Var 1]])),Func ("OraclePretty","doc2Tokens") 2 Private (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Tokens") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_16") [Var 2,Var 1]])),Func ("OraclePretty","pretty") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","noGroup") [Comb FuncCall ("OraclePretty","doc2Tokens") [Var 3,Var 1],Var 2,Lit (Intc 1),Var 2,Comb ConsCall ("Prelude",":") [Lit (Intc 0),Comb ConsCall ("Prelude","[]") []],Var 4]]))),Func ("OraclePretty","length") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Int") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","length") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","not") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","elem") []],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Intc 5),Comb ConsCall ("Prelude",":") [Lit (Intc 6),Comb ConsCall ("Prelude",":") [Lit (Intc 7),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","enumFromTo") [Lit (Intc 16),Lit (Intc 31),Var 1],Var 2]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","ord") []],Var 3],Var 4]]],Var 5]]))),Func ("OraclePretty","noGroup") 6 Private (FuncType (TCons ("OraclePretty","Tokens") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_15") [Var 3,Var 4,Var 5,Var 6,Var 2,Var 1]])),Func ("OraclePretty","noGroup._#lambda6") 3 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OraclePretty","oneGroup") 6 Private (FuncType (TCons ("OraclePretty","Tokens") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_13") [Var 3,Var 4,Var 5,Var 6,Var 2,Var 1]])),Func ("OraclePretty","oneGroup.outText.234") 6 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 4,Comb FuncCall ("OraclePrelude","-") [Var 5,Var 2,Var 1],Var 7],Var 6,Var 8],Var 9]]))),Func ("OraclePretty","oneGroup._#lambda7") 6 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 1],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","oneGroup.outText.234") [Var 2,Var 4,Var 6]],Var 7]]))),Func ("OraclePretty","oneGroup.outLine.240") 8 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (Rule [2,3,4,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_12") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 1]])),Func ("OraclePretty","oneGroup._#lambda8") 7 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 6,Var 1],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","oneGroup.outLine.240") [Var 2,Var 4,Var 5,Var 6,Var 7]],Var 8]]))),Func ("OraclePretty","oneGroup._#lambda9") 3 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OraclePretty","oneGroup._#lambda10") 6 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 1],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","oneGroup._#lambda10._#lambda11") [Var 6,Var 2,Var 4]],Var 7]]))),Func ("OraclePretty","oneGroup._#lambda10._#lambda11") 6 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 6,Var 7],Var 5,Var 8],Var 4,Var 9],Var 10]]))),Func ("OraclePretty","oneGroup._#lambda12") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","oneGroup._#lambda12._#lambda13") [Var 4]],Var 5]]))),Func ("OraclePretty","oneGroup._#lambda12._#lambda13") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","tail") [Var 4,Var 5],Var 6]]))),Func ("OraclePretty","multiGroup") 9 Private (FuncType (TCons ("OraclePretty","Tokens") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Dequeue","Queue") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))))))))))) (Rule [2,3,4,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_10") [Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9,Var 2,Var 1]])),Func ("OraclePretty","multiGroup.outText.261") 6 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 4,Comb FuncCall ("OraclePrelude","-") [Var 5,Var 2,Var 1],Var 7],Var 6,Var 8],Var 9]]))),Func ("OraclePretty","multiGroup._#lambda14") 6 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 1],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","multiGroup.outText.261") [Var 2,Var 4,Var 6]],Var 7]]))),Func ("OraclePretty","multiGroup.outLine.267") 8 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (Rule [2,3,4,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_6") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 1]])),Func ("OraclePretty","multiGroup._#lambda15") 7 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 6,Var 1],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","multiGroup.outLine.267") [Var 2,Var 4,Var 5,Var 6,Var 7]],Var 8]]))),Func ("OraclePretty","multiGroup._#lambda16") 3 Private (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])),Func ("OraclePretty","multiGroup._#lambda18") 7 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 6,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","multiGroup._#lambda18._#lambda19") [Var 7,Var 2,Var 4,Var 5]],Var 8]]))),Func ("OraclePretty","multiGroup._#lambda18._#lambda19") 6 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Comb FuncCall ("OraclePrelude","<=") [Var 4,Comb FuncCall ("OraclePrelude","+") [Var 5,Var 6,Var 1],Var 7],Var 8],Var 2,Var 9],Var 6,Var 10]]))),Func ("OraclePretty","multiGroup._#lambda20") 7 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 6,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","multiGroup._#lambda20._#lambda21") [Var 7,Var 3,Var 4,Var 5]],Var 8]]))),Func ("OraclePretty","multiGroup._#lambda20._#lambda21") 6 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Comb FuncCall ("OraclePrelude","<=") [Var 4,Comb FuncCall ("OraclePrelude","+") [Var 5,Var 6,Var 1],Var 7],Var 8],Var 2,Var 9],Var 6,Var 10]]))),Func ("OraclePretty","multiGroup._#lambda22") 6 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 1],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","multiGroup._#lambda22._#lambda23") [Var 6,Var 2,Var 4]],Var 7]]))),Func ("OraclePretty","multiGroup._#lambda22._#lambda23") 6 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 6,Var 7],Var 5,Var 8],Var 4,Var 9],Var 10]]))),Func ("OraclePretty","multiGroup._#lambda24") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","Bool") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","multiGroup._#lambda24._#lambda25") [Var 4]],Var 5]]))),Func ("OraclePretty","multiGroup._#lambda24._#lambda25") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 3,Var 1],Comb FuncCall ("OraclePrelude","tail") [Var 4,Var 5],Var 6]]))),Func ("OraclePretty","pruneOne") 6 Private (FuncType (TCons ("OraclePretty","Tokens") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","_case_4") [Var 2,Var 3,Var 4,Var 5,Var 6,Comb FuncCall ("OraclePrelude","<=") [Var 4,Var 5,Var 1],Var 7]]))),Func ("OraclePretty","pruneMulti") 9 Private (FuncType (TCons ("OraclePretty","Tokens") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Dequeue","Queue") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))))))))))) (Rule [2,3,4,5,6,7,8,9,1] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","_case_3") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9,Comb FuncCall ("OraclePrelude","<=") [Var 4,Var 5,Var 1],Var 10]]))),Func ("OraclePretty","pruneMulti._#lambda26") 8 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Dequeue","Queue") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))]]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("OraclePretty","Tokens") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))))))))) (Rule [2,3,4,5,6,7,8,1] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","_case_2") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OracleDequeue","matchLast") [Var 4,Var 1],Var 9]]))),Func ("OraclePretty","_case_2") 9 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","Nothing") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","pruneOne") [Var 6,Var 7,Var 3,Comb FuncCall ("OraclePrelude","+") [Var 5,Var 8,Var 1],Var 2,Var 11],Var 8,Var 12]])),Branch (Pattern ("Prelude","Just") [9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_1") [Var 2,Var 3,Var 5,Var 6,Var 7,Var 8,Var 9,Var 1]])]])),Func ("OraclePretty","_case_1") 8 Private (TVar (-42)) (Rule [2,3,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","(,)") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_0") [Var 2,Var 3,Var 5,Var 6,Var 7,Var 8,Var 11,Var 10,Var 1]])]])),Func ("OraclePretty","_case_0") 9 Private (TVar (-42)) (Rule [2,3,5,6,7,8,11,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","(,)") [12,13]) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","pruneMulti") [Var 6,Var 7,Var 3,Comb FuncCall ("OraclePrelude","+") [Var 12,Var 8,Var 1],Var 13,Var 11,Var 5,Var 2,Var 14],Var 8,Var 15]]))]])),Func ("OraclePretty","_case_3") 10 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","multiGroup") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 6,Comb ConsCall ("Prelude","False") [],Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","pruneMulti._#lambda26") [Var 9,Var 4,Var 7,Var 8,Var 2,Var 3]],Var 11]]))]])),Func ("OraclePretty","_case_4") 7 Private (TVar (-42)) (Rule [2,3,4,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","oneGroup") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 6,Comb ConsCall ("Prelude","False") [],Var 1],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","noGroup") [Var 2,Var 3,Var 4]],Var 8]]))]])),Func ("OraclePretty","_case_6") 8 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_5") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Var 5,Var 1]])]])),Func ("OraclePretty","_case_5") 9 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 6,Comb FuncCall ("OraclePrelude","-") [Var 7,Var 2,Var 1],Var 10],Var 8,Var 11],Var 12]])),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","replicate") [Var 9,Lit (Charc ' '),Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 6,Comb FuncCall ("OraclePrelude","-") [Var 4,Var 9,Var 13],Var 14],Var 8,Var 15],Var 16]]]))]])),Func ("OraclePretty","_case_10") 9 Private (TVar (-42)) (Rule [3,4,5,6,7,8,9,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OraclePretty","Text") [10,11]) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]],Let [(12,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","length") [Var 1],Var 10,Var 26])] (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","pruneMulti") [Var 11,Var 3,Comb FuncCall ("OraclePrelude","+") [Var 4,Var 12,Var 27],Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","multiGroup._#lambda14") [Var 12,Var 9,Var 10]],Var 28]]))])),Branch (Pattern ("OraclePretty","Line") [13,14]) (Let [(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []]],Let [(15,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","length") [Var 1],Var 13,Var 29])] (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","pruneMulti") [Var 14,Var 3,Comb FuncCall ("OraclePrelude","+") [Var 4,Var 15,Var 30],Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","multiGroup._#lambda15") [Var 15,Var 9,Var 13,Var 3]],Var 31]]))])),Branch (Pattern ("OraclePretty","Open") [16]) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","multiGroup") [Var 16,Var 3,Var 4,Var 5,Var 6,Comb FuncCall ("OracleDequeue","cons") [Comb ConsCall ("Prelude","(,)") [Var 8,Var 9],Var 7,Var 1],Var 4,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","multiGroup._#lambda16") []],Var 32]])),Branch (Pattern ("OraclePretty","Close") [17]) (Let [(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","_case_9") [Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9,Var 17,Comb FuncCall ("OracleDequeue","matchHead") [Var 7,Var 1],Var 33]])),Branch (Pattern ("OraclePretty","OpenNest") [23,24]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","multiGroup") [Var 24,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","multiGroup._#lambda22") [Var 23,Var 9,Var 3]],Var 1]]),Branch (Pattern ("OraclePretty","CloseNest") [25]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","multiGroup") [Var 25,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","multiGroup._#lambda24") [Var 9]],Var 1]])]])),Func ("OraclePretty","_case_9") 10 Private (TVar (-42)) (Rule [3,4,5,6,7,8,9,17,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 19) [Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","oneGroup") [Var 17,Var 3,Var 4,Var 5,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","multiGroup._#lambda18") [Var 9,Var 6,Var 4,Var 8]],Var 1]]),Branch (Pattern ("Prelude","Just") [18]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_8") [Var 3,Var 4,Var 5,Var 6,Var 8,Var 9,Var 17,Var 18,Var 1]])]])),Func ("OraclePretty","_case_8") 9 Private (TVar (-42)) (Rule [3,4,5,6,8,9,17,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 18) [Branch (Pattern ("Prelude","(,)") [19,20]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_7") [Var 3,Var 4,Var 5,Var 6,Var 8,Var 9,Var 17,Var 20,Var 19,Var 1]])]])),Func ("OraclePretty","_case_7") 10 Private (TVar (-42)) (Rule [3,4,5,6,8,9,17,20,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 19) [Branch (Pattern ("Prelude","(,)") [21,22]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","multiGroup") [Var 17,Var 3,Var 4,Var 5,Var 6,Var 20,Var 21,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","multiGroup._#lambda20") [Var 22,Var 9,Var 4,Var 8]],Var 1]])]])),Func ("OraclePretty","_case_12") 8 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 8) [Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_11") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Var 5,Var 1]])]])),Func ("OraclePretty","_case_11") 9 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 6,Comb FuncCall ("OraclePrelude","-") [Var 7,Var 2,Var 1],Var 10],Var 8,Var 11],Var 12]])),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","replicate") [Var 9,Lit (Charc ' '),Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 6,Comb FuncCall ("OraclePrelude","-") [Var 4,Var 9,Var 13],Var 14],Var 8,Var 15],Var 16]]]))]])),Func ("OraclePretty","_case_13") 6 Private (TVar (-42)) (Rule [3,4,5,6,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OraclePretty","Text") [7,8]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]],Let [(9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","length") [Var 1],Var 7,Var 18])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","pruneOne") [Var 8,Var 3,Comb FuncCall ("OraclePrelude","+") [Var 4,Var 9,Var 19],Var 5,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","oneGroup._#lambda7") [Var 9,Var 6,Var 7]],Var 20]]))])),Branch (Pattern ("OraclePretty","Line") [10,11]) (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]],Let [(12,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","length") [Var 1],Var 10,Var 21])] (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","pruneOne") [Var 11,Var 3,Comb FuncCall ("OraclePrelude","+") [Var 4,Var 12,Var 22],Var 5,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","oneGroup._#lambda8") [Var 12,Var 6,Var 10,Var 3]],Var 23]]))])),Branch (Pattern ("OraclePretty","Open") [13]) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","multiGroup") [Var 13,Var 3,Var 4,Var 5,Var 6,Comb FuncCall ("OracleDequeue","empty") [Var 1],Var 4,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","oneGroup._#lambda9") []],Var 24]])),Branch (Pattern ("OraclePretty","Close") [14]) (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 6,Comb FuncCall ("OraclePrelude","<=") [Var 4,Var 5,Var 1],Var 25],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","noGroup") [Var 14,Var 3,Var 4]],Var 26]])),Branch (Pattern ("OraclePretty","OpenNest") [15,16]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","oneGroup") [Var 16,Var 3,Var 4,Var 5,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","oneGroup._#lambda10") [Var 15,Var 6,Var 3]],Var 1]]),Branch (Pattern ("OraclePretty","CloseNest") [17]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","oneGroup") [Var 17,Var 3,Var 4,Var 5,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","oneGroup._#lambda12") [Var 6]],Var 1]])]])),Func ("OraclePretty","_case_15") 6 Private (TVar (-42)) (Rule [3,4,5,6,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OraclePretty","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("OraclePretty","Text") [7,8]) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]],Let [(9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","length") [Var 1],Var 7,Var 19])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Var 7,Comb FuncCall ("OraclePretty","noGroup") [Var 8,Var 3,Comb FuncCall ("OraclePrelude","+") [Var 4,Var 9,Var 20],Comb FuncCall ("OraclePrelude","-") [Var 5,Var 9,Var 21],Var 6,Var 22],Var 23]]))])),Branch (Pattern ("OraclePretty","Line") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_14") [Var 3,Var 4,Var 11,Var 6,Var 1]]),Branch (Pattern ("OraclePretty","Open") [14]) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","oneGroup") [Var 14,Var 3,Var 4,Comb FuncCall ("OraclePrelude","+") [Var 4,Var 5,Var 1],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","noGroup._#lambda6") []],Var 24],Var 5,Var 25],Var 6,Var 26]])),Branch (Pattern ("OraclePretty","Close") [15]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","noGroup") [Var 15,Var 3,Var 4,Var 5,Var 6,Var 1]]),Branch (Pattern ("OraclePretty","OpenNest") [16,17]) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePretty","noGroup") [Var 17,Var 3,Var 4,Var 5,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 16,Var 6,Var 1],Var 5,Var 27],Var 3,Var 28],Var 29]])),Branch (Pattern ("OraclePretty","CloseNest") [18]) (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","noGroup") [Var 18,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","tail") [Var 6,Var 1],Var 30]]))]])),Func ("OraclePretty","_case_14") 5 Private (TVar (-42)) (Rule [3,4,11,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude",":") [12,13]) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","replicate") [Var 12,Lit (Charc ' '),Var 1],Comb FuncCall ("OraclePretty","noGroup") [Var 11,Var 3,Comb FuncCall ("OraclePrelude","+") [Var 4,Lit (Intc 1),Var 14],Comb FuncCall ("OraclePrelude","-") [Var 3,Var 12,Var 15],Var 6,Var 16],Var 17]]]))]])),Func ("OraclePretty","_case_16") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OraclePretty","Doc") [3]) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","normalise") [Var 1],Comb FuncCall ("Oracle","apply") [Var 3,Comb ConsCall ("OraclePretty","Empty") [],Var 4],Var 5]]))]])),Func ("OraclePretty","_case_17") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OraclePretty","Empty") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 2,Comb ConsCall ("OraclePretty","Empty") [],Var 1]]),Branch (Pattern ("OraclePretty","Open") [4]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","normalise.go.173") [Comb FuncCall ("OraclePrelude",".") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","normalise.open.173") []],Var 1],Var 4,Var 13]])),Branch (Pattern ("OraclePretty","Close") [5]) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePretty","normalise.go.173") [Comb FuncCall ("OraclePrelude",".") [Var 2,Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("OraclePretty","Close") []],Var 1],Var 5,Var 14]])),Branch (Pattern ("OraclePretty","Line") [6,7]) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePrelude",".") [Var 2,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("OraclePretty","Line") [Var 6]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","normalise.go.173") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]]],Var 1],Var 15],Var 7,Var 16]])),Branch (Pattern ("OraclePretty","Text") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OraclePretty","Text") [Var 8,Comb FuncCall ("OraclePretty","normalise.go.173") [Var 2,Var 9,Var 1]]]),Branch (Pattern ("OraclePretty","OpenNest") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OraclePretty","OpenNest") [Var 10,Comb FuncCall ("OraclePretty","normalise.go.173") [Var 2,Var 11,Var 1]]]),Branch (Pattern ("OraclePretty","CloseNest") [12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OraclePretty","CloseNest") [Comb FuncCall ("OraclePretty","normalise.go.173") [Var 2,Var 12,Var 1]]])]])),Func ("OraclePretty","_case_18") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("OraclePretty","Close") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("OraclePretty","Text") [4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OraclePretty","Open") [Var 2]]),Branch (Pattern ("OraclePretty","Line") [6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OraclePretty","Open") [Var 2]]),Branch (Pattern ("OraclePretty","Open") [8]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OraclePretty","Open") [Var 2]]),Branch (Pattern ("OraclePretty","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OraclePretty","Open") [Var 2]]),Branch (Pattern ("OraclePretty","OpenNest") [9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OraclePretty","Open") [Var 2]]),Branch (Pattern ("OraclePretty","CloseNest") [11]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OraclePretty","Open") [Var 2]])]])),Func ("OraclePretty","_case_19") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","line") [Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","char") [Var 2,Var 1]])]])),Func ("OraclePretty","_case_21") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_20") [Var 3,Var 4,Var 1]])]])),Func ("OraclePretty","_case_20") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePretty","group") [Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePretty","linebreak") [Var 1],Var 3,Var 7],Var 8],Comb ConsCall ("Prelude","[]") []]])),Branch (Pattern ("Prelude",":") [5,6]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]]]],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePretty","group") [Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePretty","linebreak") [Var 1],Comb FuncCall ("OraclePretty","group") [Comb FuncCall ("OraclePretty","<>") [Var 3,Comb FuncCall ("OraclePretty","linebreak") [Var 9],Var 10],Var 11],Var 12],Var 13],Comb FuncCall ("OraclePretty","fillEncloseSep.withSoftBreaks.96") [Var 4,Var 14]]]))]])),Func ("OraclePretty","_case_22") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","<>") [Var 2,Var 3,Var 1]]),Branch (Pattern ("Prelude",":") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","align") [Var 1],Comb FuncCall ("OraclePretty","enclose") [Var 2,Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","hcat") [Var 8],Comb ConsCall ("Prelude",":") [Var 6,Comb FuncCall ("OraclePretty","fillEncloseSep.withSoftBreaks.96") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","<>") [Var 4]],Var 7,Var 9],Var 10]],Var 11],Var 12],Var 13]]))]])),Func ("OraclePretty","_case_23") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","<>") [Var 2,Var 3,Var 1]]),Branch (Pattern ("Prelude",":") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","align") [Var 1],Comb FuncCall ("OraclePretty","enclose") [Var 2,Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","hcat") [Var 8],Comb ConsCall ("Prelude",":") [Var 6,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","<>") [Var 4]],Var 7,Var 9]],Var 10],Var 11],Var 12]]))]])),Func ("OraclePretty","_case_24") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","<>") [Var 2,Var 3,Var 1]]),Branch (Pattern ("Prelude",":") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","align") [Var 1],Comb FuncCall ("OraclePretty","enclose") [Var 2,Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","cat") [Var 8],Comb ConsCall ("Prelude",":") [Var 6,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","<>") [Var 4]],Var 7,Var 9]],Var 10],Var 11],Var 12]]))]])),Func ("OraclePretty","_case_26") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","_case_25") [Var 2,Var 4,Var 5,Var 1]])]])),Func ("OraclePretty","_case_25") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePretty","<>") [Var 4,Var 2,Var 1],Comb FuncCall ("OraclePretty","punctuate.go.75") [Var 2,Var 5,Var 8]]]))]])),Func ("OraclePretty","_case_27") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","punctuate.go.75") [Var 2,Var 3,Var 1]])]])),Func ("OraclePretty","_case_28") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","empty") [Var 1]]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","foldr1") [Var 2,Var 3,Var 1]])]])),Func ("OraclePretty","_case_29") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","+") [Var 6,Var 2,Var 1],Var 3]])]])),Func ("OraclePretty","_case_30") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OraclePretty","Doc") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]]))] [Op ("OraclePretty","<>") InfixlOp 1,Op ("OraclePretty","<+>") InfixlOp 1,Op ("OraclePretty","<$>") InfixlOp 1,Op ("OraclePretty","</>") InfixlOp 1,Op ("OraclePretty","<$$>") InfixlOp 1,Op ("OraclePretty","<//>") InfixlOp 1]
+ Curry/Module/OraclePrettyFlat.fcy view
@@ -0,0 +1,1 @@+Prog "OraclePrettyFlat" ["CEventOracle","Oracle","IOExts","PrettyFlat","Char","FlatCurry","FlatCurryGoodies","Maybe","Prelude","Pretty","StyledText","System","OracleChar","OracleFlatCurry","OracleFlatCurryGoodies","OracleMaybe","OraclePrelude","OraclePretty","OracleStyledText","OracleSystem"] [] [Func ("OraclePrettyFlat","prelude") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [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","[]") []]]]]]]]])),Func ("OraclePrettyFlat","arrow") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 1],Comb FuncCall ("OraclePretty","text") [Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude",":") [Lit (Charc '>'),Comb ConsCall ("Prelude","[]") []]],Var 2],Var 3]]))),Func ("OraclePrettyFlat","bar") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 1],Comb FuncCall ("OraclePretty","char") [Lit (Charc '|'),Var 2],Var 3]]))),Func ("OraclePrettyFlat","dcolon") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 1],Comb FuncCall ("OraclePretty","text") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []]],Var 2],Var 3]]))),Func ("OraclePrettyFlat","precFillEncloseSep") 7 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePretty","fillEncloseSep") [Comb FuncCall ("OraclePrettyFlat","precFillEncloseSep.pre.11") [Var 2,Var 3,Var 4,Var 1],Comb FuncCall ("OraclePrettyFlat","precFillEncloseSep.pre.11") [Var 2,Var 3,Var 5,Var 8],Var 6,Var 7,Var 9]]))),Func ("OraclePrettyFlat","precFillEncloseSep.pre.11") 4 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_117") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","<") [Var 2,Var 3,Var 1],Var 5]]))),Func ("OraclePrettyFlat","isInfixName") 2 Public (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_115") [Var 2,Var 1]])),Func ("OraclePrettyFlat","infixIDs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 ("OraclePrettyFlat","isTupleName") 2 Public (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_114") [Var 2,Var 1]])),Func ("OraclePrettyFlat","showStyledProg") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","prettyProg") [Lit (Intc 78),Var 1]])),Func ("OraclePrettyFlat","prettyProg") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","pretty") [Var 2]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","progDoc") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","updProgExps") [Var 1],Comb FuncCall ("OraclePrettyFlat","elimApp") [Var 3],Var 4],Var 5],Var 6]]))),Func ("OraclePrettyFlat","prettyTypeExpr") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","pretty") [Lit (Intc 78)]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","typeExprDoc") [Var 2,Comb ConsCall ("Prelude","False") []]],Var 1]])),Func ("OraclePrettyFlat","prettyTypes") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","pretty") [Lit (Intc 78)]],Comb FuncCall ("OraclePrettyFlat","typesDoc") [Var 2,Var 1],Var 3]]))),Func ("OraclePrettyFlat","prettyOps") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","pretty") [Lit (Intc 78)]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","opsDoc") []],Var 1]])),Func ("OraclePrettyFlat","showProg") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleStyledText","plainText") [Var 1],Comb FuncCall ("OraclePrettyFlat","showStyledProg") [Var 2],Var 3]]))),Func ("OraclePrettyFlat","printStyledProg") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFlatCurry","readFlatCurry") [Var 2,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleStyledText","printStyledText") [Var 3],Comb FuncCall ("OraclePrettyFlat","showStyledProg") [Var 4],Var 5],Var 6]]))),Func ("OraclePrettyFlat","mainPrint") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleSystem","getArgs") [Var 1],Comb FuncCall ("OraclePrelude","mapIO_") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","printProg") []],Var 2],Var 3]]))),Func ("OraclePrettyFlat","printProg") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFlatCurry","readFlatCurryFile") [Var 2,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","putStrLn") []],Comb FuncCall ("OraclePrettyFlat","showProg") [Var 3],Var 4],Var 5]]))),Func ("OraclePrettyFlat","keyword") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleStyledText","magentaDoc") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","text") []],Var 2]]))),Func ("OraclePrettyFlat","consname") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleStyledText","greenDoc") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","text") []],Var 2]]))),Func ("OraclePrettyFlat","operator") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleStyledText","blueDoc") [Var 1]])),Func ("OraclePrettyFlat","literal") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleStyledText","cyanDoc") [Var 1]])),Func ("OraclePrettyFlat","marked") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleStyledText","bgYellowDoc") [Var 1],Comb FuncCall ("OracleStyledText","boldDoc") [Var 2],Var 3]]))),Func ("OraclePrettyFlat","block") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","group") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","hang") [Lit (Intc 1)]],Var 1]])),Func ("OraclePrettyFlat","def") 4 Public (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Let [(5,Comb FuncCall ("OraclePrettyFlat","_case_113") [Var 3,Comb FuncCall ("OraclePrelude","null") [Var 3,Var 1],Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","block") [Var 7],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<$>") [Var 8],Comb FuncCall ("OraclePretty","<>") [Var 2,Var 5,Var 9],Var 10],Var 4,Var 11],Var 12]]))]))),Func ("OraclePrettyFlat","app") 3 Public (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_112") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","null") [Var 3,Var 1],Var 4]]))),Func ("OraclePrettyFlat","layout") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePretty","align") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","compose") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","combine") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","linesep") [Var 2],Comb ConsCall ("Prelude",":") [Lit (Charc ';'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Var 3]]]]],Var 4]]))),Func ("OraclePrettyFlat","qname") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_111") [Var 2,Var 3,Var 1]])),Func ("OraclePrettyFlat","qname.txt.65") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_105") [Var 2,Var 1]])),Func ("OraclePrettyFlat","correctName") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Let [(3,Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","not") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","elem") []],Comb ConsCall ("Prelude",":") [Lit (Charc '#'),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []]]]],Var 1],Var 2,Var 4])] (Comb FuncCall ("CEventOracle","replace") [Var 5,Comb FuncCall ("OraclePrettyFlat","_case_103") [Var 3,Var 5]])]))),Func ("OraclePrettyFlat","<$>>") 3 Public (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<$>") [Var 1],Var 2,Var 4],Comb FuncCall ("OraclePretty","line") [Var 5],Var 6],Var 3,Var 7]]))),Func ("OraclePrettyFlat","progDoc") 2 Public (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_101") [Var 2,Var 1]])),Func ("OraclePrettyFlat","precs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (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 [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","precs._#lambda3") []]]]])),Func ("OraclePrettyFlat","precs._#lambda3") 2 Private (FuncType (TCons ("FlatCurry","OpDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_100") [Var 2,Var 1]])),Func ("OraclePrettyFlat","exportedNames") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_99") [Var 2,Var 3,Var 1]])),Func ("OraclePrettyFlat","exportedNames.typeExpDoc.89") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","TypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Let [(4,Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","==") [Comb ConsCall ("FlatCurry","Public") []]],Comb FuncCall ("OracleFlatCurryGoodies","consVisibility") [Var 1],Var 5],Comb FuncCall ("OracleFlatCurryGoodies","trType") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OraclePrettyFlat","exportedNames.typeExpDoc.89._#lambda4") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OraclePrettyFlat","exportedNames.typeExpDoc.89._#lambda5") []],Var 3,Var 6],Var 7])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePrettyFlat","qname") [Var 2,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","typeName") [Var 8],Var 3,Var 9],Var 10],Comb FuncCall ("OraclePrettyFlat","_case_98") [Var 4,Comb FuncCall ("OraclePrelude","null") [Var 4,Var 11],Var 12],Var 13]]))]))),Func ("OraclePrettyFlat","exportedNames.typeExpDoc.89._#lambda4") 5 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])),Func ("OraclePrettyFlat","exportedNames.typeExpDoc.89._#lambda5") 5 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 1])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])),Func ("OraclePrettyFlat","moduleHeaderDoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 4],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 5],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 6],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 7],Var 8],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","consname") [Var 9],Var 2,Var 10],Var 11],Var 12],Comb FuncCall ("OraclePrettyFlat","exportsDoc") [Var 3,Var 13],Var 14],Var 15],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 16],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","[]") []]]]]],Var 17],Var 18]]))),Func ("OraclePrettyFlat","exportsDoc") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]],Comb FuncCall ("OraclePretty","group") [Comb FuncCall ("OraclePretty","nest") [Lit (Intc 1),Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<$>") [Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<$>") [Var 3],Comb FuncCall ("OraclePretty","lparen") [Var 4],Var 5],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","align") [Var 6],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","fillSep") [Var 7],Comb FuncCall ("OraclePretty","punctuate") [Comb FuncCall ("OraclePretty","comma") [Var 8],Var 2,Var 9],Var 10],Var 11],Var 12],Var 13],Comb FuncCall ("OraclePretty","rparen") [Var 14],Var 15],Var 16],Var 17]]))),Func ("OraclePrettyFlat","impsDoc") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","vcat") [Var 1],Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 3],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 4],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","[]") []]]]]]],Var 5],Var 6],Comb FuncCall ("OraclePrettyFlat","consname") [Var 7],Var 8],Var 2,Var 9],Var 10]]))),Func ("OraclePrettyFlat","opsDoc") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","vcat") [Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","opDoc") []],Var 2,Var 3],Var 4]]))),Func ("OraclePrettyFlat","opDoc") 2 Public (FuncType (TCons ("FlatCurry","OpDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_97") [Var 2,Var 1]])),Func ("OraclePrettyFlat","opDoc.fixDoc.114") 2 Private (FuncType (TCons ("FlatCurry","Fixity") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_94") [Var 2,Var 1]])),Func ("OraclePrettyFlat","typesDoc") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (TCons ("OraclePretty","Doc") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePretty","vcat") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","typeDoc") [Var 2]]]],Var 3]]))),Func ("OraclePrettyFlat","typeDoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","TypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_93") [Var 2,Var 3,Var 1]])),Func ("OraclePrettyFlat","varDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","text") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude",":") [Lit (Charc 'x')]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 1],Var 2]]))),Func ("OraclePrettyFlat","tvarDoc") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_92") [Var 2,Comb FuncCall ("OraclePrelude",">") [Var 2,Lit (Intc 25),Var 1],Var 3]]))),Func ("OraclePrettyFlat","consDeclsDoc") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("OraclePretty","Doc") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","fillEncloseSep") [Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 1],Comb FuncCall ("OraclePretty","equals") [Var 3],Var 4],Comb FuncCall ("OraclePretty","space") [Var 5],Var 6],Comb FuncCall ("OraclePretty","empty") [Var 7],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePrettyFlat","bar") [Var 8],Comb FuncCall ("OraclePretty","space") [Var 9],Var 10]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","<>") []],Comb FuncCall ("OraclePretty","space") [Var 11]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","consDeclDoc") [Var 2]],Var 12]]],Var 13]]))),Func ("OraclePrettyFlat","consDeclDoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","ConsDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_90") [Var 2,Var 3,Var 1]])),Func ("OraclePrettyFlat","typeExprDoc") 4 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_89") [Var 2,Var 3,Var 4,Var 1]])),Func ("OraclePrettyFlat","par") 2 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_84") [Var 2,Var 1]])),Func ("OraclePrettyFlat","funcsDoc") 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 ("FlatCurry","FuncDecl") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","vcat") [Var 1],Comb FuncCall ("OraclePretty","punctuate") [Comb FuncCall ("OraclePretty","line") [Var 5],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","funcDoc") [Var 2,Var 3]],Var 4,Var 6],Var 7],Var 8]]))),Func ("OraclePrettyFlat","funcDoc") 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 ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_83") [Var 2,Var 3,Var 4,Var 1]])),Func ("OraclePrettyFlat","funcTypeDeclDoc") 4 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrettyFlat","def") [Comb FuncCall ("OraclePrettyFlat","qname") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("OraclePrettyFlat","funcTypeDoc") [Var 2,Comb FuncCall ("OracleFlatCurryGoodies","argTypes") [Var 4,Var 5],Comb FuncCall ("OracleFlatCurryGoodies","resultType") [Var 4,Var 6],Var 7],Var 8]]))),Func ("OraclePrettyFlat","funcTypeDoc") 4 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePretty","fillEncloseSep") [Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePrettyFlat","dcolon") [Var 1],Comb FuncCall ("OraclePretty","space") [Var 5],Var 6],Comb FuncCall ("OraclePretty","empty") [Var 7],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePrettyFlat","arrow") [Var 8],Comb FuncCall ("OraclePretty","space") [Var 9],Var 10],Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","<>") []],Comb FuncCall ("OraclePretty","space") [Var 11]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","typeExprDoc") [Var 2,Comb ConsCall ("Prelude","True") []]],Var 12],Comb FuncCall ("OraclePrelude","++") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Var 13],Var 14],Var 15]]))),Func ("OraclePrettyFlat","ruleDoc") 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","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Rule") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_82") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OraclePrettyFlat","expDoc") 6 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OraclePrettyFlat","expDoc2") [Var 2,Lit (Intc 0),Var 4,Var 5,Var 6,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","expDoc._#lambda6") [Var 4,Var 2]],Comb FuncCall ("OraclePrettyFlat","toList") [Var 6,Var 7],Var 8],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","expDoc._#lambda7") []],Comb FuncCall ("OraclePrettyFlat","toString") [Var 6,Var 9],Var 10]]))),Func ("OraclePrettyFlat","expDoc._#lambda6") 4 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","list") [Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","expDoc") [Var 3,Lit (Intc 0),Var 2,Comb ConsCall ("Prelude","False") []]],Var 4,Var 5],Var 6]]))),Func ("OraclePrettyFlat","expDoc._#lambda7") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_81") [Var 2,Comb FuncCall ("OraclePrelude","null") [Var 2,Var 1],Var 3]]))),Func ("OraclePrettyFlat","expDoc2") 6 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_80") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 1]])),Func ("OraclePrettyFlat","expDoc2._#selFP3#lbr") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OraclePretty","Doc") [],TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_73") [Var 2,Var 1]])),Func ("OraclePrettyFlat","expDoc2._#selFP4#rbr") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OraclePretty","Doc") [],TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_72") [Var 2,Var 1]])),Func ("OraclePrettyFlat","branchDoc") 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 ("FlatCurry","BranchExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_71") [Var 2,Var 3,Var 4,Var 1]])),Func ("OraclePrettyFlat","caseTypeDoc") 2 Public (FuncType (TCons ("FlatCurry","CaseType") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_70") [Var 2,Var 1]])),Func ("OraclePrettyFlat","patternDoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_69") [Var 2,Var 3,Var 1]])),Func ("OraclePrettyFlat","letBindsDoc") 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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]]) (TCons ("OraclePretty","Doc") [])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePrettyFlat","layout") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","letBindDoc") [Var 2,Var 3]]]],Var 4]]))),Func ("OraclePrettyFlat","letBindDoc") 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","Int") [],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_64") [Var 2,Var 3,Var 4,Var 1]])),Func ("OraclePrettyFlat","litDoc") 2 Public (FuncType (TCons ("FlatCurry","Literal") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_63") [Var 2,Var 1]])),Func ("OraclePrettyFlat","quoteChar") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","maybe") [Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb FuncCall ("OraclePrelude","lookup") [Var 2,Comb FuncCall ("OraclePrettyFlat","specialChars") [Var 1],Var 3],Var 4]]))),Func ("OraclePrettyFlat","specialChars") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Char") [],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 ("OraclePrettyFlat","toString") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_62") [Var 2,Var 1]])),Func ("OraclePrettyFlat","toList") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_31") [Var 2,Var 1]])),Func ("OraclePrettyFlat","elimApp") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updCombs") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OraclePrettyFlat","elimApp.elim.276") []],Var 1]])),Func ("OraclePrettyFlat","elimApp.extend.276") 3 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_2") [Var 3,Var 2,Var 1]])),Func ("OraclePrettyFlat","elimApp.elim.276") 4 Private (FuncType (TCons ("FlatCurry","CombType") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]],Comb FuncCall ("OraclePrettyFlat","_case_1") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("FlatCurry","FuncCall") [],Var 1],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 3,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrettyFlat","prelude") [Var 5],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","[]") []]]]]]],Var 6],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleFlatCurryGoodies","isComb") [Comb FuncCall ("OraclePrelude","head") [Var 4,Var 7],Var 8],Comb FuncCall ("OraclePrelude","/=") [Comb FuncCall ("OracleFlatCurryGoodies","combName") [Comb FuncCall ("OraclePrelude","head") [Var 4,Var 9],Var 10],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrettyFlat","prelude") [Var 11],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","[]") []]]]]]],Var 12],Var 13],Var 14],Var 15],Var 16]]))),Func ("OraclePrettyFlat","_case_1") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrettyFlat","elimApp.extend.276") [Comb FuncCall ("OraclePrelude","head") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","!!") [Var 4,Lit (Intc 1),Var 6],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_0") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 8]]))]])),Func ("OraclePrettyFlat","_case_0") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlatCurry","Comb") [Var 2,Var 3,Var 4]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrettyFlat","_case_2") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Comb") [4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FlatCurry","Comb") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","++") [Var 6,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Var 1]]])]])),Func ("OraclePrettyFlat","_case_31") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Comb") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_30") [Var 4,Var 5,Var 3,Var 1]]),Branch (Pattern ("FlatCurry","Var") [42]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Lit") [43]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Let") [44,45]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Free") [46,47]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Or") [48,49]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Case") [50,51,52]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_30") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("FlatCurry","ConsCall") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_29") [Var 5,Var 4,Var 1]]),Branch (Pattern ("FlatCurry","FuncCall") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","FuncPartCall") [40]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","ConsPartCall") [41]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_29") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_28") [Var 5,Var 7,Var 6,Var 1]])]])),Func ("OraclePrettyFlat","_case_28") 4 Private (TVar (-42)) (Rule [5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude",":") [8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_27") [Var 5,Var 7,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 8,Lit (Charc 'P'),Var 1],Var 10]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_27") 6 Private (TVar (-42)) (Rule [5,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_26") [Var 5,Var 7,Var 9,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_26") 4 Private (TVar (-42)) (Rule [5,7,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_25") [Var 5,Var 7,Var 10,Var 11,Comb FuncCall ("OraclePrelude","==") [Var 10,Lit (Charc 'r'),Var 1],Var 12]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_25") 6 Private (TVar (-42)) (Rule [5,7,10,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_24") [Var 5,Var 7,Var 11,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_24") 4 Private (TVar (-42)) (Rule [5,7,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_23") [Var 5,Var 7,Var 12,Var 13,Comb FuncCall ("OraclePrelude","==") [Var 12,Lit (Charc 'e'),Var 1],Var 14]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_23") 6 Private (TVar (-42)) (Rule [5,7,12,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_22") [Var 5,Var 7,Var 13,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_22") 4 Private (TVar (-42)) (Rule [5,7,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_21") [Var 5,Var 7,Var 14,Var 15,Comb FuncCall ("OraclePrelude","==") [Var 14,Lit (Charc 'l'),Var 1],Var 16]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_21") 6 Private (TVar (-42)) (Rule [5,7,14,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_20") [Var 5,Var 7,Var 15,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_20") 4 Private (TVar (-42)) (Rule [5,7,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_19") [Var 5,Var 7,Var 16,Var 17,Comb FuncCall ("OraclePrelude","==") [Var 16,Lit (Charc 'u'),Var 1],Var 18]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_19") 6 Private (TVar (-42)) (Rule [5,7,16,17,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 18) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_18") [Var 5,Var 7,Var 17,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_18") 4 Private (TVar (-42)) (Rule [5,7,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_17") [Var 5,Var 7,Var 18,Var 19,Comb FuncCall ("OraclePrelude","==") [Var 18,Lit (Charc 'd'),Var 1],Var 20]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_17") 6 Private (TVar (-42)) (Rule [5,7,18,19,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 20) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_16") [Var 5,Var 7,Var 19,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_16") 4 Private (TVar (-42)) (Rule [5,7,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_15") [Var 5,Var 7,Var 20,Var 21,Comb FuncCall ("OraclePrelude","==") [Var 20,Lit (Charc 'e'),Var 1],Var 22]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_15") 6 Private (TVar (-42)) (Rule [5,7,20,21,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 22) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_14") [Var 5,Var 7,Var 21,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_14") 4 Private (TVar (-42)) (Rule [5,7,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 21) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_13") [Var 5,Var 7,Var 1]]),Branch (Pattern ("Prelude",":") [38,39]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_13") 3 Private (TVar (-42)) (Rule [5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude",":") [22,23]) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_12") [Var 5,Var 22,Var 23,Comb FuncCall ("OraclePrelude","==") [Var 22,Lit (Charc '['),Var 1],Var 24]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_12") 5 Private (TVar (-42)) (Rule [5,22,23,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 24) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_11") [Var 5,Var 23,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_7") [Var 5,Var 22,Var 23,Comb FuncCall ("OraclePrelude","==") [Var 22,Lit (Charc ':'),Var 1],Var 25]]))]])),Func ("OraclePrettyFlat","_case_7") 5 Private (TVar (-42)) (Rule [5,22,23,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 24) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_6") [Var 5,Var 23,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_6") 3 Private (TVar (-42)) (Rule [5,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_5") [Var 5,Var 1]]),Branch (Pattern ("Prelude",":") [36,37]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_5") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude",":") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_4") [Var 30,Var 31,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_4") 3 Private (TVar (-42)) (Rule [30,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 31) [Branch (Pattern ("Prelude",":") [32,33]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_3") [Var 30,Var 32,Var 33,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_3") 4 Private (TVar (-42)) (Rule [30,32,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 33) [Branch (Pattern ("Prelude","[]") []) (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleMaybe",">>-") [Comb FuncCall ("OraclePrettyFlat","toList") [Var 32,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude","Just") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude",":") [Var 30]],Var 36],Var 37]])),Branch (Pattern ("Prelude",":") [34,35]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_11") 3 Private (TVar (-42)) (Rule [5,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_10") [Var 5,Var 24,Var 25,Comb FuncCall ("OraclePrelude","==") [Var 24,Lit (Charc ']'),Var 1],Var 26]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_10") 5 Private (TVar (-42)) (Rule [5,24,25,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 26) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_9") [Var 5,Var 25,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_9") 3 Private (TVar (-42)) (Rule [5,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 25) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_8") [Var 5,Var 1]]),Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_8") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_62") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Comb") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_61") [Var 4,Var 5,Var 3,Var 1]]),Branch (Pattern ("FlatCurry","Var") [59]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Lit") [60]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Let") [61,62]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Free") [63,64]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Or") [65,66]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Case") [67,68,69]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_61") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("FlatCurry","ConsCall") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_60") [Var 5,Var 4,Var 1]]),Branch (Pattern ("FlatCurry","FuncCall") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","FuncPartCall") [57]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","ConsPartCall") [58]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_60") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_59") [Var 5,Var 7,Var 6,Var 1]])]])),Func ("OraclePrettyFlat","_case_59") 4 Private (TVar (-42)) (Rule [5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude",":") [8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_58") [Var 5,Var 7,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 8,Lit (Charc 'P'),Var 1],Var 10]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_58") 6 Private (TVar (-42)) (Rule [5,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_57") [Var 5,Var 7,Var 9,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_57") 4 Private (TVar (-42)) (Rule [5,7,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_56") [Var 5,Var 7,Var 10,Var 11,Comb FuncCall ("OraclePrelude","==") [Var 10,Lit (Charc 'r'),Var 1],Var 12]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_56") 6 Private (TVar (-42)) (Rule [5,7,10,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_55") [Var 5,Var 7,Var 11,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_55") 4 Private (TVar (-42)) (Rule [5,7,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_54") [Var 5,Var 7,Var 12,Var 13,Comb FuncCall ("OraclePrelude","==") [Var 12,Lit (Charc 'e'),Var 1],Var 14]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_54") 6 Private (TVar (-42)) (Rule [5,7,12,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_53") [Var 5,Var 7,Var 13,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_53") 4 Private (TVar (-42)) (Rule [5,7,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_52") [Var 5,Var 7,Var 14,Var 15,Comb FuncCall ("OraclePrelude","==") [Var 14,Lit (Charc 'l'),Var 1],Var 16]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_52") 6 Private (TVar (-42)) (Rule [5,7,14,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_51") [Var 5,Var 7,Var 15,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_51") 4 Private (TVar (-42)) (Rule [5,7,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_50") [Var 5,Var 7,Var 16,Var 17,Comb FuncCall ("OraclePrelude","==") [Var 16,Lit (Charc 'u'),Var 1],Var 18]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_50") 6 Private (TVar (-42)) (Rule [5,7,16,17,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 18) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_49") [Var 5,Var 7,Var 17,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_49") 4 Private (TVar (-42)) (Rule [5,7,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_48") [Var 5,Var 7,Var 18,Var 19,Comb FuncCall ("OraclePrelude","==") [Var 18,Lit (Charc 'd'),Var 1],Var 20]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_48") 6 Private (TVar (-42)) (Rule [5,7,18,19,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 20) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_47") [Var 5,Var 7,Var 19,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_47") 4 Private (TVar (-42)) (Rule [5,7,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_46") [Var 5,Var 7,Var 20,Var 21,Comb FuncCall ("OraclePrelude","==") [Var 20,Lit (Charc 'e'),Var 1],Var 22]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_46") 6 Private (TVar (-42)) (Rule [5,7,20,21,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 22) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_45") [Var 5,Var 7,Var 21,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_45") 4 Private (TVar (-42)) (Rule [5,7,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 21) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_44") [Var 5,Var 7,Var 1]]),Branch (Pattern ("Prelude",":") [55,56]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_44") 3 Private (TVar (-42)) (Rule [5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude",":") [22,23]) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_43") [Var 5,Var 22,Var 23,Comb FuncCall ("OraclePrelude","==") [Var 22,Lit (Charc '['),Var 1],Var 24]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_43") 5 Private (TVar (-42)) (Rule [5,22,23,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 24) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_42") [Var 5,Var 23,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_38") [Var 5,Var 22,Var 23,Comb FuncCall ("OraclePrelude","==") [Var 22,Lit (Charc ':'),Var 1],Var 25]]))]])),Func ("OraclePrettyFlat","_case_38") 5 Private (TVar (-42)) (Rule [5,22,23,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 24) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_37") [Var 5,Var 23,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_37") 3 Private (TVar (-42)) (Rule [5,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_36") [Var 5,Var 1]]),Branch (Pattern ("Prelude",":") [53,54]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_36") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude",":") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_35") [Var 31,Var 30,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_35") 3 Private (TVar (-42)) (Rule [31,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 30) [Branch (Pattern ("FlatCurry","Lit") [32]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_34") [Var 31,Var 32,Var 1]]),Branch (Pattern ("FlatCurry","Var") [40]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Comb") [41,42,43]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Let") [44,45]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Free") [46,47]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Or") [48,49]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Case") [50,51,52]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_34") 3 Private (TVar (-42)) (Rule [31,32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 32) [Branch (Pattern ("FlatCurry","Charc") [33]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_33") [Var 33,Var 31,Var 1]]),Branch (Pattern ("FlatCurry","Intc") [38]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Floatc") [39]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_33") 3 Private (TVar (-42)) (Rule [33,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 31) [Branch (Pattern ("Prelude",":") [34,35]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_32") [Var 33,Var 34,Var 35,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_32") 4 Private (TVar (-42)) (Rule [33,34,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 35) [Branch (Pattern ("Prelude","[]") []) (Let [(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleMaybe",">>-") [Comb FuncCall ("OraclePrettyFlat","toString") [Var 34,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude","Just") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [Comb FuncCall ("OraclePrettyFlat","quoteChar") [Var 33,Var 38]]],Var 39],Var 40]])),Branch (Pattern ("Prelude",":") [36,37]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_42") 3 Private (TVar (-42)) (Rule [5,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_41") [Var 5,Var 24,Var 25,Comb FuncCall ("OraclePrelude","==") [Var 24,Lit (Charc ']'),Var 1],Var 26]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_41") 5 Private (TVar (-42)) (Rule [5,24,25,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 26) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_40") [Var 5,Var 25,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_40") 3 Private (TVar (-42)) (Rule [5,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 25) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_39") [Var 5,Var 1]]),Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_39") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_63") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Intc") [3]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","literal") [Var 1],Comb FuncCall ("OraclePretty","int") [Var 3,Var 6],Var 7]])),Branch (Pattern ("FlatCurry","Floatc") [4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","literal") [Var 1],Comb FuncCall ("OraclePretty","float") [Var 4,Var 8],Var 9]])),Branch (Pattern ("FlatCurry","Charc") [5]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","literal") [Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","squotes") [Var 10],Comb FuncCall ("OraclePretty","text") [Comb FuncCall ("OraclePrettyFlat","quoteChar") [Var 5,Var 11],Var 12],Var 13],Var 14]]))]])),Func ("OraclePrettyFlat","_case_64") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 7],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","varDoc") [Var 8],Var 5,Var 9],Var 10],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 11],Comb FuncCall ("OraclePretty","equals") [Var 12],Var 13],Var 14],Var 15],Comb FuncCall ("OraclePrettyFlat","expDoc") [Var 2,Lit (Intc 0),Var 3,Comb ConsCall ("Prelude","False") [],Var 6,Var 16],Var 17]]))]])),Func ("OraclePrettyFlat","_case_69") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Pattern") [4,5]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_68") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","null") [Var 5,Var 1],Var 7]])),Branch (Pattern ("FlatCurry","LPattern") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","litDoc") [Var 6,Var 1]])]])),Func ("OraclePrettyFlat","_case_68") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","qname") [Var 2,Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_67") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrettyFlat","isTupleName") [Var 4,Var 1],Var 7]]))]])),Func ("OraclePrettyFlat","_case_67") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","tupled") [Var 1],Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OraclePrettyFlat","varDoc") [Var 7],Var 5,Var 8],Var 9]])),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrettyFlat","_case_66") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrettyFlat","isInfixName") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","length") [Var 5,Var 10],Lit (Intc 2),Var 11],Var 12],Var 13]]))]])),Func ("OraclePrettyFlat","_case_66") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","varDoc") [Var 1],Comb FuncCall ("OraclePrelude","!!") [Var 5,Lit (Intc 0),Var 7],Var 8],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 9],Comb FuncCall ("OraclePretty","text") [Comb FuncCall ("OraclePrelude","snd") [Var 4,Var 10],Var 11],Var 12],Var 13],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","varDoc") [Var 14],Comb FuncCall ("OraclePrelude","!!") [Var 5,Lit (Intc 1),Var 15],Var 16],Var 17]])),Branch (Pattern ("Prelude","False") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_65") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 18]]))]])),Func ("OraclePrettyFlat","_case_65") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 1],Comb FuncCall ("OraclePrettyFlat","qname") [Var 2,Var 4,Var 7],Var 8],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","hsep") [Var 9],Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OraclePrettyFlat","varDoc") [Var 10],Var 5,Var 11],Var 12],Var 13]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrettyFlat","_case_70") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Rigid") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","empty") [Var 1]]),Branch (Pattern ("FlatCurry","Flex") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","empty") [Var 1]])]])),Func ("OraclePrettyFlat","_case_71") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","Branch") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrettyFlat","def") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 1],Comb FuncCall ("OraclePrettyFlat","patternDoc") [Var 3,Var 5,Var 7],Var 8],Comb FuncCall ("OraclePrettyFlat","arrow") [Var 9],Var 10],Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","align") [Var 11],Comb FuncCall ("OraclePrettyFlat","expDoc") [Var 2,Lit (Intc 0),Var 3,Comb ConsCall ("Prelude","False") [],Var 6,Var 12],Var 13],Var 14]]))]])),Func ("OraclePrettyFlat","_case_72") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrettyFlat","_case_73") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrettyFlat","_case_80") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("FlatCurry","Var") [7]) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","varDoc") [Var 1],Var 7,Var 26]])),Branch (Pattern ("FlatCurry","Lit") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","litDoc") [Var 8,Var 1]]),Branch (Pattern ("FlatCurry","Comb") [9,10,11]) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Let [(12,Comb FuncCall ("OraclePrettyFlat","_case_74") [Var 5,Var 1])] (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OraclePrettyFlat","expDoc2._#selFP3#lbr") [Var 12,Var 27])] (Let [(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []],Let [(14,Comb FuncCall ("OraclePrettyFlat","expDoc2._#selFP4#rbr") [Var 12,Var 28])] (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []]],Let [(15,Comb FuncCall ("OraclePrettyFlat","_case_75") [Var 2,Var 10,Comb FuncCall ("OraclePrelude","lookup") [Var 10,Var 2,Var 29],Var 30])] (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrettyFlat","_case_79") [Var 2,Var 3,Var 4,Var 5,Var 9,Var 10,Var 11,Var 13,Var 14,Var 15,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 9,Comb ConsCall ("FlatCurry","FuncCall") [],Var 31],Comb FuncCall ("OraclePrelude","==") [Var 10,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrettyFlat","prelude") [Var 32],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","[]") []]]]]]],Var 33],Var 34],Var 35]]))]))]))]))])),Branch (Pattern ("FlatCurry","Let") [17,18]) (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(44,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(45,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(46,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(47,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(48,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(49,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(50,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(51,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(52,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(53,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude",":") [Var 44,Comb ConsCall ("Prelude",":") [Var 45,Comb ConsCall ("Prelude",":") [Var 46,Comb ConsCall ("Prelude",":") [Var 47,Comb ConsCall ("Prelude",":") [Var 48,Comb ConsCall ("Prelude",":") [Var 49,Comb ConsCall ("Prelude",":") [Var 50,Comb ConsCall ("Prelude",":") [Var 51,Comb ConsCall ("Prelude",":") [Var 52,Comb ConsCall ("Prelude",":") [Var 53,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePrettyFlat","par") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","hang") [Lit (Intc 1)]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 36],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<$>") [Var 37],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 38],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 39],Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude","[]") []]]],Var 40],Var 41],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","letBindsDoc") [Var 2,Var 4,Var 42],Var 17,Var 43],Var 44],Var 45],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 46],Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude","[]") []]],Var 47],Var 48],Var 49],Comb FuncCall ("OraclePrettyFlat","expDoc") [Var 2,Lit (Intc 0),Var 4,Comb ConsCall ("Prelude","False") [],Var 18,Var 50],Var 51],Var 52],Var 53]])),Branch (Pattern ("FlatCurry","Free") [19,20]) (Let [(54,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(55,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(56,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(57,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(58,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(59,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(60,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(61,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(62,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(63,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(64,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(65,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(66,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(67,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(68,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(69,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(70,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(71,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(72,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(73,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(74,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(75,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(76,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(77,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(78,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(79,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(80,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(81,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(82,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 54,Comb ConsCall ("Prelude",":") [Var 55,Comb ConsCall ("Prelude",":") [Var 56,Comb ConsCall ("Prelude",":") [Var 57,Comb ConsCall ("Prelude",":") [Var 58,Comb ConsCall ("Prelude",":") [Var 59,Comb ConsCall ("Prelude",":") [Var 60,Comb ConsCall ("Prelude",":") [Var 61,Comb ConsCall ("Prelude",":") [Var 62,Comb ConsCall ("Prelude",":") [Var 63,Comb ConsCall ("Prelude",":") [Var 64,Comb ConsCall ("Prelude",":") [Var 65,Comb ConsCall ("Prelude",":") [Var 66,Comb ConsCall ("Prelude",":") [Var 67,Comb ConsCall ("Prelude",":") [Var 68,Comb ConsCall ("Prelude",":") [Var 69,Comb ConsCall ("Prelude",":") [Var 70,Comb ConsCall ("Prelude",":") [Var 71,Comb ConsCall ("Prelude",":") [Var 72,Comb ConsCall ("Prelude",":") [Var 73,Comb ConsCall ("Prelude",":") [Var 74,Comb ConsCall ("Prelude",":") [Var 75,Comb ConsCall ("Prelude",":") [Var 76,Comb ConsCall ("Prelude",":") [Var 77,Comb ConsCall ("Prelude",":") [Var 78,Comb ConsCall ("Prelude",":") [Var 79,Comb ConsCall ("Prelude",":") [Var 80,Comb ConsCall ("Prelude",":") [Var 81,Comb ConsCall ("Prelude",":") [Var 82,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePrettyFlat","par") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","hang") [Lit (Intc 1)]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 54],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<$>") [Var 55],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 56],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 57],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 58],Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude","[]") []]]],Var 59],Var 60],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","align") [Var 61],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","fillSep") [Var 62],Comb FuncCall ("OraclePretty","punctuate") [Comb FuncCall ("OraclePretty","comma") [Var 63],Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OraclePrettyFlat","varDoc") [Var 64],Var 19,Var 65],Var 66],Var 67],Var 68],Var 69],Var 70],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 71],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","[]") []]]]],Var 72],Var 73],Var 74],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 75],Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude","[]") []]],Var 76],Var 77],Var 78],Comb FuncCall ("OraclePrettyFlat","expDoc") [Var 2,Lit (Intc 0),Var 4,Comb ConsCall ("Prelude","False") [],Var 20,Var 79],Var 80],Var 81],Var 82]])),Branch (Pattern ("FlatCurry","Or") [21,22]) (Let [(83,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 83,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","expDoc") [Var 2,Lit (Intc 0),Var 4,Var 5,Comb ConsCall ("FlatCurry","Comb") [Comb ConsCall ("FlatCurry","FuncCall") [],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrettyFlat","prelude") [Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '?'),Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]],Var 83]])),Branch (Pattern ("FlatCurry","Case") [23,24,25]) (Let [(84,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(85,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(86,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(87,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(88,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(89,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(90,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(91,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(92,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(93,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(94,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(95,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(96,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(97,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(98,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(99,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(100,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(101,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(102,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(103,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(104,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(105,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(106,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 84,Comb ConsCall ("Prelude",":") [Var 85,Comb ConsCall ("Prelude",":") [Var 86,Comb ConsCall ("Prelude",":") [Var 87,Comb ConsCall ("Prelude",":") [Var 88,Comb ConsCall ("Prelude",":") [Var 89,Comb ConsCall ("Prelude",":") [Var 90,Comb ConsCall ("Prelude",":") [Var 91,Comb ConsCall ("Prelude",":") [Var 92,Comb ConsCall ("Prelude",":") [Var 93,Comb ConsCall ("Prelude",":") [Var 94,Comb ConsCall ("Prelude",":") [Var 95,Comb ConsCall ("Prelude",":") [Var 96,Comb ConsCall ("Prelude",":") [Var 97,Comb ConsCall ("Prelude",":") [Var 98,Comb ConsCall ("Prelude",":") [Var 99,Comb ConsCall ("Prelude",":") [Var 100,Comb ConsCall ("Prelude",":") [Var 101,Comb ConsCall ("Prelude",":") [Var 102,Comb ConsCall ("Prelude",":") [Var 103,Comb ConsCall ("Prelude",":") [Var 104,Comb ConsCall ("Prelude",":") [Var 105,Comb ConsCall ("Prelude",":") [Var 106,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePrettyFlat","par") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","hang") [Lit (Intc 1)]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<$>") [Var 84],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 85],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 86],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePrettyFlat","caseTypeDoc") [Var 23,Var 87],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 88],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","[]") []]]]],Var 89],Var 90],Var 91],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","align") [Var 92],Comb FuncCall ("OraclePrettyFlat","expDoc") [Var 2,Lit (Intc 0),Var 4,Comb ConsCall ("Prelude","False") [],Var 24,Var 93],Var 94],Var 95],Var 96],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 97],Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude","[]") []]],Var 98],Var 99],Var 100],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","layout") [Var 101],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","branchDoc") [Var 2,Var 4]],Var 25,Var 102],Var 103],Var 104],Var 105],Var 106]]))]])),Func ("OraclePrettyFlat","_case_74") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePretty","lparen") [Var 1],Comb FuncCall ("OraclePretty","rparen") [Var 6]]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePretty","empty") [Var 1],Comb FuncCall ("OraclePretty","empty") [Var 7]]]))]])),Func ("OraclePrettyFlat","_case_75") 4 Private (TVar (-42)) (Rule [2,10,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","Just") [16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 16]),Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)])]])),Func ("OraclePrettyFlat","_case_79") 12 Private (TVar (-42)) (Rule [2,3,4,5,9,10,11,13,14,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude","True") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePrettyFlat","par") [Var 5,Var 1],Comb FuncCall ("OraclePrettyFlat","app") [Comb FuncCall ("OraclePrettyFlat","expDoc") [Var 2,Lit (Intc 0),Var 4,Comb ConsCall ("Prelude","True") [],Comb FuncCall ("OraclePrelude","!!") [Var 11,Lit (Intc 0),Var 17],Var 18],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrettyFlat","expDoc") [Var 2,Lit (Intc 0),Var 4,Comb ConsCall ("Prelude","True") [],Comb FuncCall ("OraclePrelude","!!") [Var 11,Lit (Intc 1),Var 19],Var 20],Comb ConsCall ("Prelude","[]") []],Var 21],Var 22]])),Branch (Pattern ("Prelude","False") []) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrettyFlat","_case_78") [Var 2,Var 3,Var 4,Var 5,Var 9,Var 10,Var 11,Var 13,Var 14,Var 15,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 9,Comb ConsCall ("FlatCurry","ConsCall") [],Var 1],Comb FuncCall ("OraclePrettyFlat","isTupleName") [Var 10,Var 23],Var 24],Var 25]]))]])),Func ("OraclePrettyFlat","_case_78") 12 Private (TVar (-42)) (Rule [2,3,4,5,9,10,11,13,14,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude","True") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","tupled") [Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","expDoc") [Var 2,Lit (Intc 0),Var 4,Comb ConsCall ("Prelude","False") []]],Var 11,Var 17],Var 18]])),Branch (Pattern ("Prelude","False") []) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrettyFlat","_case_77") [Var 2,Var 3,Var 4,Var 5,Var 10,Var 11,Var 13,Var 14,Var 15,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrettyFlat","isInfixName") [Var 10,Var 1],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","length") [Var 11,Var 19],Lit (Intc 2),Var 20],Var 21],Var 22]]))]])),Func ("OraclePrettyFlat","_case_77") 11 Private (TVar (-42)) (Rule [2,3,4,5,10,11,13,14,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude","True") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePretty","align") [Var 1],Comb FuncCall ("OraclePrettyFlat","precFillEncloseSep") [Var 15,Var 3,Var 13,Var 14,Comb FuncCall ("OraclePretty","empty") [Var 17],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrettyFlat","expDoc") [Var 2,Var 15,Var 4,Comb ConsCall ("Prelude","True") [],Comb FuncCall ("OraclePrelude","!!") [Var 11,Lit (Intc 0),Var 18],Var 19],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePretty","space") [Var 20],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 21],Comb FuncCall ("OraclePretty","text") [Comb FuncCall ("OraclePrelude","snd") [Var 10,Var 22],Var 23],Var 24],Var 25],Comb FuncCall ("OraclePretty","space") [Var 26],Var 27],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrettyFlat","expDoc") [Var 2,Var 15,Var 4,Comb ConsCall ("Prelude","True") [],Comb FuncCall ("OraclePrelude","!!") [Var 11,Lit (Intc 1),Var 28],Var 29],Comb ConsCall ("Prelude","[]") []]]],Var 30],Var 31]])),Branch (Pattern ("Prelude","False") []) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_76") [Var 2,Var 4,Var 5,Var 10,Var 11,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 32]]))]])),Func ("OraclePrettyFlat","_case_76") 7 Private (TVar (-42)) (Rule [2,4,5,10,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePrettyFlat","par") [Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("OraclePrelude","null") [Var 11,Var 1],Var 13],Var 5,Var 14],Var 15],Comb FuncCall ("OraclePrettyFlat","app") [Comb FuncCall ("OraclePrettyFlat","qname") [Var 4,Var 10,Var 16],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","expDoc") [Var 2,Lit (Intc 0),Var 4,Comb ConsCall ("Prelude","True") []]],Var 11,Var 17],Var 18],Var 19]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrettyFlat","_case_81") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","consname") [Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]],Var 4]])),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","literal") [Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","dquotes") [Var 5],Comb FuncCall ("OraclePretty","text") [Var 2,Var 6],Var 7],Var 8]]))]])),Func ("OraclePrettyFlat","_case_82") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FlatCurry","Rule") [6,7]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrettyFlat","def") [Comb FuncCall ("OraclePrettyFlat","qname") [Var 3,Var 4,Var 1],Var 6,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 9],Comb FuncCall ("OraclePretty","equals") [Var 10],Var 11],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","align") [Var 12],Comb FuncCall ("OraclePrettyFlat","expDoc") [Var 2,Lit (Intc 0),Var 3,Comb ConsCall ("Prelude","False") [],Var 7,Var 13],Var 14],Var 15],Var 16]])),Branch (Pattern ("FlatCurry","External") [8]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 1],Comb FuncCall ("OraclePrettyFlat","qname") [Var 3,Var 4,Var 17],Var 18],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 19],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","[]") []]]]]]]]],Var 20],Var 21]]))]])),Func ("OraclePrettyFlat","_case_83") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","Func") [5,6,7,8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<$>") [Var 1],Comb FuncCall ("OraclePrettyFlat","funcTypeDeclDoc") [Var 3,Var 5,Var 8,Var 10],Var 11],Comb FuncCall ("OraclePrettyFlat","ruleDoc") [Var 2,Var 3,Var 5,Var 9,Var 12],Var 13]]))]])),Func ("OraclePrettyFlat","_case_84") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","parens") [Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]])]])),Func ("OraclePrettyFlat","_case_89") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","TVar") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","tvarDoc") [Var 5,Var 1]]),Branch (Pattern ("FlatCurry","TCons") [6,7]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_88") [Var 2,Var 3,Var 6,Var 7,Comb FuncCall ("OraclePrelude","null") [Var 7,Var 1],Var 10]])),Branch (Pattern ("FlatCurry","FuncType") [8,9]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePrettyFlat","par") [Var 3,Var 1],Comb FuncCall ("OraclePretty","fillEncloseSep") [Comb FuncCall ("OraclePretty","empty") [Var 11],Comb FuncCall ("OraclePretty","empty") [Var 12],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePretty","space") [Var 13],Comb FuncCall ("OraclePrettyFlat","arrow") [Var 14],Var 15],Comb FuncCall ("OraclePretty","space") [Var 16],Var 17],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","typeExprDoc") [Var 2,Comb ConsCall ("Prelude","True") []]],Comb FuncCall ("OracleFlatCurryGoodies","argTypes") [Var 4,Var 18],Var 19],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrettyFlat","typeExprDoc") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OracleFlatCurryGoodies","resultType") [Var 4,Var 20],Var 21],Comb ConsCall ("Prelude","[]") []],Var 22],Var 23],Var 24]]))]])),Func ("OraclePrettyFlat","_case_88") 6 Private (TVar (-42)) (Rule [2,3,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","qname") [Var 2,Var 6,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrettyFlat","_case_87") [Var 2,Var 3,Var 6,Var 7,Comb FuncCall ("OraclePrelude","==") [Var 6,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrettyFlat","prelude") [Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]]],Var 9],Var 10]]))]])),Func ("OraclePrettyFlat","_case_87") 6 Private (TVar (-42)) (Rule [2,3,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","brackets") [Var 1],Comb FuncCall ("OraclePrettyFlat","typeExprDoc") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","head") [Var 7,Var 9],Var 10],Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_86") [Var 2,Var 3,Var 6,Var 7,Comb FuncCall ("OraclePrettyFlat","isTupleName") [Var 6,Var 1],Var 12]]))]])),Func ("OraclePrettyFlat","_case_86") 6 Private (TVar (-42)) (Rule [2,3,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","tupled") [Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","typeExprDoc") [Var 2,Comb ConsCall ("Prelude","False") []]],Var 7,Var 9],Var 10]])),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_85") [Var 2,Var 3,Var 6,Var 7,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 11]]))]])),Func ("OraclePrettyFlat","_case_85") 6 Private (TVar (-42)) (Rule [2,3,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePrettyFlat","par") [Var 3,Var 1],Comb FuncCall ("OraclePrettyFlat","app") [Comb FuncCall ("OraclePrettyFlat","qname") [Var 2,Var 6,Var 9],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","typeExprDoc") [Var 2,Comb ConsCall ("Prelude","True") []]],Var 7,Var 10],Var 11],Var 12]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrettyFlat","_case_90") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Cons") [4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrettyFlat","app") [Comb FuncCall ("OraclePrettyFlat","qname") [Var 2,Var 4,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","typeExprDoc") [Var 2,Comb ConsCall ("Prelude","True") []]],Var 7,Var 8],Var 9]]))]])),Func ("OraclePrettyFlat","_case_92") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePretty","text") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'x'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],Var 4],Var 5]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_91") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 6]]))]])),Func ("OraclePrettyFlat","_case_91") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePretty","text") [Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Lit (Intc 97),Var 2,Var 1],Var 4],Comb ConsCall ("Prelude","[]") []],Var 5]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrettyFlat","_case_93") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Type") [4,5,6,7]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrettyFlat","def") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 12],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","[]") []]]]],Var 13],Var 14],Comb FuncCall ("OraclePrettyFlat","qname") [Var 2,Var 4,Var 15],Var 16],Var 6,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","consDeclsDoc") [Var 2,Var 17],Var 7,Var 18],Var 19]])),Branch (Pattern ("FlatCurry","TypeSyn") [8,9,10,11]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]],Comb FuncCall ("OraclePrettyFlat","def") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 20],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","[]") []]]]],Var 21],Var 22],Comb FuncCall ("OraclePrettyFlat","qname") [Var 2,Var 8,Var 23],Var 24],Var 10,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 25],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 26],Comb FuncCall ("OraclePretty","equals") [Var 27],Var 28],Var 29],Comb FuncCall ("OraclePrettyFlat","typeExprDoc") [Var 2,Comb ConsCall ("Prelude","False") [],Var 11,Var 30],Var 31],Var 32]]))]])),Func ("OraclePrettyFlat","_case_94") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","InfixOp") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","empty") [Var 1]]),Branch (Pattern ("FlatCurry","InfixlOp") []) (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude","[]") []],Var 3]])),Branch (Pattern ("FlatCurry","InfixrOp") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude","[]") []],Var 4]]))]])),Func ("OraclePrettyFlat","_case_97") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Op") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_96") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OraclePrettyFlat","_case_96") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [6,7]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Let [(8,Comb FuncCall ("OraclePrettyFlat","_case_95") [Var 3,Var 7,Comb FuncCall ("OraclePrettyFlat","isInfixName") [Var 3,Var 1],Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 10],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 11],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 12],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","[]") []]]]]],Var 13],Comb FuncCall ("OraclePrettyFlat","opDoc.fixDoc.114") [Var 4,Var 14],Var 15],Var 16],Comb FuncCall ("OraclePretty","int") [Var 5,Var 17],Var 18],Var 19],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 20],Comb FuncCall ("OraclePretty","text") [Var 8,Var 21],Var 22],Var 23]]))]))]])),Func ("OraclePrettyFlat","_case_95") 4 Private (TVar (-42)) (Rule [3,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '`'),Comb FuncCall ("OraclePrelude","++") [Var 7,Comb ConsCall ("Prelude",":") [Lit (Charc '`'),Comb ConsCall ("Prelude","[]") []],Var 1]]])]])),Func ("OraclePrettyFlat","_case_98") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","empty") [Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","text") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []]]]],Var 1]])]])),Func ("OraclePrettyFlat","_case_99") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Prog") [4,5,6,7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","exportedNames.typeExpDoc.89") [Var 2]],Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","==") [Comb ConsCall ("FlatCurry","Public") []]],Comb FuncCall ("OracleFlatCurryGoodies","typeVisibility") [Var 1],Var 9],Var 6,Var 10],Var 11],Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","qname") [Var 2]],Comb FuncCall ("OracleFlatCurryGoodies","funcName") [Var 12],Var 13],Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","==") [Comb ConsCall ("FlatCurry","Public") []]],Comb FuncCall ("OracleFlatCurryGoodies","funcVisibility") [Var 14],Var 15],Var 7,Var 16],Var 17],Var 18]]))]])),Func ("OraclePrettyFlat","_case_100") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Op") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 3,Var 5]])]])),Func ("OraclePrettyFlat","_case_101") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Prog") [3,4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]],Comb FuncCall ("OraclePrettyFlat","<$>>") [Comb FuncCall ("OraclePrettyFlat","<$>>") [Comb FuncCall ("OraclePrettyFlat","<$>>") [Comb FuncCall ("OraclePrettyFlat","<$>>") [Comb FuncCall ("OraclePrettyFlat","moduleHeaderDoc") [Var 3,Comb FuncCall ("OraclePrettyFlat","exportedNames") [Var 3,Var 2,Var 1],Var 8],Comb FuncCall ("OraclePrettyFlat","impsDoc") [Var 4,Var 9],Var 10],Comb FuncCall ("OraclePrettyFlat","opsDoc") [Var 7,Var 11],Var 12],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","typesDoc") [Var 3,Var 13],Var 5,Var 14],Var 15],Comb FuncCall ("OraclePrettyFlat","funcsDoc") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","precs") [Var 16],Var 7,Var 17],Var 3,Var 6,Var 18],Var 19]]))]])),Func ("OraclePrettyFlat","_case_103") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_102") [Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc '_'),Var 1],Var 6]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrettyFlat","_case_102") 5 Private (TVar (-42)) (Rule [3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrettyFlat","_case_105") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_104") [Var 3,Var 4,Comb FuncCall ("OracleChar","isUpper") [Var 3,Var 1],Var 5]]))]])),Func ("OraclePrettyFlat","_case_104") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","consname") [Var 1],Comb ConsCall ("Prelude",":") [Var 3,Var 4],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","text") [Comb ConsCall ("Prelude",":") [Var 3,Var 4],Var 1]])]])),Func ("OraclePrettyFlat","_case_111") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrettyFlat","_case_110") [Var 2,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 3,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrettyFlat","prelude") [Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]]],Var 6],Comb FuncCall ("OraclePrettyFlat","isTupleName") [Var 3,Var 7],Var 8],Var 9]]))]])),Func ("OraclePrettyFlat","_case_110") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 1],Comb FuncCall ("OraclePretty","text") [Var 5,Var 7],Var 8]])),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_109") [Var 2,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrettyFlat","isInfixName") [Var 3,Var 1],Var 9]]))]])),Func ("OraclePrettyFlat","_case_109") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_108") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Var 2,Var 1],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_107") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 8]]))]])),Func ("OraclePrettyFlat","_case_107") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_106") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Var 2,Var 1],Var 7]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrettyFlat","_case_106") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","qname.txt.65") [Comb FuncCall ("OraclePrettyFlat","correctName") [Var 5,Var 1],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","consname") [Var 1],Var 4,Var 8],Comb FuncCall ("OraclePretty","dot") [Var 9],Var 10],Comb FuncCall ("OraclePrettyFlat","qname.txt.65") [Var 5,Var 11],Var 12]]))]])),Func ("OraclePrettyFlat","_case_108") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","parens") [Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 7],Comb FuncCall ("OraclePretty","text") [Var 5,Var 8],Var 9],Var 10]])),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","parens") [Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 11],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","consname") [Var 12],Var 4,Var 13],Comb FuncCall ("OraclePretty","dot") [Var 14],Var 15],Comb FuncCall ("OraclePrettyFlat","qname.txt.65") [Var 5,Var 16],Var 17],Var 18],Var 19]]))]])),Func ("OraclePrettyFlat","_case_112") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","block") [Var 1],Comb FuncCall ("OraclePretty","fillEncloseSep") [Comb FuncCall ("OraclePretty","empty") [Var 5],Comb FuncCall ("OraclePretty","empty") [Var 6],Comb FuncCall ("OraclePretty","space") [Var 7],Comb ConsCall ("Prelude",":") [Var 2,Var 3],Var 8],Var 9]]))]])),Func ("OraclePrettyFlat","_case_113") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","empty") [Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePretty","space") [Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","align") [Var 5],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","fillSep") [Var 6],Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OraclePrettyFlat","varDoc") [Var 7],Var 3,Var 8],Var 9],Var 10],Var 11]]))]])),Func ("OraclePrettyFlat","_case_114") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 3,Comb FuncCall ("OraclePrettyFlat","prelude") [Var 1],Var 5],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Comb FuncCall ("OraclePrelude","take") [Lit (Intc 2),Var 4,Var 6],Var 7],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","[]") []]],Var 8],Var 9]]))]])),Func ("OraclePrettyFlat","_case_115") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","all") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","elem") []],Comb FuncCall ("OraclePrettyFlat","infixIDs") [Var 1]]],Var 5],Var 4,Var 6]]))]])),Func ("OraclePrettyFlat","_case_117") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","empty") [Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_116") [Var 4,Comb ConsCall ("Prelude","True") [],Var 1]])]])),Func ("OraclePrettyFlat","_case_116") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]]))] []
+ Curry/Module/OraclePrettyFlat.fint view
@@ -0,0 +1,1 @@+Prog "OraclePrettyFlat" ["CEventOracle","Oracle","IOExts","PrettyFlat","Char","FlatCurry","FlatCurryGoodies","Maybe","Prelude","Pretty","StyledText","System","OracleChar","OracleFlatCurry","OracleFlatCurryGoodies","OracleMaybe","OraclePrelude","OraclePretty","OracleStyledText","OracleSystem"] [] [Func ("OraclePrettyFlat","prelude") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [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","[]") []]]]]]]]])),Func ("OraclePrettyFlat","arrow") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 1],Comb FuncCall ("OraclePretty","text") [Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude",":") [Lit (Charc '>'),Comb ConsCall ("Prelude","[]") []]],Var 2],Var 3]]))),Func ("OraclePrettyFlat","bar") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 1],Comb FuncCall ("OraclePretty","char") [Lit (Charc '|'),Var 2],Var 3]]))),Func ("OraclePrettyFlat","dcolon") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 1],Comb FuncCall ("OraclePretty","text") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []]],Var 2],Var 3]]))),Func ("OraclePrettyFlat","precFillEncloseSep") 7 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))))))) (Rule [2,3,4,5,6,7,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePretty","fillEncloseSep") [Comb FuncCall ("OraclePrettyFlat","precFillEncloseSep.pre.11") [Var 2,Var 3,Var 4,Var 1],Comb FuncCall ("OraclePrettyFlat","precFillEncloseSep.pre.11") [Var 2,Var 3,Var 5,Var 8],Var 6,Var 7,Var 9]]))),Func ("OraclePrettyFlat","precFillEncloseSep.pre.11") 4 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_117") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","<") [Var 2,Var 3,Var 1],Var 5]]))),Func ("OraclePrettyFlat","isInfixName") 2 Public (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_115") [Var 2,Var 1]])),Func ("OraclePrettyFlat","infixIDs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 ("OraclePrettyFlat","isTupleName") 2 Public (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_114") [Var 2,Var 1]])),Func ("OraclePrettyFlat","showStyledProg") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","prettyProg") [Lit (Intc 78),Var 1]])),Func ("OraclePrettyFlat","prettyProg") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","pretty") [Var 2]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","progDoc") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","updProgExps") [Var 1],Comb FuncCall ("OraclePrettyFlat","elimApp") [Var 3],Var 4],Var 5],Var 6]]))),Func ("OraclePrettyFlat","prettyTypeExpr") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","pretty") [Lit (Intc 78)]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","typeExprDoc") [Var 2,Comb ConsCall ("Prelude","False") []]],Var 1]])),Func ("OraclePrettyFlat","prettyTypes") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","pretty") [Lit (Intc 78)]],Comb FuncCall ("OraclePrettyFlat","typesDoc") [Var 2,Var 1],Var 3]]))),Func ("OraclePrettyFlat","prettyOps") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","pretty") [Lit (Intc 78)]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","opsDoc") []],Var 1]])),Func ("OraclePrettyFlat","showProg") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Prog") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleStyledText","plainText") [Var 1],Comb FuncCall ("OraclePrettyFlat","showStyledProg") [Var 2],Var 3]]))),Func ("OraclePrettyFlat","printStyledProg") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFlatCurry","readFlatCurry") [Var 2,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleStyledText","printStyledText") [Var 3],Comb FuncCall ("OraclePrettyFlat","showStyledProg") [Var 4],Var 5],Var 6]]))),Func ("OraclePrettyFlat","mainPrint") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleSystem","getArgs") [Var 1],Comb FuncCall ("OraclePrelude","mapIO_") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","printProg") []],Var 2],Var 3]]))),Func ("OraclePrettyFlat","printProg") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleFlatCurry","readFlatCurryFile") [Var 2,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","putStrLn") []],Comb FuncCall ("OraclePrettyFlat","showProg") [Var 3],Var 4],Var 5]]))),Func ("OraclePrettyFlat","keyword") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleStyledText","magentaDoc") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","text") []],Var 2]]))),Func ("OraclePrettyFlat","consname") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleStyledText","greenDoc") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","text") []],Var 2]]))),Func ("OraclePrettyFlat","operator") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleStyledText","blueDoc") [Var 1]])),Func ("OraclePrettyFlat","literal") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleStyledText","cyanDoc") [Var 1]])),Func ("OraclePrettyFlat","marked") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OracleStyledText","bgYellowDoc") [Var 1],Comb FuncCall ("OracleStyledText","boldDoc") [Var 2],Var 3]]))),Func ("OraclePrettyFlat","block") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","group") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","hang") [Lit (Intc 1)]],Var 1]])),Func ("OraclePrettyFlat","def") 4 Public (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Let [(5,Comb FuncCall ("OraclePrettyFlat","_case_113") [Var 3,Comb FuncCall ("OraclePrelude","null") [Var 3,Var 1],Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","block") [Var 7],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<$>") [Var 8],Comb FuncCall ("OraclePretty","<>") [Var 2,Var 5,Var 9],Var 10],Var 4,Var 11],Var 12]]))]))),Func ("OraclePrettyFlat","app") 3 Public (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_112") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","null") [Var 3,Var 1],Var 4]]))),Func ("OraclePrettyFlat","layout") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePretty","align") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","compose") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","combine") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","linesep") [Var 2],Comb ConsCall ("Prelude",":") [Lit (Charc ';'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Var 3]]]]],Var 4]]))),Func ("OraclePrettyFlat","qname") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_111") [Var 2,Var 3,Var 1]])),Func ("OraclePrettyFlat","qname.txt.65") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_105") [Var 2,Var 1]])),Func ("OraclePrettyFlat","correctName") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Let [(3,Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","not") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","elem") []],Comb ConsCall ("Prelude",":") [Lit (Charc '#'),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude","[]") []]]]],Var 1],Var 2,Var 4])] (Comb FuncCall ("CEventOracle","replace") [Var 5,Comb FuncCall ("OraclePrettyFlat","_case_103") [Var 3,Var 5]])]))),Func ("OraclePrettyFlat","<$>>") 3 Public (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("OraclePretty","Doc") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<$>") [Var 1],Var 2,Var 4],Comb FuncCall ("OraclePretty","line") [Var 5],Var 6],Var 3,Var 7]]))),Func ("OraclePrettyFlat","progDoc") 2 Public (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_101") [Var 2,Var 1]])),Func ("OraclePrettyFlat","precs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (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 [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","precs._#lambda3") []]]]])),Func ("OraclePrettyFlat","precs._#lambda3") 2 Private (FuncType (TCons ("FlatCurry","OpDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_100") [Var 2,Var 1]])),Func ("OraclePrettyFlat","exportedNames") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Prog") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_99") [Var 2,Var 3,Var 1]])),Func ("OraclePrettyFlat","exportedNames.typeExpDoc.89") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","TypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Let [(4,Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","==") [Comb ConsCall ("FlatCurry","Public") []]],Comb FuncCall ("OracleFlatCurryGoodies","consVisibility") [Var 1],Var 5],Comb FuncCall ("OracleFlatCurryGoodies","trType") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OraclePrettyFlat","exportedNames.typeExpDoc.89._#lambda4") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []]],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]]]],Comb (FuncPartCall 5) ("OraclePrettyFlat","exportedNames.typeExpDoc.89._#lambda5") []],Var 3,Var 6],Var 7])] (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePrettyFlat","qname") [Var 2,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleFlatCurryGoodies","typeName") [Var 8],Var 3,Var 9],Var 10],Comb FuncCall ("OraclePrettyFlat","_case_98") [Var 4,Comb FuncCall ("OraclePrelude","null") [Var 4,Var 11],Var 12],Var 13]]))]))),Func ("OraclePrettyFlat","exportedNames.typeExpDoc.89._#lambda4") 5 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])),Func ("OraclePrettyFlat","exportedNames.typeExpDoc.89._#lambda5") 5 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 1])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])),Func ("OraclePrettyFlat","moduleHeaderDoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 4],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 5],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 6],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 7],Var 8],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","consname") [Var 9],Var 2,Var 10],Var 11],Var 12],Comb FuncCall ("OraclePrettyFlat","exportsDoc") [Var 3,Var 13],Var 14],Var 15],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 16],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","[]") []]]]]],Var 17],Var 18]]))),Func ("OraclePrettyFlat","exportsDoc") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]],Comb FuncCall ("OraclePretty","group") [Comb FuncCall ("OraclePretty","nest") [Lit (Intc 1),Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<$>") [Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<$>") [Var 3],Comb FuncCall ("OraclePretty","lparen") [Var 4],Var 5],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","align") [Var 6],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","fillSep") [Var 7],Comb FuncCall ("OraclePretty","punctuate") [Comb FuncCall ("OraclePretty","comma") [Var 8],Var 2,Var 9],Var 10],Var 11],Var 12],Var 13],Comb FuncCall ("OraclePretty","rparen") [Var 14],Var 15],Var 16],Var 17]]))),Func ("OraclePrettyFlat","impsDoc") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","vcat") [Var 1],Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 3],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 4],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","[]") []]]]]]],Var 5],Var 6],Comb FuncCall ("OraclePrettyFlat","consname") [Var 7],Var 8],Var 2,Var 9],Var 10]]))),Func ("OraclePrettyFlat","opsDoc") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","OpDecl") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","vcat") [Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","opDoc") []],Var 2,Var 3],Var 4]]))),Func ("OraclePrettyFlat","opDoc") 2 Public (FuncType (TCons ("FlatCurry","OpDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_97") [Var 2,Var 1]])),Func ("OraclePrettyFlat","opDoc.fixDoc.114") 2 Private (FuncType (TCons ("FlatCurry","Fixity") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_94") [Var 2,Var 1]])),Func ("OraclePrettyFlat","typesDoc") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeDecl") []]) (TCons ("OraclePretty","Doc") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePretty","vcat") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","typeDoc") [Var 2]]]],Var 3]]))),Func ("OraclePrettyFlat","typeDoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","TypeDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_93") [Var 2,Var 3,Var 1]])),Func ("OraclePrettyFlat","varDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","text") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude",":") [Lit (Charc 'x')]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","show") []],Var 1],Var 2]]))),Func ("OraclePrettyFlat","tvarDoc") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_92") [Var 2,Comb FuncCall ("OraclePrelude",">") [Var 2,Lit (Intc 25),Var 1],Var 3]]))),Func ("OraclePrettyFlat","consDeclsDoc") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","ConsDecl") []]) (TCons ("OraclePretty","Doc") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","fillEncloseSep") [Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 1],Comb FuncCall ("OraclePretty","equals") [Var 3],Var 4],Comb FuncCall ("OraclePretty","space") [Var 5],Var 6],Comb FuncCall ("OraclePretty","empty") [Var 7],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePrettyFlat","bar") [Var 8],Comb FuncCall ("OraclePretty","space") [Var 9],Var 10]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","<>") []],Comb FuncCall ("OraclePretty","space") [Var 11]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","consDeclDoc") [Var 2]],Var 12]]],Var 13]]))),Func ("OraclePrettyFlat","consDeclDoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","ConsDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_90") [Var 2,Var 3,Var 1]])),Func ("OraclePrettyFlat","typeExprDoc") 4 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_89") [Var 2,Var 3,Var 4,Var 1]])),Func ("OraclePrettyFlat","par") 2 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_84") [Var 2,Var 1]])),Func ("OraclePrettyFlat","funcsDoc") 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 ("FlatCurry","FuncDecl") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","vcat") [Var 1],Comb FuncCall ("OraclePretty","punctuate") [Comb FuncCall ("OraclePretty","line") [Var 5],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","funcDoc") [Var 2,Var 3]],Var 4,Var 6],Var 7],Var 8]]))),Func ("OraclePrettyFlat","funcDoc") 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 ("FlatCurry","FuncDecl") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_83") [Var 2,Var 3,Var 4,Var 1]])),Func ("OraclePrettyFlat","funcTypeDeclDoc") 4 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrettyFlat","def") [Comb FuncCall ("OraclePrettyFlat","qname") [Var 2,Var 3,Var 1],Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("OraclePrettyFlat","funcTypeDoc") [Var 2,Comb FuncCall ("OracleFlatCurryGoodies","argTypes") [Var 4,Var 5],Comb FuncCall ("OracleFlatCurryGoodies","resultType") [Var 4,Var 6],Var 7],Var 8]]))),Func ("OraclePrettyFlat","funcTypeDoc") 4 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","TypeExpr") []]) (FuncType (TCons ("FlatCurry","TypeExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePretty","fillEncloseSep") [Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePrettyFlat","dcolon") [Var 1],Comb FuncCall ("OraclePretty","space") [Var 5],Var 6],Comb FuncCall ("OraclePretty","empty") [Var 7],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePrettyFlat","arrow") [Var 8],Comb FuncCall ("OraclePretty","space") [Var 9],Var 10],Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePretty","<>") []],Comb FuncCall ("OraclePretty","space") [Var 11]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","typeExprDoc") [Var 2,Comb ConsCall ("Prelude","True") []]],Var 12],Comb FuncCall ("OraclePrelude","++") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Var 13],Var 14],Var 15]]))),Func ("OraclePrettyFlat","ruleDoc") 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","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("FlatCurry","Rule") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_82") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OraclePrettyFlat","expDoc") 6 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("OraclePrettyFlat","expDoc2") [Var 2,Lit (Intc 0),Var 4,Var 5,Var 6,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","expDoc._#lambda6") [Var 4,Var 2]],Comb FuncCall ("OraclePrettyFlat","toList") [Var 6,Var 7],Var 8],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","expDoc._#lambda7") []],Comb FuncCall ("OraclePrettyFlat","toString") [Var 6,Var 9],Var 10]]))),Func ("OraclePrettyFlat","expDoc._#lambda6") 4 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") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","list") [Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","expDoc") [Var 3,Lit (Intc 0),Var 2,Comb ConsCall ("Prelude","False") []]],Var 4,Var 5],Var 6]]))),Func ("OraclePrettyFlat","expDoc._#lambda7") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_81") [Var 2,Comb FuncCall ("OraclePrelude","null") [Var 2,Var 1],Var 3]]))),Func ("OraclePrettyFlat","expDoc2") 6 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") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))))) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_80") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 1]])),Func ("OraclePrettyFlat","expDoc2._#selFP3#lbr") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OraclePretty","Doc") [],TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_73") [Var 2,Var 1]])),Func ("OraclePrettyFlat","expDoc2._#selFP4#rbr") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("OraclePretty","Doc") [],TCons ("OraclePretty","Doc") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_72") [Var 2,Var 1]])),Func ("OraclePrettyFlat","branchDoc") 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 ("FlatCurry","BranchExpr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_71") [Var 2,Var 3,Var 4,Var 1]])),Func ("OraclePrettyFlat","caseTypeDoc") 2 Public (FuncType (TCons ("FlatCurry","CaseType") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_70") [Var 2,Var 1]])),Func ("OraclePrettyFlat","patternDoc") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("FlatCurry","Pattern") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_69") [Var 2,Var 3,Var 1]])),Func ("OraclePrettyFlat","letBindsDoc") 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 ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("FlatCurry","Expr") []]]) (TCons ("OraclePretty","Doc") [])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("OraclePrettyFlat","layout") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","letBindDoc") [Var 2,Var 3]]]],Var 4]]))),Func ("OraclePrettyFlat","letBindDoc") 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","Int") [],TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_64") [Var 2,Var 3,Var 4,Var 1]])),Func ("OraclePrettyFlat","litDoc") 2 Public (FuncType (TCons ("FlatCurry","Literal") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OraclePretty","Doc") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_63") [Var 2,Var 1]])),Func ("OraclePrettyFlat","quoteChar") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","maybe") [Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb FuncCall ("OraclePrelude","lookup") [Var 2,Comb FuncCall ("OraclePrettyFlat","specialChars") [Var 1],Var 3],Var 4]]))),Func ("OraclePrettyFlat","specialChars") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","Char") [],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 ("OraclePrettyFlat","toString") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_62") [Var 2,Var 1]])),Func ("OraclePrettyFlat","toList") 2 Public (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_31") [Var 2,Var 1]])),Func ("OraclePrettyFlat","elimApp") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("FlatCurry","Expr") []) (TCons ("FlatCurry","Expr") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleFlatCurryGoodies","updCombs") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 1) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") []],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []]]],Comb (FuncPartCall 4) ("OraclePrettyFlat","elimApp.elim.276") []],Var 1]])),Func ("OraclePrettyFlat","elimApp.extend.276") 3 Private (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("FlatCurry","Expr") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_2") [Var 3,Var 2,Var 1]])),Func ("OraclePrettyFlat","elimApp.elim.276") 4 Private (FuncType (TCons ("FlatCurry","CombType") []) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("FlatCurry","Expr") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("FlatCurry","Expr") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]],Comb FuncCall ("OraclePrettyFlat","_case_1") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("FlatCurry","FuncCall") [],Var 1],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 3,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrettyFlat","prelude") [Var 5],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","[]") []]]]]]],Var 6],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleFlatCurryGoodies","isComb") [Comb FuncCall ("OraclePrelude","head") [Var 4,Var 7],Var 8],Comb FuncCall ("OraclePrelude","/=") [Comb FuncCall ("OracleFlatCurryGoodies","combName") [Comb FuncCall ("OraclePrelude","head") [Var 4,Var 9],Var 10],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrettyFlat","prelude") [Var 11],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","[]") []]]]]]],Var 12],Var 13],Var 14],Var 15],Var 16]]))),Func ("OraclePrettyFlat","_case_1") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrettyFlat","elimApp.extend.276") [Comb FuncCall ("OraclePrelude","head") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","!!") [Var 4,Lit (Intc 1),Var 6],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_0") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 8]]))]])),Func ("OraclePrettyFlat","_case_0") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("FlatCurry","Comb") [Var 2,Var 3,Var 4]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrettyFlat","_case_2") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Comb") [4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("FlatCurry","Comb") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","++") [Var 6,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Var 1]]])]])),Func ("OraclePrettyFlat","_case_31") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Comb") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_30") [Var 4,Var 5,Var 3,Var 1]]),Branch (Pattern ("FlatCurry","Var") [42]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Lit") [43]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Let") [44,45]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Free") [46,47]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Or") [48,49]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Case") [50,51,52]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_30") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("FlatCurry","ConsCall") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_29") [Var 5,Var 4,Var 1]]),Branch (Pattern ("FlatCurry","FuncCall") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","FuncPartCall") [40]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","ConsPartCall") [41]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_29") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_28") [Var 5,Var 7,Var 6,Var 1]])]])),Func ("OraclePrettyFlat","_case_28") 4 Private (TVar (-42)) (Rule [5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude",":") [8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_27") [Var 5,Var 7,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 8,Lit (Charc 'P'),Var 1],Var 10]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_27") 6 Private (TVar (-42)) (Rule [5,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_26") [Var 5,Var 7,Var 9,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_26") 4 Private (TVar (-42)) (Rule [5,7,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_25") [Var 5,Var 7,Var 10,Var 11,Comb FuncCall ("OraclePrelude","==") [Var 10,Lit (Charc 'r'),Var 1],Var 12]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_25") 6 Private (TVar (-42)) (Rule [5,7,10,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_24") [Var 5,Var 7,Var 11,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_24") 4 Private (TVar (-42)) (Rule [5,7,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_23") [Var 5,Var 7,Var 12,Var 13,Comb FuncCall ("OraclePrelude","==") [Var 12,Lit (Charc 'e'),Var 1],Var 14]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_23") 6 Private (TVar (-42)) (Rule [5,7,12,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_22") [Var 5,Var 7,Var 13,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_22") 4 Private (TVar (-42)) (Rule [5,7,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_21") [Var 5,Var 7,Var 14,Var 15,Comb FuncCall ("OraclePrelude","==") [Var 14,Lit (Charc 'l'),Var 1],Var 16]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_21") 6 Private (TVar (-42)) (Rule [5,7,14,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_20") [Var 5,Var 7,Var 15,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_20") 4 Private (TVar (-42)) (Rule [5,7,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_19") [Var 5,Var 7,Var 16,Var 17,Comb FuncCall ("OraclePrelude","==") [Var 16,Lit (Charc 'u'),Var 1],Var 18]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_19") 6 Private (TVar (-42)) (Rule [5,7,16,17,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 18) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_18") [Var 5,Var 7,Var 17,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_18") 4 Private (TVar (-42)) (Rule [5,7,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_17") [Var 5,Var 7,Var 18,Var 19,Comb FuncCall ("OraclePrelude","==") [Var 18,Lit (Charc 'd'),Var 1],Var 20]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_17") 6 Private (TVar (-42)) (Rule [5,7,18,19,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 20) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_16") [Var 5,Var 7,Var 19,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_16") 4 Private (TVar (-42)) (Rule [5,7,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_15") [Var 5,Var 7,Var 20,Var 21,Comb FuncCall ("OraclePrelude","==") [Var 20,Lit (Charc 'e'),Var 1],Var 22]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_15") 6 Private (TVar (-42)) (Rule [5,7,20,21,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 22) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_14") [Var 5,Var 7,Var 21,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_14") 4 Private (TVar (-42)) (Rule [5,7,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 21) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_13") [Var 5,Var 7,Var 1]]),Branch (Pattern ("Prelude",":") [38,39]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_13") 3 Private (TVar (-42)) (Rule [5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude",":") [22,23]) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_12") [Var 5,Var 22,Var 23,Comb FuncCall ("OraclePrelude","==") [Var 22,Lit (Charc '['),Var 1],Var 24]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_12") 5 Private (TVar (-42)) (Rule [5,22,23,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 24) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_11") [Var 5,Var 23,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_7") [Var 5,Var 22,Var 23,Comb FuncCall ("OraclePrelude","==") [Var 22,Lit (Charc ':'),Var 1],Var 25]]))]])),Func ("OraclePrettyFlat","_case_7") 5 Private (TVar (-42)) (Rule [5,22,23,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 24) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_6") [Var 5,Var 23,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_6") 3 Private (TVar (-42)) (Rule [5,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_5") [Var 5,Var 1]]),Branch (Pattern ("Prelude",":") [36,37]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_5") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude",":") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_4") [Var 30,Var 31,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_4") 3 Private (TVar (-42)) (Rule [30,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 31) [Branch (Pattern ("Prelude",":") [32,33]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_3") [Var 30,Var 32,Var 33,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_3") 4 Private (TVar (-42)) (Rule [30,32,33,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 33) [Branch (Pattern ("Prelude","[]") []) (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleMaybe",">>-") [Comb FuncCall ("OraclePrettyFlat","toList") [Var 32,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude","Just") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude",":") [Var 30]],Var 36],Var 37]])),Branch (Pattern ("Prelude",":") [34,35]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_11") 3 Private (TVar (-42)) (Rule [5,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_10") [Var 5,Var 24,Var 25,Comb FuncCall ("OraclePrelude","==") [Var 24,Lit (Charc ']'),Var 1],Var 26]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_10") 5 Private (TVar (-42)) (Rule [5,24,25,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 26) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_9") [Var 5,Var 25,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_9") 3 Private (TVar (-42)) (Rule [5,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 25) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_8") [Var 5,Var 1]]),Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_8") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_62") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("FlatCurry","Comb") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_61") [Var 4,Var 5,Var 3,Var 1]]),Branch (Pattern ("FlatCurry","Var") [59]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Lit") [60]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Let") [61,62]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Free") [63,64]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Or") [65,66]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Case") [67,68,69]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_61") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("FlatCurry","ConsCall") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_60") [Var 5,Var 4,Var 1]]),Branch (Pattern ("FlatCurry","FuncCall") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","FuncPartCall") [57]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","ConsPartCall") [58]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_60") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_59") [Var 5,Var 7,Var 6,Var 1]])]])),Func ("OraclePrettyFlat","_case_59") 4 Private (TVar (-42)) (Rule [5,7,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude",":") [8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_58") [Var 5,Var 7,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 8,Lit (Charc 'P'),Var 1],Var 10]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_58") 6 Private (TVar (-42)) (Rule [5,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_57") [Var 5,Var 7,Var 9,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_57") 4 Private (TVar (-42)) (Rule [5,7,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_56") [Var 5,Var 7,Var 10,Var 11,Comb FuncCall ("OraclePrelude","==") [Var 10,Lit (Charc 'r'),Var 1],Var 12]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_56") 6 Private (TVar (-42)) (Rule [5,7,10,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_55") [Var 5,Var 7,Var 11,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_55") 4 Private (TVar (-42)) (Rule [5,7,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude",":") [12,13]) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_54") [Var 5,Var 7,Var 12,Var 13,Comb FuncCall ("OraclePrelude","==") [Var 12,Lit (Charc 'e'),Var 1],Var 14]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_54") 6 Private (TVar (-42)) (Rule [5,7,12,13,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_53") [Var 5,Var 7,Var 13,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_53") 4 Private (TVar (-42)) (Rule [5,7,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude",":") [14,15]) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_52") [Var 5,Var 7,Var 14,Var 15,Comb FuncCall ("OraclePrelude","==") [Var 14,Lit (Charc 'l'),Var 1],Var 16]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_52") 6 Private (TVar (-42)) (Rule [5,7,14,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_51") [Var 5,Var 7,Var 15,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_51") 4 Private (TVar (-42)) (Rule [5,7,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 15) [Branch (Pattern ("Prelude",":") [16,17]) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_50") [Var 5,Var 7,Var 16,Var 17,Comb FuncCall ("OraclePrelude","==") [Var 16,Lit (Charc 'u'),Var 1],Var 18]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_50") 6 Private (TVar (-42)) (Rule [5,7,16,17,18,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 18) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_49") [Var 5,Var 7,Var 17,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_49") 4 Private (TVar (-42)) (Rule [5,7,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude",":") [18,19]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_48") [Var 5,Var 7,Var 18,Var 19,Comb FuncCall ("OraclePrelude","==") [Var 18,Lit (Charc 'd'),Var 1],Var 20]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_48") 6 Private (TVar (-42)) (Rule [5,7,18,19,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 20) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_47") [Var 5,Var 7,Var 19,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_47") 4 Private (TVar (-42)) (Rule [5,7,19,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 19) [Branch (Pattern ("Prelude",":") [20,21]) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_46") [Var 5,Var 7,Var 20,Var 21,Comb FuncCall ("OraclePrelude","==") [Var 20,Lit (Charc 'e'),Var 1],Var 22]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_46") 6 Private (TVar (-42)) (Rule [5,7,20,21,22,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 22) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_45") [Var 5,Var 7,Var 21,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_45") 4 Private (TVar (-42)) (Rule [5,7,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 21) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_44") [Var 5,Var 7,Var 1]]),Branch (Pattern ("Prelude",":") [55,56]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_44") 3 Private (TVar (-42)) (Rule [5,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude",":") [22,23]) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_43") [Var 5,Var 22,Var 23,Comb FuncCall ("OraclePrelude","==") [Var 22,Lit (Charc '['),Var 1],Var 24]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_43") 5 Private (TVar (-42)) (Rule [5,22,23,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 24) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_42") [Var 5,Var 23,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_38") [Var 5,Var 22,Var 23,Comb FuncCall ("OraclePrelude","==") [Var 22,Lit (Charc ':'),Var 1],Var 25]]))]])),Func ("OraclePrettyFlat","_case_38") 5 Private (TVar (-42)) (Rule [5,22,23,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 24) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_37") [Var 5,Var 23,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_37") 3 Private (TVar (-42)) (Rule [5,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_36") [Var 5,Var 1]]),Branch (Pattern ("Prelude",":") [53,54]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_36") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude",":") [30,31]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_35") [Var 31,Var 30,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_35") 3 Private (TVar (-42)) (Rule [31,30,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 30) [Branch (Pattern ("FlatCurry","Lit") [32]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_34") [Var 31,Var 32,Var 1]]),Branch (Pattern ("FlatCurry","Var") [40]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Comb") [41,42,43]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Let") [44,45]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Free") [46,47]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Or") [48,49]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Case") [50,51,52]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_34") 3 Private (TVar (-42)) (Rule [31,32,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 32) [Branch (Pattern ("FlatCurry","Charc") [33]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_33") [Var 33,Var 31,Var 1]]),Branch (Pattern ("FlatCurry","Intc") [38]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("FlatCurry","Floatc") [39]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_33") 3 Private (TVar (-42)) (Rule [33,31,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 31) [Branch (Pattern ("Prelude",":") [34,35]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_32") [Var 33,Var 34,Var 35,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_32") 4 Private (TVar (-42)) (Rule [33,34,35,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 35) [Branch (Pattern ("Prelude","[]") []) (Let [(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleMaybe",">>-") [Comb FuncCall ("OraclePrettyFlat","toString") [Var 34,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude","Just") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [Comb FuncCall ("OraclePrettyFlat","quoteChar") [Var 33,Var 38]]],Var 39],Var 40]])),Branch (Pattern ("Prelude",":") [36,37]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_42") 3 Private (TVar (-42)) (Rule [5,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude",":") [24,25]) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_41") [Var 5,Var 24,Var 25,Comb FuncCall ("OraclePrelude","==") [Var 24,Lit (Charc ']'),Var 1],Var 26]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_41") 5 Private (TVar (-42)) (Rule [5,24,25,26,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 26) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_40") [Var 5,Var 25,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_40") 3 Private (TVar (-42)) (Rule [5,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 25) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_39") [Var 5,Var 1]]),Branch (Pattern ("Prelude",":") [28,29]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_39") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [26,27]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []])]])),Func ("OraclePrettyFlat","_case_63") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Intc") [3]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","literal") [Var 1],Comb FuncCall ("OraclePretty","int") [Var 3,Var 6],Var 7]])),Branch (Pattern ("FlatCurry","Floatc") [4]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","literal") [Var 1],Comb FuncCall ("OraclePretty","float") [Var 4,Var 8],Var 9]])),Branch (Pattern ("FlatCurry","Charc") [5]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","literal") [Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","squotes") [Var 10],Comb FuncCall ("OraclePretty","text") [Comb FuncCall ("OraclePrettyFlat","quoteChar") [Var 5,Var 11],Var 12],Var 13],Var 14]]))]])),Func ("OraclePrettyFlat","_case_64") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","(,)") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 7],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","varDoc") [Var 8],Var 5,Var 9],Var 10],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 11],Comb FuncCall ("OraclePretty","equals") [Var 12],Var 13],Var 14],Var 15],Comb FuncCall ("OraclePrettyFlat","expDoc") [Var 2,Lit (Intc 0),Var 3,Comb ConsCall ("Prelude","False") [],Var 6,Var 16],Var 17]]))]])),Func ("OraclePrettyFlat","_case_69") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Pattern") [4,5]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_68") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","null") [Var 5,Var 1],Var 7]])),Branch (Pattern ("FlatCurry","LPattern") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","litDoc") [Var 6,Var 1]])]])),Func ("OraclePrettyFlat","_case_68") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","qname") [Var 2,Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_67") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrettyFlat","isTupleName") [Var 4,Var 1],Var 7]]))]])),Func ("OraclePrettyFlat","_case_67") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","tupled") [Var 1],Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OraclePrettyFlat","varDoc") [Var 7],Var 5,Var 8],Var 9]])),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrettyFlat","_case_66") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrettyFlat","isInfixName") [Var 4,Var 1],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","length") [Var 5,Var 10],Lit (Intc 2),Var 11],Var 12],Var 13]]))]])),Func ("OraclePrettyFlat","_case_66") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","varDoc") [Var 1],Comb FuncCall ("OraclePrelude","!!") [Var 5,Lit (Intc 0),Var 7],Var 8],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 9],Comb FuncCall ("OraclePretty","text") [Comb FuncCall ("OraclePrelude","snd") [Var 4,Var 10],Var 11],Var 12],Var 13],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","varDoc") [Var 14],Comb FuncCall ("OraclePrelude","!!") [Var 5,Lit (Intc 1),Var 15],Var 16],Var 17]])),Branch (Pattern ("Prelude","False") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_65") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 18]]))]])),Func ("OraclePrettyFlat","_case_65") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 1],Comb FuncCall ("OraclePrettyFlat","qname") [Var 2,Var 4,Var 7],Var 8],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","hsep") [Var 9],Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OraclePrettyFlat","varDoc") [Var 10],Var 5,Var 11],Var 12],Var 13]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrettyFlat","_case_70") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Rigid") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","empty") [Var 1]]),Branch (Pattern ("FlatCurry","Flex") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","empty") [Var 1]])]])),Func ("OraclePrettyFlat","_case_71") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","Branch") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrettyFlat","def") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 1],Comb FuncCall ("OraclePrettyFlat","patternDoc") [Var 3,Var 5,Var 7],Var 8],Comb FuncCall ("OraclePrettyFlat","arrow") [Var 9],Var 10],Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","align") [Var 11],Comb FuncCall ("OraclePrettyFlat","expDoc") [Var 2,Lit (Intc 0),Var 3,Comb ConsCall ("Prelude","False") [],Var 6,Var 12],Var 13],Var 14]]))]])),Func ("OraclePrettyFlat","_case_72") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePrettyFlat","_case_73") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrettyFlat","_case_80") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("FlatCurry","Var") [7]) (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","varDoc") [Var 1],Var 7,Var 26]])),Branch (Pattern ("FlatCurry","Lit") [8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","litDoc") [Var 8,Var 1]]),Branch (Pattern ("FlatCurry","Comb") [9,10,11]) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Let [(12,Comb FuncCall ("OraclePrettyFlat","_case_74") [Var 5,Var 1])] (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OraclePrettyFlat","expDoc2._#selFP3#lbr") [Var 12,Var 27])] (Let [(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []],Let [(14,Comb FuncCall ("OraclePrettyFlat","expDoc2._#selFP4#rbr") [Var 12,Var 28])] (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []]],Let [(15,Comb FuncCall ("OraclePrettyFlat","_case_75") [Var 2,Var 10,Comb FuncCall ("OraclePrelude","lookup") [Var 10,Var 2,Var 29],Var 30])] (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrettyFlat","_case_79") [Var 2,Var 3,Var 4,Var 5,Var 9,Var 10,Var 11,Var 13,Var 14,Var 15,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 9,Comb ConsCall ("FlatCurry","FuncCall") [],Var 31],Comb FuncCall ("OraclePrelude","==") [Var 10,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrettyFlat","prelude") [Var 32],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","[]") []]]]]]],Var 33],Var 34],Var 35]]))]))]))]))])),Branch (Pattern ("FlatCurry","Let") [17,18]) (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(42,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(43,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(44,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(45,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(46,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(47,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(48,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(49,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(50,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(51,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(52,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(53,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude",":") [Var 42,Comb ConsCall ("Prelude",":") [Var 43,Comb ConsCall ("Prelude",":") [Var 44,Comb ConsCall ("Prelude",":") [Var 45,Comb ConsCall ("Prelude",":") [Var 46,Comb ConsCall ("Prelude",":") [Var 47,Comb ConsCall ("Prelude",":") [Var 48,Comb ConsCall ("Prelude",":") [Var 49,Comb ConsCall ("Prelude",":") [Var 50,Comb ConsCall ("Prelude",":") [Var 51,Comb ConsCall ("Prelude",":") [Var 52,Comb ConsCall ("Prelude",":") [Var 53,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePrettyFlat","par") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","hang") [Lit (Intc 1)]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 36],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<$>") [Var 37],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 38],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 39],Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude","[]") []]]],Var 40],Var 41],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","letBindsDoc") [Var 2,Var 4,Var 42],Var 17,Var 43],Var 44],Var 45],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 46],Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude","[]") []]],Var 47],Var 48],Var 49],Comb FuncCall ("OraclePrettyFlat","expDoc") [Var 2,Lit (Intc 0),Var 4,Comb ConsCall ("Prelude","False") [],Var 18,Var 50],Var 51],Var 52],Var 53]])),Branch (Pattern ("FlatCurry","Free") [19,20]) (Let [(54,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(55,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(56,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(57,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(58,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(59,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(60,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(61,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(62,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(63,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(64,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(65,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(66,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(67,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(68,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(69,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(70,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(71,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(72,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(73,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(74,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(75,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(76,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(77,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(78,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(79,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(80,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(81,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(82,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 54,Comb ConsCall ("Prelude",":") [Var 55,Comb ConsCall ("Prelude",":") [Var 56,Comb ConsCall ("Prelude",":") [Var 57,Comb ConsCall ("Prelude",":") [Var 58,Comb ConsCall ("Prelude",":") [Var 59,Comb ConsCall ("Prelude",":") [Var 60,Comb ConsCall ("Prelude",":") [Var 61,Comb ConsCall ("Prelude",":") [Var 62,Comb ConsCall ("Prelude",":") [Var 63,Comb ConsCall ("Prelude",":") [Var 64,Comb ConsCall ("Prelude",":") [Var 65,Comb ConsCall ("Prelude",":") [Var 66,Comb ConsCall ("Prelude",":") [Var 67,Comb ConsCall ("Prelude",":") [Var 68,Comb ConsCall ("Prelude",":") [Var 69,Comb ConsCall ("Prelude",":") [Var 70,Comb ConsCall ("Prelude",":") [Var 71,Comb ConsCall ("Prelude",":") [Var 72,Comb ConsCall ("Prelude",":") [Var 73,Comb ConsCall ("Prelude",":") [Var 74,Comb ConsCall ("Prelude",":") [Var 75,Comb ConsCall ("Prelude",":") [Var 76,Comb ConsCall ("Prelude",":") [Var 77,Comb ConsCall ("Prelude",":") [Var 78,Comb ConsCall ("Prelude",":") [Var 79,Comb ConsCall ("Prelude",":") [Var 80,Comb ConsCall ("Prelude",":") [Var 81,Comb ConsCall ("Prelude",":") [Var 82,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePrettyFlat","par") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","hang") [Lit (Intc 1)]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 54],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<$>") [Var 55],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 56],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 57],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 58],Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude","[]") []]]],Var 59],Var 60],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","align") [Var 61],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","fillSep") [Var 62],Comb FuncCall ("OraclePretty","punctuate") [Comb FuncCall ("OraclePretty","comma") [Var 63],Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OraclePrettyFlat","varDoc") [Var 64],Var 19,Var 65],Var 66],Var 67],Var 68],Var 69],Var 70],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 71],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","[]") []]]]],Var 72],Var 73],Var 74],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 75],Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude","[]") []]],Var 76],Var 77],Var 78],Comb FuncCall ("OraclePrettyFlat","expDoc") [Var 2,Lit (Intc 0),Var 4,Comb ConsCall ("Prelude","False") [],Var 20,Var 79],Var 80],Var 81],Var 82]])),Branch (Pattern ("FlatCurry","Or") [21,22]) (Let [(83,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 83,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","expDoc") [Var 2,Lit (Intc 0),Var 4,Var 5,Comb ConsCall ("FlatCurry","Comb") [Comb ConsCall ("FlatCurry","FuncCall") [],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrettyFlat","prelude") [Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '?'),Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]],Var 83]])),Branch (Pattern ("FlatCurry","Case") [23,24,25]) (Let [(84,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(85,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(86,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(87,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(88,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(89,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(90,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(91,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(92,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(93,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(94,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(95,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(96,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(97,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(98,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(99,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(100,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(101,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(102,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(103,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(104,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(105,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(106,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 84,Comb ConsCall ("Prelude",":") [Var 85,Comb ConsCall ("Prelude",":") [Var 86,Comb ConsCall ("Prelude",":") [Var 87,Comb ConsCall ("Prelude",":") [Var 88,Comb ConsCall ("Prelude",":") [Var 89,Comb ConsCall ("Prelude",":") [Var 90,Comb ConsCall ("Prelude",":") [Var 91,Comb ConsCall ("Prelude",":") [Var 92,Comb ConsCall ("Prelude",":") [Var 93,Comb ConsCall ("Prelude",":") [Var 94,Comb ConsCall ("Prelude",":") [Var 95,Comb ConsCall ("Prelude",":") [Var 96,Comb ConsCall ("Prelude",":") [Var 97,Comb ConsCall ("Prelude",":") [Var 98,Comb ConsCall ("Prelude",":") [Var 99,Comb ConsCall ("Prelude",":") [Var 100,Comb ConsCall ("Prelude",":") [Var 101,Comb ConsCall ("Prelude",":") [Var 102,Comb ConsCall ("Prelude",":") [Var 103,Comb ConsCall ("Prelude",":") [Var 104,Comb ConsCall ("Prelude",":") [Var 105,Comb ConsCall ("Prelude",":") [Var 106,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePrettyFlat","par") [Var 5,Var 1],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","hang") [Lit (Intc 1)]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<$>") [Var 84],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 85],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 86],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePrettyFlat","caseTypeDoc") [Var 23,Var 87],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 88],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","[]") []]]]],Var 89],Var 90],Var 91],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","align") [Var 92],Comb FuncCall ("OraclePrettyFlat","expDoc") [Var 2,Lit (Intc 0),Var 4,Comb ConsCall ("Prelude","False") [],Var 24,Var 93],Var 94],Var 95],Var 96],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 97],Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude","[]") []]],Var 98],Var 99],Var 100],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","layout") [Var 101],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","branchDoc") [Var 2,Var 4]],Var 25,Var 102],Var 103],Var 104],Var 105],Var 106]]))]])),Func ("OraclePrettyFlat","_case_74") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePretty","lparen") [Var 1],Comb FuncCall ("OraclePretty","rparen") [Var 6]]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePretty","empty") [Var 1],Comb FuncCall ("OraclePretty","empty") [Var 7]]]))]])),Func ("OraclePrettyFlat","_case_75") 4 Private (TVar (-42)) (Rule [2,10,17,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 17) [Branch (Pattern ("Prelude","Just") [16]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 16]),Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)])]])),Func ("OraclePrettyFlat","_case_79") 12 Private (TVar (-42)) (Rule [2,3,4,5,9,10,11,13,14,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude","True") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePrettyFlat","par") [Var 5,Var 1],Comb FuncCall ("OraclePrettyFlat","app") [Comb FuncCall ("OraclePrettyFlat","expDoc") [Var 2,Lit (Intc 0),Var 4,Comb ConsCall ("Prelude","True") [],Comb FuncCall ("OraclePrelude","!!") [Var 11,Lit (Intc 0),Var 17],Var 18],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrettyFlat","expDoc") [Var 2,Lit (Intc 0),Var 4,Comb ConsCall ("Prelude","True") [],Comb FuncCall ("OraclePrelude","!!") [Var 11,Lit (Intc 1),Var 19],Var 20],Comb ConsCall ("Prelude","[]") []],Var 21],Var 22]])),Branch (Pattern ("Prelude","False") []) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrettyFlat","_case_78") [Var 2,Var 3,Var 4,Var 5,Var 9,Var 10,Var 11,Var 13,Var 14,Var 15,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 9,Comb ConsCall ("FlatCurry","ConsCall") [],Var 1],Comb FuncCall ("OraclePrettyFlat","isTupleName") [Var 10,Var 23],Var 24],Var 25]]))]])),Func ("OraclePrettyFlat","_case_78") 12 Private (TVar (-42)) (Rule [2,3,4,5,9,10,11,13,14,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude","True") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","tupled") [Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","expDoc") [Var 2,Lit (Intc 0),Var 4,Comb ConsCall ("Prelude","False") []]],Var 11,Var 17],Var 18]])),Branch (Pattern ("Prelude","False") []) (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrettyFlat","_case_77") [Var 2,Var 3,Var 4,Var 5,Var 10,Var 11,Var 13,Var 14,Var 15,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrettyFlat","isInfixName") [Var 10,Var 1],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","length") [Var 11,Var 19],Lit (Intc 2),Var 20],Var 21],Var 22]]))]])),Func ("OraclePrettyFlat","_case_77") 11 Private (TVar (-42)) (Rule [2,3,4,5,10,11,13,14,15,16,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 16) [Branch (Pattern ("Prelude","True") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePretty","align") [Var 1],Comb FuncCall ("OraclePrettyFlat","precFillEncloseSep") [Var 15,Var 3,Var 13,Var 14,Comb FuncCall ("OraclePretty","empty") [Var 17],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrettyFlat","expDoc") [Var 2,Var 15,Var 4,Comb ConsCall ("Prelude","True") [],Comb FuncCall ("OraclePrelude","!!") [Var 11,Lit (Intc 0),Var 18],Var 19],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePretty","space") [Var 20],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 21],Comb FuncCall ("OraclePretty","text") [Comb FuncCall ("OraclePrelude","snd") [Var 10,Var 22],Var 23],Var 24],Var 25],Comb FuncCall ("OraclePretty","space") [Var 26],Var 27],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrettyFlat","expDoc") [Var 2,Var 15,Var 4,Comb ConsCall ("Prelude","True") [],Comb FuncCall ("OraclePrelude","!!") [Var 11,Lit (Intc 1),Var 28],Var 29],Comb ConsCall ("Prelude","[]") []]]],Var 30],Var 31]])),Branch (Pattern ("Prelude","False") []) (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_76") [Var 2,Var 4,Var 5,Var 10,Var 11,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 32]]))]])),Func ("OraclePrettyFlat","_case_76") 7 Private (TVar (-42)) (Rule [2,4,5,10,11,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePrettyFlat","par") [Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("OraclePrelude","null") [Var 11,Var 1],Var 13],Var 5,Var 14],Var 15],Comb FuncCall ("OraclePrettyFlat","app") [Comb FuncCall ("OraclePrettyFlat","qname") [Var 4,Var 10,Var 16],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","expDoc") [Var 2,Lit (Intc 0),Var 4,Comb ConsCall ("Prelude","True") []]],Var 11,Var 17],Var 18],Var 19]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrettyFlat","_case_81") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","consname") [Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]],Var 4]])),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","literal") [Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","dquotes") [Var 5],Comb FuncCall ("OraclePretty","text") [Var 2,Var 6],Var 7],Var 8]]))]])),Func ("OraclePrettyFlat","_case_82") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("FlatCurry","Rule") [6,7]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrettyFlat","def") [Comb FuncCall ("OraclePrettyFlat","qname") [Var 3,Var 4,Var 1],Var 6,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 9],Comb FuncCall ("OraclePretty","equals") [Var 10],Var 11],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","align") [Var 12],Comb FuncCall ("OraclePrettyFlat","expDoc") [Var 2,Lit (Intc 0),Var 3,Comb ConsCall ("Prelude","False") [],Var 7,Var 13],Var 14],Var 15],Var 16]])),Branch (Pattern ("FlatCurry","External") [8]) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 1],Comb FuncCall ("OraclePrettyFlat","qname") [Var 3,Var 4,Var 17],Var 18],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 19],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","[]") []]]]]]]]],Var 20],Var 21]]))]])),Func ("OraclePrettyFlat","_case_83") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","Func") [5,6,7,8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<$>") [Var 1],Comb FuncCall ("OraclePrettyFlat","funcTypeDeclDoc") [Var 3,Var 5,Var 8,Var 10],Var 11],Comb FuncCall ("OraclePrettyFlat","ruleDoc") [Var 2,Var 3,Var 5,Var 9,Var 12],Var 13]]))]])),Func ("OraclePrettyFlat","_case_84") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","parens") [Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]])]])),Func ("OraclePrettyFlat","_case_89") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("FlatCurry","TVar") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","tvarDoc") [Var 5,Var 1]]),Branch (Pattern ("FlatCurry","TCons") [6,7]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_88") [Var 2,Var 3,Var 6,Var 7,Comb FuncCall ("OraclePrelude","null") [Var 7,Var 1],Var 10]])),Branch (Pattern ("FlatCurry","FuncType") [8,9]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePrettyFlat","par") [Var 3,Var 1],Comb FuncCall ("OraclePretty","fillEncloseSep") [Comb FuncCall ("OraclePretty","empty") [Var 11],Comb FuncCall ("OraclePretty","empty") [Var 12],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePretty","space") [Var 13],Comb FuncCall ("OraclePrettyFlat","arrow") [Var 14],Var 15],Comb FuncCall ("OraclePretty","space") [Var 16],Var 17],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","typeExprDoc") [Var 2,Comb ConsCall ("Prelude","True") []]],Comb FuncCall ("OracleFlatCurryGoodies","argTypes") [Var 4,Var 18],Var 19],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrettyFlat","typeExprDoc") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OracleFlatCurryGoodies","resultType") [Var 4,Var 20],Var 21],Comb ConsCall ("Prelude","[]") []],Var 22],Var 23],Var 24]]))]])),Func ("OraclePrettyFlat","_case_88") 6 Private (TVar (-42)) (Rule [2,3,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","qname") [Var 2,Var 6,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrettyFlat","_case_87") [Var 2,Var 3,Var 6,Var 7,Comb FuncCall ("OraclePrelude","==") [Var 6,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrettyFlat","prelude") [Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]]],Var 9],Var 10]]))]])),Func ("OraclePrettyFlat","_case_87") 6 Private (TVar (-42)) (Rule [2,3,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","brackets") [Var 1],Comb FuncCall ("OraclePrettyFlat","typeExprDoc") [Var 2,Comb ConsCall ("Prelude","False") [],Comb FuncCall ("OraclePrelude","head") [Var 7,Var 9],Var 10],Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_86") [Var 2,Var 3,Var 6,Var 7,Comb FuncCall ("OraclePrettyFlat","isTupleName") [Var 6,Var 1],Var 12]]))]])),Func ("OraclePrettyFlat","_case_86") 6 Private (TVar (-42)) (Rule [2,3,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","tupled") [Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","typeExprDoc") [Var 2,Comb ConsCall ("Prelude","False") []]],Var 7,Var 9],Var 10]])),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_85") [Var 2,Var 3,Var 6,Var 7,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 11]]))]])),Func ("OraclePrettyFlat","_case_85") 6 Private (TVar (-42)) (Rule [2,3,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePrettyFlat","par") [Var 3,Var 1],Comb FuncCall ("OraclePrettyFlat","app") [Comb FuncCall ("OraclePrettyFlat","qname") [Var 2,Var 6,Var 9],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","typeExprDoc") [Var 2,Comb ConsCall ("Prelude","True") []]],Var 7,Var 10],Var 11],Var 12]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrettyFlat","_case_90") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Cons") [4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrettyFlat","app") [Comb FuncCall ("OraclePrettyFlat","qname") [Var 2,Var 4,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","typeExprDoc") [Var 2,Comb ConsCall ("Prelude","True") []]],Var 7,Var 8],Var 9]]))]])),Func ("OraclePrettyFlat","_case_92") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePretty","text") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'x'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1],Var 4],Var 5]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_91") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 6]]))]])),Func ("OraclePrettyFlat","_case_91") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePretty","text") [Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Lit (Intc 97),Var 2,Var 1],Var 4],Comb ConsCall ("Prelude","[]") []],Var 5]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrettyFlat","_case_93") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Type") [4,5,6,7]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrettyFlat","def") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 12],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","[]") []]]]],Var 13],Var 14],Comb FuncCall ("OraclePrettyFlat","qname") [Var 2,Var 4,Var 15],Var 16],Var 6,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","consDeclsDoc") [Var 2,Var 17],Var 7,Var 18],Var 19]])),Branch (Pattern ("FlatCurry","TypeSyn") [8,9,10,11]) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]],Comb FuncCall ("OraclePrettyFlat","def") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 20],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","[]") []]]]],Var 21],Var 22],Comb FuncCall ("OraclePrettyFlat","qname") [Var 2,Var 8,Var 23],Var 24],Var 10,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 25],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 26],Comb FuncCall ("OraclePretty","equals") [Var 27],Var 28],Var 29],Comb FuncCall ("OraclePrettyFlat","typeExprDoc") [Var 2,Comb ConsCall ("Prelude","False") [],Var 11,Var 30],Var 31],Var 32]]))]])),Func ("OraclePrettyFlat","_case_94") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","InfixOp") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","empty") [Var 1]]),Branch (Pattern ("FlatCurry","InfixlOp") []) (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude","[]") []],Var 3]])),Branch (Pattern ("FlatCurry","InfixrOp") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude","[]") []],Var 4]]))]])),Func ("OraclePrettyFlat","_case_97") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Op") [3,4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_96") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OraclePrettyFlat","_case_96") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [6,7]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Let [(8,Comb FuncCall ("OraclePrettyFlat","_case_95") [Var 3,Var 7,Comb FuncCall ("OraclePrettyFlat","isInfixName") [Var 3,Var 1],Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 10],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","<+>") [Var 11],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","keyword") [Var 12],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","[]") []]]]]],Var 13],Comb FuncCall ("OraclePrettyFlat","opDoc.fixDoc.114") [Var 4,Var 14],Var 15],Var 16],Comb FuncCall ("OraclePretty","int") [Var 5,Var 17],Var 18],Var 19],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 20],Comb FuncCall ("OraclePretty","text") [Var 8,Var 21],Var 22],Var 23]]))]))]])),Func ("OraclePrettyFlat","_case_95") 4 Private (TVar (-42)) (Rule [3,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '`'),Comb FuncCall ("OraclePrelude","++") [Var 7,Comb ConsCall ("Prelude",":") [Lit (Charc '`'),Comb ConsCall ("Prelude","[]") []],Var 1]]])]])),Func ("OraclePrettyFlat","_case_98") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","empty") [Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","text") [Comb ConsCall ("Prelude",":") [Lit (Charc '('),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc '.'),Comb ConsCall ("Prelude",":") [Lit (Charc ')'),Comb ConsCall ("Prelude","[]") []]]]],Var 1]])]])),Func ("OraclePrettyFlat","_case_99") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("FlatCurry","Prog") [4,5,6,7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","exportedNames.typeExpDoc.89") [Var 2]],Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","==") [Comb ConsCall ("FlatCurry","Public") []]],Comb FuncCall ("OracleFlatCurryGoodies","typeVisibility") [Var 1],Var 9],Var 6,Var 10],Var 11],Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrettyFlat","qname") [Var 2]],Comb FuncCall ("OracleFlatCurryGoodies","funcName") [Var 12],Var 13],Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","==") [Comb ConsCall ("FlatCurry","Public") []]],Comb FuncCall ("OracleFlatCurryGoodies","funcVisibility") [Var 14],Var 15],Var 7,Var 16],Var 17],Var 18]]))]])),Func ("OraclePrettyFlat","_case_100") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Op") [3,4,5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 3,Var 5]])]])),Func ("OraclePrettyFlat","_case_101") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("FlatCurry","Prog") [3,4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]],Comb FuncCall ("OraclePrettyFlat","<$>>") [Comb FuncCall ("OraclePrettyFlat","<$>>") [Comb FuncCall ("OraclePrettyFlat","<$>>") [Comb FuncCall ("OraclePrettyFlat","<$>>") [Comb FuncCall ("OraclePrettyFlat","moduleHeaderDoc") [Var 3,Comb FuncCall ("OraclePrettyFlat","exportedNames") [Var 3,Var 2,Var 1],Var 8],Comb FuncCall ("OraclePrettyFlat","impsDoc") [Var 4,Var 9],Var 10],Comb FuncCall ("OraclePrettyFlat","opsDoc") [Var 7,Var 11],Var 12],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","typesDoc") [Var 3,Var 13],Var 5,Var 14],Var 15],Comb FuncCall ("OraclePrettyFlat","funcsDoc") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","precs") [Var 16],Var 7,Var 17],Var 3,Var 6,Var 18],Var 19]]))]])),Func ("OraclePrettyFlat","_case_103") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_102") [Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc '_'),Var 1],Var 6]])),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrettyFlat","_case_102") 5 Private (TVar (-42)) (Rule [3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePrettyFlat","_case_105") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_104") [Var 3,Var 4,Comb FuncCall ("OracleChar","isUpper") [Var 3,Var 1],Var 5]]))]])),Func ("OraclePrettyFlat","_case_104") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","consname") [Var 1],Comb ConsCall ("Prelude",":") [Var 3,Var 4],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","text") [Comb ConsCall ("Prelude",":") [Var 3,Var 4],Var 1]])]])),Func ("OraclePrettyFlat","_case_111") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrettyFlat","_case_110") [Var 2,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 3,Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OraclePrettyFlat","prelude") [Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '['),Comb ConsCall ("Prelude",":") [Lit (Charc ']'),Comb ConsCall ("Prelude","[]") []]]],Var 6],Comb FuncCall ("OraclePrettyFlat","isTupleName") [Var 3,Var 7],Var 8],Var 9]]))]])),Func ("OraclePrettyFlat","_case_110") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 1],Comb FuncCall ("OraclePretty","text") [Var 5,Var 7],Var 8]])),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_109") [Var 2,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrettyFlat","isInfixName") [Var 3,Var 1],Var 9]]))]])),Func ("OraclePrettyFlat","_case_109") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_108") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Var 2,Var 1],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_107") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 8]]))]])),Func ("OraclePrettyFlat","_case_107") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","_case_106") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Var 2,Var 1],Var 7]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OraclePrettyFlat","_case_106") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrettyFlat","qname.txt.65") [Comb FuncCall ("OraclePrettyFlat","correctName") [Var 5,Var 1],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","consname") [Var 1],Var 4,Var 8],Comb FuncCall ("OraclePretty","dot") [Var 9],Var 10],Comb FuncCall ("OraclePrettyFlat","qname.txt.65") [Var 5,Var 11],Var 12]]))]])),Func ("OraclePrettyFlat","_case_108") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","parens") [Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 7],Comb FuncCall ("OraclePretty","text") [Var 5,Var 8],Var 9],Var 10]])),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","parens") [Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","operator") [Var 11],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","consname") [Var 12],Var 4,Var 13],Comb FuncCall ("OraclePretty","dot") [Var 14],Var 15],Comb FuncCall ("OraclePrettyFlat","qname.txt.65") [Var 5,Var 16],Var 17],Var 18],Var 19]]))]])),Func ("OraclePrettyFlat","_case_112") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrettyFlat","block") [Var 1],Comb FuncCall ("OraclePretty","fillEncloseSep") [Comb FuncCall ("OraclePretty","empty") [Var 5],Comb FuncCall ("OraclePretty","empty") [Var 6],Comb FuncCall ("OraclePretty","space") [Var 7],Comb ConsCall ("Prelude",":") [Var 2,Var 3],Var 8],Var 9]]))]])),Func ("OraclePrettyFlat","_case_113") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","empty") [Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePretty","<>") [Comb FuncCall ("OraclePretty","space") [Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","align") [Var 5],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePretty","fillSep") [Var 6],Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OraclePrettyFlat","varDoc") [Var 7],Var 3,Var 8],Var 9],Var 10],Var 11]]))]])),Func ("OraclePrettyFlat","_case_114") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 3,Comb FuncCall ("OraclePrettyFlat","prelude") [Var 1],Var 5],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Comb FuncCall ("OraclePrelude","take") [Lit (Intc 2),Var 4,Var 6],Var 7],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","[]") []]],Var 8],Var 9]]))]])),Func ("OraclePrettyFlat","_case_115") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","all") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","elem") []],Comb FuncCall ("OraclePrettyFlat","infixIDs") [Var 1]]],Var 5],Var 4,Var 6]]))]])),Func ("OraclePrettyFlat","_case_117") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePretty","empty") [Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrettyFlat","_case_116") [Var 4,Comb ConsCall ("Prelude","True") [],Var 1]])]])),Func ("OraclePrettyFlat","_case_116") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]]))] []
+ Curry/Module/OraclePropertyFile.fcy view
@@ -0,0 +1,1 @@+Prog "OraclePropertyFile" ["CEventOracle","Oracle","IOExts","PropertyFile","Char","Directory","IOExts","Prelude","OracleChar","OracleDirectory","OracleIOExts","OraclePrelude"] [] [Func ("OraclePropertyFile","readPropertyFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePropertyFile","readPropertyFile._#lambda3") [Var 2]],Var 3]]))),Func ("OraclePropertyFile","readPropertyFile.splitEqs.3") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePropertyFile","_case_8") [Var 2,Var 1]])),Func ("OraclePropertyFile","readPropertyFile._#lambda3") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePropertyFile","_case_5") [Var 2,Var 3,Var 1]])),Func ("OraclePropertyFile","readPropertyFile._#lambda3._#lambda4") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePropertyFile","readPropertyFile.splitEqs.3") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePropertyFile","readPropertyFile._#lambda3._#lambda4._#lambda5") []]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","lines") []],Var 1],Var 3],Var 2,Var 4],Var 5]]))),Func ("OraclePropertyFile","readPropertyFile._#lambda3._#lambda4._#lambda5") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("OraclePrelude","null") [Var 2,Var 1],Var 3],Comb FuncCall ("OracleChar","isAlpha") [Comb FuncCall ("OraclePrelude","head") [Var 2,Var 4],Var 5],Var 6]]))),Func ("OraclePropertyFile","updatePropertyFile") 4 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePropertyFile","readPropertyFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePropertyFile","updatePropertyFile._#lambda6") [Var 2,Var 3,Var 4]],Var 5]]))),Func ("OraclePropertyFile","updatePropertyFile._#lambda6") 5 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePropertyFile","_case_4") [Var 2,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","lookup") [Var 3,Var 5,Var 1],Comb ConsCall ("Prelude","Nothing") [],Var 6],Var 7]]))),Func ("OraclePropertyFile","changePropertyInFile") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleIOExts","updateFile") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePropertyFile","changePropertyInFile._#lambda7") [Var 3,Var 4]],Var 2,Var 1]])),Func ("OraclePropertyFile","changePropertyInFile.changeProp.21") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Let [(5,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","break") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []],Lit (Charc '=')]],Var 1],Var 4,Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePropertyFile","changePropertyInFile.changeProp.21._#selFP3#s1") [Var 5,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OraclePropertyFile","changePropertyInFile.changeProp.21._#selFP4#s2") [Var 5,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePropertyFile","_case_3") [Var 2,Var 3,Var 4,Var 6,Var 7,Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","null") [Var 4,Var 11],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("OracleChar","isAlpha") [Comb FuncCall ("OraclePrelude","head") [Var 4,Var 12],Var 13],Var 14],Comb FuncCall ("OraclePrelude","null") [Var 7,Var 15],Var 16],Var 17],Var 18]]))]))]))]))),Func ("OraclePropertyFile","changePropertyInFile.changeProp.21._#selFP3#s1") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePropertyFile","_case_1") [Var 2,Var 1]])),Func ("OraclePropertyFile","changePropertyInFile.changeProp.21._#selFP4#s2") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePropertyFile","_case_0") [Var 2,Var 1]])),Func ("OraclePropertyFile","changePropertyInFile._#lambda7") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","unlines") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePropertyFile","changePropertyInFile.changeProp.21") [Var 2,Var 3]]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","lines") []],Var 1],Var 5],Var 4,Var 6]]))),Func ("OraclePropertyFile","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePropertyFile","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePropertyFile","_case_3") 7 Private (TVar (-42)) (Rule [2,3,4,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePropertyFile","_case_2") [Var 2,Var 3,Var 4,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 6,Var 2,Var 1],Var 9]]))]])),Func ("OraclePropertyFile","_case_2") 6 Private (TVar (-42)) (Rule [2,3,4,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 6,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude","[]") []],Var 3,Var 1],Var 8]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePropertyFile","_case_4") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","appendFile") [Var 2,Comb FuncCall ("OraclePrelude","++") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 4,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 7],Var 8],Var 9]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePropertyFile","changePropertyInFile") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OraclePropertyFile","_case_5") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePropertyFile","readPropertyFile._#lambda3._#lambda4") []],Var 4]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","[]") [],Var 1]])]])),Func ("OraclePropertyFile","_case_8") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePropertyFile","_case_7") [Var 3,Var 4,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","break") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []],Lit (Charc '=')]],Var 1],Var 3,Var 5],Var 6]]))]])),Func ("OraclePropertyFile","_case_7") 4 Private (TVar (-42)) (Rule [3,4,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","(,)") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePropertyFile","_case_6") [Var 4,Var 5,Var 6,Var 1]])]])),Func ("OraclePropertyFile","_case_6") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 5,Var 8],Comb FuncCall ("OraclePropertyFile","readPropertyFile.splitEqs.3") [Var 4,Var 1]]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePropertyFile","readPropertyFile.splitEqs.3") [Var 4,Var 1]])]]))] []
+ Curry/Module/OraclePropertyFile.fint view
@@ -0,0 +1,1 @@+Prog "OraclePropertyFile" ["CEventOracle","Oracle","IOExts","PropertyFile","Char","Directory","IOExts","Prelude","OracleChar","OracleDirectory","OracleIOExts","OraclePrelude"] [] [Func ("OraclePropertyFile","readPropertyFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleDirectory","doesFileExist") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePropertyFile","readPropertyFile._#lambda3") [Var 2]],Var 3]]))),Func ("OraclePropertyFile","readPropertyFile.splitEqs.3") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePropertyFile","_case_8") [Var 2,Var 1]])),Func ("OraclePropertyFile","readPropertyFile._#lambda3") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePropertyFile","_case_5") [Var 2,Var 3,Var 1]])),Func ("OraclePropertyFile","readPropertyFile._#lambda3._#lambda4") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePropertyFile","readPropertyFile.splitEqs.3") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePropertyFile","readPropertyFile._#lambda3._#lambda4._#lambda5") []]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","lines") []],Var 1],Var 3],Var 2,Var 4],Var 5]]))),Func ("OraclePropertyFile","readPropertyFile._#lambda3._#lambda4._#lambda5") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("OraclePrelude","null") [Var 2,Var 1],Var 3],Comb FuncCall ("OracleChar","isAlpha") [Comb FuncCall ("OraclePrelude","head") [Var 2,Var 4],Var 5],Var 6]]))),Func ("OraclePropertyFile","updatePropertyFile") 4 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePropertyFile","readPropertyFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePropertyFile","updatePropertyFile._#lambda6") [Var 2,Var 3,Var 4]],Var 5]]))),Func ("OraclePropertyFile","updatePropertyFile._#lambda6") 5 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePropertyFile","_case_4") [Var 2,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","lookup") [Var 3,Var 5,Var 1],Comb ConsCall ("Prelude","Nothing") [],Var 6],Var 7]]))),Func ("OraclePropertyFile","changePropertyInFile") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleIOExts","updateFile") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePropertyFile","changePropertyInFile._#lambda7") [Var 3,Var 4]],Var 2,Var 1]])),Func ("OraclePropertyFile","changePropertyInFile.changeProp.21") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Let [(5,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","break") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []],Lit (Charc '=')]],Var 1],Var 4,Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePropertyFile","changePropertyInFile.changeProp.21._#selFP3#s1") [Var 5,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OraclePropertyFile","changePropertyInFile.changeProp.21._#selFP4#s2") [Var 5,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePropertyFile","_case_3") [Var 2,Var 3,Var 4,Var 6,Var 7,Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","null") [Var 4,Var 11],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","not") [Comb FuncCall ("OracleChar","isAlpha") [Comb FuncCall ("OraclePrelude","head") [Var 4,Var 12],Var 13],Var 14],Comb FuncCall ("OraclePrelude","null") [Var 7,Var 15],Var 16],Var 17],Var 18]]))]))]))]))),Func ("OraclePropertyFile","changePropertyInFile.changeProp.21._#selFP3#s1") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePropertyFile","_case_1") [Var 2,Var 1]])),Func ("OraclePropertyFile","changePropertyInFile.changeProp.21._#selFP4#s2") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePropertyFile","_case_0") [Var 2,Var 1]])),Func ("OraclePropertyFile","changePropertyInFile._#lambda7") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","unlines") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePropertyFile","changePropertyInFile.changeProp.21") [Var 2,Var 3]]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","lines") []],Var 1],Var 5],Var 4,Var 6]]))),Func ("OraclePropertyFile","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePropertyFile","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OraclePropertyFile","_case_3") 7 Private (TVar (-42)) (Rule [2,3,4,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePropertyFile","_case_2") [Var 2,Var 3,Var 4,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 6,Var 2,Var 1],Var 9]]))]])),Func ("OraclePropertyFile","_case_2") 6 Private (TVar (-42)) (Rule [2,3,4,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 6,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude","[]") []],Var 3,Var 1],Var 8]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OraclePropertyFile","_case_4") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","appendFile") [Var 2,Comb FuncCall ("OraclePrelude","++") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 4,Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 1],Var 7],Var 8],Var 9]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePropertyFile","changePropertyInFile") [Var 2,Var 3,Var 4,Var 1]])]])),Func ("OraclePropertyFile","_case_5") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePropertyFile","readPropertyFile._#lambda3._#lambda4") []],Var 4]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","[]") [],Var 1]])]])),Func ("OraclePropertyFile","_case_8") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePropertyFile","_case_7") [Var 3,Var 4,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","break") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []],Lit (Charc '=')]],Var 1],Var 3,Var 5],Var 6]]))]])),Func ("OraclePropertyFile","_case_7") 4 Private (TVar (-42)) (Rule [3,4,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","(,)") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePropertyFile","_case_6") [Var 4,Var 5,Var 6,Var 1]])]])),Func ("OraclePropertyFile","_case_6") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 5,Var 8],Comb FuncCall ("OraclePropertyFile","readPropertyFile.splitEqs.3") [Var 4,Var 1]]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePropertyFile","readPropertyFile.splitEqs.3") [Var 4,Var 1]])]]))] []
+ Curry/Module/OracleRandom.fcy view
@@ -0,0 +1,1 @@+Prog "OracleRandom" ["CEventOracle","Oracle","IOExts","Random","Prelude","System","Time","OraclePrelude","OracleSystem","OracleTime"] [] [Func ("OracleRandom","multiplier") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 25214903917)])),Func ("OracleRandom","addend") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 11)])),Func ("OracleRandom","powermask") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 48)])),Func ("OracleRandom","mask") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 281474976710656)])),Func ("OracleRandom","intsize") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 32)])),Func ("OracleRandom","intspan") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 4294967296)])),Func ("OracleRandom","intlimit") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 2147483648)])),Func ("OracleRandom","sequence") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OracleRandom","nextseed") [Var 2,Var 1])] (Comb FuncCall ("CEventOracle","replace") [Var 4,Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("OracleRandom","sequence") [Var 3,Var 4]]])]))),Func ("OracleRandom","nextseed") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","mod") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","*") [Var 2,Comb FuncCall ("OracleRandom","multiplier") [Var 1],Var 3],Comb FuncCall ("OracleRandom","addend") [Var 4],Var 5],Comb FuncCall ("OracleRandom","mask") [Var 6],Var 7]]))),Func ("OracleRandom","xor") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]],Let [(4,Comb FuncCall ("OracleRandom","_case_11") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","mod") [Var 2,Lit (Intc 2),Var 1],Comb FuncCall ("OraclePrelude","mod") [Var 3,Lit (Intc 2),Var 6],Var 7],Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]],Let [(5,Comb FuncCall ("OracleRandom","xor") [Comb FuncCall ("OraclePrelude","div") [Var 2,Lit (Intc 2),Var 9],Comb FuncCall ("OraclePrelude","div") [Var 3,Lit (Intc 2),Var 10],Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleRandom","_case_12") [Var 2,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 0),Var 12],Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Intc 0),Var 13],Var 14],Var 15]]))]))]))),Func ("OracleRandom","power") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRandom","power.binary.43") [Lit (Intc 1),Var 2,Var 3,Var 1]])),Func ("OracleRandom","power.binary.43") 4 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRandom","_case_10") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Intc 0),Var 1],Var 5]]))),Func ("OracleRandom","nextIntBits") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Let [(4,Comb FuncCall ("OraclePrelude","mod") [Comb FuncCall ("OracleRandom","xor") [Var 2,Comb FuncCall ("OracleRandom","multiplier") [Var 1],Var 7],Comb FuncCall ("OracleRandom","mask") [Var 8],Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleRandom","sequence") [Var 4,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]],Let [(6,Comb FuncCall ("OracleRandom","power") [Lit (Intc 2),Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OracleRandom","powermask") [Var 11],Var 3,Var 12],Var 13])] (Comb FuncCall ("CEventOracle","replace") [Var 14,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRandom","nextIntBits.adjust.53") [Var 6]],Var 5,Var 14]])]))]))]))),Func ("OracleRandom","nextIntBits.adjust.53") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Let [(4,Comb FuncCall ("OraclePrelude","mod") [Comb FuncCall ("OraclePrelude","div") [Var 3,Var 2,Var 1],Comb FuncCall ("OracleRandom","intspan") [Var 5],Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleRandom","_case_8") [Var 4,Comb FuncCall ("OraclePrelude",">") [Var 4,Comb FuncCall ("OracleRandom","intlimit") [Var 7],Var 8],Var 9]]))]))),Func ("OracleRandom","nextInt") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRandom","nextIntBits") [Var 2,Comb FuncCall ("OracleRandom","intsize") [Var 1],Var 3]]))),Func ("OracleRandom","nextIntRange") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Let [(4,Comb FuncCall ("OracleRandom","nextIntBits") [Var 2,Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OracleRandom","intsize") [Var 1],Lit (Intc 1),Var 5],Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRandom","_case_7") [Var 3,Var 4,Comb FuncCall ("OraclePrelude",">") [Var 3,Lit (Intc 0),Var 7],Var 8]]))]))),Func ("OracleRandom","nextIntRange.adjust_a.64") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","div") [Comb FuncCall ("OraclePrelude","*") [Var 2,Var 3,Var 1],Comb FuncCall ("OracleRandom","intlimit") [Var 4],Var 5]]))),Func ("OracleRandom","nextIntRange.adjust_b.64") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","mod") [Var 3,Var 2,Var 1]])),Func ("OracleRandom","nextIntRange.adjust_c.64") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude",">=") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","-") [Var 3,Comb FuncCall ("OraclePrelude","mod") [Var 3,Var 2,Var 1],Var 4],Comb FuncCall ("OraclePrelude","-") [Var 2,Lit (Intc 1),Var 5],Var 6],Lit (Intc 0),Var 7]]))),Func ("OracleRandom","nextIntRange.power_of_2.64") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 2),Var 1],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">") [Var 2,Lit (Intc 2),Var 3],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","mod") [Var 2,Lit (Intc 2),Var 4],Lit (Intc 0),Var 5],Comb FuncCall ("OracleRandom","nextIntRange.power_of_2.64") [Comb FuncCall ("OraclePrelude","div") [Var 2,Lit (Intc 2),Var 6],Var 7],Var 8],Var 9],Var 10]]))),Func ("OracleRandom","nextBoolean") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Bool") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Lit (Intc 0)]],Comb FuncCall ("OracleRandom","nextIntBits") [Var 2,Lit (Intc 1),Var 1],Var 3]]))),Func ("OracleRandom","getRandomSeed") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleTime","getClockTime") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRandom","getRandomSeed._#lambda2") []],Var 2]]))),Func ("OracleRandom","getRandomSeed._#lambda2") 2 Private (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleSystem","getCPUTime") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRandom","getRandomSeed._#lambda2._#lambda3") [Var 2]],Var 3]]))),Func ("OracleRandom","getRandomSeed._#lambda2._#lambda3") 3 Private (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []])))))) (Rule [2,3,1] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleTime","toUTCTime") [Var 2,Var 1])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP3#y") [Var 4,Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP4#mo") [Var 4,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP5#d") [Var 4,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP6#h") [Var 4,Var 14])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP7#m") [Var 4,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP8#s") [Var 4,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OraclePrelude","mod") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","+") [Var 5,Var 6,Var 17],Var 7,Var 18],Var 8,Var 19],Comb FuncCall ("OraclePrelude","*") [Comb FuncCall ("OraclePrelude","*") [Var 9,Var 10,Var 20],Var 3,Var 21],Var 22],Comb FuncCall ("OracleRandom","mask") [Var 23],Var 24],Var 25]]))]))]))]))]))]))]))]))),Func ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP3#y") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRandom","_case_5") [Var 2,Var 1]])),Func ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP4#mo") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRandom","_case_4") [Var 2,Var 1]])),Func ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP5#d") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRandom","_case_3") [Var 2,Var 1]])),Func ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP6#h") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRandom","_case_2") [Var 2,Var 1]])),Func ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP7#m") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRandom","_case_1") [Var 2,Var 1]])),Func ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP8#s") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRandom","_case_0") [Var 2,Var 1]])),Func ("OracleRandom","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRandom","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7])]])),Func ("OracleRandom","_case_2") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleRandom","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleRandom","_case_4") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRandom","_case_5") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleRandom","_case_7") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRandom","_case_6") [Var 3,Var 4,Comb FuncCall ("OracleRandom","nextIntRange.power_of_2.64") [Var 3,Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleRandom","_case_6") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRandom","nextIntRange.adjust_a.64") [Var 3]],Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRandom","nextIntRange.adjust_b.64") [Var 3]],Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRandom","nextIntRange.adjust_c.64") [Var 3]],Var 4,Var 1],Var 6]]))]])),Func ("OracleRandom","_case_8") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","-") [Var 4,Comb FuncCall ("OracleRandom","intspan") [Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRandom","_case_10") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OracleRandom","power.binary.43") [Comb FuncCall ("OraclePrelude","*") [Var 2,Comb FuncCall ("OracleRandom","_case_9") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","mod") [Var 4,Lit (Intc 2),Var 1],Lit (Intc 1),Var 6],Var 7],Var 8],Comb FuncCall ("OraclePrelude","*") [Var 3,Var 3,Var 9],Comb FuncCall ("OraclePrelude","div") [Var 4,Lit (Intc 2),Var 10],Var 11]]))]])),Func ("OracleRandom","_case_9") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 1)])]])),Func ("OracleRandom","_case_11") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 1)])]])),Func ("OracleRandom","_case_12") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","+") [Var 4,Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Var 5,Var 1],Var 7]]))]]))] []
+ Curry/Module/OracleRandom.fint view
@@ -0,0 +1,1 @@+Prog "OracleRandom" ["CEventOracle","Oracle","IOExts","Random","Prelude","System","Time","OraclePrelude","OracleSystem","OracleTime"] [] [Func ("OracleRandom","multiplier") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 25214903917)])),Func ("OracleRandom","addend") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 11)])),Func ("OracleRandom","powermask") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 48)])),Func ("OracleRandom","mask") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 281474976710656)])),Func ("OracleRandom","intsize") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 32)])),Func ("OracleRandom","intspan") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 4294967296)])),Func ("OracleRandom","intlimit") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 2147483648)])),Func ("OracleRandom","sequence") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OracleRandom","nextseed") [Var 2,Var 1])] (Comb FuncCall ("CEventOracle","replace") [Var 4,Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("OracleRandom","sequence") [Var 3,Var 4]]])]))),Func ("OracleRandom","nextseed") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","mod") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","*") [Var 2,Comb FuncCall ("OracleRandom","multiplier") [Var 1],Var 3],Comb FuncCall ("OracleRandom","addend") [Var 4],Var 5],Comb FuncCall ("OracleRandom","mask") [Var 6],Var 7]]))),Func ("OracleRandom","xor") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]],Let [(4,Comb FuncCall ("OracleRandom","_case_11") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","mod") [Var 2,Lit (Intc 2),Var 1],Comb FuncCall ("OraclePrelude","mod") [Var 3,Lit (Intc 2),Var 6],Var 7],Var 8])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]],Let [(5,Comb FuncCall ("OracleRandom","xor") [Comb FuncCall ("OraclePrelude","div") [Var 2,Lit (Intc 2),Var 9],Comb FuncCall ("OraclePrelude","div") [Var 3,Lit (Intc 2),Var 10],Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleRandom","_case_12") [Var 2,Var 3,Var 4,Var 5,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 0),Var 12],Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Intc 0),Var 13],Var 14],Var 15]]))]))]))),Func ("OracleRandom","power") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRandom","power.binary.43") [Lit (Intc 1),Var 2,Var 3,Var 1]])),Func ("OracleRandom","power.binary.43") 4 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRandom","_case_10") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Intc 0),Var 1],Var 5]]))),Func ("OracleRandom","nextIntBits") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]],Let [(4,Comb FuncCall ("OraclePrelude","mod") [Comb FuncCall ("OracleRandom","xor") [Var 2,Comb FuncCall ("OracleRandom","multiplier") [Var 1],Var 7],Comb FuncCall ("OracleRandom","mask") [Var 8],Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleRandom","sequence") [Var 4,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]],Let [(6,Comb FuncCall ("OracleRandom","power") [Lit (Intc 2),Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OracleRandom","powermask") [Var 11],Var 3,Var 12],Var 13])] (Comb FuncCall ("CEventOracle","replace") [Var 14,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRandom","nextIntBits.adjust.53") [Var 6]],Var 5,Var 14]])]))]))]))),Func ("OracleRandom","nextIntBits.adjust.53") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Let [(4,Comb FuncCall ("OraclePrelude","mod") [Comb FuncCall ("OraclePrelude","div") [Var 3,Var 2,Var 1],Comb FuncCall ("OracleRandom","intspan") [Var 5],Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleRandom","_case_8") [Var 4,Comb FuncCall ("OraclePrelude",">") [Var 4,Comb FuncCall ("OracleRandom","intlimit") [Var 7],Var 8],Var 9]]))]))),Func ("OracleRandom","nextInt") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRandom","nextIntBits") [Var 2,Comb FuncCall ("OracleRandom","intsize") [Var 1],Var 3]]))),Func ("OracleRandom","nextIntRange") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Let [(4,Comb FuncCall ("OracleRandom","nextIntBits") [Var 2,Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OracleRandom","intsize") [Var 1],Lit (Intc 1),Var 5],Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRandom","_case_7") [Var 3,Var 4,Comb FuncCall ("OraclePrelude",">") [Var 3,Lit (Intc 0),Var 7],Var 8]]))]))),Func ("OracleRandom","nextIntRange.adjust_a.64") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","div") [Comb FuncCall ("OraclePrelude","*") [Var 2,Var 3,Var 1],Comb FuncCall ("OracleRandom","intlimit") [Var 4],Var 5]]))),Func ("OracleRandom","nextIntRange.adjust_b.64") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","mod") [Var 3,Var 2,Var 1]])),Func ("OracleRandom","nextIntRange.adjust_c.64") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude",">=") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","-") [Var 3,Comb FuncCall ("OraclePrelude","mod") [Var 3,Var 2,Var 1],Var 4],Comb FuncCall ("OraclePrelude","-") [Var 2,Lit (Intc 1),Var 5],Var 6],Lit (Intc 0),Var 7]]))),Func ("OracleRandom","nextIntRange.power_of_2.64") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 2),Var 1],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">") [Var 2,Lit (Intc 2),Var 3],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","mod") [Var 2,Lit (Intc 2),Var 4],Lit (Intc 0),Var 5],Comb FuncCall ("OracleRandom","nextIntRange.power_of_2.64") [Comb FuncCall ("OraclePrelude","div") [Var 2,Lit (Intc 2),Var 6],Var 7],Var 8],Var 9],Var 10]]))),Func ("OracleRandom","nextBoolean") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Bool") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Lit (Intc 0)]],Comb FuncCall ("OracleRandom","nextIntBits") [Var 2,Lit (Intc 1),Var 1],Var 3]]))),Func ("OracleRandom","getRandomSeed") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleTime","getClockTime") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRandom","getRandomSeed._#lambda2") []],Var 2]]))),Func ("OracleRandom","getRandomSeed._#lambda2") 2 Private (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleSystem","getCPUTime") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRandom","getRandomSeed._#lambda2._#lambda3") [Var 2]],Var 3]]))),Func ("OracleRandom","getRandomSeed._#lambda2._#lambda3") 3 Private (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []])))))) (Rule [2,3,1] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleTime","toUTCTime") [Var 2,Var 1])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP3#y") [Var 4,Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP4#mo") [Var 4,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP5#d") [Var 4,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP6#h") [Var 4,Var 14])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP7#m") [Var 4,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP8#s") [Var 4,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OraclePrelude","mod") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","+") [Var 5,Var 6,Var 17],Var 7,Var 18],Var 8,Var 19],Comb FuncCall ("OraclePrelude","*") [Comb FuncCall ("OraclePrelude","*") [Var 9,Var 10,Var 20],Var 3,Var 21],Var 22],Comb FuncCall ("OracleRandom","mask") [Var 23],Var 24],Var 25]]))]))]))]))]))]))]))]))),Func ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP3#y") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRandom","_case_5") [Var 2,Var 1]])),Func ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP4#mo") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRandom","_case_4") [Var 2,Var 1]])),Func ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP5#d") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRandom","_case_3") [Var 2,Var 1]])),Func ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP6#h") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRandom","_case_2") [Var 2,Var 1]])),Func ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP7#m") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRandom","_case_1") [Var 2,Var 1]])),Func ("OracleRandom","getRandomSeed._#lambda2._#lambda3._#selFP8#s") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRandom","_case_0") [Var 2,Var 1]])),Func ("OracleRandom","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRandom","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7])]])),Func ("OracleRandom","_case_2") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleRandom","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleRandom","_case_4") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRandom","_case_5") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleRandom","_case_7") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRandom","_case_6") [Var 3,Var 4,Comb FuncCall ("OracleRandom","nextIntRange.power_of_2.64") [Var 3,Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleRandom","_case_6") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRandom","nextIntRange.adjust_a.64") [Var 3]],Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRandom","nextIntRange.adjust_b.64") [Var 3]],Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRandom","nextIntRange.adjust_c.64") [Var 3]],Var 4,Var 1],Var 6]]))]])),Func ("OracleRandom","_case_8") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","-") [Var 4,Comb FuncCall ("OracleRandom","intspan") [Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRandom","_case_10") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OracleRandom","power.binary.43") [Comb FuncCall ("OraclePrelude","*") [Var 2,Comb FuncCall ("OracleRandom","_case_9") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","mod") [Var 4,Lit (Intc 2),Var 1],Lit (Intc 1),Var 6],Var 7],Var 8],Comb FuncCall ("OraclePrelude","*") [Var 3,Var 3,Var 9],Comb FuncCall ("OraclePrelude","div") [Var 4,Lit (Intc 2),Var 10],Var 11]]))]])),Func ("OracleRandom","_case_9") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 1)])]])),Func ("OracleRandom","_case_11") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 1)])]])),Func ("OracleRandom","_case_12") 6 Private (TVar (-42)) (Rule [2,3,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","+") [Var 4,Comb FuncCall ("OraclePrelude","*") [Lit (Intc 2),Var 5,Var 1],Var 7]]))]]))] []
+ Curry/Module/OracleRandomExternal.fcy view
@@ -0,0 +1,1 @@+Prog "OracleRandomExternal" ["CEventOracle","Oracle","IOExts","RandomExternal","Prelude","OraclePrelude"] [] [Func ("OracleRandomExternal","split") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRandomExternal","prim_split") []],Var 2,Var 1])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleRandomExternal","split._#selFP3#s1") [Var 3,Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleRandomExternal","split._#selFP4#s2") [Var 3,Var 7])] (Comb FuncCall ("CEventOracle","replace") [Var 8,Comb ConsCall ("Prelude",":") [Var 4,Comb FuncCall ("OracleRandomExternal","split") [Var 5,Var 8]]])]))]))]))),Func ("OracleRandomExternal","split._#selFP3#s1") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRandomExternal","_case_1") [Var 2,Var 1]])),Func ("OracleRandomExternal","split._#selFP4#s2") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRandomExternal","_case_0") [Var 2,Var 1]])),Func ("OracleRandomExternal","nextInt") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRandomExternal","prim_nextInt") []],Var 2,Var 1]])),Func ("OracleRandomExternal","nextIntRange") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleRandomExternal","prim_nextIntRange") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleRandomExternal","nextBoolean") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Bool") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","==") [Lit (Intc 0)]],Comb FuncCall ("OracleRandomExternal","nextIntRange") [Var 2,Lit (Intc 1),Var 1],Var 3]]))),Func ("OracleRandomExternal","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRandomExternal","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleRandomExternal","prim_split") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("RandomExternal","prim_split") [Var 2]])),Func ("OracleRandomExternal","prim_nextInt") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("RandomExternal","prim_nextInt") [Var 2]])),Func ("OracleRandomExternal","prim_nextIntRange") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("RandomExternal","prim_nextIntRange") [Var 3,Var 2]])),Func ("OracleRandomExternal","getRandomSeed") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("RandomExternal","getRandomSeed") []]]]))] []
+ Curry/Module/OracleRandomExternal.fint view
@@ -0,0 +1,1 @@+Prog "OracleRandomExternal" ["CEventOracle","Oracle","IOExts","RandomExternal","Prelude","OraclePrelude"] [] [Func ("OracleRandomExternal","split") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRandomExternal","prim_split") []],Var 2,Var 1])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleRandomExternal","split._#selFP3#s1") [Var 3,Var 6])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleRandomExternal","split._#selFP4#s2") [Var 3,Var 7])] (Comb FuncCall ("CEventOracle","replace") [Var 8,Comb ConsCall ("Prelude",":") [Var 4,Comb FuncCall ("OracleRandomExternal","split") [Var 5,Var 8]]])]))]))]))),Func ("OracleRandomExternal","split._#selFP3#s1") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRandomExternal","_case_1") [Var 2,Var 1]])),Func ("OracleRandomExternal","split._#selFP4#s2") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRandomExternal","_case_0") [Var 2,Var 1]])),Func ("OracleRandomExternal","nextInt") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRandomExternal","prim_nextInt") []],Var 2,Var 1]])),Func ("OracleRandomExternal","nextIntRange") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleRandomExternal","prim_nextIntRange") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleRandomExternal","nextBoolean") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Bool") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","==") [Lit (Intc 0)]],Comb FuncCall ("OracleRandomExternal","nextIntRange") [Var 2,Lit (Intc 1),Var 1],Var 3]]))),Func ("OracleRandomExternal","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRandomExternal","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleRandomExternal","prim_split") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("RandomExternal","prim_split") [Var 2]])),Func ("OracleRandomExternal","prim_nextInt") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("RandomExternal","prim_nextInt") [Var 2]])),Func ("OracleRandomExternal","prim_nextIntRange") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("RandomExternal","prim_nextIntRange") [Var 3,Var 2]])),Func ("OracleRandomExternal","getRandomSeed") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("RandomExternal","getRandomSeed") []]]]))] []
+ Curry/Module/OracleRead.fcy view
@@ -0,0 +1,1 @@+Prog "OracleRead" ["CEventOracle","Oracle","IOExts","Read","Char","Prelude","OracleChar","OraclePrelude"] [] [Func ("OracleRead","readNat") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRead","readNat.readNatPrefix.3") [Comb FuncCall ("OraclePrelude","dropWhile") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRead","readNat._#lambda2") []],Var 2,Var 1],Lit (Intc 0),Var 3]]))),Func ("OracleRead","readNat.readNatPrefix.3") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRead","_case_7") [Var 3,Var 2,Var 1]])),Func ("OracleRead","readNat._#lambda2") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc ' '),Var 1]])),Func ("OracleRead","readInt") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRead","readInt.readIntPrefix.14") [Comb FuncCall ("OraclePrelude","dropWhile") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRead","readInt._#lambda3") []],Var 2,Var 1],Var 3]]))),Func ("OracleRead","readInt.readIntPrefix.14") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRead","_case_5") [Var 2,Var 1]])),Func ("OracleRead","readInt._#lambda3") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc ' '),Var 1]])),Func ("OracleRead","readHex") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRead","readHex.readHexPrefix.22") [Comb FuncCall ("OraclePrelude","dropWhile") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRead","readHex._#lambda4") []],Var 2,Var 1],Lit (Intc 0),Var 3]]))),Func ("OracleRead","readHex.hex2int.22") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRead","_case_3") [Var 2,Comb FuncCall ("OracleChar","isDigit") [Var 2,Var 1],Var 3]]))),Func ("OracleRead","readHex.readHexPrefix.22") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRead","_case_1") [Var 3,Var 2,Var 1]])),Func ("OracleRead","readHex._#lambda4") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc ' '),Var 1]])),Func ("OracleRead","_case_1") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleRead","readHex.hex2int.22") [Var 4,Var 1])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRead","_case_0") [Var 3,Var 5,Var 6,Comb FuncCall ("OraclePrelude",">=") [Var 6,Lit (Intc 0),Var 7],Var 8]]))]))]])),Func ("OracleRead","_case_0") 5 Private (TVar (-42)) (Rule [3,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleRead","readHex.readHexPrefix.22") [Var 5,Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","*") [Var 3,Lit (Intc 16),Var 1],Var 6,Var 8],Var 9]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleRead","_case_3") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc '0'),Var 4],Var 5]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OracleRead","_case_2") [Var 2,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'A'),Var 6],Var 7],Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 8],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'F'),Var 9],Var 10],Var 11],Var 12]]))]])),Func ("OracleRead","_case_2") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'A'),Var 4],Var 5],Lit (Intc 10),Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","negate") [Lit (Intc 1),Var 1]])]])),Func ("OracleRead","_case_5") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRead","_case_4") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '-'),Var 1],Var 5]]))]])),Func ("OracleRead","_case_4") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","negate") [Comb FuncCall ("OracleRead","readNat") [Var 4,Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRead","readNat") [Comb ConsCall ("Prelude",":") [Var 3,Var 4],Var 1]])]])),Func ("OracleRead","_case_7") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePrelude","ord") [Var 4,Var 1])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleRead","_case_6") [Var 3,Var 5,Var 6,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Var 6,Comb FuncCall ("OraclePrelude","ord") [Lit (Charc '0'),Var 7],Var 8],Comb FuncCall ("OraclePrelude","<=") [Var 6,Comb FuncCall ("OraclePrelude","ord") [Lit (Charc '9'),Var 9],Var 10],Var 11],Var 12]]))]))]])),Func ("OracleRead","_case_6") 5 Private (TVar (-42)) (Rule [3,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleRead","readNat.readNatPrefix.3") [Var 5,Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","*") [Var 3,Lit (Intc 10),Var 1],Var 6,Var 8],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc '0'),Var 9],Var 10],Var 11]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]]))] []
+ Curry/Module/OracleRead.fint view
@@ -0,0 +1,1 @@+Prog "OracleRead" ["CEventOracle","Oracle","IOExts","Read","Char","Prelude","OracleChar","OraclePrelude"] [] [Func ("OracleRead","readNat") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRead","readNat.readNatPrefix.3") [Comb FuncCall ("OraclePrelude","dropWhile") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRead","readNat._#lambda2") []],Var 2,Var 1],Lit (Intc 0),Var 3]]))),Func ("OracleRead","readNat.readNatPrefix.3") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRead","_case_7") [Var 3,Var 2,Var 1]])),Func ("OracleRead","readNat._#lambda2") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc ' '),Var 1]])),Func ("OracleRead","readInt") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRead","readInt.readIntPrefix.14") [Comb FuncCall ("OraclePrelude","dropWhile") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRead","readInt._#lambda3") []],Var 2,Var 1],Var 3]]))),Func ("OracleRead","readInt.readIntPrefix.14") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRead","_case_5") [Var 2,Var 1]])),Func ("OracleRead","readInt._#lambda3") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc ' '),Var 1]])),Func ("OracleRead","readHex") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRead","readHex.readHexPrefix.22") [Comb FuncCall ("OraclePrelude","dropWhile") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRead","readHex._#lambda4") []],Var 2,Var 1],Lit (Intc 0),Var 3]]))),Func ("OracleRead","readHex.hex2int.22") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRead","_case_3") [Var 2,Comb FuncCall ("OracleChar","isDigit") [Var 2,Var 1],Var 3]]))),Func ("OracleRead","readHex.readHexPrefix.22") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRead","_case_1") [Var 3,Var 2,Var 1]])),Func ("OracleRead","readHex._#lambda4") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Charc ' '),Var 1]])),Func ("OracleRead","_case_1") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleRead","readHex.hex2int.22") [Var 4,Var 1])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRead","_case_0") [Var 3,Var 5,Var 6,Comb FuncCall ("OraclePrelude",">=") [Var 6,Lit (Intc 0),Var 7],Var 8]]))]))]])),Func ("OracleRead","_case_0") 5 Private (TVar (-42)) (Rule [3,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleRead","readHex.readHexPrefix.22") [Var 5,Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","*") [Var 3,Lit (Intc 16),Var 1],Var 6,Var 8],Var 9]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleRead","_case_3") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc '0'),Var 4],Var 5]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OracleRead","_case_2") [Var 2,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'A'),Var 6],Var 7],Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 8],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'F'),Var 9],Var 10],Var 11],Var 12]]))]])),Func ("OracleRead","_case_2") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'A'),Var 4],Var 5],Lit (Intc 10),Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","negate") [Lit (Intc 1),Var 1]])]])),Func ("OracleRead","_case_5") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 0)]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRead","_case_4") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '-'),Var 1],Var 5]]))]])),Func ("OracleRead","_case_4") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","negate") [Comb FuncCall ("OracleRead","readNat") [Var 4,Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRead","readNat") [Comb ConsCall ("Prelude",":") [Var 3,Var 4],Var 1]])]])),Func ("OracleRead","_case_7") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OraclePrelude","ord") [Var 4,Var 1])] (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleRead","_case_6") [Var 3,Var 5,Var 6,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Var 6,Comb FuncCall ("OraclePrelude","ord") [Lit (Charc '0'),Var 7],Var 8],Comb FuncCall ("OraclePrelude","<=") [Var 6,Comb FuncCall ("OraclePrelude","ord") [Lit (Charc '9'),Var 9],Var 10],Var 11],Var 12]]))]))]])),Func ("OracleRead","_case_6") 5 Private (TVar (-42)) (Rule [3,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleRead","readNat.readNatPrefix.3") [Var 5,Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","*") [Var 3,Lit (Intc 10),Var 1],Var 6,Var 8],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc '0'),Var 9],Var 10],Var 11]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]]))] []
+ Curry/Module/OracleReadShowTerm.fcy view
@@ -0,0 +1,1 @@+Prog "OracleReadShowTerm" ["CEventOracle","Oracle","IOExts","ReadShowTerm","Char","Prelude","OracleChar","OraclePrelude"] [] [Func ("OracleReadShowTerm","showTerm") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleReadShowTerm","prim_showTerm") []],Var 2,Var 1]])),Func ("OracleReadShowTerm","showQTerm") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleReadShowTerm","prim_showQTerm") []],Var 2,Var 1]])),Func ("OracleReadShowTerm","readsUnqualifiedTerm") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleReadShowTerm","_case_12") [Var 3,Var 2,Var 1]])),Func ("OracleReadShowTerm","readsUnqualifiedTermWithPrefixes") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleReadShowTerm","prim_readsUnqualifiedTerm") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleReadShowTerm","readUnqualifiedTerm") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleReadShowTerm","_case_11") [Var 2,Var 3,Comb FuncCall ("OracleReadShowTerm","readsUnqualifiedTerm") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OracleReadShowTerm","readsTerm") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleReadShowTerm","prim_readsUnqualifiedTerm") [Comb ConsCall ("Prelude","[]") []]],Var 2,Var 1]])),Func ("OracleReadShowTerm","readTerm") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleReadShowTerm","prim_readsUnqualifiedTerm") [Comb ConsCall ("Prelude","[]") []]],Var 2,Var 1])] (Comb FuncCall ("CEventOracle","replace") [Var 4,Comb FuncCall ("OracleReadShowTerm","_case_7") [Var 2,Var 3,Var 4]])]))),Func ("OracleReadShowTerm","readsQTerm") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleReadShowTerm","prim_readsQTerm") []],Var 2,Var 1]])),Func ("OracleReadShowTerm","readQTerm") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OracleReadShowTerm","readsQTerm") [Var 2,Var 1])] (Comb FuncCall ("CEventOracle","replace") [Var 4,Comb FuncCall ("OracleReadShowTerm","_case_3") [Var 3,Var 4]])]))),Func ("OracleReadShowTerm","readQTermFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleReadShowTerm","readQTerm") []],Var 3],Var 4]]))),Func ("OracleReadShowTerm","readQTermListFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TVar 0]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleReadShowTerm","readQTerm") []]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","lines") []],Var 3],Var 4],Var 5]]))),Func ("OracleReadShowTerm","writeQTermFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","writeFile") [Var 2,Comb FuncCall ("OracleReadShowTerm","showQTerm") [Var 3,Var 1],Var 4]]))),Func ("OracleReadShowTerm","writeQTermListFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","writeFile") [Var 2,Comb FuncCall ("OraclePrelude","unlines") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleReadShowTerm","showQTerm") []],Var 3,Var 1],Var 4],Var 5]]))),Func ("OracleReadShowTerm","_case_3") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleReadShowTerm","_case_2") [Var 5,Var 4,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),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 '.'),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 'Q'),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 ':'),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 '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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleReadShowTerm","_case_2") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleReadShowTerm","_case_1") [Var 6,Var 7,Var 5,Var 1]])]])),Func ("OracleReadShowTerm","_case_1") 4 Private (TVar (-42)) (Rule [6,7,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","[]") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleReadShowTerm","_case_0") [Var 6,Var 7,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","all") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleChar","isSpace") []],Var 1],Var 7,Var 10],Var 11]])),Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),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 '.'),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 'Q'),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 ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleReadShowTerm","_case_0") 4 Private (TVar (-42)) (Rule [6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),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 '.'),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 'Q'),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 ':'),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 '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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleReadShowTerm","_case_7") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleReadShowTerm","_case_6") [Var 5,Var 4,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),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 '.'),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 'T'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),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 '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 'f'),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",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),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 'w'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","take") [Lit (Intc 20),Var 2,Var 1],Var 6],Var 7]]))]])),Func ("OracleReadShowTerm","_case_6") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleReadShowTerm","_case_5") [Var 6,Var 7,Var 5,Var 1]])]])),Func ("OracleReadShowTerm","_case_5") 4 Private (TVar (-42)) (Rule [6,7,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","[]") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleReadShowTerm","_case_4") [Var 6,Var 7,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","all") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleChar","isSpace") []],Var 1],Var 7,Var 10],Var 11]])),Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),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 '.'),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 'T'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleReadShowTerm","_case_4") 4 Private (TVar (-42)) (Rule [6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),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 '.'),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 'T'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),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 '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 ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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",":") [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 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 7,Var 1],Var 9]]))]])),Func ("OracleReadShowTerm","_case_11") 4 Private (TVar (-42)) (Rule [2,3,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleReadShowTerm","_case_10") [Var 5,Var 4,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),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 '.'),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 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'q'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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 ':'),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 '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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleReadShowTerm","_case_10") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleReadShowTerm","_case_9") [Var 6,Var 7,Var 5,Var 1]])]])),Func ("OracleReadShowTerm","_case_9") 4 Private (TVar (-42)) (Rule [6,7,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","[]") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleReadShowTerm","_case_8") [Var 6,Var 7,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","all") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleChar","isSpace") []],Var 1],Var 7,Var 10],Var 11]])),Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),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 '.'),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 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'q'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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 ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleReadShowTerm","_case_8") 4 Private (TVar (-42)) (Rule [6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),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 '.'),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 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'q'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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 ':'),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 '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 ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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",":") [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 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 7,Var 1],Var 9]]))]])),Func ("OracleReadShowTerm","_case_12") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),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 '.'),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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'q'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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 ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),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 '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 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'x'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleReadShowTerm","readsUnqualifiedTermWithPrefixes") [Comb ConsCall ("Prelude",":") [Var 4,Var 5],Var 3,Var 1]])]])),Func ("OracleReadShowTerm","prim_showTerm") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("ReadShowTerm","prim_showTerm") [Var 2]])),Func ("OracleReadShowTerm","prim_showQTerm") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("ReadShowTerm","prim_showQTerm") [Var 2]])),Func ("OracleReadShowTerm","prim_readsUnqualifiedTerm") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("ReadShowTerm","prim_readsUnqualifiedTerm") [Var 3,Var 2]])),Func ("OracleReadShowTerm","prim_readsQTerm") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("ReadShowTerm","prim_readsQTerm") [Var 2]]))] []
+ Curry/Module/OracleReadShowTerm.fint view
@@ -0,0 +1,1 @@+Prog "OracleReadShowTerm" ["CEventOracle","Oracle","IOExts","ReadShowTerm","Char","Prelude","OracleChar","OraclePrelude"] [] [Func ("OracleReadShowTerm","showTerm") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleReadShowTerm","prim_showTerm") []],Var 2,Var 1]])),Func ("OracleReadShowTerm","showQTerm") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleReadShowTerm","prim_showQTerm") []],Var 2,Var 1]])),Func ("OracleReadShowTerm","readsUnqualifiedTerm") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleReadShowTerm","_case_12") [Var 3,Var 2,Var 1]])),Func ("OracleReadShowTerm","readsUnqualifiedTermWithPrefixes") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleReadShowTerm","prim_readsUnqualifiedTerm") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleReadShowTerm","readUnqualifiedTerm") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleReadShowTerm","_case_11") [Var 2,Var 3,Comb FuncCall ("OracleReadShowTerm","readsUnqualifiedTerm") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OracleReadShowTerm","readsTerm") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleReadShowTerm","prim_readsUnqualifiedTerm") [Comb ConsCall ("Prelude","[]") []]],Var 2,Var 1]])),Func ("OracleReadShowTerm","readTerm") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleReadShowTerm","prim_readsUnqualifiedTerm") [Comb ConsCall ("Prelude","[]") []]],Var 2,Var 1])] (Comb FuncCall ("CEventOracle","replace") [Var 4,Comb FuncCall ("OracleReadShowTerm","_case_7") [Var 2,Var 3,Var 4]])]))),Func ("OracleReadShowTerm","readsQTerm") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleReadShowTerm","prim_readsQTerm") []],Var 2,Var 1]])),Func ("OracleReadShowTerm","readQTerm") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OracleReadShowTerm","readsQTerm") [Var 2,Var 1])] (Comb FuncCall ("CEventOracle","replace") [Var 4,Comb FuncCall ("OracleReadShowTerm","_case_3") [Var 3,Var 4]])]))),Func ("OracleReadShowTerm","readQTermFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleReadShowTerm","readQTerm") []],Var 3],Var 4]]))),Func ("OracleReadShowTerm","readQTermListFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TVar 0]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleReadShowTerm","readQTerm") []]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","lines") []],Var 3],Var 4],Var 5]]))),Func ("OracleReadShowTerm","writeQTermFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","writeFile") [Var 2,Comb FuncCall ("OracleReadShowTerm","showQTerm") [Var 3,Var 1],Var 4]]))),Func ("OracleReadShowTerm","writeQTermListFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","writeFile") [Var 2,Comb FuncCall ("OraclePrelude","unlines") [Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleReadShowTerm","showQTerm") []],Var 3,Var 1],Var 4],Var 5]]))),Func ("OracleReadShowTerm","_case_3") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleReadShowTerm","_case_2") [Var 5,Var 4,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),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 '.'),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 'Q'),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 ':'),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 '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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleReadShowTerm","_case_2") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleReadShowTerm","_case_1") [Var 6,Var 7,Var 5,Var 1]])]])),Func ("OracleReadShowTerm","_case_1") 4 Private (TVar (-42)) (Rule [6,7,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","[]") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleReadShowTerm","_case_0") [Var 6,Var 7,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","all") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleChar","isSpace") []],Var 1],Var 7,Var 10],Var 11]])),Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),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 '.'),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 'Q'),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 ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleReadShowTerm","_case_0") 4 Private (TVar (-42)) (Rule [6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),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 '.'),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 'Q'),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 ':'),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 '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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleReadShowTerm","_case_7") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleReadShowTerm","_case_6") [Var 5,Var 4,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","$") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","error") []],Comb FuncCall ("OraclePrelude","++") [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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),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 '.'),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 'T'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),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 '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 'f'),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",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),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 'w'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","take") [Lit (Intc 20),Var 2,Var 1],Var 6],Var 7]]))]])),Func ("OracleReadShowTerm","_case_6") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleReadShowTerm","_case_5") [Var 6,Var 7,Var 5,Var 1]])]])),Func ("OracleReadShowTerm","_case_5") 4 Private (TVar (-42)) (Rule [6,7,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","[]") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleReadShowTerm","_case_4") [Var 6,Var 7,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","all") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleChar","isSpace") []],Var 1],Var 7,Var 10],Var 11]])),Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),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 '.'),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 'T'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleReadShowTerm","_case_4") 4 Private (TVar (-42)) (Rule [6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),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 '.'),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 'T'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),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 '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 ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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",":") [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 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 7,Var 1],Var 9]]))]])),Func ("OracleReadShowTerm","_case_11") 4 Private (TVar (-42)) (Rule [2,3,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleReadShowTerm","_case_10") [Var 5,Var 4,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),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 '.'),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 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'q'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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 ':'),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 '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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleReadShowTerm","_case_10") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleReadShowTerm","_case_9") [Var 6,Var 7,Var 5,Var 1]])]])),Func ("OracleReadShowTerm","_case_9") 4 Private (TVar (-42)) (Rule [6,7,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","[]") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleReadShowTerm","_case_8") [Var 6,Var 7,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","all") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleChar","isSpace") []],Var 1],Var 7,Var 10],Var 11]])),Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),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 '.'),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 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'q'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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 ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleReadShowTerm","_case_8") 4 Private (TVar (-42)) (Rule [6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),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 '.'),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 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'q'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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 ':'),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 '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 ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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",":") [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 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 7,Var 1],Var 9]]))]])),Func ("OracleReadShowTerm","_case_12") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),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 '.'),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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'q'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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 ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),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 '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 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'x'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleReadShowTerm","readsUnqualifiedTermWithPrefixes") [Comb ConsCall ("Prelude",":") [Var 4,Var 5],Var 3,Var 1]])]])),Func ("OracleReadShowTerm","prim_showTerm") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("ReadShowTerm","prim_showTerm") [Var 2]])),Func ("OracleReadShowTerm","prim_showQTerm") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("ReadShowTerm","prim_showQTerm") [Var 2]])),Func ("OracleReadShowTerm","prim_readsUnqualifiedTerm") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("ReadShowTerm","prim_readsUnqualifiedTerm") [Var 3,Var 2]])),Func ("OracleReadShowTerm","prim_readsQTerm") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("ReadShowTerm","prim_readsQTerm") [Var 2]]))] []
+ Curry/Module/OracleRedBlackTree.fcy view
@@ -0,0 +1,1 @@+Prog "OracleRedBlackTree" ["CEventOracle","Oracle","IOExts","RedBlackTree","Prelude","OraclePrelude"] [Type ("OracleRedBlackTree","RedBlackTree") Public [0] [Cons ("OracleRedBlackTree","RedBlackTree") 4 Private [FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") [])))),FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") [])))),FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") [])))),TCons ("RedBlackTree","Tree") [TVar 0]]]] [Func ("OracleRedBlackTree","empty") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OracleRedBlackTree","RedBlackTree") [Var 2,Var 3,Var 4,Comb ConsCall ("RedBlackTree","Empty") []]])),Func ("OracleRedBlackTree","isEmpty") 2 Public (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_284") [Var 2,Var 1]])),Func ("OracleRedBlackTree","newTreeLike") 2 Public (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_282") [Var 2,Var 1]])),Func ("OracleRedBlackTree","lookup") 3 Public (FuncType (TVar 0) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_281") [Var 2,Var 3,Var 1]])),Func ("OracleRedBlackTree","lookupTree") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TVar 0) (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TVar 0])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_280") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleRedBlackTree","update") 3 Public (FuncType (TVar 0) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_276") [Var 2,Var 3,Var 1]])),Func ("OracleRedBlackTree","updateTree") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TVar 0) (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0])))))) (Rule [2,3,4,5,1] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleRedBlackTree","updateTree.upd.35") [Var 4,Var 2,Var 3,Var 5,Var 1])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleRedBlackTree","updateTree._#selFP3#e2") [Var 6,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleRedBlackTree","updateTree._#selFP4#l") [Var 6,Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleRedBlackTree","updateTree._#selFP5#r") [Var 6,Var 12])] (Comb FuncCall ("CEventOracle","collapse") [Var 13,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 7,Var 8,Var 9]])]))]))]))]))),Func ("OracleRedBlackTree","updateTree.upd.35") 5 Private (FuncType (TVar 183) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 183) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 183) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 183) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 183) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("RedBlackTree","Tree") [TVar 183]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 183])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_275") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleRedBlackTree","updateTree._#selFP3#e2") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 183]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 183))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_271") [Var 2,Var 1]])),Func ("OracleRedBlackTree","updateTree._#selFP4#l") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 183]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 183]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_270") [Var 2,Var 1]])),Func ("OracleRedBlackTree","updateTree._#selFP5#r") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 183]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 183]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_269") [Var 2,Var 1]])),Func ("OracleRedBlackTree","delete") 3 Public (FuncType (TVar 0) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_268") [Var 2,Var 3,Var 1]])),Func ("OracleRedBlackTree","delete.blackenRoot.44") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_267") [Var 2,Var 1]])),Func ("OracleRedBlackTree","deleteTree") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TVar 0) (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_266") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleRedBlackTree","deleteTree.addColor.56") 3 Private (FuncType (TCons ("RedBlackTree","Color") []) (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_260") [Var 3,Var 2,Var 1]])),Func ("OracleRedBlackTree","deleteTree.rightMost.56") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_257") [Var 2,Var 1]])),Func ("OracleRedBlackTree","tree2list") 2 Public (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_255") [Var 2,Var 1]])),Func ("OracleRedBlackTree","tree2listTree") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","tree2listTree.t2l.77") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1]])),Func ("OracleRedBlackTree","tree2listTree.t2l.77") 3 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_254") [Var 3,Var 2,Var 1]])),Func ("OracleRedBlackTree","sort") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleRedBlackTree","tree2list") [Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleRedBlackTree","update") []],Comb FuncCall ("OracleRedBlackTree","empty") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleRedBlackTree","sort._#lambda2") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []],Var 2,Var 1],Var 3,Var 4],Var 5]]))),Func ("OracleRedBlackTree","sort._#lambda2") 3 Private (FuncType (TVar 520) (FuncType (TVar 520) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleRedBlackTree","setInsertEquivalence") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_253") [Var 2,Var 3,Var 1]])),Func ("OracleRedBlackTree","rbt") 2 Private (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_252") [Var 2,Var 1]])),Func ("OracleRedBlackTree","isBlack") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_251") [Var 2,Var 1]])),Func ("OracleRedBlackTree","isRed") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_250") [Var 2,Var 1]])),Func ("OracleRedBlackTree","isDoublyBlack") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_249") [Var 2,Var 1]])),Func ("OracleRedBlackTree","element") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_248") [Var 2,Var 1]])),Func ("OracleRedBlackTree","left") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_247") [Var 2,Var 1]])),Func ("OracleRedBlackTree","right") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_246") [Var 2,Var 1]])),Func ("OracleRedBlackTree","singleBlack") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_245") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0]))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OracleRedBlackTree","left") [Var 2,Var 1])] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleRedBlackTree","_case_243") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleRedBlackTree","isRed") [Var 3,Var 4],Comb FuncCall ("OracleRedBlackTree","isRed") [Comb FuncCall ("OracleRedBlackTree","left") [Var 3,Var 5],Var 6],Var 7],Var 8]]))]))),Func ("OracleRedBlackTree","balanceL._#selFP7#z") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 88))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_240") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP8#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 88))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_237") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP9#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 88))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_234") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP10#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 88]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_231") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP11#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 88]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_228") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP12#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 88]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_225") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP13#d") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 88]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_222") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP15#z") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 88))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_219") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP16#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 88))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_216") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP17#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 88]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_213") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP18#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 88))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_210") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP19#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 88]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_207") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP20#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 88]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_204") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP21#d") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 88]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_201") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0]))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OracleRedBlackTree","right") [Var 2,Var 1])] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleRedBlackTree","_case_198") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleRedBlackTree","isRed") [Var 3,Var 4],Comb FuncCall ("OracleRedBlackTree","isRed") [Comb FuncCall ("OracleRedBlackTree","right") [Var 3,Var 5],Var 6],Var 7],Var 8]]))]))),Func ("OracleRedBlackTree","balanceR._#selFP23#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 131))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_195") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP24#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 131]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_192") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP25#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 131))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_189") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP26#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 131]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_186") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP27#z") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 131))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_183") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP28#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 131]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_180") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP29#d") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 131]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_177") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP31#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 131))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_174") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP32#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 131]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_171") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP33#z") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 131))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_168") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP34#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 131))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_165") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP35#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 131]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_162") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP36#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 131]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_159") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP37#d") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 131]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_156") [Var 2,Var 1]])),Func ("OracleRedBlackTree","delBalanceL") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleRedBlackTree","_case_153") [Var 2,Comb FuncCall ("OracleRedBlackTree","isDoublyBlack") [Comb FuncCall ("OracleRedBlackTree","left") [Var 2,Var 1],Var 3],Var 4]]))),Func ("OracleRedBlackTree","reviseLeft") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0]))) (Rule [2,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OracleRedBlackTree","right") [Var 2,Var 1])] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleRedBlackTree","isBlack") [Var 3,Var 5])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_152") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Comb ConsCall ("RedBlackTree","Empty") [],Var 6],Var 7]]))]))]))),Func ("OracleRedBlackTree","reviseLeft._#selFP39#col") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Color") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_146") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP40#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 249))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_143") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP41#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_140") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP42#z") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 249))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_137") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP43#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 249))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_134") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP44#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_131") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP45#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_128") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP46#d") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_125") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP48#col") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Color") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_122") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP49#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 249))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_119") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP50#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_116") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP51#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 249))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_113") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP52#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_110") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP53#z") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 249))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_107") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP54#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_104") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP55#d") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_101") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP57#col") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Color") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_98") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP58#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 249))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_96") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP59#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_94") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP60#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 249))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_92") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP61#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_90") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP62#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_88") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP64#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 249))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_86") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP65#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_84") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP66#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 249))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_82") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP67#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_80") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP68#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_78") [Var 2,Var 1]])),Func ("OracleRedBlackTree","delBalanceR") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleRedBlackTree","_case_76") [Var 2,Comb FuncCall ("OracleRedBlackTree","isDoublyBlack") [Comb FuncCall ("OracleRedBlackTree","right") [Var 2,Var 1],Var 3],Var 4]]))),Func ("OracleRedBlackTree","reviseRight") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0]))) (Rule [2,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OracleRedBlackTree","left") [Var 2,Var 1])] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleRedBlackTree","isBlack") [Var 3,Var 5])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_75") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Comb ConsCall ("RedBlackTree","Empty") [],Var 6],Var 7]]))]))]))),Func ("OracleRedBlackTree","reviseRight._#selFP70#col") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Color") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_69") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP71#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 327))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_66") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP72#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 327))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_63") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP73#z") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 327))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_60") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP74#d") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_57") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP75#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_54") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP76#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_51") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP77#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_48") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP79#col") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Color") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_45") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP80#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 327))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_42") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP81#z") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 327))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_39") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP82#d") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_36") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP83#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 327))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_33") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP84#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_30") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP85#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_27") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP86#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_24") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP88#col") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Color") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_21") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP89#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 327))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_19") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP90#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 327))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_17") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP91#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_15") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP92#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_13") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP93#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_11") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP95#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 327))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_9") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP96#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 327))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_7") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP97#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_5") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP98#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_3") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP99#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_1") [Var 2,Var 1]])),Func ("OracleRedBlackTree","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_0") [Var 6,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_0") 3 Private (TVar (-42)) (Rule [6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleRedBlackTree","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_2") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_2") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 10])]])),Func ("OracleRedBlackTree","_case_5") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_4") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_4") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleRedBlackTree","_case_7") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_6") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_6") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_9") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_8") [Var 4,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_8") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_11") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_10") [Var 6,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_10") 3 Private (TVar (-42)) (Rule [6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleRedBlackTree","_case_13") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_12") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_12") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 10])]])),Func ("OracleRedBlackTree","_case_15") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_14") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_14") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleRedBlackTree","_case_17") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_16") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_16") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_19") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_18") [Var 4,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_18") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_21") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_20") [Var 3,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_20") 3 Private (TVar (-42)) (Rule [3,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleRedBlackTree","_case_24") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_23") [Var 6,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_23") 3 Private (TVar (-42)) (Rule [6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_22") [Var 6,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_22") 3 Private (TVar (-42)) (Rule [6,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleRedBlackTree","_case_27") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_26") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_26") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_25") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_25") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 14])]])),Func ("OracleRedBlackTree","_case_30") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_29") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_29") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_28") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_28") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 13])]])),Func ("OracleRedBlackTree","_case_33") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_32") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_32") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_31") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_31") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 12])]])),Func ("OracleRedBlackTree","_case_36") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_35") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_35") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_34") [Var 9,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_34") 3 Private (TVar (-42)) (Rule [9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleRedBlackTree","_case_39") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_38") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_38") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_37") [Var 8,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_37") 3 Private (TVar (-42)) (Rule [8,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_42") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_41") [Var 4,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_41") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_40") [Var 4,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_40") 3 Private (TVar (-42)) (Rule [4,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_45") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_44") [Var 3,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_44") 3 Private (TVar (-42)) (Rule [3,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_43") [Var 3,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_43") 3 Private (TVar (-42)) (Rule [3,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleRedBlackTree","_case_48") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_47") [Var 6,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_47") 3 Private (TVar (-42)) (Rule [6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_46") [Var 6,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_46") 3 Private (TVar (-42)) (Rule [6,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleRedBlackTree","_case_51") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_50") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_50") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_49") [Var 10,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_49") 3 Private (TVar (-42)) (Rule [10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 10])]])),Func ("OracleRedBlackTree","_case_54") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_53") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_53") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_52") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_52") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 14])]])),Func ("OracleRedBlackTree","_case_57") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_56") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_56") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_55") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_55") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 13])]])),Func ("OracleRedBlackTree","_case_60") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_59") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_59") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_58") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_58") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 12])]])),Func ("OracleRedBlackTree","_case_63") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_62") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_62") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_61") [Var 8,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_61") 3 Private (TVar (-42)) (Rule [8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_66") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_65") [Var 4,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_65") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_64") [Var 4,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_64") 3 Private (TVar (-42)) (Rule [4,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_69") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_68") [Var 3,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_68") 3 Private (TVar (-42)) (Rule [3,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_67") [Var 3,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_67") 3 Private (TVar (-42)) (Rule [3,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleRedBlackTree","_case_75") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleRedBlackTree","_case_74") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","&&") [Var 4,Comb FuncCall ("OracleRedBlackTree","isRed") [Comb FuncCall ("OracleRedBlackTree","left") [Var 3,Var 1],Var 6],Var 7],Var 8]]))]])),Func ("OracleRedBlackTree","_case_74") 5 Private (TVar (-42)) (Rule [2,3,4,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(5,Var 2)] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP70#col") [Var 5,Var 1])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP71#x") [Var 5,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP72#y") [Var 5,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP73#z") [Var 5,Var 17])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP74#d") [Var 5,Var 18])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP75#c") [Var 5,Var 19])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Let [(12,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP76#b") [Var 5,Var 20])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP77#a") [Var 5,Var 21])] (Comb FuncCall ("CEventOracle","replace") [Var 22,Comb ConsCall ("RedBlackTree","Tree") [Var 6,Var 8,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 9,Var 10,Var 11],Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 7,Var 12,Comb FuncCall ("OracleRedBlackTree","singleBlack") [Var 13,Var 22]]]])]))]))]))]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleRedBlackTree","_case_73") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","&&") [Var 4,Comb FuncCall ("OracleRedBlackTree","isRed") [Comb FuncCall ("OracleRedBlackTree","right") [Var 3,Var 1],Var 23],Var 24],Var 25]]))]])),Func ("OracleRedBlackTree","_case_73") 5 Private (TVar (-42)) (Rule [2,3,4,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(14,Var 2)] (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Let [(15,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP79#col") [Var 14,Var 1])] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(16,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP80#x") [Var 14,Var 24])] (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Let [(17,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP81#z") [Var 14,Var 25])] (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Let [(18,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP82#d") [Var 14,Var 26])] (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Let [(19,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP83#y") [Var 14,Var 27])] (Let [(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []],Let [(20,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP84#c") [Var 14,Var 28])] (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []],Let [(21,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP85#b") [Var 14,Var 29])] (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []],Let [(22,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP86#a") [Var 14,Var 30])] (Comb FuncCall ("CEventOracle","replace") [Var 31,Comb ConsCall ("RedBlackTree","Tree") [Var 15,Var 19,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 17,Var 18,Var 20],Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 16,Var 21,Comb FuncCall ("OracleRedBlackTree","singleBlack") [Var 22,Var 31]]]])]))]))]))]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_72") [Var 2,Var 4,Var 1]])]])),Func ("OracleRedBlackTree","_case_72") 3 Private (TVar (-42)) (Rule [2,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(23,Var 2)] (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []],Let [(24,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP88#col") [Var 23,Var 1])] (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []],Let [(25,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP89#x") [Var 23,Var 30])] (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude","[]") []],Let [(26,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP90#y") [Var 23,Var 31])] (Let [(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude","[]") []],Let [(27,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP91#c") [Var 23,Var 32])] (Let [(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude","[]") []],Let [(28,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP92#b") [Var 23,Var 33])] (Let [(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude","[]") []],Let [(29,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP93#a") [Var 23,Var 34])] (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("RedBlackTree","Tree") [Comb FuncCall ("OracleRedBlackTree","_case_71") [Var 24,Comb FuncCall ("OraclePrelude","==") [Var 24,Comb ConsCall ("RedBlackTree","Red") [],Var 35],Var 36],Var 25,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Red") [],Var 26,Var 27,Var 28],Comb FuncCall ("OracleRedBlackTree","singleBlack") [Var 29,Var 37]]]))]))]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Let [(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_70") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 38]]))]])),Func ("OracleRedBlackTree","_case_70") 3 Private (TVar (-42)) (Rule [2,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 36) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(30,Var 2)] (Let [(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude","[]") []],Let [(31,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP95#x") [Var 30,Var 1])] (Let [(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude","[]") []],Let [(32,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP96#y") [Var 30,Var 37])] (Let [(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude","[]") []],Let [(33,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP97#c") [Var 30,Var 38])] (Let [(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []],Let [(34,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP98#b") [Var 30,Var 39])] (Let [(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude","[]") []],Let [(35,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP99#a") [Var 30,Var 40])] (Comb FuncCall ("CEventOracle","replace") [Var 41,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 32,Var 33,Comb FuncCall ("OracleRedBlackTree","reviseRight") [Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Red") [],Var 31,Var 34,Var 35],Var 41]]])]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleRedBlackTree","_case_71") 3 Private (TVar (-42)) (Rule [24,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 25) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Black") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","DoublyBlack") []])]])),Func ("OracleRedBlackTree","_case_76") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","reviseRight") [Var 2,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]])),Func ("OracleRedBlackTree","_case_78") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_77") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_77") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 10])]])),Func ("OracleRedBlackTree","_case_80") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_79") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_79") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleRedBlackTree","_case_82") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_81") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_81") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_84") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_83") [Var 5,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_83") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleRedBlackTree","_case_86") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_85") [Var 4,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_85") 3 Private (TVar (-42)) (Rule [4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_88") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_87") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_87") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 10])]])),Func ("OracleRedBlackTree","_case_90") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_89") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_89") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleRedBlackTree","_case_92") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_91") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_91") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_94") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_93") [Var 5,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_93") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleRedBlackTree","_case_96") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_95") [Var 4,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_95") 3 Private (TVar (-42)) (Rule [4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_98") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_97") [Var 3,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_97") 3 Private (TVar (-42)) (Rule [3,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleRedBlackTree","_case_101") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_100") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_100") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_99") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_99") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 14])]])),Func ("OracleRedBlackTree","_case_104") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_103") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_103") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_102") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_102") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 13])]])),Func ("OracleRedBlackTree","_case_107") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_106") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_106") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_105") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_105") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 12])]])),Func ("OracleRedBlackTree","_case_110") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_109") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_109") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_108") [Var 9,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_108") 3 Private (TVar (-42)) (Rule [9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleRedBlackTree","_case_113") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_112") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_112") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_111") [Var 8,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_111") 3 Private (TVar (-42)) (Rule [8,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_116") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_115") [Var 5,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_115") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_114") [Var 5,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_114") 3 Private (TVar (-42)) (Rule [5,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleRedBlackTree","_case_119") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_118") [Var 4,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_118") 3 Private (TVar (-42)) (Rule [4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_117") [Var 4,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_117") 3 Private (TVar (-42)) (Rule [4,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_122") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_121") [Var 3,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_121") 3 Private (TVar (-42)) (Rule [3,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_120") [Var 3,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_120") 3 Private (TVar (-42)) (Rule [3,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleRedBlackTree","_case_125") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_124") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_124") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_123") [Var 10,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_123") 3 Private (TVar (-42)) (Rule [10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 10])]])),Func ("OracleRedBlackTree","_case_128") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_127") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_127") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_126") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_126") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 14])]])),Func ("OracleRedBlackTree","_case_131") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_130") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_130") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_129") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_129") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 13])]])),Func ("OracleRedBlackTree","_case_134") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_133") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_133") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_132") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_132") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 12])]])),Func ("OracleRedBlackTree","_case_137") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_136") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_136") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_135") [Var 8,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_135") 3 Private (TVar (-42)) (Rule [8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_140") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_139") [Var 5,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_139") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_138") [Var 5,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_138") 3 Private (TVar (-42)) (Rule [5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleRedBlackTree","_case_143") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_142") [Var 4,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_142") 3 Private (TVar (-42)) (Rule [4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_141") [Var 4,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_141") 3 Private (TVar (-42)) (Rule [4,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_146") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_145") [Var 3,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_145") 3 Private (TVar (-42)) (Rule [3,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_144") [Var 3,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_144") 3 Private (TVar (-42)) (Rule [3,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleRedBlackTree","_case_152") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleRedBlackTree","_case_151") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","&&") [Var 4,Comb FuncCall ("OracleRedBlackTree","isRed") [Comb FuncCall ("OracleRedBlackTree","left") [Var 3,Var 1],Var 6],Var 7],Var 8]]))]])),Func ("OracleRedBlackTree","_case_151") 5 Private (TVar (-42)) (Rule [2,3,4,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(5,Var 2)] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP39#col") [Var 5,Var 1])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP40#x") [Var 5,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP41#a") [Var 5,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP42#z") [Var 5,Var 17])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP43#y") [Var 5,Var 18])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP44#b") [Var 5,Var 19])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Let [(12,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP45#c") [Var 5,Var 20])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP46#d") [Var 5,Var 21])] (Comb FuncCall ("CEventOracle","replace") [Var 22,Comb ConsCall ("RedBlackTree","Tree") [Var 6,Var 10,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 7,Comb FuncCall ("OracleRedBlackTree","singleBlack") [Var 8,Var 22],Var 11],Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 9,Var 12,Var 13]]])]))]))]))]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleRedBlackTree","_case_150") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","&&") [Var 4,Comb FuncCall ("OracleRedBlackTree","isRed") [Comb FuncCall ("OracleRedBlackTree","right") [Var 3,Var 1],Var 23],Var 24],Var 25]]))]])),Func ("OracleRedBlackTree","_case_150") 5 Private (TVar (-42)) (Rule [2,3,4,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(14,Var 2)] (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Let [(15,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP48#col") [Var 14,Var 1])] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(16,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP49#x") [Var 14,Var 24])] (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Let [(17,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP50#a") [Var 14,Var 25])] (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Let [(18,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP51#y") [Var 14,Var 26])] (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Let [(19,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP52#b") [Var 14,Var 27])] (Let [(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []],Let [(20,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP53#z") [Var 14,Var 28])] (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []],Let [(21,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP54#c") [Var 14,Var 29])] (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []],Let [(22,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP55#d") [Var 14,Var 30])] (Comb FuncCall ("CEventOracle","replace") [Var 31,Comb ConsCall ("RedBlackTree","Tree") [Var 15,Var 18,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 16,Comb FuncCall ("OracleRedBlackTree","singleBlack") [Var 17,Var 31],Var 19],Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 20,Var 21,Var 22]]])]))]))]))]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_149") [Var 2,Var 4,Var 1]])]])),Func ("OracleRedBlackTree","_case_149") 3 Private (TVar (-42)) (Rule [2,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(23,Var 2)] (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []],Let [(24,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP57#col") [Var 23,Var 1])] (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []],Let [(25,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP58#x") [Var 23,Var 30])] (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude","[]") []],Let [(26,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP59#a") [Var 23,Var 31])] (Let [(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude","[]") []],Let [(27,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP60#y") [Var 23,Var 32])] (Let [(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude","[]") []],Let [(28,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP61#b") [Var 23,Var 33])] (Let [(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude","[]") []],Let [(29,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP62#c") [Var 23,Var 34])] (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("RedBlackTree","Tree") [Comb FuncCall ("OracleRedBlackTree","_case_148") [Var 24,Comb FuncCall ("OraclePrelude","==") [Var 24,Comb ConsCall ("RedBlackTree","Red") [],Var 35],Var 36],Var 25,Comb FuncCall ("OracleRedBlackTree","singleBlack") [Var 26,Var 37],Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Red") [],Var 27,Var 28,Var 29]]]))]))]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Let [(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_147") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 38]]))]])),Func ("OracleRedBlackTree","_case_147") 3 Private (TVar (-42)) (Rule [2,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 36) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(30,Var 2)] (Let [(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude","[]") []],Let [(31,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP64#x") [Var 30,Var 1])] (Let [(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude","[]") []],Let [(32,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP65#a") [Var 30,Var 37])] (Let [(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude","[]") []],Let [(33,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP66#y") [Var 30,Var 38])] (Let [(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []],Let [(34,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP67#b") [Var 30,Var 39])] (Let [(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude","[]") []],Let [(35,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP68#c") [Var 30,Var 40])] (Comb FuncCall ("CEventOracle","replace") [Var 41,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 33,Comb FuncCall ("OracleRedBlackTree","reviseLeft") [Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Red") [],Var 31,Var 32,Var 34],Var 41],Var 35]])]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleRedBlackTree","_case_148") 3 Private (TVar (-42)) (Rule [24,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 25) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Black") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","DoublyBlack") []])]])),Func ("OracleRedBlackTree","_case_153") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","reviseLeft") [Var 2,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]])),Func ("OracleRedBlackTree","_case_156") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_155") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_155") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_154") [Var 10,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_154") 3 Private (TVar (-42)) (Rule [10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 10])]])),Func ("OracleRedBlackTree","_case_159") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_158") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_158") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_157") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_157") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 14])]])),Func ("OracleRedBlackTree","_case_162") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_161") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_161") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_160") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_160") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 13])]])),Func ("OracleRedBlackTree","_case_165") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_164") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_164") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_163") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_163") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 12])]])),Func ("OracleRedBlackTree","_case_168") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_167") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_167") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_166") [Var 8,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_166") 3 Private (TVar (-42)) (Rule [8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_171") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_170") [Var 5,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_170") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_169") [Var 5,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_169") 3 Private (TVar (-42)) (Rule [5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleRedBlackTree","_case_174") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_173") [Var 4,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_173") 3 Private (TVar (-42)) (Rule [4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_172") [Var 4,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_172") 3 Private (TVar (-42)) (Rule [4,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_177") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_176") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_176") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_175") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_175") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 14])]])),Func ("OracleRedBlackTree","_case_180") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_179") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_179") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_178") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_178") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 13])]])),Func ("OracleRedBlackTree","_case_183") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_182") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_182") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_181") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_181") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 12])]])),Func ("OracleRedBlackTree","_case_186") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_185") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_185") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_184") [Var 9,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_184") 3 Private (TVar (-42)) (Rule [9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleRedBlackTree","_case_189") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_188") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_188") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_187") [Var 8,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_187") 3 Private (TVar (-42)) (Rule [8,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_192") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_191") [Var 5,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_191") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_190") [Var 5,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_190") 3 Private (TVar (-42)) (Rule [5,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleRedBlackTree","_case_195") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_194") [Var 4,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_194") 3 Private (TVar (-42)) (Rule [4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_193") [Var 4,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_193") 3 Private (TVar (-42)) (Rule [4,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_198") 4 Private (TVar (-42)) (Rule [2,3,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(4,Var 2)] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP23#x") [Var 4,Var 1])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP24#a") [Var 4,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP25#y") [Var 4,Var 14])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP26#b") [Var 4,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP27#z") [Var 4,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP28#c") [Var 4,Var 17])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP29#d") [Var 4,Var 18])] (Comb FuncCall ("CEventOracle","collapse") [Var 19,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Red") [],Var 7,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 5,Var 6,Var 8],Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 9,Var 10,Var 11]]])]))]))]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleRedBlackTree","_case_197") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleRedBlackTree","isRed") [Var 3,Var 1],Comb FuncCall ("OracleRedBlackTree","isRed") [Comb FuncCall ("OracleRedBlackTree","left") [Var 3,Var 20],Var 21],Var 22],Var 23]]))]])),Func ("OracleRedBlackTree","_case_197") 4 Private (TVar (-42)) (Rule [2,3,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 20) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(12,Var 2)] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP31#x") [Var 12,Var 1])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Let [(14,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP32#a") [Var 12,Var 21])] (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Let [(15,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP33#z") [Var 12,Var 22])] (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Let [(16,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP34#y") [Var 12,Var 23])] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(17,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP35#b") [Var 12,Var 24])] (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Let [(18,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP36#c") [Var 12,Var 25])] (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Let [(19,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP37#d") [Var 12,Var 26])] (Comb FuncCall ("CEventOracle","collapse") [Var 27,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Red") [],Var 16,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 13,Var 14,Var 17],Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 15,Var 18,Var 19]]])]))]))]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_196") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 28]]))]])),Func ("OracleRedBlackTree","_case_196") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleRedBlackTree","_case_201") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_200") [Var 6,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_200") 3 Private (TVar (-42)) (Rule [6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_199") [Var 6,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_199") 3 Private (TVar (-42)) (Rule [6,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleRedBlackTree","_case_204") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_203") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_203") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_202") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_202") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 14])]])),Func ("OracleRedBlackTree","_case_207") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_206") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_206") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_205") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_205") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 13])]])),Func ("OracleRedBlackTree","_case_210") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_209") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_209") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_208") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_208") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 12])]])),Func ("OracleRedBlackTree","_case_213") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_212") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_212") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_211") [Var 9,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_211") 3 Private (TVar (-42)) (Rule [9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleRedBlackTree","_case_216") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_215") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_215") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_214") [Var 8,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_214") 3 Private (TVar (-42)) (Rule [8,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_219") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_218") [Var 4,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_218") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_217") [Var 4,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_217") 3 Private (TVar (-42)) (Rule [4,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_222") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_221") [Var 6,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_221") 3 Private (TVar (-42)) (Rule [6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_220") [Var 6,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_220") 3 Private (TVar (-42)) (Rule [6,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleRedBlackTree","_case_225") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_224") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_224") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_223") [Var 10,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_223") 3 Private (TVar (-42)) (Rule [10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 10])]])),Func ("OracleRedBlackTree","_case_228") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_227") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_227") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_226") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_226") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 14])]])),Func ("OracleRedBlackTree","_case_231") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_230") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_230") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_229") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_229") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 13])]])),Func ("OracleRedBlackTree","_case_234") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_233") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_233") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_232") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_232") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 12])]])),Func ("OracleRedBlackTree","_case_237") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_236") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_236") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_235") [Var 8,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_235") 3 Private (TVar (-42)) (Rule [8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_240") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_239") [Var 4,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_239") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_238") [Var 4,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_238") 3 Private (TVar (-42)) (Rule [4,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_243") 4 Private (TVar (-42)) (Rule [2,3,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(4,Var 2)] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP7#z") [Var 4,Var 1])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP8#y") [Var 4,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP9#x") [Var 4,Var 14])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP10#a") [Var 4,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP11#b") [Var 4,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP12#c") [Var 4,Var 17])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP13#d") [Var 4,Var 18])] (Comb FuncCall ("CEventOracle","collapse") [Var 19,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Red") [],Var 6,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 7,Var 8,Var 9],Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 5,Var 10,Var 11]]])]))]))]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleRedBlackTree","_case_242") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleRedBlackTree","isRed") [Var 3,Var 1],Comb FuncCall ("OracleRedBlackTree","isRed") [Comb FuncCall ("OracleRedBlackTree","right") [Var 3,Var 20],Var 21],Var 22],Var 23]]))]])),Func ("OracleRedBlackTree","_case_242") 4 Private (TVar (-42)) (Rule [2,3,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 20) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(12,Var 2)] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP15#z") [Var 12,Var 1])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Let [(14,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP16#x") [Var 12,Var 21])] (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Let [(15,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP17#a") [Var 12,Var 22])] (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Let [(16,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP18#y") [Var 12,Var 23])] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(17,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP19#b") [Var 12,Var 24])] (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Let [(18,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP20#c") [Var 12,Var 25])] (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Let [(19,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP21#d") [Var 12,Var 26])] (Comb FuncCall ("CEventOracle","collapse") [Var 27,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Red") [],Var 16,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 14,Var 15,Var 17],Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 13,Var 18,Var 19]]])]))]))]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_241") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 28]]))]])),Func ("OracleRedBlackTree","_case_241") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleRedBlackTree","_case_245") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Empty") []]),Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_244") [Var 4,Var 5,Var 6,Var 3,Var 1]])]])),Func ("OracleRedBlackTree","_case_244") 5 Private (TVar (-42)) (Rule [4,5,6,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("RedBlackTree","DoublyBlack") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 4,Var 5,Var 6]])]])),Func ("OracleRedBlackTree","_case_246") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleRedBlackTree","_case_247") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleRedBlackTree","_case_248") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_249") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 3,Comb ConsCall ("RedBlackTree","DoublyBlack") [],Var 1]])]])),Func ("OracleRedBlackTree","_case_250") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 3,Comb ConsCall ("RedBlackTree","Red") [],Var 1]])]])),Func ("OracleRedBlackTree","_case_251") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 3,Comb ConsCall ("RedBlackTree","Black") [],Var 1]])]])),Func ("OracleRedBlackTree","_case_252") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleRedBlackTree","RedBlackTree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleRedBlackTree","_case_253") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleRedBlackTree","RedBlackTree") [4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OracleRedBlackTree","RedBlackTree") [Var 2,Var 5,Var 6,Var 7]])]])),Func ("OracleRedBlackTree","_case_254") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("RedBlackTree","Tree") [4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","tree2listTree.t2l.77") [Var 6,Comb ConsCall ("Prelude",":") [Var 5,Comb FuncCall ("OracleRedBlackTree","tree2listTree.t2l.77") [Var 7,Var 3,Var 1]],Var 8]]))]])),Func ("OracleRedBlackTree","_case_255") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleRedBlackTree","RedBlackTree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","tree2listTree") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_257") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_256") [Var 4,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 6,Comb ConsCall ("RedBlackTree","Empty") [],Var 1],Var 7]]))]])),Func ("OracleRedBlackTree","_case_256") 4 Private (TVar (-42)) (Rule [4,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","deleteTree.rightMost.56") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_260") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Red") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("RedBlackTree","Black") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_259") [Var 3,Var 1]])]])),Func ("OracleRedBlackTree","_case_259") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("RedBlackTree","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Empty") []]),Branch (Pattern ("RedBlackTree","Tree") [4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_258") [Var 5,Var 6,Var 7,Var 4,Var 1]])]])),Func ("OracleRedBlackTree","_case_258") 5 Private (TVar (-42)) (Rule [5,6,7,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("RedBlackTree","Red") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 5,Var 6,Var 7]]),Branch (Pattern ("RedBlackTree","Black") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","DoublyBlack") [],Var 5,Var 6,Var 7]])]])),Func ("OracleRedBlackTree","_case_266") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Empty") []]),Branch (Pattern ("RedBlackTree","Tree") [6,7,8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleRedBlackTree","_case_265") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 7,Var 10],Var 11]]))]])),Func ("OracleRedBlackTree","_case_265") 9 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_264") [Var 2,Var 3,Var 6,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 8,Comb ConsCall ("RedBlackTree","Empty") [],Var 1],Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleRedBlackTree","_case_262") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 4,Var 1],Var 7,Var 12],Var 13]]))]])),Func ("OracleRedBlackTree","_case_262") 9 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","delBalanceL") [Comb ConsCall ("RedBlackTree","Tree") [Var 6,Var 7,Comb FuncCall ("OracleRedBlackTree","deleteTree") [Var 2,Var 3,Var 4,Var 8,Var 1],Var 9],Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_261") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 12]]))]])),Func ("OracleRedBlackTree","_case_261") 9 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","delBalanceR") [Comb ConsCall ("RedBlackTree","Tree") [Var 6,Var 7,Var 8,Comb FuncCall ("OracleRedBlackTree","deleteTree") [Var 2,Var 3,Var 4,Var 9,Var 1]],Var 11]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleRedBlackTree","_case_264") 7 Private (TVar (-42)) (Rule [2,3,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","deleteTree.addColor.56") [Var 6,Var 9,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_263") [Var 2,Var 3,Var 6,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 9,Comb ConsCall ("RedBlackTree","Empty") [],Var 1],Var 11]]))]])),Func ("OracleRedBlackTree","_case_263") 7 Private (TVar (-42)) (Rule [2,3,6,8,9,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","deleteTree.addColor.56") [Var 6,Var 8,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleRedBlackTree","deleteTree.rightMost.56") [Var 8,Var 1])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","delBalanceL") [Comb ConsCall ("RedBlackTree","Tree") [Var 6,Var 10,Comb FuncCall ("OracleRedBlackTree","deleteTree") [Var 2,Var 3,Var 10,Var 8,Var 12],Var 9],Var 13]]))]))]])),Func ("OracleRedBlackTree","_case_267") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Empty") []]),Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 4,Var 5,Var 6]])]])),Func ("OracleRedBlackTree","_case_268") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleRedBlackTree","RedBlackTree") [4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("OracleRedBlackTree","RedBlackTree") [Var 4,Var 5,Var 6,Comb FuncCall ("OracleRedBlackTree","delete.blackenRoot.44") [Comb FuncCall ("OracleRedBlackTree","deleteTree") [Var 5,Var 6,Var 2,Var 7,Var 1],Var 8]]]))]])),Func ("OracleRedBlackTree","_case_269") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleRedBlackTree","_case_270") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleRedBlackTree","_case_271") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_275") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Red") [],Var 2,Comb ConsCall ("RedBlackTree","Empty") [],Comb ConsCall ("RedBlackTree","Empty") []]]),Branch (Pattern ("RedBlackTree","Tree") [6,7,8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleRedBlackTree","_case_274") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 2,Var 1],Var 7,Var 10],Var 11]]))]])),Func ("OracleRedBlackTree","_case_274") 9 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Tree") [Var 6,Var 2,Var 8,Var 9]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleRedBlackTree","_case_273") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 4,Var 2,Var 1],Var 7,Var 11],Var 12]]))]])),Func ("OracleRedBlackTree","_case_273") 9 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","balanceL") [Comb ConsCall ("RedBlackTree","Tree") [Var 6,Var 7,Comb FuncCall ("OracleRedBlackTree","updateTree.upd.35") [Var 2,Var 3,Var 4,Var 8,Var 1],Var 9],Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_272") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 12]]))]])),Func ("OracleRedBlackTree","_case_272") 9 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","balanceR") [Comb ConsCall ("RedBlackTree","Tree") [Var 6,Var 7,Var 8,Comb FuncCall ("OracleRedBlackTree","updateTree.upd.35") [Var 2,Var 3,Var 4,Var 9,Var 1]],Var 11]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleRedBlackTree","_case_276") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleRedBlackTree","RedBlackTree") [4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleRedBlackTree","RedBlackTree") [Var 4,Var 5,Var 6,Comb FuncCall ("OracleRedBlackTree","updateTree") [Var 4,Var 6,Var 2,Var 7,Var 1]]])]])),Func ("OracleRedBlackTree","_case_280") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("RedBlackTree","Tree") [6,7,8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleRedBlackTree","_case_279") [Var 2,Var 3,Var 4,Var 7,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 7,Var 10],Var 11]]))]])),Func ("OracleRedBlackTree","_case_279") 8 Private (TVar (-42)) (Rule [2,3,4,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Var 7]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleRedBlackTree","_case_278") [Var 2,Var 3,Var 4,Var 7,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 4,Var 1],Var 7,Var 11],Var 12]]))]])),Func ("OracleRedBlackTree","_case_278") 8 Private (TVar (-42)) (Rule [2,3,4,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","lookupTree") [Var 2,Var 3,Var 4,Var 8,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_277") [Var 2,Var 3,Var 4,Var 9,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 11]]))]])),Func ("OracleRedBlackTree","_case_277") 6 Private (TVar (-42)) (Rule [2,3,4,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","lookupTree") [Var 2,Var 3,Var 4,Var 9,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleRedBlackTree","_case_281") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleRedBlackTree","RedBlackTree") [4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","lookupTree") [Var 5,Var 6,Var 2,Var 7,Var 1]])]])),Func ("OracleRedBlackTree","_case_282") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleRedBlackTree","RedBlackTree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OracleRedBlackTree","RedBlackTree") [Var 3,Var 4,Var 5,Comb ConsCall ("RedBlackTree","Empty") []]])]])),Func ("OracleRedBlackTree","_case_284") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleRedBlackTree","RedBlackTree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_283") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_283") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]]))] []
+ Curry/Module/OracleRedBlackTree.fint view
@@ -0,0 +1,1 @@+Prog "OracleRedBlackTree" ["CEventOracle","Oracle","IOExts","RedBlackTree","Prelude","OraclePrelude"] [Type ("OracleRedBlackTree","RedBlackTree") Public [0] [Cons ("OracleRedBlackTree","RedBlackTree") 4 Private [FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") [])))),FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") [])))),FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") [])))),TCons ("RedBlackTree","Tree") [TVar 0]]]] [Func ("OracleRedBlackTree","empty") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OracleRedBlackTree","RedBlackTree") [Var 2,Var 3,Var 4,Comb ConsCall ("RedBlackTree","Empty") []]])),Func ("OracleRedBlackTree","isEmpty") 2 Public (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_284") [Var 2,Var 1]])),Func ("OracleRedBlackTree","newTreeLike") 2 Public (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_282") [Var 2,Var 1]])),Func ("OracleRedBlackTree","lookup") 3 Public (FuncType (TVar 0) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_281") [Var 2,Var 3,Var 1]])),Func ("OracleRedBlackTree","lookupTree") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TVar 0) (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Maybe") [TVar 0])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_280") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleRedBlackTree","update") 3 Public (FuncType (TVar 0) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_276") [Var 2,Var 3,Var 1]])),Func ("OracleRedBlackTree","updateTree") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TVar 0) (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0])))))) (Rule [2,3,4,5,1] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleRedBlackTree","updateTree.upd.35") [Var 4,Var 2,Var 3,Var 5,Var 1])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleRedBlackTree","updateTree._#selFP3#e2") [Var 6,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleRedBlackTree","updateTree._#selFP4#l") [Var 6,Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleRedBlackTree","updateTree._#selFP5#r") [Var 6,Var 12])] (Comb FuncCall ("CEventOracle","collapse") [Var 13,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 7,Var 8,Var 9]])]))]))]))]))),Func ("OracleRedBlackTree","updateTree.upd.35") 5 Private (FuncType (TVar 183) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 183) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 183) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 183) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 183) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("RedBlackTree","Tree") [TVar 183]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 183])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_275") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleRedBlackTree","updateTree._#selFP3#e2") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 183]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 183))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_271") [Var 2,Var 1]])),Func ("OracleRedBlackTree","updateTree._#selFP4#l") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 183]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 183]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_270") [Var 2,Var 1]])),Func ("OracleRedBlackTree","updateTree._#selFP5#r") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 183]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 183]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_269") [Var 2,Var 1]])),Func ("OracleRedBlackTree","delete") 3 Public (FuncType (TVar 0) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_268") [Var 2,Var 3,Var 1]])),Func ("OracleRedBlackTree","delete.blackenRoot.44") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_267") [Var 2,Var 1]])),Func ("OracleRedBlackTree","deleteTree") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TVar 0) (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0])))))) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_266") [Var 2,Var 3,Var 4,Var 5,Var 1]])),Func ("OracleRedBlackTree","deleteTree.addColor.56") 3 Private (FuncType (TCons ("RedBlackTree","Color") []) (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_260") [Var 3,Var 2,Var 1]])),Func ("OracleRedBlackTree","deleteTree.rightMost.56") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_257") [Var 2,Var 1]])),Func ("OracleRedBlackTree","tree2list") 2 Public (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_255") [Var 2,Var 1]])),Func ("OracleRedBlackTree","tree2listTree") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","tree2listTree.t2l.77") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 1]])),Func ("OracleRedBlackTree","tree2listTree.t2l.77") 3 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_254") [Var 3,Var 2,Var 1]])),Func ("OracleRedBlackTree","sort") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleRedBlackTree","tree2list") [Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleRedBlackTree","update") []],Comb FuncCall ("OracleRedBlackTree","empty") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleRedBlackTree","sort._#lambda2") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []],Var 2,Var 1],Var 3,Var 4],Var 5]]))),Func ("OracleRedBlackTree","sort._#lambda2") 3 Private (FuncType (TVar 520) (FuncType (TVar 520) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleRedBlackTree","setInsertEquivalence") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_253") [Var 2,Var 3,Var 1]])),Func ("OracleRedBlackTree","rbt") 2 Private (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_252") [Var 2,Var 1]])),Func ("OracleRedBlackTree","isBlack") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_251") [Var 2,Var 1]])),Func ("OracleRedBlackTree","isRed") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_250") [Var 2,Var 1]])),Func ("OracleRedBlackTree","isDoublyBlack") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_249") [Var 2,Var 1]])),Func ("OracleRedBlackTree","element") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_248") [Var 2,Var 1]])),Func ("OracleRedBlackTree","left") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_247") [Var 2,Var 1]])),Func ("OracleRedBlackTree","right") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_246") [Var 2,Var 1]])),Func ("OracleRedBlackTree","singleBlack") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_245") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0]))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OracleRedBlackTree","left") [Var 2,Var 1])] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleRedBlackTree","_case_243") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleRedBlackTree","isRed") [Var 3,Var 4],Comb FuncCall ("OracleRedBlackTree","isRed") [Comb FuncCall ("OracleRedBlackTree","left") [Var 3,Var 5],Var 6],Var 7],Var 8]]))]))),Func ("OracleRedBlackTree","balanceL._#selFP7#z") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 88))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_240") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP8#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 88))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_237") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP9#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 88))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_234") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP10#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 88]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_231") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP11#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 88]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_228") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP12#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 88]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_225") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP13#d") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 88]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_222") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP15#z") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 88))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_219") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP16#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 88))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_216") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP17#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 88]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_213") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP18#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 88))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_210") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP19#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 88]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_207") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP20#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 88]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_204") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceL._#selFP21#d") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 88]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 88]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_201") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0]))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OracleRedBlackTree","right") [Var 2,Var 1])] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleRedBlackTree","_case_198") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleRedBlackTree","isRed") [Var 3,Var 4],Comb FuncCall ("OracleRedBlackTree","isRed") [Comb FuncCall ("OracleRedBlackTree","right") [Var 3,Var 5],Var 6],Var 7],Var 8]]))]))),Func ("OracleRedBlackTree","balanceR._#selFP23#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 131))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_195") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP24#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 131]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_192") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP25#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 131))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_189") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP26#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 131]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_186") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP27#z") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 131))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_183") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP28#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 131]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_180") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP29#d") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 131]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_177") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP31#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 131))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_174") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP32#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 131]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_171") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP33#z") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 131))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_168") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP34#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 131))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_165") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP35#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 131]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_162") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP36#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 131]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_159") [Var 2,Var 1]])),Func ("OracleRedBlackTree","balanceR._#selFP37#d") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 131]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 131]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_156") [Var 2,Var 1]])),Func ("OracleRedBlackTree","delBalanceL") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleRedBlackTree","_case_153") [Var 2,Comb FuncCall ("OracleRedBlackTree","isDoublyBlack") [Comb FuncCall ("OracleRedBlackTree","left") [Var 2,Var 1],Var 3],Var 4]]))),Func ("OracleRedBlackTree","reviseLeft") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0]))) (Rule [2,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OracleRedBlackTree","right") [Var 2,Var 1])] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleRedBlackTree","isBlack") [Var 3,Var 5])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_152") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Comb ConsCall ("RedBlackTree","Empty") [],Var 6],Var 7]]))]))]))),Func ("OracleRedBlackTree","reviseLeft._#selFP39#col") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Color") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_146") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP40#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 249))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_143") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP41#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_140") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP42#z") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 249))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_137") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP43#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 249))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_134") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP44#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_131") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP45#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_128") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP46#d") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_125") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP48#col") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Color") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_122") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP49#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 249))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_119") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP50#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_116") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP51#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 249))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_113") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP52#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_110") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP53#z") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 249))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_107") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP54#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_104") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP55#d") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_101") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP57#col") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Color") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_98") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP58#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 249))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_96") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP59#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_94") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP60#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 249))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_92") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP61#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_90") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP62#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_88") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP64#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 249))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_86") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP65#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_84") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP66#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 249))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_82") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP67#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_80") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseLeft._#selFP68#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 249]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 249]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_78") [Var 2,Var 1]])),Func ("OracleRedBlackTree","delBalanceR") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleRedBlackTree","_case_76") [Var 2,Comb FuncCall ("OracleRedBlackTree","isDoublyBlack") [Comb FuncCall ("OracleRedBlackTree","right") [Var 2,Var 1],Var 3],Var 4]]))),Func ("OracleRedBlackTree","reviseRight") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 0]))) (Rule [2,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OracleRedBlackTree","left") [Var 2,Var 1])] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleRedBlackTree","isBlack") [Var 3,Var 5])] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_75") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Comb ConsCall ("RedBlackTree","Empty") [],Var 6],Var 7]]))]))]))),Func ("OracleRedBlackTree","reviseRight._#selFP70#col") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Color") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_69") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP71#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 327))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_66") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP72#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 327))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_63") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP73#z") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 327))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_60") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP74#d") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_57") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP75#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_54") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP76#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_51") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP77#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_48") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP79#col") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Color") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_45") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP80#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 327))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_42") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP81#z") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 327))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_39") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP82#d") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_36") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP83#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 327))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_33") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP84#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_30") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP85#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_27") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP86#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_24") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP88#col") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Color") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_21") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP89#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 327))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_19") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP90#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 327))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_17") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP91#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_15") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP92#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_13") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP93#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_11") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP95#x") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 327))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_9") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP96#y") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 327))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_7") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP97#c") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_5") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP98#b") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_3") [Var 2,Var 1]])),Func ("OracleRedBlackTree","reviseRight._#selFP99#a") 2 Private (FuncType (TCons ("RedBlackTree","Tree") [TVar 327]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("RedBlackTree","Tree") [TVar 327]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_1") [Var 2,Var 1]])),Func ("OracleRedBlackTree","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_0") [Var 6,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_0") 3 Private (TVar (-42)) (Rule [6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleRedBlackTree","_case_3") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_2") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_2") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 10])]])),Func ("OracleRedBlackTree","_case_5") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_4") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_4") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleRedBlackTree","_case_7") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_6") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_6") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_9") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_8") [Var 4,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_8") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_11") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_10") [Var 6,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_10") 3 Private (TVar (-42)) (Rule [6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleRedBlackTree","_case_13") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_12") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_12") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 10])]])),Func ("OracleRedBlackTree","_case_15") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_14") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_14") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleRedBlackTree","_case_17") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_16") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_16") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_19") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_18") [Var 4,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_18") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_21") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_20") [Var 3,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_20") 3 Private (TVar (-42)) (Rule [3,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleRedBlackTree","_case_24") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_23") [Var 6,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_23") 3 Private (TVar (-42)) (Rule [6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_22") [Var 6,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_22") 3 Private (TVar (-42)) (Rule [6,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleRedBlackTree","_case_27") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_26") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_26") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_25") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_25") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 14])]])),Func ("OracleRedBlackTree","_case_30") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_29") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_29") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_28") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_28") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 13])]])),Func ("OracleRedBlackTree","_case_33") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_32") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_32") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_31") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_31") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 12])]])),Func ("OracleRedBlackTree","_case_36") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_35") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_35") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_34") [Var 9,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_34") 3 Private (TVar (-42)) (Rule [9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleRedBlackTree","_case_39") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_38") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_38") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_37") [Var 8,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_37") 3 Private (TVar (-42)) (Rule [8,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_42") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_41") [Var 4,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_41") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_40") [Var 4,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_40") 3 Private (TVar (-42)) (Rule [4,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_45") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_44") [Var 3,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_44") 3 Private (TVar (-42)) (Rule [3,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_43") [Var 3,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_43") 3 Private (TVar (-42)) (Rule [3,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleRedBlackTree","_case_48") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_47") [Var 6,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_47") 3 Private (TVar (-42)) (Rule [6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_46") [Var 6,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_46") 3 Private (TVar (-42)) (Rule [6,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleRedBlackTree","_case_51") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_50") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_50") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_49") [Var 10,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_49") 3 Private (TVar (-42)) (Rule [10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 10])]])),Func ("OracleRedBlackTree","_case_54") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_53") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_53") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_52") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_52") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 14])]])),Func ("OracleRedBlackTree","_case_57") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_56") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_56") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_55") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_55") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 13])]])),Func ("OracleRedBlackTree","_case_60") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_59") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_59") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_58") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_58") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 12])]])),Func ("OracleRedBlackTree","_case_63") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_62") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_62") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_61") [Var 8,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_61") 3 Private (TVar (-42)) (Rule [8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_66") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_65") [Var 4,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_65") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_64") [Var 4,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_64") 3 Private (TVar (-42)) (Rule [4,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_69") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_68") [Var 3,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_68") 3 Private (TVar (-42)) (Rule [3,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_67") [Var 3,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_67") 3 Private (TVar (-42)) (Rule [3,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleRedBlackTree","_case_75") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleRedBlackTree","_case_74") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","&&") [Var 4,Comb FuncCall ("OracleRedBlackTree","isRed") [Comb FuncCall ("OracleRedBlackTree","left") [Var 3,Var 1],Var 6],Var 7],Var 8]]))]])),Func ("OracleRedBlackTree","_case_74") 5 Private (TVar (-42)) (Rule [2,3,4,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(5,Var 2)] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP70#col") [Var 5,Var 1])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP71#x") [Var 5,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP72#y") [Var 5,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP73#z") [Var 5,Var 17])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP74#d") [Var 5,Var 18])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP75#c") [Var 5,Var 19])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Let [(12,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP76#b") [Var 5,Var 20])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP77#a") [Var 5,Var 21])] (Comb FuncCall ("CEventOracle","replace") [Var 22,Comb ConsCall ("RedBlackTree","Tree") [Var 6,Var 8,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 9,Var 10,Var 11],Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 7,Var 12,Comb FuncCall ("OracleRedBlackTree","singleBlack") [Var 13,Var 22]]]])]))]))]))]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleRedBlackTree","_case_73") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","&&") [Var 4,Comb FuncCall ("OracleRedBlackTree","isRed") [Comb FuncCall ("OracleRedBlackTree","right") [Var 3,Var 1],Var 23],Var 24],Var 25]]))]])),Func ("OracleRedBlackTree","_case_73") 5 Private (TVar (-42)) (Rule [2,3,4,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(14,Var 2)] (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Let [(15,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP79#col") [Var 14,Var 1])] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(16,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP80#x") [Var 14,Var 24])] (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Let [(17,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP81#z") [Var 14,Var 25])] (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Let [(18,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP82#d") [Var 14,Var 26])] (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Let [(19,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP83#y") [Var 14,Var 27])] (Let [(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []],Let [(20,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP84#c") [Var 14,Var 28])] (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []],Let [(21,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP85#b") [Var 14,Var 29])] (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []],Let [(22,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP86#a") [Var 14,Var 30])] (Comb FuncCall ("CEventOracle","replace") [Var 31,Comb ConsCall ("RedBlackTree","Tree") [Var 15,Var 19,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 17,Var 18,Var 20],Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 16,Var 21,Comb FuncCall ("OracleRedBlackTree","singleBlack") [Var 22,Var 31]]]])]))]))]))]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_72") [Var 2,Var 4,Var 1]])]])),Func ("OracleRedBlackTree","_case_72") 3 Private (TVar (-42)) (Rule [2,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(23,Var 2)] (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []],Let [(24,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP88#col") [Var 23,Var 1])] (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []],Let [(25,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP89#x") [Var 23,Var 30])] (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude","[]") []],Let [(26,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP90#y") [Var 23,Var 31])] (Let [(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude","[]") []],Let [(27,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP91#c") [Var 23,Var 32])] (Let [(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude","[]") []],Let [(28,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP92#b") [Var 23,Var 33])] (Let [(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude","[]") []],Let [(29,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP93#a") [Var 23,Var 34])] (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("RedBlackTree","Tree") [Comb FuncCall ("OracleRedBlackTree","_case_71") [Var 24,Comb FuncCall ("OraclePrelude","==") [Var 24,Comb ConsCall ("RedBlackTree","Red") [],Var 35],Var 36],Var 25,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Red") [],Var 26,Var 27,Var 28],Comb FuncCall ("OracleRedBlackTree","singleBlack") [Var 29,Var 37]]]))]))]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Let [(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_70") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 38]]))]])),Func ("OracleRedBlackTree","_case_70") 3 Private (TVar (-42)) (Rule [2,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 36) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(30,Var 2)] (Let [(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude","[]") []],Let [(31,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP95#x") [Var 30,Var 1])] (Let [(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude","[]") []],Let [(32,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP96#y") [Var 30,Var 37])] (Let [(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude","[]") []],Let [(33,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP97#c") [Var 30,Var 38])] (Let [(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []],Let [(34,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP98#b") [Var 30,Var 39])] (Let [(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude","[]") []],Let [(35,Comb FuncCall ("OracleRedBlackTree","reviseRight._#selFP99#a") [Var 30,Var 40])] (Comb FuncCall ("CEventOracle","replace") [Var 41,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 32,Var 33,Comb FuncCall ("OracleRedBlackTree","reviseRight") [Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Red") [],Var 31,Var 34,Var 35],Var 41]]])]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleRedBlackTree","_case_71") 3 Private (TVar (-42)) (Rule [24,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 25) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Black") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","DoublyBlack") []])]])),Func ("OracleRedBlackTree","_case_76") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","reviseRight") [Var 2,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]])),Func ("OracleRedBlackTree","_case_78") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_77") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_77") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 10])]])),Func ("OracleRedBlackTree","_case_80") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_79") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_79") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleRedBlackTree","_case_82") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_81") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_81") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_84") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_83") [Var 5,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_83") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleRedBlackTree","_case_86") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_85") [Var 4,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_85") 3 Private (TVar (-42)) (Rule [4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_88") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_87") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_87") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 10])]])),Func ("OracleRedBlackTree","_case_90") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_89") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_89") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleRedBlackTree","_case_92") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_91") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_91") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_94") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_93") [Var 5,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_93") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleRedBlackTree","_case_96") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_95") [Var 4,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_95") 3 Private (TVar (-42)) (Rule [4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_98") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_97") [Var 3,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_97") 3 Private (TVar (-42)) (Rule [3,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleRedBlackTree","_case_101") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_100") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_100") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_99") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_99") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 14])]])),Func ("OracleRedBlackTree","_case_104") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_103") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_103") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_102") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_102") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 13])]])),Func ("OracleRedBlackTree","_case_107") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_106") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_106") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_105") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_105") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 12])]])),Func ("OracleRedBlackTree","_case_110") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_109") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_109") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_108") [Var 9,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_108") 3 Private (TVar (-42)) (Rule [9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleRedBlackTree","_case_113") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_112") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_112") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_111") [Var 8,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_111") 3 Private (TVar (-42)) (Rule [8,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_116") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_115") [Var 5,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_115") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_114") [Var 5,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_114") 3 Private (TVar (-42)) (Rule [5,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleRedBlackTree","_case_119") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_118") [Var 4,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_118") 3 Private (TVar (-42)) (Rule [4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_117") [Var 4,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_117") 3 Private (TVar (-42)) (Rule [4,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_122") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_121") [Var 3,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_121") 3 Private (TVar (-42)) (Rule [3,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_120") [Var 3,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_120") 3 Private (TVar (-42)) (Rule [3,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleRedBlackTree","_case_125") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_124") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_124") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_123") [Var 10,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_123") 3 Private (TVar (-42)) (Rule [10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 10])]])),Func ("OracleRedBlackTree","_case_128") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_127") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_127") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_126") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_126") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 14])]])),Func ("OracleRedBlackTree","_case_131") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_130") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_130") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_129") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_129") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 13])]])),Func ("OracleRedBlackTree","_case_134") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_133") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_133") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_132") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_132") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 12])]])),Func ("OracleRedBlackTree","_case_137") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_136") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_136") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_135") [Var 8,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_135") 3 Private (TVar (-42)) (Rule [8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_140") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_139") [Var 5,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_139") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_138") [Var 5,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_138") 3 Private (TVar (-42)) (Rule [5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleRedBlackTree","_case_143") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_142") [Var 4,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_142") 3 Private (TVar (-42)) (Rule [4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_141") [Var 4,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_141") 3 Private (TVar (-42)) (Rule [4,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_146") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_145") [Var 3,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_145") 3 Private (TVar (-42)) (Rule [3,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_144") [Var 3,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_144") 3 Private (TVar (-42)) (Rule [3,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleRedBlackTree","_case_152") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleRedBlackTree","_case_151") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","&&") [Var 4,Comb FuncCall ("OracleRedBlackTree","isRed") [Comb FuncCall ("OracleRedBlackTree","left") [Var 3,Var 1],Var 6],Var 7],Var 8]]))]])),Func ("OracleRedBlackTree","_case_151") 5 Private (TVar (-42)) (Rule [2,3,4,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(5,Var 2)] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP39#col") [Var 5,Var 1])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP40#x") [Var 5,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP41#a") [Var 5,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP42#z") [Var 5,Var 17])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP43#y") [Var 5,Var 18])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP44#b") [Var 5,Var 19])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Let [(12,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP45#c") [Var 5,Var 20])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP46#d") [Var 5,Var 21])] (Comb FuncCall ("CEventOracle","replace") [Var 22,Comb ConsCall ("RedBlackTree","Tree") [Var 6,Var 10,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 7,Comb FuncCall ("OracleRedBlackTree","singleBlack") [Var 8,Var 22],Var 11],Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 9,Var 12,Var 13]]])]))]))]))]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleRedBlackTree","_case_150") [Var 2,Var 3,Var 4,Comb FuncCall ("OraclePrelude","&&") [Var 4,Comb FuncCall ("OracleRedBlackTree","isRed") [Comb FuncCall ("OracleRedBlackTree","right") [Var 3,Var 1],Var 23],Var 24],Var 25]]))]])),Func ("OracleRedBlackTree","_case_150") 5 Private (TVar (-42)) (Rule [2,3,4,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(14,Var 2)] (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Let [(15,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP48#col") [Var 14,Var 1])] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(16,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP49#x") [Var 14,Var 24])] (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Let [(17,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP50#a") [Var 14,Var 25])] (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Let [(18,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP51#y") [Var 14,Var 26])] (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Let [(19,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP52#b") [Var 14,Var 27])] (Let [(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []],Let [(20,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP53#z") [Var 14,Var 28])] (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []],Let [(21,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP54#c") [Var 14,Var 29])] (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []],Let [(22,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP55#d") [Var 14,Var 30])] (Comb FuncCall ("CEventOracle","replace") [Var 31,Comb ConsCall ("RedBlackTree","Tree") [Var 15,Var 18,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 16,Comb FuncCall ("OracleRedBlackTree","singleBlack") [Var 17,Var 31],Var 19],Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 20,Var 21,Var 22]]])]))]))]))]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_149") [Var 2,Var 4,Var 1]])]])),Func ("OracleRedBlackTree","_case_149") 3 Private (TVar (-42)) (Rule [2,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(23,Var 2)] (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []],Let [(24,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP57#col") [Var 23,Var 1])] (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []],Let [(25,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP58#x") [Var 23,Var 30])] (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude","[]") []],Let [(26,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP59#a") [Var 23,Var 31])] (Let [(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude","[]") []],Let [(27,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP60#y") [Var 23,Var 32])] (Let [(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude","[]") []],Let [(28,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP61#b") [Var 23,Var 33])] (Let [(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude","[]") []],Let [(29,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP62#c") [Var 23,Var 34])] (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("RedBlackTree","Tree") [Comb FuncCall ("OracleRedBlackTree","_case_148") [Var 24,Comb FuncCall ("OraclePrelude","==") [Var 24,Comb ConsCall ("RedBlackTree","Red") [],Var 35],Var 36],Var 25,Comb FuncCall ("OracleRedBlackTree","singleBlack") [Var 26,Var 37],Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Red") [],Var 27,Var 28,Var 29]]]))]))]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Let [(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_147") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 38]]))]])),Func ("OracleRedBlackTree","_case_147") 3 Private (TVar (-42)) (Rule [2,36,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 36) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(30,Var 2)] (Let [(37,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 37,Comb ConsCall ("Prelude","[]") []],Let [(31,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP64#x") [Var 30,Var 1])] (Let [(38,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 37,Comb ConsCall ("Prelude",":") [Var 38,Comb ConsCall ("Prelude","[]") []],Let [(32,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP65#a") [Var 30,Var 37])] (Let [(39,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 38,Comb ConsCall ("Prelude",":") [Var 39,Comb ConsCall ("Prelude","[]") []],Let [(33,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP66#y") [Var 30,Var 38])] (Let [(40,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 39,Comb ConsCall ("Prelude",":") [Var 40,Comb ConsCall ("Prelude","[]") []],Let [(34,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP67#b") [Var 30,Var 39])] (Let [(41,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 40,Comb ConsCall ("Prelude",":") [Var 41,Comb ConsCall ("Prelude","[]") []],Let [(35,Comb FuncCall ("OracleRedBlackTree","reviseLeft._#selFP68#c") [Var 30,Var 40])] (Comb FuncCall ("CEventOracle","replace") [Var 41,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 33,Comb FuncCall ("OracleRedBlackTree","reviseLeft") [Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Red") [],Var 31,Var 32,Var 34],Var 41],Var 35]])]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleRedBlackTree","_case_148") 3 Private (TVar (-42)) (Rule [24,25,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 25) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Black") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","DoublyBlack") []])]])),Func ("OracleRedBlackTree","_case_153") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","reviseLeft") [Var 2,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2])]])),Func ("OracleRedBlackTree","_case_156") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_155") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_155") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_154") [Var 10,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_154") 3 Private (TVar (-42)) (Rule [10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 10])]])),Func ("OracleRedBlackTree","_case_159") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_158") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_158") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_157") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_157") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 14])]])),Func ("OracleRedBlackTree","_case_162") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_161") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_161") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_160") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_160") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 13])]])),Func ("OracleRedBlackTree","_case_165") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_164") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_164") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_163") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_163") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 12])]])),Func ("OracleRedBlackTree","_case_168") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_167") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_167") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_166") [Var 8,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_166") 3 Private (TVar (-42)) (Rule [8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_171") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_170") [Var 5,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_170") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_169") [Var 5,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_169") 3 Private (TVar (-42)) (Rule [5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleRedBlackTree","_case_174") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_173") [Var 4,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_173") 3 Private (TVar (-42)) (Rule [4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_172") [Var 4,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_172") 3 Private (TVar (-42)) (Rule [4,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_177") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_176") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_176") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_175") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_175") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 14])]])),Func ("OracleRedBlackTree","_case_180") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_179") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_179") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_178") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_178") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 13])]])),Func ("OracleRedBlackTree","_case_183") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_182") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_182") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_181") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_181") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 12])]])),Func ("OracleRedBlackTree","_case_186") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_185") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_185") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_184") [Var 9,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_184") 3 Private (TVar (-42)) (Rule [9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleRedBlackTree","_case_189") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_188") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_188") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_187") [Var 8,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_187") 3 Private (TVar (-42)) (Rule [8,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_192") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_191") [Var 5,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_191") 3 Private (TVar (-42)) (Rule [5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_190") [Var 5,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_190") 3 Private (TVar (-42)) (Rule [5,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleRedBlackTree","_case_195") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_194") [Var 4,Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_194") 3 Private (TVar (-42)) (Rule [4,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_193") [Var 4,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_193") 3 Private (TVar (-42)) (Rule [4,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_198") 4 Private (TVar (-42)) (Rule [2,3,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(4,Var 2)] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP23#x") [Var 4,Var 1])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP24#a") [Var 4,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP25#y") [Var 4,Var 14])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP26#b") [Var 4,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP27#z") [Var 4,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP28#c") [Var 4,Var 17])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP29#d") [Var 4,Var 18])] (Comb FuncCall ("CEventOracle","collapse") [Var 19,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Red") [],Var 7,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 5,Var 6,Var 8],Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 9,Var 10,Var 11]]])]))]))]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleRedBlackTree","_case_197") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleRedBlackTree","isRed") [Var 3,Var 1],Comb FuncCall ("OracleRedBlackTree","isRed") [Comb FuncCall ("OracleRedBlackTree","left") [Var 3,Var 20],Var 21],Var 22],Var 23]]))]])),Func ("OracleRedBlackTree","_case_197") 4 Private (TVar (-42)) (Rule [2,3,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 20) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(12,Var 2)] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP31#x") [Var 12,Var 1])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Let [(14,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP32#a") [Var 12,Var 21])] (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Let [(15,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP33#z") [Var 12,Var 22])] (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Let [(16,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP34#y") [Var 12,Var 23])] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(17,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP35#b") [Var 12,Var 24])] (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Let [(18,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP36#c") [Var 12,Var 25])] (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Let [(19,Comb FuncCall ("OracleRedBlackTree","balanceR._#selFP37#d") [Var 12,Var 26])] (Comb FuncCall ("CEventOracle","collapse") [Var 27,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Red") [],Var 16,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 13,Var 14,Var 17],Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 15,Var 18,Var 19]]])]))]))]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_196") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 28]]))]])),Func ("OracleRedBlackTree","_case_196") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleRedBlackTree","_case_201") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_200") [Var 6,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_200") 3 Private (TVar (-42)) (Rule [6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_199") [Var 6,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_199") 3 Private (TVar (-42)) (Rule [6,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleRedBlackTree","_case_204") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_203") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_203") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_202") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_202") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 14])]])),Func ("OracleRedBlackTree","_case_207") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_206") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_206") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_205") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_205") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 13])]])),Func ("OracleRedBlackTree","_case_210") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_209") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_209") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_208") [Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_208") 2 Private (TVar (-42)) (Rule [10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 12])]])),Func ("OracleRedBlackTree","_case_213") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_212") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_212") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_211") [Var 9,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_211") 3 Private (TVar (-42)) (Rule [9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleRedBlackTree","_case_216") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_215") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_215") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_214") [Var 8,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_214") 3 Private (TVar (-42)) (Rule [8,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_219") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_218") [Var 4,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_218") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_217") [Var 4,Var 10,Var 1]])]])),Func ("OracleRedBlackTree","_case_217") 3 Private (TVar (-42)) (Rule [4,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_222") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_221") [Var 6,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_221") 3 Private (TVar (-42)) (Rule [6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_220") [Var 6,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_220") 3 Private (TVar (-42)) (Rule [6,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleRedBlackTree","_case_225") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_224") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_224") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_223") [Var 10,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_223") 3 Private (TVar (-42)) (Rule [10,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 10])]])),Func ("OracleRedBlackTree","_case_228") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_227") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_227") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_226") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_226") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 14])]])),Func ("OracleRedBlackTree","_case_231") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_230") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_230") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_229") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_229") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 13])]])),Func ("OracleRedBlackTree","_case_234") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_233") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_233") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_232") [Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_232") 2 Private (TVar (-42)) (Rule [9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 12])]])),Func ("OracleRedBlackTree","_case_237") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_236") [Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_236") 2 Private (TVar (-42)) (Rule [5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_235") [Var 8,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_235") 3 Private (TVar (-42)) (Rule [8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleRedBlackTree","_case_240") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_239") [Var 4,Var 5,Var 1]])]])),Func ("OracleRedBlackTree","_case_239") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_238") [Var 4,Var 9,Var 1]])]])),Func ("OracleRedBlackTree","_case_238") 3 Private (TVar (-42)) (Rule [4,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("RedBlackTree","Tree") [11,12,13,14]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_243") 4 Private (TVar (-42)) (Rule [2,3,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(4,Var 2)] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP7#z") [Var 4,Var 1])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP8#y") [Var 4,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP9#x") [Var 4,Var 14])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP10#a") [Var 4,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP11#b") [Var 4,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP12#c") [Var 4,Var 17])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP13#d") [Var 4,Var 18])] (Comb FuncCall ("CEventOracle","collapse") [Var 19,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Red") [],Var 6,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 7,Var 8,Var 9],Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 5,Var 10,Var 11]]])]))]))]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleRedBlackTree","_case_242") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OracleRedBlackTree","isRed") [Var 3,Var 1],Comb FuncCall ("OracleRedBlackTree","isRed") [Comb FuncCall ("OracleRedBlackTree","right") [Var 3,Var 20],Var 21],Var 22],Var 23]]))]])),Func ("OracleRedBlackTree","_case_242") 4 Private (TVar (-42)) (Rule [2,3,20,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 20) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(12,Var 2)] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP15#z") [Var 12,Var 1])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Let [(14,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP16#x") [Var 12,Var 21])] (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Let [(15,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP17#a") [Var 12,Var 22])] (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Let [(16,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP18#y") [Var 12,Var 23])] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(17,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP19#b") [Var 12,Var 24])] (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Let [(18,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP20#c") [Var 12,Var 25])] (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Let [(19,Comb FuncCall ("OracleRedBlackTree","balanceL._#selFP21#d") [Var 12,Var 26])] (Comb FuncCall ("CEventOracle","collapse") [Var 27,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Red") [],Var 16,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 14,Var 15,Var 17],Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 13,Var 18,Var 19]]])]))]))]))]))]))]))]))]),Branch (Pattern ("Prelude","False") []) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_241") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 28]]))]])),Func ("OracleRedBlackTree","_case_241") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleRedBlackTree","_case_245") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Empty") []]),Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_244") [Var 4,Var 5,Var 6,Var 3,Var 1]])]])),Func ("OracleRedBlackTree","_case_244") 5 Private (TVar (-42)) (Rule [4,5,6,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("RedBlackTree","DoublyBlack") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 4,Var 5,Var 6]])]])),Func ("OracleRedBlackTree","_case_246") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleRedBlackTree","_case_247") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleRedBlackTree","_case_248") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_249") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 3,Comb ConsCall ("RedBlackTree","DoublyBlack") [],Var 1]])]])),Func ("OracleRedBlackTree","_case_250") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 3,Comb ConsCall ("RedBlackTree","Red") [],Var 1]])]])),Func ("OracleRedBlackTree","_case_251") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","==") [Var 3,Comb ConsCall ("RedBlackTree","Black") [],Var 1]])]])),Func ("OracleRedBlackTree","_case_252") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleRedBlackTree","RedBlackTree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleRedBlackTree","_case_253") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleRedBlackTree","RedBlackTree") [4,5,6,7]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OracleRedBlackTree","RedBlackTree") [Var 2,Var 5,Var 6,Var 7]])]])),Func ("OracleRedBlackTree","_case_254") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("RedBlackTree","Tree") [4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","tree2listTree.t2l.77") [Var 6,Comb ConsCall ("Prelude",":") [Var 5,Comb FuncCall ("OracleRedBlackTree","tree2listTree.t2l.77") [Var 7,Var 3,Var 1]],Var 8]]))]])),Func ("OracleRedBlackTree","_case_255") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleRedBlackTree","RedBlackTree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","tree2listTree") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_257") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_256") [Var 4,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 6,Comb ConsCall ("RedBlackTree","Empty") [],Var 1],Var 7]]))]])),Func ("OracleRedBlackTree","_case_256") 4 Private (TVar (-42)) (Rule [4,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","deleteTree.rightMost.56") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_260") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Red") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("RedBlackTree","Black") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_259") [Var 3,Var 1]])]])),Func ("OracleRedBlackTree","_case_259") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("RedBlackTree","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Empty") []]),Branch (Pattern ("RedBlackTree","Tree") [4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_258") [Var 5,Var 6,Var 7,Var 4,Var 1]])]])),Func ("OracleRedBlackTree","_case_258") 5 Private (TVar (-42)) (Rule [5,6,7,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("RedBlackTree","Red") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 5,Var 6,Var 7]]),Branch (Pattern ("RedBlackTree","Black") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","DoublyBlack") [],Var 5,Var 6,Var 7]])]])),Func ("OracleRedBlackTree","_case_266") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Empty") []]),Branch (Pattern ("RedBlackTree","Tree") [6,7,8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleRedBlackTree","_case_265") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 7,Var 10],Var 11]]))]])),Func ("OracleRedBlackTree","_case_265") 9 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_264") [Var 2,Var 3,Var 6,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 8,Comb ConsCall ("RedBlackTree","Empty") [],Var 1],Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleRedBlackTree","_case_262") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 4,Var 1],Var 7,Var 12],Var 13]]))]])),Func ("OracleRedBlackTree","_case_262") 9 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","delBalanceL") [Comb ConsCall ("RedBlackTree","Tree") [Var 6,Var 7,Comb FuncCall ("OracleRedBlackTree","deleteTree") [Var 2,Var 3,Var 4,Var 8,Var 1],Var 9],Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_261") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 12]]))]])),Func ("OracleRedBlackTree","_case_261") 9 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","delBalanceR") [Comb ConsCall ("RedBlackTree","Tree") [Var 6,Var 7,Var 8,Comb FuncCall ("OracleRedBlackTree","deleteTree") [Var 2,Var 3,Var 4,Var 9,Var 1]],Var 11]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleRedBlackTree","_case_264") 7 Private (TVar (-42)) (Rule [2,3,6,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","deleteTree.addColor.56") [Var 6,Var 9,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_263") [Var 2,Var 3,Var 6,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 9,Comb ConsCall ("RedBlackTree","Empty") [],Var 1],Var 11]]))]])),Func ("OracleRedBlackTree","_case_263") 7 Private (TVar (-42)) (Rule [2,3,6,8,9,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","deleteTree.addColor.56") [Var 6,Var 8,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleRedBlackTree","deleteTree.rightMost.56") [Var 8,Var 1])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","delBalanceL") [Comb ConsCall ("RedBlackTree","Tree") [Var 6,Var 10,Comb FuncCall ("OracleRedBlackTree","deleteTree") [Var 2,Var 3,Var 10,Var 8,Var 12],Var 9],Var 13]]))]))]])),Func ("OracleRedBlackTree","_case_267") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Empty") []]),Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Black") [],Var 4,Var 5,Var 6]])]])),Func ("OracleRedBlackTree","_case_268") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleRedBlackTree","RedBlackTree") [4,5,6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("OracleRedBlackTree","RedBlackTree") [Var 4,Var 5,Var 6,Comb FuncCall ("OracleRedBlackTree","delete.blackenRoot.44") [Comb FuncCall ("OracleRedBlackTree","deleteTree") [Var 5,Var 6,Var 2,Var 7,Var 1],Var 8]]]))]])),Func ("OracleRedBlackTree","_case_269") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleRedBlackTree","_case_270") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleRedBlackTree","_case_271") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("RedBlackTree","Tree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleRedBlackTree","_case_275") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Tree") [Comb ConsCall ("RedBlackTree","Red") [],Var 2,Comb ConsCall ("RedBlackTree","Empty") [],Comb ConsCall ("RedBlackTree","Empty") []]]),Branch (Pattern ("RedBlackTree","Tree") [6,7,8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleRedBlackTree","_case_274") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 2,Var 1],Var 7,Var 10],Var 11]]))]])),Func ("OracleRedBlackTree","_case_274") 9 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("RedBlackTree","Tree") [Var 6,Var 2,Var 8,Var 9]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleRedBlackTree","_case_273") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 4,Var 2,Var 1],Var 7,Var 11],Var 12]]))]])),Func ("OracleRedBlackTree","_case_273") 9 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","balanceL") [Comb ConsCall ("RedBlackTree","Tree") [Var 6,Var 7,Comb FuncCall ("OracleRedBlackTree","updateTree.upd.35") [Var 2,Var 3,Var 4,Var 8,Var 1],Var 9],Var 11]])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_272") [Var 2,Var 3,Var 4,Var 6,Var 7,Var 8,Var 9,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 12]]))]])),Func ("OracleRedBlackTree","_case_272") 9 Private (TVar (-42)) (Rule [2,3,4,6,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","balanceR") [Comb ConsCall ("RedBlackTree","Tree") [Var 6,Var 7,Var 8,Comb FuncCall ("OracleRedBlackTree","updateTree.upd.35") [Var 2,Var 3,Var 4,Var 9,Var 1]],Var 11]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleRedBlackTree","_case_276") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleRedBlackTree","RedBlackTree") [4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("OracleRedBlackTree","RedBlackTree") [Var 4,Var 5,Var 6,Comb FuncCall ("OracleRedBlackTree","updateTree") [Var 4,Var 6,Var 2,Var 7,Var 1]]])]])),Func ("OracleRedBlackTree","_case_280") 5 Private (TVar (-42)) (Rule [2,3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("RedBlackTree","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("RedBlackTree","Tree") [6,7,8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleRedBlackTree","_case_279") [Var 2,Var 3,Var 4,Var 7,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 7,Var 10],Var 11]]))]])),Func ("OracleRedBlackTree","_case_279") 8 Private (TVar (-42)) (Rule [2,3,4,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","Just") [Var 7]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleRedBlackTree","_case_278") [Var 2,Var 3,Var 4,Var 7,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 3,Var 4,Var 1],Var 7,Var 11],Var 12]]))]])),Func ("OracleRedBlackTree","_case_278") 8 Private (TVar (-42)) (Rule [2,3,4,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","lookupTree") [Var 2,Var 3,Var 4,Var 8,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleRedBlackTree","_case_277") [Var 2,Var 3,Var 4,Var 9,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 11]]))]])),Func ("OracleRedBlackTree","_case_277") 6 Private (TVar (-42)) (Rule [2,3,4,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","lookupTree") [Var 2,Var 3,Var 4,Var 9,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleRedBlackTree","_case_281") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("OracleRedBlackTree","RedBlackTree") [4,5,6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","lookupTree") [Var 5,Var 6,Var 2,Var 7,Var 1]])]])),Func ("OracleRedBlackTree","_case_282") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleRedBlackTree","RedBlackTree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("OracleRedBlackTree","RedBlackTree") [Var 3,Var 4,Var 5,Comb ConsCall ("RedBlackTree","Empty") []]])]])),Func ("OracleRedBlackTree","_case_284") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("OracleRedBlackTree","RedBlackTree") [3,4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","_case_283") [Var 6,Var 1]])]])),Func ("OracleRedBlackTree","_case_283") 2 Private (TVar (-42)) (Rule [6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("RedBlackTree","Empty") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("RedBlackTree","Tree") [7,8,9,10]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]]))] []
+ Curry/Module/OracleSetRBT.fcy view
@@ -0,0 +1,1 @@+Prog "OracleSetRBT" ["CEventOracle","Oracle","IOExts","SetRBT","Maybe","Prelude","RedBlackTree","OracleMaybe","OraclePrelude","OracleRedBlackTree"] [TypeSyn ("OracleSetRBT","SetRBT") Public [0] (TCons ("RedBlackTree","RedBlackTree") [TVar 0])] [Func ("OracleSetRBT","emptySetRBT") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRedBlackTree","empty") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []]]]])),Func ("OracleSetRBT","elemRBT") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (TCons ("Prelude","Bool") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMaybe","isJust") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRedBlackTree","lookup") [Var 2]],Var 1]])),Func ("OracleSetRBT","insertRBT") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleRedBlackTree","update") []]])),Func ("OracleSetRBT","insertMultiRBT") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRedBlackTree","setInsertEquivalence") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []]]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRedBlackTree","update") [Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRedBlackTree","setInsertEquivalence") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSetRBT","insertMultiRBT._#lambda2") []]]],Var 1],Var 3]]))),Func ("OracleSetRBT","insertMultiRBT._#lambda2") 3 Private (FuncType (TVar 27) (FuncType (TVar 27) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleSetRBT","deleteRBT") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleRedBlackTree","delete") []]])),Func ("OracleSetRBT","setRBT2list") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRedBlackTree","tree2list") []]])),Func ("OracleSetRBT","unionRBT") 3 Public (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 1],Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","setRBT2list") [Var 4],Var 2,Var 5],Var 6]]))),Func ("OracleSetRBT","intersectRBT") 3 Public (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 1],Comb FuncCall ("OracleRedBlackTree","newTreeLike") [Var 2,Var 4],Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSetRBT","intersectRBT._#lambda3") [Var 3]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","setRBT2list") [Var 5],Var 2,Var 6],Var 7],Var 8]]))),Func ("OracleSetRBT","intersectRBT._#lambda3") 3 Private (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 46]) (FuncType (TVar 46) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","elemRBT") [Var 3,Var 1],Var 2,Var 4]]))),Func ("OracleSetRBT","sortRBT") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleRedBlackTree","sort") []]]))] []
+ Curry/Module/OracleSetRBT.fint view
@@ -0,0 +1,1 @@+Prog "OracleSetRBT" ["CEventOracle","Oracle","IOExts","SetRBT","Maybe","Prelude","RedBlackTree","OracleMaybe","OraclePrelude","OracleRedBlackTree"] [TypeSyn ("OracleSetRBT","SetRBT") Public [0] (TCons ("RedBlackTree","RedBlackTree") [TVar 0])] [Func ("OracleSetRBT","emptySetRBT") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRedBlackTree","empty") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []]]]])),Func ("OracleSetRBT","elemRBT") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (TCons ("Prelude","Bool") []))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleMaybe","isJust") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRedBlackTree","lookup") [Var 2]],Var 1]])),Func ("OracleSetRBT","insertRBT") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleRedBlackTree","update") []]])),Func ("OracleSetRBT","insertMultiRBT") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRedBlackTree","setInsertEquivalence") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []]]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRedBlackTree","update") [Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRedBlackTree","setInsertEquivalence") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSetRBT","insertMultiRBT._#lambda2") []]]],Var 1],Var 3]]))),Func ("OracleSetRBT","insertMultiRBT._#lambda2") 3 Private (FuncType (TVar 27) (FuncType (TVar 27) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])),Func ("OracleSetRBT","deleteRBT") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleRedBlackTree","delete") []]])),Func ("OracleSetRBT","setRBT2list") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRedBlackTree","tree2list") []]])),Func ("OracleSetRBT","unionRBT") 3 Public (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 1],Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","setRBT2list") [Var 4],Var 2,Var 5],Var 6]]))),Func ("OracleSetRBT","intersectRBT") 3 Public (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 0])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","foldr") [Comb FuncCall ("OracleSetRBT","insertRBT") [Var 1],Comb FuncCall ("OracleRedBlackTree","newTreeLike") [Var 2,Var 4],Comb FuncCall ("OraclePrelude","filter") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSetRBT","intersectRBT._#lambda3") [Var 3]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","setRBT2list") [Var 5],Var 2,Var 6],Var 7],Var 8]]))),Func ("OracleSetRBT","intersectRBT._#lambda3") 3 Private (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TVar 46]) (FuncType (TVar 46) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleSetRBT","elemRBT") [Var 3,Var 1],Var 2,Var 4]]))),Func ("OracleSetRBT","sortRBT") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleRedBlackTree","sort") []]]))] []
+ Curry/Module/OracleSocket.fcy view
@@ -0,0 +1,1 @@+Prog "OracleSocket" ["CEventOracle","Oracle","IOExts","Socket","IO","Prelude","System","OracleIO","OraclePrelude","OracleSystem"] [] [Func ("OracleSocket","listenOn") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Socket","Socket") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSocket","prim_listenOn") []],Var 2,Var 1]])),Func ("OracleSocket","socketListen") 3 Public (FuncType (TCons ("Socket","Socket") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSocket","prim_socketListen") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleSocket","socketAccept") 2 Public (FuncType (TCons ("Socket","Socket") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("IO","Handle") []]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSocket","prim_socketAccept") []],Var 2,Var 1]])),Func ("OracleSocket","waitForSocketAccept") 3 Public (FuncType (TCons ("Socket","Socket") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("IO","Handle") []]]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSocket","prim_waitForSocketAccept") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleSocket","connectToSocket") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("IO","Handle") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSocket","prim_connectToSocket") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleSocket","prim_listenOn") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Socket","Socket") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Socket","prim_listenOn") [Var 2]]]])),Func ("OracleSocket","listenOnFresh") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Socket","Socket") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Socket","listenOnFresh") []]]])),Func ("OracleSocket","prim_socketListen") 3 Private (FuncType (TCons ("Socket","Socket") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Socket","prim_socketListen") [Var 3,Var 2]]])),Func ("OracleSocket","prim_socketAccept") 2 Private (FuncType (TCons ("Socket","Socket") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("IO","Handle") []]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Socket","prim_socketAccept") [Var 2]]]])),Func ("OracleSocket","prim_waitForSocketAccept") 3 Private (FuncType (TCons ("Socket","Socket") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("IO","Handle") []]]])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Socket","prim_waitForSocketAccept") [Var 3,Var 2]]]])),Func ("OracleSocket","prim_connectToSocket") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("IO","Handle") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Socket","prim_connectToSocket") [Var 3,Var 2]]]]))] []
+ Curry/Module/OracleSocket.fint view
@@ -0,0 +1,1 @@+Prog "OracleSocket" ["CEventOracle","Oracle","IOExts","Socket","IO","Prelude","System","OracleIO","OraclePrelude","OracleSystem"] [] [Func ("OracleSocket","listenOn") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Socket","Socket") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSocket","prim_listenOn") []],Var 2,Var 1]])),Func ("OracleSocket","socketListen") 3 Public (FuncType (TCons ("Socket","Socket") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSocket","prim_socketListen") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleSocket","socketAccept") 2 Public (FuncType (TCons ("Socket","Socket") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("IO","Handle") []]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSocket","prim_socketAccept") []],Var 2,Var 1]])),Func ("OracleSocket","waitForSocketAccept") 3 Public (FuncType (TCons ("Socket","Socket") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("IO","Handle") []]]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSocket","prim_waitForSocketAccept") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleSocket","connectToSocket") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("IO","Handle") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$#") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSocket","prim_connectToSocket") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleSocket","prim_listenOn") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Socket","Socket") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Socket","prim_listenOn") [Var 2]]]])),Func ("OracleSocket","listenOnFresh") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Socket","Socket") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Socket","listenOnFresh") []]]])),Func ("OracleSocket","prim_socketListen") 3 Private (FuncType (TCons ("Socket","Socket") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Socket","prim_socketListen") [Var 3,Var 2]]])),Func ("OracleSocket","prim_socketAccept") 2 Private (FuncType (TCons ("Socket","Socket") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("IO","Handle") []]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Socket","prim_socketAccept") [Var 2]]]])),Func ("OracleSocket","prim_waitForSocketAccept") 3 Private (FuncType (TCons ("Socket","Socket") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("IO","Handle") []]]])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Socket","prim_waitForSocketAccept") [Var 3,Var 2]]]])),Func ("OracleSocket","prim_connectToSocket") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("IO","Handle") []])))))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Socket","prim_connectToSocket") [Var 3,Var 2]]]]))] []
+ Curry/Module/OracleSort.fcy view
@@ -0,0 +1,1 @@+Prog "OracleSort" ["CEventOracle","Oracle","IOExts","Sort","Char","Prelude","OracleChar","OraclePrelude"] [] [Func ("OracleSort","quickSort") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_43") [Var 2,Var 3,Var 1]])),Func ("OracleSort","quickSort.split.6") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 8) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 8) (TCons ("Prelude","Bool") []))))) (FuncType (TVar 8) (FuncType (TCons ("Prelude","[]") [TVar 8]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 8],TCons ("Prelude","[]") [TVar 8]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_42") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleSort","quickSort.split.6._#selFP3#l") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 8],TCons ("Prelude","[]") [TVar 8]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 8]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_39") [Var 2,Var 1]])),Func ("OracleSort","quickSort.split.6._#selFP4#r") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 8],TCons ("Prelude","[]") [TVar 8]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 8]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_38") [Var 2,Var 1]])),Func ("OracleSort","quickSort._#selFP6#l") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 8],TCons ("Prelude","[]") [TVar 8]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 8]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_37") [Var 2,Var 1]])),Func ("OracleSort","quickSort._#selFP7#r") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 8],TCons ("Prelude","[]") [TVar 8]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 8]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_36") [Var 2,Var 1]])),Func ("OracleSort","mergeSort") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","mergeSort.mergeLists.16") [Var 2,Comb FuncCall ("OracleSort","mergeSort.genRuns.16") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OracleSort","mergeSort.genRuns.16") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 79) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 79) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TVar 79]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 79]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_35") [Var 2,Var 3,Var 1]])),Func ("OracleSort","mergeSort.mergePairs.16") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 79) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 79) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 79]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 79]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_31") [Var 2,Var 3,Var 1]])),Func ("OracleSort","mergeSort.mergeLists.16") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 79) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 79) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 79]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 79])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_29") [Var 2,Var 3,Var 1]])),Func ("OracleSort","merge") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_27") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleSort","leqList") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_23") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleSort","cmpList") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Ordering") []))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Ordering") []))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_19") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleSort","leqChar") 3 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Var 3,Var 4],Var 5]]))),Func ("OracleSort","cmpChar") 3 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Ordering") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_14") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OracleSort","leqCharIgnoreCase") 3 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Comb FuncCall ("OracleChar","toUpper") [Var 2,Var 1],Var 4],Comb FuncCall ("OraclePrelude","ord") [Comb FuncCall ("OracleChar","toUpper") [Var 3,Var 5],Var 6],Var 7]]))),Func ("OracleSort","leqString") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Bool") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSort","leqList") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSort","leqChar") []]]]])),Func ("OracleSort","cmpString") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Ordering") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSort","cmpList") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSort","cmpChar") []]]]])),Func ("OracleSort","leqStringIgnoreCase") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Bool") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSort","leqList") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSort","leqCharIgnoreCase") []]]]])),Func ("OracleSort","leqLexGerman") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_12") [Var 3,Var 2,Var 1]])),Func ("OracleSort","leqLexGerman.glex.89") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleSort","_case_8") [Var 2,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Var 2,Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'A'),Var 1],Var 3],Comb FuncCall ("OraclePrelude","<=") [Var 2,Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'Z'),Var 4],Var 5],Var 6],Var 7]]))),Func ("OracleSort","_case_8") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","+") [Var 2,Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'a'),Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'A'),Var 4],Var 5],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_7") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 228),Var 1],Var 7]]))]])),Func ("OracleSort","_case_7") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'a'),Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_6") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 246),Var 1],Var 4]]))]])),Func ("OracleSort","_case_6") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'o'),Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_5") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 252),Var 1],Var 4]]))]])),Func ("OracleSort","_case_5") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'u'),Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_4") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 196),Var 1],Var 4]]))]])),Func ("OracleSort","_case_4") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'a'),Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_3") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 214),Var 1],Var 4]]))]])),Func ("OracleSort","_case_3") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'o'),Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_2") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 220),Var 1],Var 4]]))]])),Func ("OracleSort","_case_2") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'u'),Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_1") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 223),Var 1],Var 4]]))]])),Func ("OracleSort","_case_1") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 's'),Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_0") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 4]]))]])),Func ("OracleSort","_case_0") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleSort","_case_12") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_11") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleSort","_case_11") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude",":") [6,7]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Let [(8,Comb FuncCall ("OracleSort","leqLexGerman.glex.89") [Comb FuncCall ("OraclePrelude","ord") [Var 4,Var 1],Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Let [(9,Comb FuncCall ("OracleSort","leqLexGerman.glex.89") [Comb FuncCall ("OraclePrelude","ord") [Var 6,Var 11],Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_10") [Var 5,Var 7,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 8,Var 9,Var 13],Var 14]]))]))]))]])),Func ("OracleSort","_case_10") 6 Private (TVar (-42)) (Rule [5,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","leqLexGerman") [Var 5,Var 7,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_9") [Var 8,Var 9,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 11]]))]])),Func ("OracleSort","_case_9") 4 Private (TVar (-42)) (Rule [8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","<") [Var 8,Var 9,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleSort","_case_14") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","EQ") []]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleSort","_case_13") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Var 3,Var 5],Var 6],Var 7]]))]])),Func ("OracleSort","_case_13") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []])]])),Func ("OracleSort","_case_19") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_18") [Var 4,Var 1]]),Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_17") [Var 2,Var 7,Var 8,Var 4,Var 1]])]])),Func ("OracleSort","_case_17") 5 Private (TVar (-42)) (Rule [2,7,8,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []]),Branch (Pattern ("Prelude",":") [9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleSort","_case_16") [Var 2,Var 7,Var 8,Var 9,Var 10,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 7,Var 1],Var 9,Var 11],Comb ConsCall ("Prelude","EQ") [],Var 12],Var 13]]))]])),Func ("OracleSort","_case_16") 7 Private (TVar (-42)) (Rule [2,7,8,9,10,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","cmpList") [Var 2,Var 8,Var 10,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_15") [Var 2,Var 7,Var 9,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 12]]))]])),Func ("OracleSort","_case_15") 5 Private (TVar (-42)) (Rule [2,7,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 7,Var 1],Var 9,Var 11]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleSort","_case_18") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","EQ") []]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []])]])),Func ("OracleSort","_case_23") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_22") [Var 2,Var 5,Var 6,Var 4,Var 1]])]])),Func ("OracleSort","_case_22") 5 Private (TVar (-42)) (Rule [2,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude",":") [7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_21") [Var 2,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OraclePrelude","==") [Var 5,Var 7,Var 1],Var 9]]))]])),Func ("OracleSort","_case_21") 7 Private (TVar (-42)) (Rule [2,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","leqList") [Var 2,Var 6,Var 8,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_20") [Var 2,Var 5,Var 7,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 10]]))]])),Func ("OracleSort","_case_20") 5 Private (TVar (-42)) (Rule [2,5,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 7,Var 9]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleSort","_case_27") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_26") [Var 2,Var 5,Var 6,Var 4,Var 1]])]])),Func ("OracleSort","_case_26") 5 Private (TVar (-42)) (Rule [2,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Var 6]]),Branch (Pattern ("Prelude",":") [7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleSort","_case_25") [Var 2,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 7,Var 9],Var 10]]))]])),Func ("OracleSort","_case_25") 7 Private (TVar (-42)) (Rule [2,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb FuncCall ("OracleSort","merge") [Var 2,Var 6,Comb ConsCall ("Prelude",":") [Var 7,Var 8],Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_24") [Var 2,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 10]]))]])),Func ("OracleSort","_case_24") 7 Private (TVar (-42)) (Rule [2,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb FuncCall ("OracleSort","merge") [Var 2,Comb ConsCall ("Prelude",":") [Var 5,Var 6],Var 8,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleSort","_case_29") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_28") [Var 2,Var 4,Var 5,Var 1]])]])),Func ("OracleSort","_case_28") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude",":") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleSort","mergeSort.mergeLists.16") [Var 2,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleSort","merge") [Var 2,Var 4,Var 6,Var 1],Comb FuncCall ("OracleSort","mergeSort.mergePairs.16") [Var 2,Var 7,Var 8]],Var 9]]))]])),Func ("OracleSort","_case_31") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_30") [Var 2,Var 4,Var 5,Var 1]])]])),Func ("OracleSort","_case_30") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleSort","merge") [Var 2,Var 4,Var 6,Var 1],Comb FuncCall ("OracleSort","mergeSort.mergePairs.16") [Var 2,Var 7,Var 8]]]))]])),Func ("OracleSort","_case_35") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_34") [Var 2,Var 4,Var 5,Var 1]])]])),Func ("OracleSort","_case_34") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleSort","_case_33") [Var 2,Var 4,Var 6,Var 7,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 6,Var 8],Var 9]]))]])),Func ("OracleSort","_case_33") 6 Private (TVar (-42)) (Rule [2,4,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleSort","mergeSort.genRuns.16") [Var 2,Var 7,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_32") [Var 2,Var 4,Var 6,Var 7,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 9]]))]])),Func ("OracleSort","_case_32") 6 Private (TVar (-42)) (Rule [2,4,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleSort","mergeSort.genRuns.16") [Var 2,Var 7,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleSort","_case_36") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleSort","_case_37") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleSort","_case_38") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleSort","_case_39") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleSort","_case_42") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleSort","quickSort.split.6") [Var 2,Var 3,Var 6,Var 1])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleSort","quickSort.split.6._#selFP3#l") [Var 7,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleSort","quickSort.split.6._#selFP4#r") [Var 7,Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleSort","_case_41") [Var 2,Var 3,Var 5,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 12],Var 3,Var 13],Var 14]]))]))]))]))]])),Func ("OracleSort","_case_41") 7 Private (TVar (-42)) (Rule [2,3,5,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 5,Var 8],Var 9]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_40") [Var 5,Var 8,Var 9,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 11]]))]])),Func ("OracleSort","_case_40") 5 Private (TVar (-42)) (Rule [5,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 8,Comb ConsCall ("Prelude",":") [Var 5,Var 9]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleSort","_case_43") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleSort","quickSort.split.6") [Var 2,Var 4,Var 5,Var 1])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleSort","quickSort._#selFP6#l") [Var 6,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleSort","quickSort._#selFP7#r") [Var 6,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleSort","quickSort") [Var 2,Var 7,Var 11],Comb ConsCall ("Prelude",":") [Var 4,Comb FuncCall ("OracleSort","quickSort") [Var 2,Var 8,Var 12]],Var 13]]))]))]))]))]]))] []
+ Curry/Module/OracleSort.fint view
@@ -0,0 +1,1 @@+Prog "OracleSort" ["CEventOracle","Oracle","IOExts","Sort","Char","Prelude","OracleChar","OraclePrelude"] [] [Func ("OracleSort","quickSort") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_43") [Var 2,Var 3,Var 1]])),Func ("OracleSort","quickSort.split.6") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 8) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 8) (TCons ("Prelude","Bool") []))))) (FuncType (TVar 8) (FuncType (TCons ("Prelude","[]") [TVar 8]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 8],TCons ("Prelude","[]") [TVar 8]]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_42") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleSort","quickSort.split.6._#selFP3#l") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 8],TCons ("Prelude","[]") [TVar 8]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 8]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_39") [Var 2,Var 1]])),Func ("OracleSort","quickSort.split.6._#selFP4#r") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 8],TCons ("Prelude","[]") [TVar 8]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 8]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_38") [Var 2,Var 1]])),Func ("OracleSort","quickSort._#selFP6#l") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 8],TCons ("Prelude","[]") [TVar 8]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 8]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_37") [Var 2,Var 1]])),Func ("OracleSort","quickSort._#selFP7#r") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 8],TCons ("Prelude","[]") [TVar 8]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 8]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_36") [Var 2,Var 1]])),Func ("OracleSort","mergeSort") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","mergeSort.mergeLists.16") [Var 2,Comb FuncCall ("OracleSort","mergeSort.genRuns.16") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OracleSort","mergeSort.genRuns.16") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 79) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 79) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TVar 79]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 79]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_35") [Var 2,Var 3,Var 1]])),Func ("OracleSort","mergeSort.mergePairs.16") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 79) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 79) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 79]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 79]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_31") [Var 2,Var 3,Var 1]])),Func ("OracleSort","mergeSort.mergeLists.16") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 79) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 79) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 79]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 79])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_29") [Var 2,Var 3,Var 1]])),Func ("OracleSort","merge") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_27") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleSort","leqList") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_23") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleSort","cmpList") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Ordering") []))))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Ordering") []))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_19") [Var 2,Var 4,Var 3,Var 1]])),Func ("OracleSort","leqChar") 3 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Var 3,Var 4],Var 5]]))),Func ("OracleSort","cmpChar") 3 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Ordering") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_14") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,Var 3,Var 1],Var 4]]))),Func ("OracleSort","leqCharIgnoreCase") 3 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","<=") [Comb FuncCall ("OraclePrelude","ord") [Comb FuncCall ("OracleChar","toUpper") [Var 2,Var 1],Var 4],Comb FuncCall ("OraclePrelude","ord") [Comb FuncCall ("OracleChar","toUpper") [Var 3,Var 5],Var 6],Var 7]]))),Func ("OracleSort","leqString") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Bool") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSort","leqList") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSort","leqChar") []]]]])),Func ("OracleSort","cmpString") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Ordering") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSort","cmpList") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSort","cmpChar") []]]]])),Func ("OracleSort","leqStringIgnoreCase") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Bool") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSort","leqList") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleSort","leqCharIgnoreCase") []]]]])),Func ("OracleSort","leqLexGerman") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_12") [Var 3,Var 2,Var 1]])),Func ("OracleSort","leqLexGerman.glex.89") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleSort","_case_8") [Var 2,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">=") [Var 2,Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'A'),Var 1],Var 3],Comb FuncCall ("OraclePrelude","<=") [Var 2,Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'Z'),Var 4],Var 5],Var 6],Var 7]]))),Func ("OracleSort","_case_8") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","+") [Var 2,Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'a'),Var 1],Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'A'),Var 4],Var 5],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_7") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 228),Var 1],Var 7]]))]])),Func ("OracleSort","_case_7") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'a'),Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_6") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 246),Var 1],Var 4]]))]])),Func ("OracleSort","_case_6") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'o'),Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_5") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 252),Var 1],Var 4]]))]])),Func ("OracleSort","_case_5") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'u'),Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_4") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 196),Var 1],Var 4]]))]])),Func ("OracleSort","_case_4") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'a'),Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_3") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 214),Var 1],Var 4]]))]])),Func ("OracleSort","_case_3") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'o'),Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_2") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 220),Var 1],Var 4]]))]])),Func ("OracleSort","_case_2") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 'u'),Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_1") [Var 2,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 223),Var 1],Var 4]]))]])),Func ("OracleSort","_case_1") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","ord") [Lit (Charc 's'),Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_0") [Var 2,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 4]]))]])),Func ("OracleSort","_case_0") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleSort","_case_12") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_11") [Var 4,Var 5,Var 3,Var 1]])]])),Func ("OracleSort","_case_11") 4 Private (TVar (-42)) (Rule [4,5,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude",":") [6,7]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Let [(8,Comb FuncCall ("OracleSort","leqLexGerman.glex.89") [Comb FuncCall ("OraclePrelude","ord") [Var 4,Var 1],Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Let [(9,Comb FuncCall ("OracleSort","leqLexGerman.glex.89") [Comb FuncCall ("OraclePrelude","ord") [Var 6,Var 11],Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_10") [Var 5,Var 7,Var 8,Var 9,Comb FuncCall ("OraclePrelude","==") [Var 8,Var 9,Var 13],Var 14]]))]))]))]])),Func ("OracleSort","_case_10") 6 Private (TVar (-42)) (Rule [5,7,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","leqLexGerman") [Var 5,Var 7,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_9") [Var 8,Var 9,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 11]]))]])),Func ("OracleSort","_case_9") 4 Private (TVar (-42)) (Rule [8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","<") [Var 8,Var 9,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleSort","_case_14") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","EQ") []]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleSort","_case_13") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","ord") [Var 3,Var 5],Var 6],Var 7]]))]])),Func ("OracleSort","_case_13") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []])]])),Func ("OracleSort","_case_19") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_18") [Var 4,Var 1]]),Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_17") [Var 2,Var 7,Var 8,Var 4,Var 1]])]])),Func ("OracleSort","_case_17") 5 Private (TVar (-42)) (Rule [2,7,8,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []]),Branch (Pattern ("Prelude",":") [9,10]) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleSort","_case_16") [Var 2,Var 7,Var 8,Var 9,Var 10,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 7,Var 1],Var 9,Var 11],Comb ConsCall ("Prelude","EQ") [],Var 12],Var 13]]))]])),Func ("OracleSort","_case_16") 7 Private (TVar (-42)) (Rule [2,7,8,9,10,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","cmpList") [Var 2,Var 8,Var 10,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_15") [Var 2,Var 7,Var 9,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 12]]))]])),Func ("OracleSort","_case_15") 5 Private (TVar (-42)) (Rule [2,7,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 7,Var 1],Var 9,Var 11]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleSort","_case_18") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","EQ") []]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []])]])),Func ("OracleSort","_case_23") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_22") [Var 2,Var 5,Var 6,Var 4,Var 1]])]])),Func ("OracleSort","_case_22") 5 Private (TVar (-42)) (Rule [2,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude",":") [7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_21") [Var 2,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OraclePrelude","==") [Var 5,Var 7,Var 1],Var 9]]))]])),Func ("OracleSort","_case_21") 7 Private (TVar (-42)) (Rule [2,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","leqList") [Var 2,Var 6,Var 8,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_20") [Var 2,Var 5,Var 7,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 10]]))]])),Func ("OracleSort","_case_20") 5 Private (TVar (-42)) (Rule [2,5,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 7,Var 9]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleSort","_case_27") 4 Private (TVar (-42)) (Rule [2,4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_26") [Var 2,Var 5,Var 6,Var 4,Var 1]])]])),Func ("OracleSort","_case_26") 5 Private (TVar (-42)) (Rule [2,5,6,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Var 6]]),Branch (Pattern ("Prelude",":") [7,8]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleSort","_case_25") [Var 2,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Var 7,Var 9],Var 10]]))]])),Func ("OracleSort","_case_25") 7 Private (TVar (-42)) (Rule [2,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb FuncCall ("OracleSort","merge") [Var 2,Var 6,Comb ConsCall ("Prelude",":") [Var 7,Var 8],Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_24") [Var 2,Var 5,Var 6,Var 7,Var 8,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 10]]))]])),Func ("OracleSort","_case_24") 7 Private (TVar (-42)) (Rule [2,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb FuncCall ("OracleSort","merge") [Var 2,Comb ConsCall ("Prelude",":") [Var 5,Var 6],Var 8,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleSort","_case_29") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_28") [Var 2,Var 4,Var 5,Var 1]])]])),Func ("OracleSort","_case_28") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4]),Branch (Pattern ("Prelude",":") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleSort","mergeSort.mergeLists.16") [Var 2,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleSort","merge") [Var 2,Var 4,Var 6,Var 1],Comb FuncCall ("OracleSort","mergeSort.mergePairs.16") [Var 2,Var 7,Var 8]],Var 9]]))]])),Func ("OracleSort","_case_31") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_30") [Var 2,Var 4,Var 5,Var 1]])]])),Func ("OracleSort","_case_30") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleSort","merge") [Var 2,Var 4,Var 6,Var 1],Comb FuncCall ("OracleSort","mergeSort.mergePairs.16") [Var 2,Var 7,Var 8]]]))]])),Func ("OracleSort","_case_35") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSort","_case_34") [Var 2,Var 4,Var 5,Var 1]])]])),Func ("OracleSort","_case_34") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [6,7]) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleSort","_case_33") [Var 2,Var 4,Var 6,Var 7,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Var 6,Var 8],Var 9]]))]])),Func ("OracleSort","_case_33") 6 Private (TVar (-42)) (Rule [2,4,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleSort","mergeSort.genRuns.16") [Var 2,Var 7,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_32") [Var 2,Var 4,Var 6,Var 7,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 9]]))]])),Func ("OracleSort","_case_32") 6 Private (TVar (-42)) (Rule [2,4,6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleSort","mergeSort.genRuns.16") [Var 2,Var 7,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleSort","_case_36") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleSort","_case_37") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleSort","_case_38") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleSort","_case_39") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleSort","_case_42") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [5,6]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleSort","quickSort.split.6") [Var 2,Var 3,Var 6,Var 1])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleSort","quickSort.split.6._#selFP3#l") [Var 7,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleSort","quickSort.split.6._#selFP4#r") [Var 7,Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleSort","_case_41") [Var 2,Var 3,Var 5,Var 8,Var 9,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 12],Var 3,Var 13],Var 14]]))]))]))]))]])),Func ("OracleSort","_case_41") 7 Private (TVar (-42)) (Rule [2,3,5,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 5,Var 8],Var 9]]),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleSort","_case_40") [Var 5,Var 8,Var 9,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 11]]))]])),Func ("OracleSort","_case_40") 5 Private (TVar (-42)) (Rule [5,8,9,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 10) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 8,Comb ConsCall ("Prelude",":") [Var 5,Var 9]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleSort","_case_43") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleSort","quickSort.split.6") [Var 2,Var 4,Var 5,Var 1])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleSort","quickSort._#selFP6#l") [Var 6,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleSort","quickSort._#selFP7#r") [Var 6,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleSort","quickSort") [Var 2,Var 7,Var 11],Comb ConsCall ("Prelude",":") [Var 4,Comb FuncCall ("OracleSort","quickSort") [Var 2,Var 8,Var 12]],Var 13]]))]))]))]))]]))] []
+ Curry/Module/OracleStyledText.fcy view
@@ -0,0 +1,1 @@+Prog "OracleStyledText" ["CEventOracle","Oracle","IOExts","StyledText","AnsiCodes","Prelude","Pretty","Char","OracleAnsiCodes","OraclePrelude","OraclePretty","OracleChar"] [] [Func ("OracleStyledText","boldChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 5),Var 1]])),Func ("OracleStyledText","underlineChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 6),Var 1]])),Func ("OracleStyledText","endChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 7),Var 1]])),Func ("OracleStyledText","blackChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 16),Var 1]])),Func ("OracleStyledText","blueChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 17),Var 1]])),Func ("OracleStyledText","cyanChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 18),Var 1]])),Func ("OracleStyledText","greenChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 19),Var 1]])),Func ("OracleStyledText","magentaChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 20),Var 1]])),Func ("OracleStyledText","redChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 21),Var 1]])),Func ("OracleStyledText","whiteChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 22),Var 1]])),Func ("OracleStyledText","yellowChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 23),Var 1]])),Func ("OracleStyledText","bgBlackChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 24),Var 1]])),Func ("OracleStyledText","bgBlueChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 25),Var 1]])),Func ("OracleStyledText","bgCyanChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 26),Var 1]])),Func ("OracleStyledText","bgGreenChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 27),Var 1]])),Func ("OracleStyledText","bgMagentaChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 28),Var 1]])),Func ("OracleStyledText","bgRedChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 29),Var 1]])),Func ("OracleStyledText","bgWhiteChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 30),Var 1]])),Func ("OracleStyledText","bgYellowChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 31),Var 1]])),Func ("OracleStyledText","bold") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","boldChar") [Var 1]]]])),Func ("OracleStyledText","underline") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","underlineChar") [Var 1]]]])),Func ("OracleStyledText","black") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","blackChar") [Var 1]]]])),Func ("OracleStyledText","blue") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","blueChar") [Var 1]]]])),Func ("OracleStyledText","cyan") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","cyanChar") [Var 1]]]])),Func ("OracleStyledText","green") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","greenChar") [Var 1]]]])),Func ("OracleStyledText","magenta") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","magentaChar") [Var 1]]]])),Func ("OracleStyledText","red") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","redChar") [Var 1]]]])),Func ("OracleStyledText","white") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","whiteChar") [Var 1]]]])),Func ("OracleStyledText","yellow") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","yellowChar") [Var 1]]]])),Func ("OracleStyledText","bgBlack") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","bgBlackChar") [Var 1]]]])),Func ("OracleStyledText","bgBlue") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","bgBlueChar") [Var 1]]]])),Func ("OracleStyledText","bgCyan") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","bgCyanChar") [Var 1]]]])),Func ("OracleStyledText","bgGreen") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","bgGreenChar") [Var 1]]]])),Func ("OracleStyledText","bgMagenta") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","bgMagentaChar") [Var 1]]]])),Func ("OracleStyledText","bgRed") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","bgRedChar") [Var 1]]]])),Func ("OracleStyledText","bgWhite") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","bgWhiteChar") [Var 1]]]])),Func ("OracleStyledText","bgYellow") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","bgYellowChar") [Var 1]]]])),Func ("OracleStyledText","encl") 3 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 2,Comb FuncCall ("OraclePrelude","++") [Var 3,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleStyledText","endChar") [Var 1],Comb ConsCall ("Prelude","[]") []],Var 4]]]))),Func ("OracleStyledText","boldS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","boldChar") [Var 1]]]])),Func ("OracleStyledText","underlineS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","underlineChar") [Var 1]]]])),Func ("OracleStyledText","blackS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","blackChar") [Var 1]]]])),Func ("OracleStyledText","blueS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","blueChar") [Var 1]]]])),Func ("OracleStyledText","cyanS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","cyanChar") [Var 1]]]])),Func ("OracleStyledText","greenS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","greenChar") [Var 1]]]])),Func ("OracleStyledText","magentaS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","magentaChar") [Var 1]]]])),Func ("OracleStyledText","redS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","redChar") [Var 1]]]])),Func ("OracleStyledText","whiteS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","whiteChar") [Var 1]]]])),Func ("OracleStyledText","yellowS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","yellowChar") [Var 1]]]])),Func ("OracleStyledText","bgBlackS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","bgBlackChar") [Var 1]]]])),Func ("OracleStyledText","bgBlueS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","bgBlueChar") [Var 1]]]])),Func ("OracleStyledText","bgCyanS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","bgCyanChar") [Var 1]]]])),Func ("OracleStyledText","bgGreenS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","bgGreenChar") [Var 1]]]])),Func ("OracleStyledText","bgMagentaS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","bgMagentaChar") [Var 1]]]])),Func ("OracleStyledText","bgRedS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","bgRedChar") [Var 1]]]])),Func ("OracleStyledText","bgWhiteS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","bgWhiteChar") [Var 1]]]])),Func ("OracleStyledText","bgYellowS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","bgYellowChar") [Var 1]]]])),Func ("OracleStyledText","enclS") 3 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude",":") [Var 2]],Comb FuncCall ("OraclePrelude",".") [Var 3,Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude",":") [Comb FuncCall ("OracleStyledText","endChar") [Var 1]]],Var 4],Var 5]]))),Func ("OracleStyledText","boldDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","boldChar") [Var 1],Var 2]]))),Func ("OracleStyledText","underlineDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","underlineChar") [Var 1],Var 2]]))),Func ("OracleStyledText","blackDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","blackChar") [Var 1],Var 2]]))),Func ("OracleStyledText","blueDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","blueChar") [Var 1],Var 2]]))),Func ("OracleStyledText","cyanDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","cyanChar") [Var 1],Var 2]]))),Func ("OracleStyledText","greenDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","greenChar") [Var 1],Var 2]]))),Func ("OracleStyledText","magentaDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","magentaChar") [Var 1],Var 2]]))),Func ("OracleStyledText","redDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","redChar") [Var 1],Var 2]]))),Func ("OracleStyledText","whiteDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","whiteChar") [Var 1],Var 2]]))),Func ("OracleStyledText","yellowDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","yellowChar") [Var 1],Var 2]]))),Func ("OracleStyledText","bgBlackDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","bgBlackChar") [Var 1],Var 2]]))),Func ("OracleStyledText","bgBlueDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","bgBlueChar") [Var 1],Var 2]]))),Func ("OracleStyledText","bgCyanDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","bgCyanChar") [Var 1],Var 2]]))),Func ("OracleStyledText","bgGreenDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","bgGreenChar") [Var 1],Var 2]]))),Func ("OracleStyledText","bgMagentaDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","bgMagentaChar") [Var 1],Var 2]]))),Func ("OracleStyledText","bgRedDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","bgRedChar") [Var 1],Var 2]]))),Func ("OracleStyledText","bgWhiteDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","bgWhiteChar") [Var 1],Var 2]]))),Func ("OracleStyledText","bgYellowDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","bgYellowChar") [Var 1],Var 2]]))),Func ("OracleStyledText","enclDoc") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","enclose") [Comb FuncCall ("OraclePretty","char") [Var 2,Var 1],Comb FuncCall ("OraclePretty","char") [Comb FuncCall ("OracleStyledText","endChar") [Var 3],Var 4]]]]))),Func ("OracleStyledText","plainText") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","not") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","special") []],Var 1]]]])),Func ("OracleStyledText","special") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Var 3],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Intc 5),Comb ConsCall ("Prelude",":") [Lit (Intc 6),Comb ConsCall ("Prelude",":") [Lit (Intc 7),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","enumFromTo") [Lit (Intc 16),Lit (Intc 31),Var 4],Var 5],Var 6]]))),Func ("OracleStyledText","interpret") 7 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 1))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TVar 1))))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TVar 0,TVar 0,TVar 0]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 1)))))))) (Rule [2,3,4,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleStyledText","_case_11") [Var 3,Var 4,Var 5,Var 6,Var 7,Var 2,Var 1]])),Func ("OracleStyledText","interpret._#selFP3#xs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleStyledText","_case_1") [Var 2,Var 1]])),Func ("OracleStyledText","interpret._#selFP4#ys") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleStyledText","_case_0") [Var 2,Var 1]])),Func ("OracleStyledText","printStyledText") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","putStrLn") []],Comb FuncCall ("OracleStyledText","toAnsiString") [Var 1],Var 2]]))),Func ("OracleStyledText","toAnsiString") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","interpret") [Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","bold") [Var 1],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","underline") [Var 2],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","black") [Var 3],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","blue") [Var 4],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","cyan") [Var 5],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","green") [Var 6],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","magenta") [Var 7],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","red") [Var 8],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","white") [Var 9],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","yellow") [Var 10],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","bgBlack") [Var 11],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","bgBlue") [Var 12],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","bgCyan") [Var 13],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","bgGreen") [Var 14],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","bgMagenta") [Var 15],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","bgRed") [Var 16],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","bgWhite") [Var 17],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","bgYellow") [Var 18],Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","++") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude",".") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,,)") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]],Comb ConsCall ("Prelude","[]") []]]]]))),Func ("OracleStyledText","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleStyledText","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleStyledText","_case_11") 7 Private (TVar (-42)) (Rule [3,4,5,6,7,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleStyledText","_case_10") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9,Var 1]])]])),Func ("OracleStyledText","_case_10") 9 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleStyledText","_case_9") [Var 2,Var 3,Var 4,Var 5,Var 7,Var 8,Var 10,Var 11,Var 6,Var 1]])]])),Func ("OracleStyledText","_case_9") 10 Private (TVar (-42)) (Rule [2,3,4,5,7,8,10,11,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleStyledText","_case_8") [Var 2,Var 3,Var 4,Var 5,Var 7,Var 8,Var 10,Var 11,Var 13,Var 12,Var 1]])]])),Func ("OracleStyledText","_case_8") 11 Private (TVar (-42)) (Rule [2,3,4,5,7,8,10,11,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude","(,,)") [14,15,16]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]]]],Let [(17,Comb FuncCall ("OraclePrelude","$") [Var 5,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 4,Var 14,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 4,Var 15,Var 23],Var 16,Var 24],Var 25],Var 26])] (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []]],Let [(18,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","break") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","special") []],Var 27],Var 7,Var 28])] (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []],Let [(19,Comb FuncCall ("OracleStyledText","interpret._#selFP3#xs") [Var 18,Var 29])] (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []],Let [(20,Comb FuncCall ("OracleStyledText","interpret._#selFP4#ys") [Var 18,Var 30])] (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude","[]") []]],Let [(21,Comb FuncCall ("OraclePrelude","ord") [Comb FuncCall ("OraclePrelude","head") [Var 20,Var 31],Var 32])] (Let [(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude","[]") []]],Let [(22,Comb FuncCall ("OraclePrelude","!!") [Var 11,Comb FuncCall ("OraclePrelude","-") [Var 21,Lit (Intc 16),Var 33],Var 34])] (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","_case_7") [Var 2,Var 3,Var 4,Var 5,Var 8,Var 10,Var 12,Var 13,Var 14,Var 15,Var 16,Var 17,Var 19,Var 20,Var 21,Var 22,Comb FuncCall ("OraclePrelude","null") [Var 20,Var 35],Var 36]]))]))]))]))]))]))]))]])),Func ("OracleStyledText","_case_7") 18 Private (TVar (-42)) (Rule [2,3,4,5,8,10,12,13,14,15,16,17,19,20,21,22,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 17,Var 19,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","_case_6") [Var 2,Var 3,Var 4,Var 5,Var 8,Var 10,Var 12,Var 13,Var 14,Var 15,Var 16,Var 17,Var 19,Var 20,Var 21,Var 22,Comb FuncCall ("OraclePrelude","==") [Var 21,Lit (Intc 5),Var 1],Var 24]]))]])),Func ("OracleStyledText","_case_6") 18 Private (TVar (-42)) (Rule [2,3,4,5,8,10,12,13,14,15,16,17,19,20,21,22,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude","True") []) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("Oracle","apply") [Var 3,Comb FuncCall ("Oracle","apply") [Var 17,Var 19,Var 1],Var 24],Comb FuncCall ("OracleStyledText","interpret") [Var 2,Var 3,Var 4,Var 5,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,,)") [Var 8,Var 15,Var 16],Comb ConsCall ("Prelude",":") [Var 12,Var 13]],Comb FuncCall ("OraclePrelude","tail") [Var 20,Var 25],Var 26],Var 27]])),Branch (Pattern ("Prelude","False") []) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","_case_5") [Var 2,Var 3,Var 4,Var 5,Var 10,Var 12,Var 13,Var 14,Var 15,Var 16,Var 17,Var 19,Var 20,Var 21,Var 22,Comb FuncCall ("OraclePrelude","==") [Var 21,Lit (Intc 6),Var 1],Var 28]]))]])),Func ("OracleStyledText","_case_5") 17 Private (TVar (-42)) (Rule [2,3,4,5,10,12,13,14,15,16,17,19,20,21,22,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude","True") []) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("Oracle","apply") [Var 3,Comb FuncCall ("Oracle","apply") [Var 17,Var 19,Var 1],Var 24],Comb FuncCall ("OracleStyledText","interpret") [Var 2,Var 3,Var 4,Var 5,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,,)") [Var 10,Var 15,Var 16],Comb ConsCall ("Prelude",":") [Var 12,Var 13]],Comb FuncCall ("OraclePrelude","tail") [Var 20,Var 25],Var 26],Var 27]])),Branch (Pattern ("Prelude","False") []) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","_case_4") [Var 2,Var 3,Var 4,Var 5,Var 12,Var 13,Var 14,Var 15,Var 16,Var 17,Var 19,Var 20,Var 21,Var 22,Comb FuncCall ("OraclePrelude","==") [Var 21,Lit (Intc 7),Var 1],Var 28]]))]])),Func ("OracleStyledText","_case_4") 16 Private (TVar (-42)) (Rule [2,3,4,5,12,13,14,15,16,17,19,20,21,22,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude","True") []) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("Oracle","apply") [Var 3,Comb FuncCall ("Oracle","apply") [Var 17,Var 19,Var 1],Var 24],Comb FuncCall ("OracleStyledText","interpret") [Var 2,Var 3,Var 4,Var 5,Var 13,Comb FuncCall ("OraclePrelude","tail") [Var 20,Var 25],Var 26],Var 27]])),Branch (Pattern ("Prelude","False") []) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","_case_3") [Var 2,Var 3,Var 4,Var 5,Var 12,Var 13,Var 14,Var 15,Var 16,Var 17,Var 19,Var 20,Var 21,Var 22,Comb FuncCall ("OraclePrelude","<") [Var 21,Lit (Intc 24),Var 1],Var 28]]))]])),Func ("OracleStyledText","_case_3") 16 Private (TVar (-42)) (Rule [2,3,4,5,12,13,14,15,16,17,19,20,21,22,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude","True") []) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("Oracle","apply") [Var 3,Comb FuncCall ("Oracle","apply") [Var 17,Var 19,Var 1],Var 24],Comb FuncCall ("OracleStyledText","interpret") [Var 2,Var 3,Var 4,Var 5,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,,)") [Var 14,Var 22,Var 16],Comb ConsCall ("Prelude",":") [Var 12,Var 13]],Comb FuncCall ("OraclePrelude","tail") [Var 20,Var 25],Var 26],Var 27]])),Branch (Pattern ("Prelude","False") []) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","_case_2") [Var 2,Var 3,Var 4,Var 5,Var 12,Var 13,Var 14,Var 15,Var 17,Var 19,Var 20,Var 22,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 28]]))]])),Func ("OracleStyledText","_case_2") 14 Private (TVar (-42)) (Rule [2,3,4,5,12,13,14,15,17,19,20,22,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude","True") []) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("Oracle","apply") [Var 3,Comb FuncCall ("Oracle","apply") [Var 17,Var 19,Var 1],Var 24],Comb FuncCall ("OracleStyledText","interpret") [Var 2,Var 3,Var 4,Var 5,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,,)") [Var 14,Var 15,Var 22],Comb ConsCall ("Prelude",":") [Var 12,Var 13]],Comb FuncCall ("OraclePrelude","tail") [Var 20,Var 25],Var 26],Var 27]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]]))] []
+ Curry/Module/OracleStyledText.fint view
@@ -0,0 +1,1 @@+Prog "OracleStyledText" ["CEventOracle","Oracle","IOExts","StyledText","AnsiCodes","Prelude","Pretty","Char","OracleAnsiCodes","OraclePrelude","OraclePretty","OracleChar"] [] [Func ("OracleStyledText","boldChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 5),Var 1]])),Func ("OracleStyledText","underlineChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 6),Var 1]])),Func ("OracleStyledText","endChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 7),Var 1]])),Func ("OracleStyledText","blackChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 16),Var 1]])),Func ("OracleStyledText","blueChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 17),Var 1]])),Func ("OracleStyledText","cyanChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 18),Var 1]])),Func ("OracleStyledText","greenChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 19),Var 1]])),Func ("OracleStyledText","magentaChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 20),Var 1]])),Func ("OracleStyledText","redChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 21),Var 1]])),Func ("OracleStyledText","whiteChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 22),Var 1]])),Func ("OracleStyledText","yellowChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 23),Var 1]])),Func ("OracleStyledText","bgBlackChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 24),Var 1]])),Func ("OracleStyledText","bgBlueChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 25),Var 1]])),Func ("OracleStyledText","bgCyanChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 26),Var 1]])),Func ("OracleStyledText","bgGreenChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 27),Var 1]])),Func ("OracleStyledText","bgMagentaChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 28),Var 1]])),Func ("OracleStyledText","bgRedChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 29),Var 1]])),Func ("OracleStyledText","bgWhiteChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 30),Var 1]])),Func ("OracleStyledText","bgYellowChar") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 31),Var 1]])),Func ("OracleStyledText","bold") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","boldChar") [Var 1]]]])),Func ("OracleStyledText","underline") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","underlineChar") [Var 1]]]])),Func ("OracleStyledText","black") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","blackChar") [Var 1]]]])),Func ("OracleStyledText","blue") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","blueChar") [Var 1]]]])),Func ("OracleStyledText","cyan") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","cyanChar") [Var 1]]]])),Func ("OracleStyledText","green") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","greenChar") [Var 1]]]])),Func ("OracleStyledText","magenta") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","magentaChar") [Var 1]]]])),Func ("OracleStyledText","red") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","redChar") [Var 1]]]])),Func ("OracleStyledText","white") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","whiteChar") [Var 1]]]])),Func ("OracleStyledText","yellow") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","yellowChar") [Var 1]]]])),Func ("OracleStyledText","bgBlack") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","bgBlackChar") [Var 1]]]])),Func ("OracleStyledText","bgBlue") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","bgBlueChar") [Var 1]]]])),Func ("OracleStyledText","bgCyan") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","bgCyanChar") [Var 1]]]])),Func ("OracleStyledText","bgGreen") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","bgGreenChar") [Var 1]]]])),Func ("OracleStyledText","bgMagenta") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","bgMagentaChar") [Var 1]]]])),Func ("OracleStyledText","bgRed") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","bgRedChar") [Var 1]]]])),Func ("OracleStyledText","bgWhite") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","bgWhiteChar") [Var 1]]]])),Func ("OracleStyledText","bgYellow") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","encl") [Comb FuncCall ("OracleStyledText","bgYellowChar") [Var 1]]]])),Func ("OracleStyledText","encl") 3 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 2,Comb FuncCall ("OraclePrelude","++") [Var 3,Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleStyledText","endChar") [Var 1],Comb ConsCall ("Prelude","[]") []],Var 4]]]))),Func ("OracleStyledText","boldS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","boldChar") [Var 1]]]])),Func ("OracleStyledText","underlineS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","underlineChar") [Var 1]]]])),Func ("OracleStyledText","blackS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","blackChar") [Var 1]]]])),Func ("OracleStyledText","blueS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","blueChar") [Var 1]]]])),Func ("OracleStyledText","cyanS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","cyanChar") [Var 1]]]])),Func ("OracleStyledText","greenS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","greenChar") [Var 1]]]])),Func ("OracleStyledText","magentaS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","magentaChar") [Var 1]]]])),Func ("OracleStyledText","redS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","redChar") [Var 1]]]])),Func ("OracleStyledText","whiteS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","whiteChar") [Var 1]]]])),Func ("OracleStyledText","yellowS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","yellowChar") [Var 1]]]])),Func ("OracleStyledText","bgBlackS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","bgBlackChar") [Var 1]]]])),Func ("OracleStyledText","bgBlueS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","bgBlueChar") [Var 1]]]])),Func ("OracleStyledText","bgCyanS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","bgCyanChar") [Var 1]]]])),Func ("OracleStyledText","bgGreenS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","bgGreenChar") [Var 1]]]])),Func ("OracleStyledText","bgMagentaS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","bgMagentaChar") [Var 1]]]])),Func ("OracleStyledText","bgRedS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","bgRedChar") [Var 1]]]])),Func ("OracleStyledText","bgWhiteS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","bgWhiteChar") [Var 1]]]])),Func ("OracleStyledText","bgYellowS") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","enclS") [Comb FuncCall ("OracleStyledText","bgYellowChar") [Var 1]]]])),Func ("OracleStyledText","enclS") 3 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude",":") [Var 2]],Comb FuncCall ("OraclePrelude",".") [Var 3,Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude",":") [Comb FuncCall ("OracleStyledText","endChar") [Var 1]]],Var 4],Var 5]]))),Func ("OracleStyledText","boldDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","boldChar") [Var 1],Var 2]]))),Func ("OracleStyledText","underlineDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","underlineChar") [Var 1],Var 2]]))),Func ("OracleStyledText","blackDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","blackChar") [Var 1],Var 2]]))),Func ("OracleStyledText","blueDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","blueChar") [Var 1],Var 2]]))),Func ("OracleStyledText","cyanDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","cyanChar") [Var 1],Var 2]]))),Func ("OracleStyledText","greenDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","greenChar") [Var 1],Var 2]]))),Func ("OracleStyledText","magentaDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","magentaChar") [Var 1],Var 2]]))),Func ("OracleStyledText","redDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","redChar") [Var 1],Var 2]]))),Func ("OracleStyledText","whiteDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","whiteChar") [Var 1],Var 2]]))),Func ("OracleStyledText","yellowDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","yellowChar") [Var 1],Var 2]]))),Func ("OracleStyledText","bgBlackDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","bgBlackChar") [Var 1],Var 2]]))),Func ("OracleStyledText","bgBlueDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","bgBlueChar") [Var 1],Var 2]]))),Func ("OracleStyledText","bgCyanDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","bgCyanChar") [Var 1],Var 2]]))),Func ("OracleStyledText","bgGreenDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","bgGreenChar") [Var 1],Var 2]]))),Func ("OracleStyledText","bgMagentaDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","bgMagentaChar") [Var 1],Var 2]]))),Func ("OracleStyledText","bgRedDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","bgRedChar") [Var 1],Var 2]]))),Func ("OracleStyledText","bgWhiteDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","bgWhiteChar") [Var 1],Var 2]]))),Func ("OracleStyledText","bgYellowDoc") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") [])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","enclDoc") [Comb FuncCall ("OracleStyledText","bgYellowChar") [Var 1],Var 2]]))),Func ("OracleStyledText","enclDoc") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OraclePretty","Doc") []) (TCons ("OraclePretty","Doc") []))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePretty","enclose") [Comb FuncCall ("OraclePretty","char") [Var 2,Var 1],Comb FuncCall ("OraclePretty","char") [Comb FuncCall ("OracleStyledText","endChar") [Var 3],Var 4]]]]))),Func ("OracleStyledText","plainText") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","not") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","special") []],Var 1]]]])),Func ("OracleStyledText","special") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Comb FuncCall ("OraclePrelude","ord") [Var 2,Var 1],Var 3],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Intc 5),Comb ConsCall ("Prelude",":") [Lit (Intc 6),Comb ConsCall ("Prelude",":") [Lit (Intc 7),Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","enumFromTo") [Lit (Intc 16),Lit (Intc 31),Var 4],Var 5],Var 6]]))),Func ("OracleStyledText","interpret") 7 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 1))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TVar 1))))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TVar 0,TVar 0,TVar 0]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 1)))))))) (Rule [2,3,4,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleStyledText","_case_11") [Var 3,Var 4,Var 5,Var 6,Var 7,Var 2,Var 1]])),Func ("OracleStyledText","interpret._#selFP3#xs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleStyledText","_case_1") [Var 2,Var 1]])),Func ("OracleStyledText","interpret._#selFP4#ys") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleStyledText","_case_0") [Var 2,Var 1]])),Func ("OracleStyledText","printStyledText") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","putStrLn") []],Comb FuncCall ("OracleStyledText","toAnsiString") [Var 1],Var 2]]))),Func ("OracleStyledText","toAnsiString") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","interpret") [Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","bold") [Var 1],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","underline") [Var 2],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","black") [Var 3],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","blue") [Var 4],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","cyan") [Var 5],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","green") [Var 6],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","magenta") [Var 7],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","red") [Var 8],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","white") [Var 9],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","yellow") [Var 10],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","bgBlack") [Var 11],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","bgBlue") [Var 12],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","bgCyan") [Var 13],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","bgGreen") [Var 14],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","bgMagenta") [Var 15],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","bgRed") [Var 16],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","bgWhite") [Var 17],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OracleAnsiCodes","bgYellow") [Var 18],Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","++") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude",".") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,,)") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","id") []]],Comb ConsCall ("Prelude","[]") []]]]]))),Func ("OracleStyledText","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleStyledText","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleStyledText","_case_11") 7 Private (TVar (-42)) (Rule [3,4,5,6,7,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleStyledText","_case_10") [Var 2,Var 3,Var 4,Var 5,Var 6,Var 7,Var 8,Var 9,Var 1]])]])),Func ("OracleStyledText","_case_10") 9 Private (TVar (-42)) (Rule [2,3,4,5,6,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 9) [Branch (Pattern ("Prelude",":") [10,11]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleStyledText","_case_9") [Var 2,Var 3,Var 4,Var 5,Var 7,Var 8,Var 10,Var 11,Var 6,Var 1]])]])),Func ("OracleStyledText","_case_9") 10 Private (TVar (-42)) (Rule [2,3,4,5,7,8,10,11,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 6) [Branch (Pattern ("Prelude",":") [12,13]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleStyledText","_case_8") [Var 2,Var 3,Var 4,Var 5,Var 7,Var 8,Var 10,Var 11,Var 13,Var 12,Var 1]])]])),Func ("OracleStyledText","_case_8") 11 Private (TVar (-42)) (Rule [2,3,4,5,7,8,10,11,13,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 12) [Branch (Pattern ("Prelude","(,,)") [14,15,16]) (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]]]],Let [(17,Comb FuncCall ("OraclePrelude","$") [Var 5,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 4,Var 14,Var 1],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 4,Var 15,Var 23],Var 16,Var 24],Var 25],Var 26])] (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 27,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []]],Let [(18,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","break") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleStyledText","special") []],Var 27],Var 7,Var 28])] (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []],Let [(19,Comb FuncCall ("OracleStyledText","interpret._#selFP3#xs") [Var 18,Var 29])] (Let [(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []],Let [(20,Comb FuncCall ("OracleStyledText","interpret._#selFP4#ys") [Var 18,Var 30])] (Let [(32,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(33,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 31,Comb ConsCall ("Prelude",":") [Var 32,Comb ConsCall ("Prelude",":") [Var 33,Comb ConsCall ("Prelude","[]") []]],Let [(21,Comb FuncCall ("OraclePrelude","ord") [Comb FuncCall ("OraclePrelude","head") [Var 20,Var 31],Var 32])] (Let [(34,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(35,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 33,Comb ConsCall ("Prelude",":") [Var 34,Comb ConsCall ("Prelude",":") [Var 35,Comb ConsCall ("Prelude","[]") []]],Let [(22,Comb FuncCall ("OraclePrelude","!!") [Var 11,Comb FuncCall ("OraclePrelude","-") [Var 21,Lit (Intc 16),Var 33],Var 34])] (Let [(36,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 35,Comb ConsCall ("Prelude",":") [Var 36,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","_case_7") [Var 2,Var 3,Var 4,Var 5,Var 8,Var 10,Var 12,Var 13,Var 14,Var 15,Var 16,Var 17,Var 19,Var 20,Var 21,Var 22,Comb FuncCall ("OraclePrelude","null") [Var 20,Var 35],Var 36]]))]))]))]))]))]))]))]])),Func ("OracleStyledText","_case_7") 18 Private (TVar (-42)) (Rule [2,3,4,5,8,10,12,13,14,15,16,17,19,20,21,22,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","apply") [Var 17,Var 19,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","_case_6") [Var 2,Var 3,Var 4,Var 5,Var 8,Var 10,Var 12,Var 13,Var 14,Var 15,Var 16,Var 17,Var 19,Var 20,Var 21,Var 22,Comb FuncCall ("OraclePrelude","==") [Var 21,Lit (Intc 5),Var 1],Var 24]]))]])),Func ("OracleStyledText","_case_6") 18 Private (TVar (-42)) (Rule [2,3,4,5,8,10,12,13,14,15,16,17,19,20,21,22,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude","True") []) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("Oracle","apply") [Var 3,Comb FuncCall ("Oracle","apply") [Var 17,Var 19,Var 1],Var 24],Comb FuncCall ("OracleStyledText","interpret") [Var 2,Var 3,Var 4,Var 5,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,,)") [Var 8,Var 15,Var 16],Comb ConsCall ("Prelude",":") [Var 12,Var 13]],Comb FuncCall ("OraclePrelude","tail") [Var 20,Var 25],Var 26],Var 27]])),Branch (Pattern ("Prelude","False") []) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","_case_5") [Var 2,Var 3,Var 4,Var 5,Var 10,Var 12,Var 13,Var 14,Var 15,Var 16,Var 17,Var 19,Var 20,Var 21,Var 22,Comb FuncCall ("OraclePrelude","==") [Var 21,Lit (Intc 6),Var 1],Var 28]]))]])),Func ("OracleStyledText","_case_5") 17 Private (TVar (-42)) (Rule [2,3,4,5,10,12,13,14,15,16,17,19,20,21,22,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude","True") []) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("Oracle","apply") [Var 3,Comb FuncCall ("Oracle","apply") [Var 17,Var 19,Var 1],Var 24],Comb FuncCall ("OracleStyledText","interpret") [Var 2,Var 3,Var 4,Var 5,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,,)") [Var 10,Var 15,Var 16],Comb ConsCall ("Prelude",":") [Var 12,Var 13]],Comb FuncCall ("OraclePrelude","tail") [Var 20,Var 25],Var 26],Var 27]])),Branch (Pattern ("Prelude","False") []) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","_case_4") [Var 2,Var 3,Var 4,Var 5,Var 12,Var 13,Var 14,Var 15,Var 16,Var 17,Var 19,Var 20,Var 21,Var 22,Comb FuncCall ("OraclePrelude","==") [Var 21,Lit (Intc 7),Var 1],Var 28]]))]])),Func ("OracleStyledText","_case_4") 16 Private (TVar (-42)) (Rule [2,3,4,5,12,13,14,15,16,17,19,20,21,22,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude","True") []) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("Oracle","apply") [Var 3,Comb FuncCall ("Oracle","apply") [Var 17,Var 19,Var 1],Var 24],Comb FuncCall ("OracleStyledText","interpret") [Var 2,Var 3,Var 4,Var 5,Var 13,Comb FuncCall ("OraclePrelude","tail") [Var 20,Var 25],Var 26],Var 27]])),Branch (Pattern ("Prelude","False") []) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","_case_3") [Var 2,Var 3,Var 4,Var 5,Var 12,Var 13,Var 14,Var 15,Var 16,Var 17,Var 19,Var 20,Var 21,Var 22,Comb FuncCall ("OraclePrelude","<") [Var 21,Lit (Intc 24),Var 1],Var 28]]))]])),Func ("OracleStyledText","_case_3") 16 Private (TVar (-42)) (Rule [2,3,4,5,12,13,14,15,16,17,19,20,21,22,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude","True") []) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("Oracle","apply") [Var 3,Comb FuncCall ("Oracle","apply") [Var 17,Var 19,Var 1],Var 24],Comb FuncCall ("OracleStyledText","interpret") [Var 2,Var 3,Var 4,Var 5,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,,)") [Var 14,Var 22,Var 16],Comb ConsCall ("Prelude",":") [Var 12,Var 13]],Comb FuncCall ("OraclePrelude","tail") [Var 20,Var 25],Var 26],Var 27]])),Branch (Pattern ("Prelude","False") []) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleStyledText","_case_2") [Var 2,Var 3,Var 4,Var 5,Var 12,Var 13,Var 14,Var 15,Var 17,Var 19,Var 20,Var 22,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 28]]))]])),Func ("OracleStyledText","_case_2") 14 Private (TVar (-42)) (Rule [2,3,4,5,12,13,14,15,17,19,20,22,23,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 23) [Branch (Pattern ("Prelude","True") []) (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","$") [Comb FuncCall ("Oracle","apply") [Var 3,Comb FuncCall ("Oracle","apply") [Var 17,Var 19,Var 1],Var 24],Comb FuncCall ("OracleStyledText","interpret") [Var 2,Var 3,Var 4,Var 5,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,,)") [Var 14,Var 15,Var 22],Comb ConsCall ("Prelude",":") [Var 12,Var 13]],Comb FuncCall ("OraclePrelude","tail") [Var 20,Var 25],Var 26],Var 27]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]]))] []
+ Curry/Module/OracleSystem.fcy view
@@ -0,0 +1,1 @@+Prog "OracleSystem" ["CEventOracle","Oracle","IOExts","System","Global","Prelude","OracleGlobal","OraclePrelude"] [] [Func ("OracleSystem","getEnviron") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleGlobal","readGlobal") [Comb FuncCall ("OracleSystem","environ") [Var 1],Var 3],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSystem","getEnviron._#lambda2") [Var 2]],Var 4]]))),Func ("OracleSystem","getEnviron._#lambda2") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSystem","prim_getEnviron") []],Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb FuncCall ("OraclePrelude","lookup") [Var 2,Var 3,Var 4],Var 5]]))),Func ("OracleSystem","environ") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Global","Global") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("System","environ") []])),Func ("OracleSystem","setEnviron") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleGlobal","readGlobal") [Comb FuncCall ("OracleSystem","environ") [Var 1],Var 4],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSystem","setEnviron._#lambda3") [Var 2,Var 3]],Var 5]]))),Func ("OracleSystem","setEnviron._#lambda3") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleGlobal","writeGlobal") [Comb FuncCall ("OracleSystem","environ") [Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 2,Var 3],Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","fst") []],Var 5],Var 4,Var 6]],Var 7]]))),Func ("OracleSystem","unsetEnviron") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleGlobal","readGlobal") [Comb FuncCall ("OracleSystem","environ") [Var 1],Var 3],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSystem","unsetEnviron._#lambda4") [Var 2]],Var 4]]))),Func ("OracleSystem","unsetEnviron._#lambda4") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleGlobal","writeGlobal") [Comb FuncCall ("OracleSystem","environ") [Var 1],Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","fst") []],Var 4],Var 3,Var 5],Var 6]]))),Func ("OracleSystem","system") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleGlobal","readGlobal") [Comb FuncCall ("OracleSystem","environ") [Var 1],Var 3],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSystem","system._#lambda5") [Var 2]],Var 4]]))),Func ("OracleSystem","system.set.14") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSystem","_case_0") [Var 2,Var 1]])),Func ("OracleSystem","system._#lambda5") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSystem","prim_system") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSystem","system.set.14") []],Var 1],Var 3,Var 4],Var 2,Var 5],Var 6]]))),Func ("OracleSystem","exitWith") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSystem","prim_exitWith") []],Var 2,Var 1]])),Func ("OracleSystem","sleep") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSystem","prim_sleep") []],Var 2,Var 1]])),Func ("OracleSystem","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [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 ' '),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 4,Comb ConsCall ("Prelude",":") [Lit (Charc ';'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Var 1],Var 5],Var 6],Var 7]]))]])),Func ("OracleSystem","getCPUTime") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("System","getCPUTime") []]]])),Func ("OracleSystem","getElapsedTime") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("System","getElapsedTime") []]]])),Func ("OracleSystem","getArgs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("System","getArgs") []]]])),Func ("OracleSystem","prim_getEnviron") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("System","prim_getEnviron") [Var 2]]]])),Func ("OracleSystem","getHostname") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("System","getHostname") []]]])),Func ("OracleSystem","getPID") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("System","getPID") []]]])),Func ("OracleSystem","getProgName") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("System","getProgName") []]]])),Func ("OracleSystem","prim_system") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("System","prim_system") [Var 2]]]])),Func ("OracleSystem","prim_exitWith") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("System","prim_exitWith") [Var 2]]]])),Func ("OracleSystem","prim_sleep") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("System","prim_sleep") [Var 2]]]))] []
+ Curry/Module/OracleSystem.fint view
@@ -0,0 +1,1 @@+Prog "OracleSystem" ["CEventOracle","Oracle","IOExts","System","Global","Prelude","OracleGlobal","OraclePrelude"] [] [Func ("OracleSystem","getEnviron") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleGlobal","readGlobal") [Comb FuncCall ("OracleSystem","environ") [Var 1],Var 3],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSystem","getEnviron._#lambda2") [Var 2]],Var 4]]))),Func ("OracleSystem","getEnviron._#lambda2") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","maybe") [Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSystem","prim_getEnviron") []],Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb FuncCall ("OraclePrelude","lookup") [Var 2,Var 3,Var 4],Var 5]]))),Func ("OracleSystem","environ") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Global","Global") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("System","environ") []])),Func ("OracleSystem","setEnviron") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleGlobal","readGlobal") [Comb FuncCall ("OracleSystem","environ") [Var 1],Var 4],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSystem","setEnviron._#lambda3") [Var 2,Var 3]],Var 5]]))),Func ("OracleSystem","setEnviron._#lambda3") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleGlobal","writeGlobal") [Comb FuncCall ("OracleSystem","environ") [Var 1],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 2,Var 3],Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","fst") []],Var 5],Var 4,Var 6]],Var 7]]))),Func ("OracleSystem","unsetEnviron") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleGlobal","readGlobal") [Comb FuncCall ("OracleSystem","environ") [Var 1],Var 3],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSystem","unsetEnviron._#lambda4") [Var 2]],Var 4]]))),Func ("OracleSystem","unsetEnviron._#lambda4") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleGlobal","writeGlobal") [Comb FuncCall ("OracleSystem","environ") [Var 1],Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","fst") []],Var 4],Var 3,Var 5],Var 6]]))),Func ("OracleSystem","system") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleGlobal","readGlobal") [Comb FuncCall ("OracleSystem","environ") [Var 1],Var 3],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSystem","system._#lambda5") [Var 2]],Var 4]]))),Func ("OracleSystem","system.set.14") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleSystem","_case_0") [Var 2,Var 1]])),Func ("OracleSystem","system._#lambda5") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSystem","prim_system") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSystem","system.set.14") []],Var 1],Var 3,Var 4],Var 2,Var 5],Var 6]]))),Func ("OracleSystem","exitWith") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSystem","prim_exitWith") []],Var 2,Var 1]])),Func ("OracleSystem","sleep") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleSystem","prim_sleep") []],Var 2,Var 1]])),Func ("OracleSystem","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [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 ' '),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","++") [Var 3,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 4,Comb ConsCall ("Prelude",":") [Lit (Charc ';'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Var 1],Var 5],Var 6],Var 7]]))]])),Func ("OracleSystem","getCPUTime") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("System","getCPUTime") []]]])),Func ("OracleSystem","getElapsedTime") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("System","getElapsedTime") []]]])),Func ("OracleSystem","getArgs") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("System","getArgs") []]]])),Func ("OracleSystem","prim_getEnviron") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("System","prim_getEnviron") [Var 2]]]])),Func ("OracleSystem","getHostname") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("System","getHostname") []]]])),Func ("OracleSystem","getPID") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("System","getPID") []]]])),Func ("OracleSystem","getProgName") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("System","getProgName") []]]])),Func ("OracleSystem","prim_system") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("System","prim_system") [Var 2]]]])),Func ("OracleSystem","prim_exitWith") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("System","prim_exitWith") [Var 2]]]])),Func ("OracleSystem","prim_sleep") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("System","prim_sleep") [Var 2]]]))] []
+ Curry/Module/OracleTableRBT.fcy view
@@ -0,0 +1,1 @@+Prog "OracleTableRBT" ["CEventOracle","Oracle","IOExts","TableRBT","Prelude","RedBlackTree","OraclePrelude","OracleRedBlackTree"] [TypeSyn ("OracleTableRBT","TableRBT") Public [0,1] (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TVar 0,TVar 1]])] [Func ("OracleTableRBT","emptyTableRBT") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","empty") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleTableRBT","emptyTableRBT._#lambda2") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleTableRBT","emptyTableRBT._#lambda3") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleTableRBT","emptyTableRBT._#lambda4") [Var 2]],Var 1]])),Func ("OracleTableRBT","emptyTableRBT._#lambda2") 3 Private (FuncType (TCons ("Prelude","(,)") [TVar 22,TVar 23]) (FuncType (TCons ("Prelude","(,)") [TVar 22,TVar 23]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","fst") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","fst") [Var 3,Var 4],Var 5]]))),Func ("OracleTableRBT","emptyTableRBT._#lambda3") 3 Private (FuncType (TCons ("Prelude","(,)") [TVar 22,TVar 23]) (FuncType (TCons ("Prelude","(,)") [TVar 22,TVar 23]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","fst") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","fst") [Var 3,Var 4],Var 5]]))),Func ("OracleTableRBT","emptyTableRBT._#lambda4") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 22) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 22) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","(,)") [TVar 22,TVar 23]) (FuncType (TCons ("Prelude","(,)") [TVar 22,TVar 23]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Comb FuncCall ("OraclePrelude","fst") [Var 3,Var 1],Var 5],Comb FuncCall ("OraclePrelude","fst") [Var 4,Var 6],Var 7]]))),Func ("OracleTableRBT","isEmptyTable") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRedBlackTree","isEmpty") []]])),Func ("OracleTableRBT","lookupRBT") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (TCons ("Prelude","Maybe") [TVar 1]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","maybe") [Comb ConsCall ("Prelude","Nothing") [],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude","Just") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 1]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRedBlackTree","lookup") [Comb ConsCall ("Prelude","(,)") [Var 2,Comb FuncCall ("OraclePrelude","failed") [Var 3]]]],Var 4]]))),Func ("OracleTableRBT","updateRBT") 3 Public (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TVar 0,TVar 1]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRedBlackTree","update") [Comb ConsCall ("Prelude","(,)") [Var 2,Var 3]]]])),Func ("OracleTableRBT","tableRBT2list") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRedBlackTree","tree2list") []]])),Func ("OracleTableRBT","deleteRBT") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRedBlackTree","delete") [Comb ConsCall ("Prelude","(,)") [Var 2,Comb FuncCall ("OraclePrelude","failed") [Var 1]]]]]))] []
+ Curry/Module/OracleTableRBT.fint view
@@ -0,0 +1,1 @@+Prog "OracleTableRBT" ["CEventOracle","Oracle","IOExts","TableRBT","Prelude","RedBlackTree","OraclePrelude","OracleRedBlackTree"] [TypeSyn ("OracleTableRBT","TableRBT") Public [0,1] (TCons ("RedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TVar 0,TVar 1]])] [Func ("OracleTableRBT","emptyTableRBT") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleRedBlackTree","empty") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleTableRBT","emptyTableRBT._#lambda2") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleTableRBT","emptyTableRBT._#lambda3") []],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleTableRBT","emptyTableRBT._#lambda4") [Var 2]],Var 1]])),Func ("OracleTableRBT","emptyTableRBT._#lambda2") 3 Private (FuncType (TCons ("Prelude","(,)") [TVar 22,TVar 23]) (FuncType (TCons ("Prelude","(,)") [TVar 22,TVar 23]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","fst") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","fst") [Var 3,Var 4],Var 5]]))),Func ("OracleTableRBT","emptyTableRBT._#lambda3") 3 Private (FuncType (TCons ("Prelude","(,)") [TVar 22,TVar 23]) (FuncType (TCons ("Prelude","(,)") [TVar 22,TVar 23]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","fst") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","fst") [Var 3,Var 4],Var 5]]))),Func ("OracleTableRBT","emptyTableRBT._#lambda4") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 22) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 22) (TCons ("Prelude","Bool") []))))) (FuncType (TCons ("Prelude","(,)") [TVar 22,TVar 23]) (FuncType (TCons ("Prelude","(,)") [TVar 22,TVar 23]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 2,Comb FuncCall ("OraclePrelude","fst") [Var 3,Var 1],Var 5],Comb FuncCall ("OraclePrelude","fst") [Var 4,Var 6],Var 7]]))),Func ("OracleTableRBT","isEmptyTable") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (TCons ("Prelude","Bool") [])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRedBlackTree","isEmpty") []]])),Func ("OracleTableRBT","lookupRBT") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (TCons ("Prelude","Maybe") [TVar 1]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","maybe") [Comb ConsCall ("Prelude","Nothing") [],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude","Just") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 1]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRedBlackTree","lookup") [Comb ConsCall ("Prelude","(,)") [Var 2,Comb FuncCall ("OraclePrelude","failed") [Var 3]]]],Var 4]]))),Func ("OracleTableRBT","updateRBT") 3 Public (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TVar 0,TVar 1]])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRedBlackTree","update") [Comb ConsCall ("Prelude","(,)") [Var 2,Var 3]]]])),Func ("OracleTableRBT","tableRBT2list") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRedBlackTree","tree2list") []]])),Func ("OracleTableRBT","deleteRBT") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (TCons ("OracleRedBlackTree","RedBlackTree") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleRedBlackTree","delete") [Comb ConsCall ("Prelude","(,)") [Var 2,Comb FuncCall ("OraclePrelude","failed") [Var 1]]]]]))] []
+ Curry/Module/OracleTime.fcy view
@@ -0,0 +1,1 @@+Prog "OracleTime" ["CEventOracle","Oracle","IOExts","Time","Prelude","OraclePrelude"] [] [Func ("OracleTime","ctYear") 2 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_38") [Var 2,Var 1]])),Func ("OracleTime","ctMonth") 2 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_37") [Var 2,Var 1]])),Func ("OracleTime","ctDay") 2 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_36") [Var 2,Var 1]])),Func ("OracleTime","ctHour") 2 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_35") [Var 2,Var 1]])),Func ("OracleTime","ctMin") 2 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_34") [Var 2,Var 1]])),Func ("OracleTime","ctSec") 2 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_33") [Var 2,Var 1]])),Func ("OracleTime","ctTZ") 2 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_32") [Var 2,Var 1]])),Func ("OracleTime","getLocalTime") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Time","CalendarTime") []])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleTime","getClockTime") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTime","getLocalTime._#lambda2") []],Var 2]]))),Func ("OracleTime","getLocalTime._#lambda2") 2 Private (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Time","CalendarTime") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","toCalendarTime") [Var 2,Var 1]])),Func ("OracleTime","clockTimeToInt") 2 Public (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_31") [Var 2,Var 1]])),Func ("OracleTime","toCalendarTime") 2 Public (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Time","CalendarTime") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTime","prim_toCalendarTime") []],Var 2,Var 1]])),Func ("OracleTime","toUTCTime") 2 Public (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Time","CalendarTime") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTime","prim_toUTCTime") []],Var 2,Var 1]])),Func ("OracleTime","toClockTime") 2 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Time","ClockTime") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTime","prim_toClockTime") []],Var 2,Var 1]])),Func ("OracleTime","calendarTimeToString") 2 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_30") [Var 2,Var 1]])),Func ("OracleTime","toDayString") 2 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_29") [Var 2,Var 1]])),Func ("OracleTime","toTimeString") 2 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_28") [Var 2,Var 1]])),Func ("OracleTime","toTimeString.digit2.90") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleTime","_case_27") [Var 2,Comb FuncCall ("OraclePrelude","<") [Var 2,Lit (Intc 10),Var 1],Var 3]]))),Func ("OracleTime","addSeconds") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Time","ClockTime") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_26") [Var 2,Var 3,Var 1]])),Func ("OracleTime","addMinutes") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Time","ClockTime") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_25") [Var 2,Var 3,Var 1]])),Func ("OracleTime","addHours") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Time","ClockTime") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_24") [Var 2,Var 3,Var 1]])),Func ("OracleTime","addDays") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Time","ClockTime") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_23") [Var 2,Var 3,Var 1]])),Func ("OracleTime","addMonths") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Time","ClockTime") [])))) (Rule [2,3,1] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleTime","toUTCTime") [Var 3,Var 1])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleTime","addMonths._#selFP3#y") [Var 4,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleTime","addMonths._#selFP4#mo") [Var 4,Var 14])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleTime","addMonths._#selFP5#d") [Var 4,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleTime","addMonths._#selFP6#h") [Var 4,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleTime","addMonths._#selFP7#mi") [Var 4,Var 17])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleTime","addMonths._#selFP8#s") [Var 4,Var 18])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleTime","addMonths._#selFP9#tz") [Var 4,Var 19])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]]]],Let [(12,Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","mod") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","-") [Var 6,Lit (Intc 1),Var 20],Var 2,Var 21],Lit (Intc 12),Var 22],Lit (Intc 1),Var 23])] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleTime","_case_22") [Var 2,Var 5,Var 6,Var 7,Var 8,Var 9,Var 10,Var 11,Var 12,Comb FuncCall ("OraclePrelude",">") [Var 12,Lit (Intc 0),Var 24],Var 25]]))]))]))]))]))]))]))]))]))]))),Func ("OracleTime","addMonths._#selFP3#y") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_21") [Var 2,Var 1]])),Func ("OracleTime","addMonths._#selFP4#mo") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_20") [Var 2,Var 1]])),Func ("OracleTime","addMonths._#selFP5#d") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_19") [Var 2,Var 1]])),Func ("OracleTime","addMonths._#selFP6#h") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_18") [Var 2,Var 1]])),Func ("OracleTime","addMonths._#selFP7#mi") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_17") [Var 2,Var 1]])),Func ("OracleTime","addMonths._#selFP8#s") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_16") [Var 2,Var 1]])),Func ("OracleTime","addMonths._#selFP9#tz") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_15") [Var 2,Var 1]])),Func ("OracleTime","addYears") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Time","ClockTime") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleTime","_case_14") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 0),Var 1],Var 4]]))),Func ("OracleTime","addYears._#selFP11#y") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_13") [Var 2,Var 1]])),Func ("OracleTime","addYears._#selFP12#mo") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_12") [Var 2,Var 1]])),Func ("OracleTime","addYears._#selFP13#d") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_11") [Var 2,Var 1]])),Func ("OracleTime","addYears._#selFP14#h") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_10") [Var 2,Var 1]])),Func ("OracleTime","addYears._#selFP15#mi") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_9") [Var 2,Var 1]])),Func ("OracleTime","addYears._#selFP16#s") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_8") [Var 2,Var 1]])),Func ("OracleTime","addYears._#selFP17#tz") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_7") [Var 2,Var 1]])),Func ("OracleTime","daysOfMonth") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleTime","_case_6") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","/=") [Var 2,Lit (Intc 2),Var 1],Var 4]]))),Func ("OracleTime","validDate") 4 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">") [Var 3,Lit (Intc 0),Var 1],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","<") [Var 3,Lit (Intc 13),Var 5],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">") [Var 4,Lit (Intc 0),Var 6],Comb FuncCall ("OraclePrelude","<=") [Var 4,Comb FuncCall ("OracleTime","daysOfMonth") [Var 3,Var 2,Var 7],Var 8],Var 9],Var 10],Var 11]]))),Func ("OracleTime","compareDate") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Ordering") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleTime","compareCalendarTime") []]])),Func ("OracleTime","compareCalendarTime") 3 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Ordering") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleTime","compareClockTime") [Comb FuncCall ("OracleTime","toClockTime") [Var 2,Var 1],Comb FuncCall ("OracleTime","toClockTime") [Var 3,Var 4],Var 5]]))),Func ("OracleTime","compareClockTime") 3 Public (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Ordering") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_4") [Var 3,Var 2,Var 1]])),Func ("OracleTime","_case_4") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CTime") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_3") [Var 4,Var 3,Var 1]])]])),Func ("OracleTime","_case_3") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Time","CTime") [5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleTime","_case_2") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","<") [Var 4,Var 5,Var 1],Var 6]]))]])),Func ("OracleTime","_case_2") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleTime","_case_1") [Var 4,Var 5,Comb FuncCall ("OraclePrelude",">") [Var 4,Var 5,Var 1],Var 7]]))]])),Func ("OracleTime","_case_1") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleTime","_case_0") [Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 7]]))]])),Func ("OracleTime","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","EQ") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleTime","_case_6") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","!!") [Comb ConsCall ("Prelude",":") [Lit (Intc 31),Comb ConsCall ("Prelude",":") [Lit (Intc 28),Comb ConsCall ("Prelude",":") [Lit (Intc 31),Comb ConsCall ("Prelude",":") [Lit (Intc 30),Comb ConsCall ("Prelude",":") [Lit (Intc 31),Comb ConsCall ("Prelude",":") [Lit (Intc 30),Comb ConsCall ("Prelude",":") [Lit (Intc 31),Comb ConsCall ("Prelude",":") [Lit (Intc 31),Comb ConsCall ("Prelude",":") [Lit (Intc 30),Comb ConsCall ("Prelude",":") [Lit (Intc 31),Comb ConsCall ("Prelude",":") [Lit (Intc 30),Comb ConsCall ("Prelude",":") [Lit (Intc 31),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","-") [Var 2,Lit (Intc 1),Var 1],Var 5]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OracleTime","_case_5") [Var 3,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","mod") [Var 3,Lit (Intc 4),Var 1],Lit (Intc 0),Var 6],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","/=") [Comb FuncCall ("OraclePrelude","mod") [Var 3,Lit (Intc 100),Var 7],Lit (Intc 0),Var 8],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","mod") [Var 3,Lit (Intc 400),Var 9],Lit (Intc 0),Var 10],Var 11],Var 12],Var 13]]))]])),Func ("OracleTime","_case_5") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 29)]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 28)])]])),Func ("OracleTime","_case_7") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleTime","_case_8") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleTime","_case_9") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7])]])),Func ("OracleTime","_case_10") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleTime","_case_11") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleTime","_case_12") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleTime","_case_13") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleTime","_case_14") 4 Private (TVar (-42)) (Rule [2,3,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleTime","toUTCTime") [Var 3,Var 1])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleTime","addYears._#selFP11#y") [Var 4,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleTime","addYears._#selFP12#mo") [Var 4,Var 14])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleTime","addYears._#selFP13#d") [Var 4,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleTime","addYears._#selFP14#h") [Var 4,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleTime","addYears._#selFP15#mi") [Var 4,Var 17])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleTime","addYears._#selFP16#s") [Var 4,Var 18])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleTime","addYears._#selFP17#tz") [Var 4,Var 19])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleTime","toClockTime") [Comb ConsCall ("Time","CalendarTime") [Comb FuncCall ("OraclePrelude","+") [Var 5,Var 2,Var 20],Var 6,Var 7,Var 8,Var 9,Var 10,Var 11],Var 21]]))]))]))]))]))]))]))]))]))]])),Func ("OracleTime","_case_15") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleTime","_case_16") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleTime","_case_17") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7])]])),Func ("OracleTime","_case_18") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleTime","_case_19") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleTime","_case_20") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleTime","_case_21") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleTime","_case_22") 11 Private (TVar (-42)) (Rule [2,5,6,7,8,9,10,11,12,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleTime","addYears") [Comb FuncCall ("OraclePrelude","div") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","-") [Var 6,Lit (Intc 1),Var 1],Var 2,Var 14],Lit (Intc 12),Var 15],Comb FuncCall ("OracleTime","toClockTime") [Comb ConsCall ("Time","CalendarTime") [Var 5,Var 12,Var 7,Var 8,Var 9,Var 10,Var 11],Var 16],Var 17]])),Branch (Pattern ("Prelude","False") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OracleTime","addYears") [Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","div") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","-") [Var 6,Lit (Intc 1),Var 1],Var 2,Var 18],Lit (Intc 12),Var 19],Lit (Intc 1),Var 20],Comb FuncCall ("OracleTime","toClockTime") [Comb ConsCall ("Time","CalendarTime") [Var 5,Comb FuncCall ("OraclePrelude","+") [Var 12,Lit (Intc 12),Var 21],Var 7,Var 8,Var 9,Var 10,Var 11],Var 22],Var 23]]))]])),Func ("OracleTime","_case_23") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Time","CTime") [4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Time","CTime") [Comb FuncCall ("OraclePrelude","+") [Var 4,Comb FuncCall ("OraclePrelude","*") [Var 2,Lit (Intc 86400),Var 1],Var 5]]]))]])),Func ("OracleTime","_case_24") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Time","CTime") [4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Time","CTime") [Comb FuncCall ("OraclePrelude","+") [Var 4,Comb FuncCall ("OraclePrelude","*") [Var 2,Lit (Intc 3600),Var 1],Var 5]]]))]])),Func ("OracleTime","_case_25") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Time","CTime") [4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Time","CTime") [Comb FuncCall ("OraclePrelude","+") [Var 4,Comb FuncCall ("OraclePrelude","*") [Var 2,Lit (Intc 60),Var 1],Var 5]]]))]])),Func ("OracleTime","_case_26") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Time","CTime") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Time","CTime") [Comb FuncCall ("OraclePrelude","+") [Var 4,Var 2,Var 1]]])]])),Func ("OracleTime","_case_27") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Lit (Charc '0'),Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","ord") [Lit (Charc '0'),Var 1],Var 2,Var 4],Var 5],Comb ConsCall ("Prelude","[]") []]]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1]])]])),Func ("OracleTime","_case_28") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleTime","toTimeString.digit2.90") [Var 6,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleTime","toTimeString.digit2.90") [Var 7,Var 10],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleTime","toTimeString.digit2.90") [Var 8,Var 11],Var 12],Var 13],Var 14],Var 15]]))]])),Func ("OracleTime","_case_29") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(10,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'J'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'F'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'M'),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","[]") []]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'M'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'J'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'J'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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","[]") []]]]]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'N'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'v'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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","[]") []]]]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'D'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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","[]") []]]]]]]]],Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","!!") [Var 10,Comb FuncCall ("OraclePrelude","-") [Var 4,Lit (Intc 1),Var 1],Var 11],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 12],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","show") [Var 3,Var 13],Var 14],Var 15],Var 16],Var 17]]))])]])),Func ("OracleTime","_case_30") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(10,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'J'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'F'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'M'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'M'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'J'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'J'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'N'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'v'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'D'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","!!") [Var 10,Comb FuncCall ("OraclePrelude","-") [Var 4,Lit (Intc 1),Var 1],Var 11],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 12],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleTime","toTimeString") [Var 2,Var 13],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","show") [Var 3,Var 14],Var 15],Var 16],Var 17],Var 18],Var 19],Var 20]]))])]])),Func ("OracleTime","_case_31") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CTime") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleTime","_case_32") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleTime","_case_33") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleTime","_case_34") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7])]])),Func ("OracleTime","_case_35") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleTime","_case_36") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleTime","_case_37") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleTime","_case_38") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleTime","getClockTime") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Time","ClockTime") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Time","getClockTime") []]]])),Func ("OracleTime","prim_toCalendarTime") 2 Private (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Time","CalendarTime") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Time","prim_toCalendarTime") [Var 2]]]])),Func ("OracleTime","prim_toUTCTime") 2 Private (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Time","CalendarTime") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Time","prim_toUTCTime") [Var 2]])),Func ("OracleTime","prim_toClockTime") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Time","ClockTime") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Time","prim_toClockTime") [Var 2]]))] []
+ Curry/Module/OracleTime.fint view
@@ -0,0 +1,1 @@+Prog "OracleTime" ["CEventOracle","Oracle","IOExts","Time","Prelude","OraclePrelude"] [] [Func ("OracleTime","ctYear") 2 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_38") [Var 2,Var 1]])),Func ("OracleTime","ctMonth") 2 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_37") [Var 2,Var 1]])),Func ("OracleTime","ctDay") 2 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_36") [Var 2,Var 1]])),Func ("OracleTime","ctHour") 2 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_35") [Var 2,Var 1]])),Func ("OracleTime","ctMin") 2 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_34") [Var 2,Var 1]])),Func ("OracleTime","ctSec") 2 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_33") [Var 2,Var 1]])),Func ("OracleTime","ctTZ") 2 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_32") [Var 2,Var 1]])),Func ("OracleTime","getLocalTime") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Time","CalendarTime") []])))) (Rule [1] (Let [(2,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleTime","getClockTime") [Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTime","getLocalTime._#lambda2") []],Var 2]]))),Func ("OracleTime","getLocalTime._#lambda2") 2 Private (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Time","CalendarTime") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","toCalendarTime") [Var 2,Var 1]])),Func ("OracleTime","clockTimeToInt") 2 Public (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_31") [Var 2,Var 1]])),Func ("OracleTime","toCalendarTime") 2 Public (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Time","CalendarTime") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTime","prim_toCalendarTime") []],Var 2,Var 1]])),Func ("OracleTime","toUTCTime") 2 Public (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Time","CalendarTime") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTime","prim_toUTCTime") []],Var 2,Var 1]])),Func ("OracleTime","toClockTime") 2 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Time","ClockTime") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTime","prim_toClockTime") []],Var 2,Var 1]])),Func ("OracleTime","calendarTimeToString") 2 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_30") [Var 2,Var 1]])),Func ("OracleTime","toDayString") 2 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_29") [Var 2,Var 1]])),Func ("OracleTime","toTimeString") 2 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_28") [Var 2,Var 1]])),Func ("OracleTime","toTimeString.digit2.90") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleTime","_case_27") [Var 2,Comb FuncCall ("OraclePrelude","<") [Var 2,Lit (Intc 10),Var 1],Var 3]]))),Func ("OracleTime","addSeconds") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Time","ClockTime") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_26") [Var 2,Var 3,Var 1]])),Func ("OracleTime","addMinutes") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Time","ClockTime") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_25") [Var 2,Var 3,Var 1]])),Func ("OracleTime","addHours") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Time","ClockTime") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_24") [Var 2,Var 3,Var 1]])),Func ("OracleTime","addDays") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Time","ClockTime") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_23") [Var 2,Var 3,Var 1]])),Func ("OracleTime","addMonths") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Time","ClockTime") [])))) (Rule [2,3,1] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleTime","toUTCTime") [Var 3,Var 1])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleTime","addMonths._#selFP3#y") [Var 4,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleTime","addMonths._#selFP4#mo") [Var 4,Var 14])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleTime","addMonths._#selFP5#d") [Var 4,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleTime","addMonths._#selFP6#h") [Var 4,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleTime","addMonths._#selFP7#mi") [Var 4,Var 17])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleTime","addMonths._#selFP8#s") [Var 4,Var 18])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleTime","addMonths._#selFP9#tz") [Var 4,Var 19])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]]]],Let [(12,Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","mod") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","-") [Var 6,Lit (Intc 1),Var 20],Var 2,Var 21],Lit (Intc 12),Var 22],Lit (Intc 1),Var 23])] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleTime","_case_22") [Var 2,Var 5,Var 6,Var 7,Var 8,Var 9,Var 10,Var 11,Var 12,Comb FuncCall ("OraclePrelude",">") [Var 12,Lit (Intc 0),Var 24],Var 25]]))]))]))]))]))]))]))]))]))]))),Func ("OracleTime","addMonths._#selFP3#y") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_21") [Var 2,Var 1]])),Func ("OracleTime","addMonths._#selFP4#mo") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_20") [Var 2,Var 1]])),Func ("OracleTime","addMonths._#selFP5#d") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_19") [Var 2,Var 1]])),Func ("OracleTime","addMonths._#selFP6#h") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_18") [Var 2,Var 1]])),Func ("OracleTime","addMonths._#selFP7#mi") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_17") [Var 2,Var 1]])),Func ("OracleTime","addMonths._#selFP8#s") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_16") [Var 2,Var 1]])),Func ("OracleTime","addMonths._#selFP9#tz") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_15") [Var 2,Var 1]])),Func ("OracleTime","addYears") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Time","ClockTime") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleTime","_case_14") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,Lit (Intc 0),Var 1],Var 4]]))),Func ("OracleTime","addYears._#selFP11#y") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_13") [Var 2,Var 1]])),Func ("OracleTime","addYears._#selFP12#mo") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_12") [Var 2,Var 1]])),Func ("OracleTime","addYears._#selFP13#d") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_11") [Var 2,Var 1]])),Func ("OracleTime","addYears._#selFP14#h") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_10") [Var 2,Var 1]])),Func ("OracleTime","addYears._#selFP15#mi") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_9") [Var 2,Var 1]])),Func ("OracleTime","addYears._#selFP16#s") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_8") [Var 2,Var 1]])),Func ("OracleTime","addYears._#selFP17#tz") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_7") [Var 2,Var 1]])),Func ("OracleTime","daysOfMonth") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Int") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleTime","_case_6") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","/=") [Var 2,Lit (Intc 2),Var 1],Var 4]]))),Func ("OracleTime","validDate") 4 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">") [Var 3,Lit (Intc 0),Var 1],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","<") [Var 3,Lit (Intc 13),Var 5],Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude",">") [Var 4,Lit (Intc 0),Var 6],Comb FuncCall ("OraclePrelude","<=") [Var 4,Comb FuncCall ("OracleTime","daysOfMonth") [Var 3,Var 2,Var 7],Var 8],Var 9],Var 10],Var 11]]))),Func ("OracleTime","compareDate") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Ordering") [])))))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleTime","compareCalendarTime") []]])),Func ("OracleTime","compareCalendarTime") 3 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Ordering") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleTime","compareClockTime") [Comb FuncCall ("OracleTime","toClockTime") [Var 2,Var 1],Comb FuncCall ("OracleTime","toClockTime") [Var 3,Var 4],Var 5]]))),Func ("OracleTime","compareClockTime") 3 Public (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Ordering") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_4") [Var 3,Var 2,Var 1]])),Func ("OracleTime","_case_4") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CTime") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTime","_case_3") [Var 4,Var 3,Var 1]])]])),Func ("OracleTime","_case_3") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Time","CTime") [5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleTime","_case_2") [Var 4,Var 5,Comb FuncCall ("OraclePrelude","<") [Var 4,Var 5,Var 1],Var 6]]))]])),Func ("OracleTime","_case_2") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","LT") []]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleTime","_case_1") [Var 4,Var 5,Comb FuncCall ("OraclePrelude",">") [Var 4,Var 5,Var 1],Var 7]]))]])),Func ("OracleTime","_case_1") 4 Private (TVar (-42)) (Rule [4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","GT") []]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleTime","_case_0") [Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 7]]))]])),Func ("OracleTime","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 2) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","EQ") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleTime","_case_6") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","!!") [Comb ConsCall ("Prelude",":") [Lit (Intc 31),Comb ConsCall ("Prelude",":") [Lit (Intc 28),Comb ConsCall ("Prelude",":") [Lit (Intc 31),Comb ConsCall ("Prelude",":") [Lit (Intc 30),Comb ConsCall ("Prelude",":") [Lit (Intc 31),Comb ConsCall ("Prelude",":") [Lit (Intc 30),Comb ConsCall ("Prelude",":") [Lit (Intc 31),Comb ConsCall ("Prelude",":") [Lit (Intc 31),Comb ConsCall ("Prelude",":") [Lit (Intc 30),Comb ConsCall ("Prelude",":") [Lit (Intc 31),Comb ConsCall ("Prelude",":") [Lit (Intc 30),Comb ConsCall ("Prelude",":") [Lit (Intc 31),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","-") [Var 2,Lit (Intc 1),Var 1],Var 5]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb FuncCall ("OracleTime","_case_5") [Var 3,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","mod") [Var 3,Lit (Intc 4),Var 1],Lit (Intc 0),Var 6],Comb FuncCall ("OraclePrelude","||") [Comb FuncCall ("OraclePrelude","/=") [Comb FuncCall ("OraclePrelude","mod") [Var 3,Lit (Intc 100),Var 7],Lit (Intc 0),Var 8],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","mod") [Var 3,Lit (Intc 400),Var 9],Lit (Intc 0),Var 10],Var 11],Var 12],Var 13]]))]])),Func ("OracleTime","_case_5") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 29)]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Lit (Intc 28)])]])),Func ("OracleTime","_case_7") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleTime","_case_8") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleTime","_case_9") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7])]])),Func ("OracleTime","_case_10") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleTime","_case_11") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleTime","_case_12") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleTime","_case_13") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleTime","_case_14") 4 Private (TVar (-42)) (Rule [2,3,12,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 12) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude","False") []) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleTime","toUTCTime") [Var 3,Var 1])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleTime","addYears._#selFP11#y") [Var 4,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleTime","addYears._#selFP12#mo") [Var 4,Var 14])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleTime","addYears._#selFP13#d") [Var 4,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleTime","addYears._#selFP14#h") [Var 4,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleTime","addYears._#selFP15#mi") [Var 4,Var 17])] (Let [(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleTime","addYears._#selFP16#s") [Var 4,Var 18])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Let [(11,Comb FuncCall ("OracleTime","addYears._#selFP17#tz") [Var 4,Var 19])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleTime","toClockTime") [Comb ConsCall ("Time","CalendarTime") [Comb FuncCall ("OraclePrelude","+") [Var 5,Var 2,Var 20],Var 6,Var 7,Var 8,Var 9,Var 10,Var 11],Var 21]]))]))]))]))]))]))]))]))]))]])),Func ("OracleTime","_case_15") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleTime","_case_16") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleTime","_case_17") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7])]])),Func ("OracleTime","_case_18") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleTime","_case_19") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleTime","_case_20") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleTime","_case_21") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleTime","_case_22") 11 Private (TVar (-42)) (Rule [2,5,6,7,8,9,10,11,12,13,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 13) [Branch (Pattern ("Prelude","True") []) (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleTime","addYears") [Comb FuncCall ("OraclePrelude","div") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","-") [Var 6,Lit (Intc 1),Var 1],Var 2,Var 14],Lit (Intc 12),Var 15],Comb FuncCall ("OracleTime","toClockTime") [Comb ConsCall ("Time","CalendarTime") [Var 5,Var 12,Var 7,Var 8,Var 9,Var 10,Var 11],Var 16],Var 17]])),Branch (Pattern ("Prelude","False") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OracleTime","addYears") [Comb FuncCall ("OraclePrelude","-") [Comb FuncCall ("OraclePrelude","div") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","-") [Var 6,Lit (Intc 1),Var 1],Var 2,Var 18],Lit (Intc 12),Var 19],Lit (Intc 1),Var 20],Comb FuncCall ("OracleTime","toClockTime") [Comb ConsCall ("Time","CalendarTime") [Var 5,Comb FuncCall ("OraclePrelude","+") [Var 12,Lit (Intc 12),Var 21],Var 7,Var 8,Var 9,Var 10,Var 11],Var 22],Var 23]]))]])),Func ("OracleTime","_case_23") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Time","CTime") [4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Time","CTime") [Comb FuncCall ("OraclePrelude","+") [Var 4,Comb FuncCall ("OraclePrelude","*") [Var 2,Lit (Intc 86400),Var 1],Var 5]]]))]])),Func ("OracleTime","_case_24") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Time","CTime") [4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Time","CTime") [Comb FuncCall ("OraclePrelude","+") [Var 4,Comb FuncCall ("OraclePrelude","*") [Var 2,Lit (Intc 3600),Var 1],Var 5]]]))]])),Func ("OracleTime","_case_25") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Time","CTime") [4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Time","CTime") [Comb FuncCall ("OraclePrelude","+") [Var 4,Comb FuncCall ("OraclePrelude","*") [Var 2,Lit (Intc 60),Var 1],Var 5]]]))]])),Func ("OracleTime","_case_26") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Time","CTime") [4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Time","CTime") [Comb FuncCall ("OraclePrelude","+") [Var 4,Var 2,Var 1]]])]])),Func ("OracleTime","_case_27") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb ConsCall ("Prelude",":") [Lit (Charc '0'),Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OraclePrelude","+") [Comb FuncCall ("OraclePrelude","ord") [Lit (Charc '0'),Var 1],Var 2,Var 4],Var 5],Comb ConsCall ("Prelude","[]") []]]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","show") [Var 2,Var 1]])]])),Func ("OracleTime","_case_28") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleTime","toTimeString.digit2.90") [Var 6,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleTime","toTimeString.digit2.90") [Var 7,Var 10],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleTime","toTimeString.digit2.90") [Var 8,Var 11],Var 12],Var 13],Var 14],Var 15]]))]])),Func ("OracleTime","_case_29") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(10,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'J'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'F'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'M'),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","[]") []]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude","[]") []]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'M'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'J'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'J'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude","[]") []]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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","[]") []]]]]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude","[]") []]]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'N'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'v'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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","[]") []]]]]]]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'D'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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","[]") []]]]]]]]],Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","!!") [Var 10,Comb FuncCall ("OraclePrelude","-") [Var 4,Lit (Intc 1),Var 1],Var 11],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 12],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ','),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","show") [Var 3,Var 13],Var 14],Var 15],Var 16],Var 17]]))])]])),Func ("OracleTime","_case_30") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(10,Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'J'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'F'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'M'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'M'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'J'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'J'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'O'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'N'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'v'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Lit (Charc 'D'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude","[]") []]]],Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","!!") [Var 10,Comb FuncCall ("OraclePrelude","-") [Var 4,Lit (Intc 1),Var 1],Var 11],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Var 5,Var 12],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleTime","toTimeString") [Var 2,Var 13],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","show") [Var 3,Var 14],Var 15],Var 16],Var 17],Var 18],Var 19],Var 20]]))])]])),Func ("OracleTime","_case_31") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CTime") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleTime","_case_32") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 9])]])),Func ("OracleTime","_case_33") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 8])]])),Func ("OracleTime","_case_34") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7])]])),Func ("OracleTime","_case_35") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleTime","_case_36") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleTime","_case_37") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleTime","_case_38") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Time","CalendarTime") [3,4,5,6,7,8,9]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleTime","getClockTime") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Time","ClockTime") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Time","getClockTime") []]]])),Func ("OracleTime","prim_toCalendarTime") 2 Private (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Time","CalendarTime") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Time","prim_toCalendarTime") [Var 2]]]])),Func ("OracleTime","prim_toUTCTime") 2 Private (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Time","CalendarTime") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Time","prim_toUTCTime") [Var 2]])),Func ("OracleTime","prim_toClockTime") 2 Private (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Time","ClockTime") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Time","prim_toClockTime") [Var 2]]))] []
+ Curry/Module/OracleTrace.fcy view
@@ -0,0 +1,1 @@+Prog "OracleTrace" ["CEventOracle","Oracle","IOExts","Trace","Prelude","OraclePrelude"] [] [Func ("OracleTrace","trace") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]))] []
+ Curry/Module/OracleTrace.fint view
@@ -0,0 +1,1 @@+Prog "OracleTrace" ["CEventOracle","Oracle","IOExts","Trace","Prelude","OraclePrelude"] [] [Func ("OracleTrace","trace") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 2]))] []
+ Curry/Module/OracleTraversal.fcy view
@@ -0,0 +1,1 @@+Prog "OracleTraversal" ["CEventOracle","Oracle","IOExts","Traversal","Prelude","OraclePrelude"] [] [Func ("OracleTraversal","noChildren") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","const") [Var 2]]]])),Func ("OracleTraversal","children") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TVar 1]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","fst") []],Var 2,Var 1]])),Func ("OracleTraversal","replaceChildren") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 2,Var 1]])),Func ("OracleTraversal","mapChildren") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 1))) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleTraversal","replaceChildren") [Var 2,Var 1],Var 4,Var 5],Comb FuncCall ("OraclePrelude","map") [Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleTraversal","children") [Var 2,Var 6],Var 4,Var 7],Var 8],Var 9]]))),Func ("OracleTraversal","family") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0))]))) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTraversal","familyFL") [Var 2,Var 3,Comb ConsCall ("Prelude","[]") [],Var 1]])),Func ("OracleTraversal","childFamilies") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 1))]))) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTraversal","childFamiliesFL") [Var 2,Var 3,Var 4,Comb ConsCall ("Prelude","[]") [],Var 1]])),Func ("OracleTraversal","mapFamily") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0)))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleTraversal","mapChildFamilies") [Var 2,Var 2,Var 1],Var 3,Var 4],Var 5]]))),Func ("OracleTraversal","mapChildFamilies") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 1))]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 1))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0)))))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleTraversal","mapChildren") [Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTraversal","mapFamily") [Var 3]],Var 1]])),Func ("OracleTraversal","evalFamily") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Maybe") [TVar 0]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0)))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTraversal","mapFamily") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTraversal","evalFamily.g.19") [Var 3,Var 2]],Var 1]])),Func ("OracleTraversal","evalFamily.g.19") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 100) (TCons ("Prelude","Maybe") [TVar 100]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 100) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 100],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 100]) (TVar 100))]))) (FuncType (TVar 100) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 100))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","maybe") [Var 4,Comb FuncCall ("OracleTraversal","mapFamily") [Var 3,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTraversal","evalFamily.g.19") [Var 2,Var 3]],Var 1],Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 5],Var 6]]))),Func ("OracleTraversal","evalChildFamilies") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 1))]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","Maybe") [TVar 1]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0)))))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleTraversal","mapChildren") [Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTraversal","evalFamily") [Var 3]],Var 1]])),Func ("OracleTraversal","fold") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 1))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1)))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTraversal","foldChildren") [Var 2,Var 2,Var 3,Var 3]]])),Func ("OracleTraversal","foldChildren") 6 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 1))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 2]) (TVar 3))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 2]) (TVar 2))))) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 3))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 4,Var 6,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OracleTraversal","fold") [Var 3,Var 5,Var 7],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleTraversal","children") [Var 2,Var 8],Var 6,Var 9],Var 10],Var 11]]))),Func ("OracleTraversal","replaceChildrenIO") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TVar 1]]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleTraversal","liftIO") []],Comb FuncCall ("OracleTraversal","replaceChildren") [Var 2,Var 1],Var 3]]))),Func ("OracleTraversal","mapChildrenIO") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 1]))))) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleTraversal","replaceChildrenIO") [Var 2,Var 1],Var 4,Var 5],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","mapIO") [Var 3,Var 6],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleTraversal","children") [Var 2,Var 7],Var 4,Var 8],Var 9],Var 10]]))),Func ("OracleTraversal","mapFamilyIO") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleTraversal","mapChildFamiliesIO") [Var 2,Var 2,Var 1],Var 3,Var 5],Var 4,Var 6],Var 3,Var 7]]))),Func ("OracleTraversal","mapChildFamiliesIO") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 1))]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 1]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0])))))))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleTraversal","mapChildrenIO") [Var 2]],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleTraversal","mapFamilyIO") [Var 3]],Var 1]])),Func ("OracleTraversal","evalFamilyIO") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TVar 0]]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0])))))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTraversal","mapFamilyIO") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTraversal","evalFamilyIO.g.37") [Var 3,Var 2]]]]])),Func ("OracleTraversal","evalFamilyIO.g.37") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 202) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TVar 202]]))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 202) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 202],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 202]) (TVar 202))]))) (FuncType (TVar 202) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 202]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","maybe") [Comb FuncCall ("OraclePrelude","return") [Var 4,Var 5],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTraversal","mapFamilyIO") [Var 3,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTraversal","evalFamilyIO.g.37") [Var 2,Var 3]]]]]],Var 6]]))),Func ("OracleTraversal","evalChildFamiliesIO") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 1))]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TVar 1]]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0])))))))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleTraversal","mapChildrenIO") [Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTraversal","evalFamilyIO") [Var 3]],Var 1]])),Func ("OracleTraversal","concatFL") 3 Private (FuncType (TCons ("Prelude","[]") [FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTraversal","_case_0") [Var 3,Var 2,Var 1]])),Func ("OracleTraversal","familyFL") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0))]))) (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("OracleTraversal","childFamiliesFL") [Var 2,Var 2,Var 3,Var 4,Var 1]]])),Func ("OracleTraversal","childFamiliesFL") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 1))]))) (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 1])))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleTraversal","concatFL") [Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleTraversal","familyFL") [Var 3]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleTraversal","children") [Var 2,Var 1],Var 4,Var 6],Var 7],Var 5,Var 8]]))),Func ("OracleTraversal","liftIO") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 1])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Var 3,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Var 2,Var 1],Var 4]]))),Func ("OracleTraversal","_case_0") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Var 4,Comb FuncCall ("OracleTraversal","concatFL") [Var 5,Var 3,Var 1],Var 6]]))]]))] []
+ Curry/Module/OracleTraversal.fint view
@@ -0,0 +1,1 @@+Prog "OracleTraversal" ["CEventOracle","Oracle","IOExts","Traversal","Prelude","OraclePrelude"] [] [Func ("OracleTraversal","noChildren") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","const") [Var 2]]]])),Func ("OracleTraversal","children") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TVar 1]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","fst") []],Var 2,Var 1]])),Func ("OracleTraversal","replaceChildren") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","snd") []],Var 2,Var 1]])),Func ("OracleTraversal","mapChildren") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 1))) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleTraversal","replaceChildren") [Var 2,Var 1],Var 4,Var 5],Comb FuncCall ("OraclePrelude","map") [Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleTraversal","children") [Var 2,Var 6],Var 4,Var 7],Var 8],Var 9]]))),Func ("OracleTraversal","family") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0))]))) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTraversal","familyFL") [Var 2,Var 3,Comb ConsCall ("Prelude","[]") [],Var 1]])),Func ("OracleTraversal","childFamilies") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 1))]))) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 1]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTraversal","childFamiliesFL") [Var 2,Var 3,Var 4,Comb ConsCall ("Prelude","[]") [],Var 1]])),Func ("OracleTraversal","mapFamily") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0)))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude",".") [Var 3,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleTraversal","mapChildFamilies") [Var 2,Var 2,Var 1],Var 3,Var 4],Var 5]]))),Func ("OracleTraversal","mapChildFamilies") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 1))]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TVar 1))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0)))))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleTraversal","mapChildren") [Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTraversal","mapFamily") [Var 3]],Var 1]])),Func ("OracleTraversal","evalFamily") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","Maybe") [TVar 0]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0)))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTraversal","mapFamily") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTraversal","evalFamily.g.19") [Var 3,Var 2]],Var 1]])),Func ("OracleTraversal","evalFamily.g.19") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 100) (TCons ("Prelude","Maybe") [TVar 100]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 100) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 100],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 100]) (TVar 100))]))) (FuncType (TVar 100) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 100))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","maybe") [Var 4,Comb FuncCall ("OracleTraversal","mapFamily") [Var 3,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTraversal","evalFamily.g.19") [Var 2,Var 3]],Var 1],Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 5],Var 6]]))),Func ("OracleTraversal","evalChildFamilies") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 1))]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","Maybe") [TVar 1]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 0)))))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleTraversal","mapChildren") [Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTraversal","evalFamily") [Var 3]],Var 1]])),Func ("OracleTraversal","fold") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 1))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1)))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTraversal","foldChildren") [Var 2,Var 2,Var 3,Var 3]]])),Func ("OracleTraversal","foldChildren") 6 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 1))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 2]) (TVar 3))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 2]) (TVar 2))))) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 3))))))) (Rule [2,3,4,5,6,1] (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Var 4,Var 6,Var 1],Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OracleTraversal","fold") [Var 3,Var 5,Var 7],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleTraversal","children") [Var 2,Var 8],Var 6,Var 9],Var 10],Var 11]]))),Func ("OracleTraversal","replaceChildrenIO") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TVar 1]]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleTraversal","liftIO") []],Comb FuncCall ("OracleTraversal","replaceChildren") [Var 2,Var 1],Var 3]]))),Func ("OracleTraversal","mapChildrenIO") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 1]))))) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleTraversal","replaceChildrenIO") [Var 2,Var 1],Var 4,Var 5],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","mapIO") [Var 3,Var 6],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleTraversal","children") [Var 2,Var 7],Var 4,Var 8],Var 9],Var 10]]))),Func ("OracleTraversal","mapFamilyIO") 4 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleTraversal","mapChildFamiliesIO") [Var 2,Var 2,Var 1],Var 3,Var 5],Var 4,Var 6],Var 3,Var 7]]))),Func ("OracleTraversal","mapChildFamiliesIO") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 1))]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 1]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0])))))))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleTraversal","mapChildrenIO") [Var 2]],Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleTraversal","mapFamilyIO") [Var 3]],Var 1]])),Func ("OracleTraversal","evalFamilyIO") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TVar 0]]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0])))))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTraversal","mapFamilyIO") [Var 2,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTraversal","evalFamilyIO.g.37") [Var 3,Var 2]]]]])),Func ("OracleTraversal","evalFamilyIO.g.37") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 202) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TVar 202]]))))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 202) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 202],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 202]) (TVar 202))]))) (FuncType (TVar 202) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 202]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("Oracle","apply") [Var 2,Var 4,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","maybe") [Comb FuncCall ("OraclePrelude","return") [Var 4,Var 5],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTraversal","mapFamilyIO") [Var 3,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTraversal","evalFamilyIO.g.37") [Var 2,Var 3]]]]]],Var 6]]))),Func ("OracleTraversal","evalChildFamiliesIO") 3 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 1))]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TVar 1]]))))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0])))))))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude",".") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleTraversal","mapChildrenIO") [Var 2]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleTraversal","evalFamilyIO") [Var 3]],Var 1]])),Func ("OracleTraversal","concatFL") 3 Private (FuncType (TCons ("Prelude","[]") [FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleTraversal","_case_0") [Var 3,Var 2,Var 1]])),Func ("OracleTraversal","familyFL") 4 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0))]))) (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 0]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("OracleTraversal","childFamiliesFL") [Var 2,Var 2,Var 3,Var 4,Var 1]]])),Func ("OracleTraversal","childFamiliesFL") 5 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0))]))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 1) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1],FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 1))]))) (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 1]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 1])))))) (Rule [2,3,4,5,1] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleTraversal","concatFL") [Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleTraversal","familyFL") [Var 3]],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleTraversal","children") [Var 2,Var 1],Var 4,Var 6],Var 7],Var 5,Var 8]]))),Func ("OracleTraversal","liftIO") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TVar 1))) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 1])))))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Var 3,Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Var 2,Var 1],Var 4]]))),Func ("OracleTraversal","_case_0") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Var 4,Comb FuncCall ("OracleTraversal","concatFL") [Var 5,Var 3,Var 1],Var 6]]))]]))] []
+ Curry/Module/OracleUnsafe.fcy view
@@ -0,0 +1,1 @@+Prog "OracleUnsafe" ["CEventOracle","Oracle","IOExts","Unsafe","Char","Meta","Prelude","OracleChar","OracleMeta","OraclePrelude"] [] [Func ("OracleUnsafe","unsafePerformIO") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("Oracle","prim_unsafePerformIO") []],Var 2,Var 1]])),Func ("OracleUnsafe","trace") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleUnsafe","unsafePerformIO") [Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","putStr") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","return") [Var 3,Var 4],Var 5],Var 6]]))),Func ("OracleUnsafe","isVar") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleUnsafe","unsafePerformIO") [Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleMeta","isFree") [Var 2,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","either") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","const") [Comb ConsCall ("Prelude","True") []]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","const") [Comb ConsCall ("Prelude","False") []]]]],Var 3],Var 4],Var 5]]))),Func ("OracleUnsafe","identicalVar") 3 Public (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$!") [Comb FuncCall ("Oracle","$!") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleUnsafe","prim_identicalVar") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleUnsafe","showAnyTerm") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$!!") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleUnsafe","prim_showAnyTerm") []],Var 2,Var 1]])),Func ("OracleUnsafe","showAnyQTerm") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$!!") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleUnsafe","prim_showAnyQTerm") []],Var 2,Var 1]])),Func ("OracleUnsafe","readsAnyUnqualifiedTerm") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleUnsafe","_case_8") [Var 3,Var 2,Var 1]])),Func ("OracleUnsafe","readsAnyUnqualifiedTermWithPrefixes") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleUnsafe","prim_readsAnyUnqualifiedTerm") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleUnsafe","readAnyUnqualifiedTerm") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleUnsafe","readsAnyUnqualifiedTerm") [Var 2,Var 3,Var 1])] (Comb FuncCall ("CEventOracle","replace") [Var 5,Comb FuncCall ("OracleUnsafe","_case_7") [Var 4,Var 5]])]))),Func ("OracleUnsafe","readsAnyQTerm") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleUnsafe","prim_readsAnyQTerm") []],Var 2,Var 1]])),Func ("OracleUnsafe","readAnyQTerm") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OracleUnsafe","readsAnyQTerm") [Var 2,Var 1])] (Comb FuncCall ("CEventOracle","replace") [Var 4,Comb FuncCall ("OracleUnsafe","_case_3") [Var 3,Var 4]])]))),Func ("OracleUnsafe","_case_3") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleUnsafe","_case_2") [Var 5,Var 4,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'Q'),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 ':'),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 '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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleUnsafe","_case_2") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleUnsafe","_case_1") [Var 6,Var 7,Var 5,Var 1]])]])),Func ("OracleUnsafe","_case_1") 4 Private (TVar (-42)) (Rule [6,7,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","[]") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleUnsafe","_case_0") [Var 6,Var 7,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","all") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleChar","isSpace") []],Var 1],Var 7,Var 10],Var 11]])),Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'Q'),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 ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleUnsafe","_case_0") 4 Private (TVar (-42)) (Rule [6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'Q'),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 ':'),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 '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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleUnsafe","_case_7") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleUnsafe","_case_6") [Var 6,Var 5,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'q'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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 ':'),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 '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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleUnsafe","_case_6") 3 Private (TVar (-42)) (Rule [6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","(,)") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleUnsafe","_case_5") [Var 7,Var 8,Var 6,Var 1]])]])),Func ("OracleUnsafe","_case_5") 4 Private (TVar (-42)) (Rule [7,8,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","[]") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleUnsafe","_case_4") [Var 7,Var 8,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","all") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleChar","isSpace") []],Var 1],Var 8,Var 11],Var 12]])),Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'q'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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 ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleUnsafe","_case_4") 4 Private (TVar (-42)) (Rule [7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7]),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'q'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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 ':'),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 '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 ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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",":") [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 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 8,Var 1],Var 10]]))]])),Func ("OracleUnsafe","_case_8") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),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 '.'),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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'q'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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 ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),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 '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 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'x'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleUnsafe","readsAnyUnqualifiedTermWithPrefixes") [Comb ConsCall ("Prelude",":") [Var 4,Var 5],Var 3,Var 1]])]])),Func ("OracleUnsafe","spawnConstraint") 3 Public (FuncType (TCons ("Prelude","Success") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","spawnConstraint") [Var 3,Var 2]])),Func ("OracleUnsafe","prim_isVar") 2 Private (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","prim_isVar") [Var 2]])),Func ("OracleUnsafe","prim_identicalVar") 3 Private (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","prim_identicalVar") [Var 3,Var 2]])),Func ("OracleUnsafe","prim_showAnyTerm") 2 Private (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","prim_showAnyTerm") [Var 2]])),Func ("OracleUnsafe","prim_showAnyQTerm") 2 Private (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","prim_showAnyQTerm") [Var 2]])),Func ("OracleUnsafe","prim_readsAnyUnqualifiedTerm") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","prim_readsAnyUnqualifiedTerm") [Var 3,Var 2]])),Func ("OracleUnsafe","prim_readsAnyQTerm") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","prim_readsAnyQTerm") [Var 2]])),Func ("OracleUnsafe","showAnyExpression") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","showAnyExpression") [Var 2]])),Func ("OracleUnsafe","showAnyQExpression") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","showAnyQExpression") [Var 2]])),Func ("OracleUnsafe","try") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Either") [TVar 0,TCons ("Prelude","(,)") [TCons ("Meta","OrRef") [],TCons ("Prelude","[]") [TVar 0]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","try") [Var 2]])),Func ("OracleUnsafe","orsWithOrRef") 3 Public (FuncType (TCons ("Meta","OrRef") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","orsWithOrRef") [Var 3,Var 2]])),Func ("OracleUnsafe","generateChoice") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","generateChoice") [Var 2]])),Func ("OracleUnsafe","nrOfChoices") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Unsafe","nrOfChoices") []]]]))] []
+ Curry/Module/OracleUnsafe.fint view
@@ -0,0 +1,1 @@+Prog "OracleUnsafe" ["CEventOracle","Oracle","IOExts","Unsafe","Char","Meta","Prelude","OracleChar","OracleMeta","OraclePrelude"] [] [Func ("OracleUnsafe","unsafePerformIO") 2 Public (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TVar 0]))) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$#") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("Oracle","prim_unsafePerformIO") []],Var 2,Var 1]])),Func ("OracleUnsafe","trace") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleUnsafe","unsafePerformIO") [Comb FuncCall ("OraclePrelude",">>") [Comb FuncCall ("OraclePrelude","putStr") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","return") [Var 3,Var 4],Var 5],Var 6]]))),Func ("OracleUnsafe","isVar") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OracleUnsafe","unsafePerformIO") [Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleMeta","isFree") [Var 2,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","either") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","const") [Comb ConsCall ("Prelude","True") []]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","const") [Comb ConsCall ("Prelude","False") []]]]],Var 3],Var 4],Var 5]]))),Func ("OracleUnsafe","identicalVar") 3 Public (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$!") [Comb FuncCall ("Oracle","$!") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleUnsafe","prim_identicalVar") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleUnsafe","showAnyTerm") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$!!") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleUnsafe","prim_showAnyTerm") []],Var 2,Var 1]])),Func ("OracleUnsafe","showAnyQTerm") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$!!") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleUnsafe","prim_showAnyQTerm") []],Var 2,Var 1]])),Func ("OracleUnsafe","readsAnyUnqualifiedTerm") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleUnsafe","_case_8") [Var 3,Var 2,Var 1]])),Func ("OracleUnsafe","readsAnyUnqualifiedTermWithPrefixes") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","$##") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OracleUnsafe","prim_readsAnyUnqualifiedTerm") []],Var 2,Var 1],Var 3,Var 4]]))),Func ("OracleUnsafe","readAnyUnqualifiedTerm") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleUnsafe","readsAnyUnqualifiedTerm") [Var 2,Var 3,Var 1])] (Comb FuncCall ("CEventOracle","replace") [Var 5,Comb FuncCall ("OracleUnsafe","_case_7") [Var 4,Var 5]])]))),Func ("OracleUnsafe","readsAnyQTerm") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("Oracle","$##") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleUnsafe","prim_readsAnyQTerm") []],Var 2,Var 1]])),Func ("OracleUnsafe","readAnyQTerm") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OracleUnsafe","readsAnyQTerm") [Var 2,Var 1])] (Comb FuncCall ("CEventOracle","replace") [Var 4,Comb FuncCall ("OracleUnsafe","_case_3") [Var 3,Var 4]])]))),Func ("OracleUnsafe","_case_3") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleUnsafe","_case_2") [Var 5,Var 4,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'Q'),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 ':'),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 '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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleUnsafe","_case_2") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","(,)") [6,7]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleUnsafe","_case_1") [Var 6,Var 7,Var 5,Var 1]])]])),Func ("OracleUnsafe","_case_1") 4 Private (TVar (-42)) (Rule [6,7,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","[]") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleUnsafe","_case_0") [Var 6,Var 7,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","all") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleChar","isSpace") []],Var 1],Var 7,Var 10],Var 11]])),Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'Q'),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 ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleUnsafe","_case_0") 4 Private (TVar (-42)) (Rule [6,7,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'Q'),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 ':'),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 '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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleUnsafe","_case_7") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleUnsafe","_case_6") [Var 6,Var 5,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'q'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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 ':'),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 '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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleUnsafe","_case_6") 3 Private (TVar (-42)) (Rule [6,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","(,)") [7,8]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleUnsafe","_case_5") [Var 7,Var 8,Var 6,Var 1]])]])),Func ("OracleUnsafe","_case_5") 4 Private (TVar (-42)) (Rule [7,8,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","[]") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleUnsafe","_case_4") [Var 7,Var 8,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","all") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleChar","isSpace") []],Var 1],Var 8,Var 11],Var 12]])),Branch (Pattern ("Prelude",":") [9,10]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'q'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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 ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'b'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]])]])),Func ("OracleUnsafe","_case_4") 4 Private (TVar (-42)) (Rule [7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 7]),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),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 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'q'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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 ':'),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 '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 ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'c'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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",":") [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 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 8,Var 1],Var 10]]))]])),Func ("OracleUnsafe","_case_8") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","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 'S'),Comb ConsCall ("Prelude",":") [Lit (Charc 'h'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude",":") [Lit (Charc 'w'),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 '.'),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 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 'A'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'U'),Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'q'),Comb ConsCall ("Prelude",":") [Lit (Charc 'u'),Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'd'),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 ':'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),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 '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 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 'r'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'f'),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 'x'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'i'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1]]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleUnsafe","readsAnyUnqualifiedTermWithPrefixes") [Comb ConsCall ("Prelude",":") [Var 4,Var 5],Var 3,Var 1]])]])),Func ("OracleUnsafe","spawnConstraint") 3 Public (FuncType (TCons ("Prelude","Success") []) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","spawnConstraint") [Var 3,Var 2]])),Func ("OracleUnsafe","prim_isVar") 2 Private (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","prim_isVar") [Var 2]])),Func ("OracleUnsafe","prim_identicalVar") 3 Private (FuncType (TVar 0) (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") [])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","prim_identicalVar") [Var 3,Var 2]])),Func ("OracleUnsafe","prim_showAnyTerm") 2 Private (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","prim_showAnyTerm") [Var 2]])),Func ("OracleUnsafe","prim_showAnyQTerm") 2 Private (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","prim_showAnyQTerm") [Var 2]])),Func ("OracleUnsafe","prim_readsAnyUnqualifiedTerm") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","prim_readsAnyUnqualifiedTerm") [Var 3,Var 2]])),Func ("OracleUnsafe","prim_readsAnyQTerm") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","prim_readsAnyQTerm") [Var 2]])),Func ("OracleUnsafe","showAnyExpression") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","showAnyExpression") [Var 2]])),Func ("OracleUnsafe","showAnyQExpression") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","showAnyQExpression") [Var 2]])),Func ("OracleUnsafe","try") 2 Public (FuncType (TVar 0) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Either") [TVar 0,TCons ("Prelude","(,)") [TCons ("Meta","OrRef") [],TCons ("Prelude","[]") [TVar 0]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","try") [Var 2]])),Func ("OracleUnsafe","orsWithOrRef") 3 Public (FuncType (TCons ("Meta","OrRef") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0)))) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","orsWithOrRef") [Var 3,Var 2]])),Func ("OracleUnsafe","generateChoice") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TVar 0))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb FuncCall ("Unsafe","generateChoice") [Var 2]])),Func ("OracleUnsafe","nrOfChoices") 1 Public (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","lambda_world") [Comb FuncCall ("Oracle","safeIOResult") [Comb FuncCall ("Unsafe","nrOfChoices") []]]]))] []
+ Curry/Module/OracleXML.fcy view
@@ -0,0 +1,1 @@+Prog "OracleXML" ["CEventOracle","Oracle","IOExts","XML","Char","List","Prelude","Read","OracleChar","OracleList","OraclePrelude","OracleRead"] [] [Func ("OracleXML","encoding2Attribute") 2 Private (FuncType (TCons ("XML","Encoding") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_121") [Var 2,Var 1]])),Func ("OracleXML","encoding2EncFunc") 2 Private (FuncType (TCons ("XML","Encoding") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_120") [Var 2,Var 1]])),Func ("OracleXML","standardEncoding") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_119") [Var 2,Var 1]])),Func ("OracleXML","iso88591Encoding") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_110") [Var 2,Var 1]])),Func ("OracleXML","iso88591list") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleXML","lookupEncoding") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlDocParams") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","Encoding") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_108") [Var 2,Var 1]])),Func ("OracleXML","lookupDtdUrl") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlDocParams") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_106") [Var 2,Var 1]])),Func ("OracleXML","hasDtdUrl") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlDocParams") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_104") [Var 2,Var 1]])),Func ("OracleXML","xtxt") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("XML","XText") [Var 2]])),Func ("OracleXML","xml") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("XML","XElem") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 3]])),Func ("OracleXML","writeXmlFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","writeXmlFileWithParams") [Var 2,Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","Enc") [Comb ConsCall ("XML","StandardEnc") []],Comb ConsCall ("Prelude","[]") []],Var 3,Var 1]])),Func ("OracleXML","writeXmlFileWithParams") 4 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlDocParams") []]) (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","writeFile") [Var 2,Comb FuncCall ("OracleXML","showXmlDocWithParams") [Var 3,Var 4,Var 1],Var 5]]))),Func ("OracleXML","showXmlDoc") 2 Public (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","showXmlDocWithParams") [Comb ConsCall ("Prelude","[]") [],Var 2,Var 1]])),Func ("OracleXML","showXmlDocWithParams") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlDocParams") []]) (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_102") [Var 2,Var 3,Var 1]])),Func ("OracleXML","showXmlExp") 4 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_99") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleXML","showXmlExp._#selFP3#s") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_96") [Var 2,Var 1]])),Func ("OracleXML","xtab") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","take") [Var 2,Comb FuncCall ("OraclePrelude","repeat") [Lit (Charc ' '),Var 1],Var 3]]))),Func ("OracleXML","showXmlOpenTag") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TVar 0]]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '<'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleXML","showXmlOpenTag.attr2string.125") [Var 4]],Var 1],Var 3,Var 5],Var 6],Var 7],Var 8]]))),Func ("OracleXML","showXmlOpenTag.attr2string.125") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 130) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TVar 130]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_93") [Var 2,Var 3,Var 1]])),Func ("OracleXML","showXmlExps") 4 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleXML","showXmlExp") [Var 2,Var 4]],Var 1],Var 3,Var 5]]))),Func ("OracleXML","isXText") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_92") [Var 2,Var 1]])),Func ("OracleXML","xmlUnquoteSpecials") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_91") [Var 2,Var 1]])),Func ("OracleXML","xmlUnquoteSpecials._#selFP5#special") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_88") [Var 2,Var 1]])),Func ("OracleXML","xmlUnquoteSpecials._#selFP6#rest") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_87") [Var 2,Var 1]])),Func ("OracleXML","xmlUnquoteSpecial") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_86") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude","[]") []]],Var 1],Var 4]]))),Func ("OracleXML","unquoteUnicode") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_73") [Var 2,Var 1]])),Func ("OracleXML","readXmlFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("XML","XmlExp") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleXML","readXmlFile._#lambda3") [Var 2]],Var 3]]))),Func ("OracleXML","readXmlFile._#lambda3") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("XML","XmlExp") []])))))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleXML","parseXmlString") [Var 3,Var 1])] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_68") [Var 2,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 5],Var 6]]))]))),Func ("OracleXML","readUnsafeXmlFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("XML","XmlExp") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","catchFail") [Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleXML","readXmlFile") [Var 2,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude","Just") []],Var 3],Var 4],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","Nothing") [],Var 5],Var 6]]))),Func ("OracleXML","showXmlFile") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleXML","readXmlFile") [Var 2,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","putStr") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleXML","showXmlDoc") []],Var 3],Var 4]]))),Func ("OracleXML","readFileWithXmlDocs") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleXML","parseXmlString") []],Var 3],Var 4]]))),Func ("OracleXML","parseXmlString") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","fst") [Comb FuncCall ("OracleXML","parseXmlTokens") [Comb FuncCall ("OracleXML","scanXmlString") [Var 2,Var 1],Comb ConsCall ("Prelude","Nothing") [],Var 3],Var 4]]))),Func ("OracleXML","parseXmlTokens") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_66") [Var 3,Var 2,Var 1]])),Func ("OracleXML","parseXmlTokens._#selFP8#xexps") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_58") [Var 2,Var 1]])),Func ("OracleXML","parseXmlTokens._#selFP9#rem_xtokens") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_57") [Var 2,Var 1]])),Func ("OracleXML","parseXmlTokens._#selFP14#xexps1") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_56") [Var 2,Var 1]])),Func ("OracleXML","parseXmlTokens._#selFP15#xtokens1") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_55") [Var 2,Var 1]])),Func ("OracleXML","parseXmlTokens._#selFP12#xexps") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_54") [Var 2,Var 1]])),Func ("OracleXML","parseXmlTokens._#selFP13#rem_xtokens") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_53") [Var 2,Var 1]])),Func ("OracleXML","parseXmlTokens._#selFP17#xexps") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_52") [Var 2,Var 1]])),Func ("OracleXML","parseXmlTokens._#selFP18#rem_xtokens") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_51") [Var 2,Var 1]])),Func ("OracleXML","parseXmlTokens._#selFP20#xexps") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_50") [Var 2,Var 1]])),Func ("OracleXML","parseXmlTokens._#selFP21#rem_xtokens") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_49") [Var 2,Var 1]])),Func ("OracleXML","scanXmlString") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","scanXmlString.scanXml.191") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleXML","dropBlanks") [Var 1],Var 2,Var 3],Var 4]]))),Func ("OracleXML","scanXmlString.scanXml.191") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_48") [Var 2,Var 1]])),Func ("OracleXML","scanXmlString.scanXml.191._#selFP23#initxt") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_46") [Var 2,Var 1]])),Func ("OracleXML","scanXmlString.scanXml.191._#selFP24#remtag") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_45") [Var 2,Var 1]])),Func ("OracleXML","scanXmlText") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_44") [Var 2,Var 1]])),Func ("OracleXML","scanXmlText._#selFP26#txt") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_39") [Var 2,Var 1]])),Func ("OracleXML","scanXmlText._#selFP27#rem") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_38") [Var 2,Var 1]])),Func ("OracleXML","scanXmlText._#selFP29#txt") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_37") [Var 2,Var 1]])),Func ("OracleXML","scanXmlText._#selFP30#rem") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_36") [Var 2,Var 1]])),Func ("OracleXML","scanXmlElem") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_35") [Var 2,Var 1]])),Func ("OracleXML","scanXmlElemName") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_30") [Var 2,Var 3,Var 1]])),Func ("OracleXML","scanXmlElemName._#selFP32#attrs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_24") [Var 2,Var 1]])),Func ("OracleXML","scanXmlElemName._#selFP33#rest") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_23") [Var 2,Var 1]])),Func ("OracleXML","scanXmlComment") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_22") [Var 2,Var 1]])),Func ("OracleXML","scanXmlCData") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OracleXML","dropCData") [Var 2,Var 1])] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","_case_20") [Var 3,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","head") [Var 3,Var 4],Lit (Charc '>'),Var 5],Var 6]]))]))),Func ("OracleXML","dropCData") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_19") [Var 2,Var 1]])),Func ("OracleXML","scanXmlProcInstr") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_15") [Var 2,Var 1]])),Func ("OracleXML","parseAttrs") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_13") [Var 2,Var 1]])),Func ("OracleXML","parseAttrs._#selFP41#name") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_10") [Var 2,Var 1]])),Func ("OracleXML","parseAttrs._#selFP42#rest1") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_9") [Var 2,Var 1]])),Func ("OracleXML","parseAttrs._#selFP39#value") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_8") [Var 2,Var 1]])),Func ("OracleXML","parseAttrs._#selFP40#rest2") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_7") [Var 2,Var 1]])),Func ("OracleXML","parseAttrs._#selFP37#rem_attrs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_6") [Var 2,Var 1]])),Func ("OracleXML","parseAttrs._#selFP38#rem_inp") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_5") [Var 2,Var 1]])),Func ("OracleXML","dropBlanks") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","dropWhile") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleChar","isSpace") []]]]])),Func ("OracleXML","splitAtChar") 3 Private (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_4") [Var 2,Var 3,Var 1]])),Func ("OracleXML","splitAtChar._#selFP44#first") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 231],TCons ("Prelude","[]") [TVar 231]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 231]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_2") [Var 2,Var 1]])),Func ("OracleXML","splitAtChar._#selFP45#rest") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 231],TCons ("Prelude","[]") [TVar 231]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 231]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_1") [Var 2,Var 1]])),Func ("OracleXML","textOfXml") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","not") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","null") []],Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleXML","textOfXml.textOfXmlItem.255") []],Var 2,Var 3],Var 4],Var 5],Var 6]]))),Func ("OracleXML","textOfXml.textOfXmlItem.255") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_0") [Var 2,Var 1]])),Func ("OracleXML","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XText") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("XML","XElem") [4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","textOfXml") [Var 6,Var 1]])]])),Func ("OracleXML","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_2") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_4") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_3") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Var 2,Var 1],Var 6]]))]])),Func ("OracleXML","_case_3") 5 Private (TVar (-42)) (Rule [2,4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Var 5]]),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleXML","splitAtChar") [Var 2,Var 5,Var 1])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleXML","splitAtChar._#selFP44#first") [Var 6,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleXML","splitAtChar._#selFP45#rest") [Var 6,Var 11])] (Comb FuncCall ("CEventOracle","collapse") [Var 12,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 4,Var 7],Var 8]])]))]))]))]])),Func ("OracleXML","_case_5") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_6") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_7") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_8") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_9") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_10") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_13") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_12") [Var 3,Var 4,Comb FuncCall ("OracleChar","isAlpha") [Var 3,Var 1],Var 5]]))]])),Func ("OracleXML","_case_12") 4 Private (TVar (-42)) (Rule [3,4,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleXML","splitAtChar") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Var 3,Var 4],Var 1])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleXML","parseAttrs._#selFP41#name") [Var 5,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleXML","parseAttrs._#selFP42#rest1") [Var 5,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]],Let [(8,Comb FuncCall ("OracleXML","splitAtChar") [Lit (Charc '"'),Comb FuncCall ("OraclePrelude","tail") [Var 7,Var 17],Var 18])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleXML","parseAttrs._#selFP39#value") [Var 8,Var 19])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleXML","parseAttrs._#selFP40#rest2") [Var 8,Var 20])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]]],Let [(11,Comb FuncCall ("OracleXML","parseAttrs") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleXML","dropBlanks") [Var 21],Var 10,Var 22],Var 23])] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(12,Comb FuncCall ("OracleXML","parseAttrs._#selFP37#rem_attrs") [Var 11,Var 24])] (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OracleXML","parseAttrs._#selFP38#rem_inp") [Var 11,Var 25])] (Comb FuncCall ("CEventOracle","replace") [Var 26,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 6,Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 9,Var 26]],Var 12],Var 13]])]))]))]))]))]))]))]))]))])),Branch (Pattern ("Prelude","False") []) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_11") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 27]]))]])),Func ("OracleXML","_case_11") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude",":") [Var 3,Var 4]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleXML","_case_15") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleXML","_case_14") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '?'),Var 1],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","head") [Var 4,Var 5],Lit (Charc '>'),Var 6],Var 7],Var 8]]))]])),Func ("OracleXML","_case_14") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","scanXmlString") [Comb FuncCall ("OraclePrelude","tail") [Var 4,Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","scanXmlProcInstr") [Var 4,Var 1]])]])),Func ("OracleXML","_case_19") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_18") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '['),Var 1],Var 5]]))]])),Func ("OracleXML","_case_18") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","tail") [Comb FuncCall ("OraclePrelude","dropWhile") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Lit (Charc ']')]],Var 4,Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_17") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '>'),Var 1],Var 7]]))]])),Func ("OracleXML","_case_17") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Var 4]]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_16") [Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 6]]))]])),Func ("OracleXML","_case_16") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","dropCData") [Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleXML","_case_20") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","scanXmlString") [Comb FuncCall ("OraclePrelude","tail") [Var 3,Var 1],Var 5]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","scanXmlCData") [Var 3,Var 1]])]])),Func ("OracleXML","_case_22") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleXML","_case_21") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '-'),Var 1],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","take") [Lit (Intc 2),Var 4,Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude",":") [Lit (Charc '>'),Comb ConsCall ("Prelude","[]") []]],Var 6],Var 7],Var 8]]))]])),Func ("OracleXML","_case_21") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","scanXmlString") [Comb FuncCall ("OraclePrelude","drop") [Lit (Intc 2),Var 4,Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","scanXmlComment") [Var 4,Var 1]])]])),Func ("OracleXML","_case_23") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_24") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_30") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc '<'),Var 2],Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_29") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc '>'),Var 1],Var 6]]))]])),Func ("OracleXML","_case_29") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc '<'),Var 2],Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","scanXmlString") [Var 5,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_28") [Var 2,Var 4,Var 5,Comb FuncCall ("OracleChar","isSpace") [Var 4,Var 1],Var 7]]))]])),Func ("OracleXML","_case_28") 5 Private (TVar (-42)) (Rule [2,4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]],Let [(6,Comb FuncCall ("OracleXML","parseAttrs") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleXML","dropBlanks") [Var 1],Var 5,Var 10],Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleXML","scanXmlElemName._#selFP32#attrs") [Var 6,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleXML","scanXmlElemName._#selFP33#rest") [Var 6,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","_case_27") [Var 2,Var 7,Var 8,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","head") [Var 8,Var 14],Lit (Charc '/'),Var 15],Var 16]]))]))]))])),Branch (Pattern ("Prelude","False") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleXML","_case_26") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc '/'),Var 1],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","head") [Var 5,Var 17],Lit (Charc '>'),Var 18],Var 19],Var 20]]))]])),Func ("OracleXML","_case_26") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Var 2,Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","scanXmlString") [Comb FuncCall ("OraclePrelude","tail") [Var 5,Var 1],Var 7]]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_25") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 8]]))]])),Func ("OracleXML","_case_25") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","scanXmlElemName") [Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Var 1],Var 5,Var 7]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleXML","_case_27") 5 Private (TVar (-42)) (Rule [2,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Var 2,Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","scanXmlString") [Comb FuncCall ("OraclePrelude","drop") [Lit (Intc 2),Var 8,Var 1],Var 10]]])),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc '<'),Var 2],Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","scanXmlString") [Comb FuncCall ("OraclePrelude","tail") [Var 8,Var 1],Var 11]]]))]])),Func ("OracleXML","_case_35") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_34") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '!'),Var 1],Var 5]]))]])),Func ("OracleXML","_case_34") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","_case_33") [Var 4,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","take") [Lit (Intc 2),Var 4,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude","[]") []]],Var 6],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_32") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '?'),Var 1],Var 8]]))]])),Func ("OracleXML","_case_32") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","scanXmlProcInstr") [Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_31") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 6]]))]])),Func ("OracleXML","_case_31") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","scanXmlElemName") [Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleXML","_case_33") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","scanXmlComment") [Comb FuncCall ("OraclePrelude","drop") [Lit (Intc 2),Var 4,Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","scanXmlCData") [Var 4,Var 1]])]])),Func ("OracleXML","_case_36") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_37") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_38") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_39") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_44") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_43") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '<'),Var 1],Var 5]]))]])),Func ("OracleXML","_case_43") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude",":") [Var 3,Var 4]]]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_42") [Var 3,Var 4,Comb FuncCall ("OracleChar","isSpace") [Var 3,Var 1],Var 6]]))]])),Func ("OracleXML","_case_42") 4 Private (TVar (-42)) (Rule [3,4,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]],Let [(5,Comb FuncCall ("OracleXML","scanXmlText") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleXML","dropBlanks") [Var 1],Var 4,Var 9],Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleXML","scanXmlText._#selFP26#txt") [Var 5,Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleXML","scanXmlText._#selFP27#rem") [Var 5,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleXML","_case_41") [Var 6,Comb FuncCall ("OraclePrelude","null") [Var 6,Var 13],Var 14],Var 7]]))]))]))])),Branch (Pattern ("Prelude","False") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_40") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 15]]))]])),Func ("OracleXML","_case_40") 4 Private (TVar (-42)) (Rule [3,4,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude","True") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleXML","scanXmlText") [Var 4,Var 1])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleXML","scanXmlText._#selFP29#txt") [Var 8,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleXML","scanXmlText._#selFP30#rem") [Var 8,Var 13])] (Comb FuncCall ("CEventOracle","collapse") [Var 14,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 3,Var 9],Var 10]])]))]))])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleXML","_case_41") 3 Private (TVar (-42)) (Rule [6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Var 6]])]])),Func ("OracleXML","_case_45") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_46") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_48") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_47") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '<'),Var 1],Var 5]]))]])),Func ("OracleXML","_case_47") 4 Private (TVar (-42)) (Rule [3,4,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","scanXmlElem") [Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleXML","scanXmlText") [Comb ConsCall ("Prelude",":") [Var 3,Var 4],Var 1])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleXML","scanXmlString.scanXml.191._#selFP23#initxt") [Var 5,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleXML","scanXmlString.scanXml.191._#selFP24#remtag") [Var 5,Var 10])] (Comb FuncCall ("CEventOracle","replace") [Var 11,Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XText") [Var 6],Comb FuncCall ("OracleXML","scanXmlString.scanXml.191") [Var 7,Var 11]]])]))]))]))]])),Func ("OracleXML","_case_49") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_50") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_51") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_52") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_53") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_54") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_55") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_56") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_57") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_58") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_66") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_65") [Var 3,Var 1]]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_64") [Var 3,Var 5,Var 4,Var 1]])]])),Func ("OracleXML","_case_64") 4 Private (TVar (-42)) (Rule [3,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("XML","XText") [6]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleXML","parseXmlTokens") [Var 5,Var 3,Var 1])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleXML","parseXmlTokens._#selFP8#xexps") [Var 7,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleXML","parseXmlTokens._#selFP9#rem_xtokens") [Var 7,Var 14])] (Comb FuncCall ("CEventOracle","replace") [Var 15,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XText") [Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 6,Var 15]],Var 8],Var 9]])]))]))])),Branch (Pattern ("XML","XElem") [10,11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_63") [Var 3,Var 5,Var 11,Var 12,Var 10,Var 1]])]])),Func ("OracleXML","_case_63") 6 Private (TVar (-42)) (Rule [3,5,11,12,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude",":") [13,14]) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleXML","_case_62") [Var 3,Var 5,Var 11,Var 12,Var 13,Var 14,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 13,Lit (Charc '<'),Var 1],Comb FuncCall ("OraclePrelude","/=") [Comb FuncCall ("OraclePrelude","head") [Var 14,Var 15],Lit (Charc '/'),Var 16],Var 17],Var 18]]))]])),Func ("OracleXML","_case_62") 8 Private (TVar (-42)) (Rule [3,5,11,12,13,14,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 21) [Branch (Pattern ("Prelude","True") []) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Let [(15,Comb FuncCall ("OracleXML","parseXmlTokens") [Var 5,Comb ConsCall ("Prelude","Just") [Var 14],Var 1])] (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Let [(16,Comb FuncCall ("OracleXML","parseXmlTokens._#selFP14#xexps1") [Var 15,Var 22])] (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Let [(17,Comb FuncCall ("OracleXML","parseXmlTokens._#selFP15#xtokens1") [Var 15,Var 23])] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(18,Comb FuncCall ("OracleXML","parseXmlTokens") [Var 17,Var 3,Var 24])] (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Let [(19,Comb FuncCall ("OracleXML","parseXmlTokens._#selFP12#xexps") [Var 18,Var 25])] (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Let [(20,Comb FuncCall ("OracleXML","parseXmlTokens._#selFP13#rem_xtokens") [Var 18,Var 26])] (Comb FuncCall ("CEventOracle","collapse") [Var 27,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Var 14,Var 11,Var 16],Var 19],Var 20]])]))]))]))]))]))])),Branch (Pattern ("Prelude","False") []) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleXML","_case_61") [Var 3,Var 5,Var 11,Var 12,Var 13,Var 14,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 13,Lit (Charc '<'),Var 1],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","head") [Var 14,Var 28],Lit (Charc '/'),Var 29],Var 30],Var 31]]))]])),Func ("OracleXML","_case_61") 8 Private (TVar (-42)) (Rule [3,5,11,12,13,14,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 15) [Branch (Pattern ("Prelude","True") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","_case_60") [Var 3,Var 5,Var 11,Var 12,Var 14,Comb FuncCall ("OraclePrelude","maybe") [Comb ConsCall ("Prelude","False") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []],Comb FuncCall ("OraclePrelude","tail") [Var 14,Var 1]]],Var 3,Var 16],Var 17]])),Branch (Pattern ("Prelude","False") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_59") [Var 3,Var 5,Var 11,Var 12,Var 13,Var 14,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 18]]))]])),Func ("OracleXML","_case_59") 8 Private (TVar (-42)) (Rule [3,5,11,12,13,14,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 27) [Branch (Pattern ("Prelude","True") []) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Let [(24,Comb FuncCall ("OracleXML","parseXmlTokens") [Var 5,Var 3,Var 1])] (Let [(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []],Let [(25,Comb FuncCall ("OracleXML","parseXmlTokens._#selFP20#xexps") [Var 24,Var 28])] (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []],Let [(26,Comb FuncCall ("OracleXML","parseXmlTokens._#selFP21#rem_xtokens") [Var 24,Var 29])] (Comb FuncCall ("CEventOracle","collapse") [Var 30,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Var 13,Var 14],Var 11,Var 12],Var 25],Var 26]])]))]))])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleXML","_case_60") 7 Private (TVar (-42)) (Rule [3,5,11,12,14,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 24) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Var 5]]),Branch (Pattern ("Prelude","False") []) (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(21,Comb FuncCall ("OracleXML","parseXmlTokens") [Var 5,Var 3,Var 1])] (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Let [(22,Comb FuncCall ("OracleXML","parseXmlTokens._#selFP17#xexps") [Var 21,Var 25])] (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Let [(23,Comb FuncCall ("OracleXML","parseXmlTokens._#selFP18#rem_xtokens") [Var 21,Var 26])] (Comb FuncCall ("CEventOracle","collapse") [Var 27,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Var 14,Var 11,Var 12],Var 22],Var 23]])]))]))]))]])),Func ("OracleXML","_case_65") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]])]])),Func ("OracleXML","_case_68") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 2,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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1],Var 6],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","_case_67") [Var 2,Var 4,Comb FuncCall ("OraclePrelude","/=") [Comb FuncCall ("OraclePrelude","tail") [Var 4,Var 1],Comb ConsCall ("Prelude","[]") [],Var 8],Var 9]]))]])),Func ("OracleXML","_case_67") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 2,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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1],Var 6],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OraclePrelude","head") [Var 4,Var 1],Var 8]]))]])),Func ("OracleXML","_case_73") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_72") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '#'),Var 1],Var 5]]))]])),Func ("OracleXML","_case_72") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_71") [Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_69") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 6]]))]])),Func ("OracleXML","_case_69") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '&'),Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Var 3,Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc ';'),Comb ConsCall ("Prelude","[]") []],Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleXML","_case_71") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_70") [Var 4,Var 5,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 5,Lit (Charc 'x'),Var 1],Var 7]])),Branch (Pattern ("Prelude","[]") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OracleRead","readInt") [Var 4,Var 1],Var 8],Comb ConsCall ("Prelude","[]") []]]))]])),Func ("OracleXML","_case_70") 5 Private (TVar (-42)) (Rule [4,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OracleRead","readHex") [Var 6,Var 1],Var 8],Comb ConsCall ("Prelude","[]") []]])),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OracleRead","readInt") [Var 4,Var 1],Var 9],Comb ConsCall ("Prelude","[]") []]]))]])),Func ("OracleXML","_case_86") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '<'),Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_85") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude","[]") []]],Var 1],Var 5]]))]])),Func ("OracleXML","_case_85") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '>'),Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_84") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 5]]))]])),Func ("OracleXML","_case_84") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '&'),Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_83") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,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","[]") []]]]],Var 1],Var 5]]))]])),Func ("OracleXML","_case_83") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_82") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,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","[]") []]]]],Var 1],Var 5]]))]])),Func ("OracleXML","_case_82") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\''),Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_81") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,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","[]") []]]]],Var 1],Var 5]]))]])),Func ("OracleXML","_case_81") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 228),Var 1],Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 5]]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_80") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,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","[]") []]]]],Var 1],Var 6]]))]])),Func ("OracleXML","_case_80") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 246),Var 1],Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 5]]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_79") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,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","[]") []]]]],Var 1],Var 6]]))]])),Func ("OracleXML","_case_79") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 252),Var 1],Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 5]]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_78") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,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","[]") []]]]],Var 1],Var 6]]))]])),Func ("OracleXML","_case_78") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 196),Var 1],Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 5]]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_77") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,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","[]") []]]]],Var 1],Var 6]]))]])),Func ("OracleXML","_case_77") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 214),Var 1],Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 5]]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_76") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,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","[]") []]]]],Var 1],Var 6]]))]])),Func ("OracleXML","_case_76") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 220),Var 1],Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 5]]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_75") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,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","[]") []]]]]],Var 1],Var 6]]))]])),Func ("OracleXML","_case_75") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 223),Var 1],Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 5]]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_74") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 6]]))]])),Func ("OracleXML","_case_74") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleXML","unquoteUnicode") [Var 2,Var 1],Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 5],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleXML","_case_87") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_88") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_91") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_90") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '&'),Var 1],Var 5]]))]])),Func ("OracleXML","_case_90") 4 Private (TVar (-42)) (Rule [3,4,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleXML","splitAtChar") [Lit (Charc ';'),Var 4,Var 1])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleXML","xmlUnquoteSpecials._#selFP5#special") [Var 5,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleXML","xmlUnquoteSpecials._#selFP6#rest") [Var 5,Var 10])] (Comb FuncCall ("CEventOracle","replace") [Var 11,Comb FuncCall ("OracleXML","xmlUnquoteSpecial") [Var 6,Var 7,Var 11]])]))]))])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_89") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 12]]))]])),Func ("OracleXML","_case_89") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 4,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleXML","_case_92") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XText") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("XML","XElem") [4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleXML","_case_93") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Var 4,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7],Var 8]]))]])),Func ("OracleXML","_case_96") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_95") [Var 4,Var 3,Var 1]])]])),Func ("OracleXML","_case_95") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("XML","XText") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_94") [Var 5,Var 4,Var 1]])]])),Func ("OracleXML","_case_94") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleXML","_case_99") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("XML","XText") [5]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleXML","xtab") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 9],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11]])),Branch (Pattern ("XML","XElem") [6,7,8]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleXML","xtab") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleXML","showXmlOpenTag") [Var 6,Var 7,Var 3,Var 12],Comb FuncCall ("OracleXML","_case_98") [Var 2,Var 3,Var 6,Var 8,Comb FuncCall ("OraclePrelude","==") [Var 8,Comb ConsCall ("Prelude","[]") [],Var 13],Var 14],Var 15],Var 16]]))]])),Func ("OracleXML","_case_98") 6 Private (TVar (-42)) (Rule [2,3,6,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleXML","_case_97") [Var 2,Var 3,Var 6,Var 8,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","length") [Var 8,Var 1],Lit (Intc 1),Var 10],Comb FuncCall ("OracleXML","isXText") [Comb FuncCall ("OraclePrelude","head") [Var 8,Var 11],Var 12],Var 13],Var 14]]))]])),Func ("OracleXML","_case_97") 6 Private (TVar (-42)) (Rule [2,3,6,8,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(9,Var 8)] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleXML","showXmlExp._#selFP3#s") [Var 9,Var 1])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '>'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Var 3,Var 10,Var 12],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '<'),Comb ConsCall ("Prelude",":") [Lit (Charc '/'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 6,Comb ConsCall ("Prelude",":") [Lit (Charc '>'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]],Var 13],Var 14],Var 15],Var 16]]))]))]),Branch (Pattern ("Prelude","False") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '>'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleXML","showXmlExps") [Comb FuncCall ("OraclePrelude","+") [Var 2,Lit (Intc 2),Var 1],Var 8,Var 3,Var 17],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleXML","xtab") [Var 2,Var 18],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '<'),Comb ConsCall ("Prelude",":") [Lit (Charc '/'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 6,Comb ConsCall ("Prelude",":") [Lit (Charc '>'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]],Var 19],Var 20],Var 21],Var 22],Var 23]]))]])),Func ("OracleXML","_case_102") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("XML","XElem") [4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleXML","encoding2Attribute") [Comb FuncCall ("OracleXML","lookupEncoding") [Var 2,Var 1],Var 7],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleXML","_case_101") [Var 2,Comb FuncCall ("OracleXML","hasDtdUrl") [Var 2,Var 8],Var 9],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleXML","_case_100") [Var 2,Var 4,Comb FuncCall ("OracleXML","hasDtdUrl") [Var 2,Var 10],Var 11],Comb FuncCall ("OracleXML","showXmlExp") [Lit (Intc 0),Comb FuncCall ("OracleXML","encoding2EncFunc") [Comb FuncCall ("OracleXML","lookupEncoding") [Var 2,Var 12],Var 13],Comb ConsCall ("XML","XElem") [Var 4,Var 5,Var 6],Var 14],Var 15],Var 16],Var 17],Var 18],Var 19],Var 20]]))]])),Func ("OracleXML","_case_100") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 4,Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleXML","lookupDtdUrl") [Var 2,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","[]") []]]]],Var 6],Var 7],Var 8],Var 9]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleXML","_case_101") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude","[]") []]]]])]])),Func ("OracleXML","_case_104") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_103") [Var 4,Var 3,Var 1]])]])),Func ("OracleXML","_case_103") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("XML","DtdUrl") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("XML","Enc") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","hasDtdUrl") [Var 4,Var 1]])]])),Func ("OracleXML","_case_106") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_105") [Var 4,Var 3,Var 1]])]])),Func ("OracleXML","_case_105") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("XML","Enc") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","lookupDtdUrl") [Var 4,Var 1]]),Branch (Pattern ("XML","DtdUrl") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleXML","_case_108") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_107") [Var 4,Var 3,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("XML","StandardEnc") []])]])),Func ("OracleXML","_case_107") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("XML","Enc") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5]),Branch (Pattern ("XML","DtdUrl") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","lookupEncoding") [Var 4,Var 1]])]])),Func ("OracleXML","_case_110") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleXML","_case_109") [Var 3,Var 4,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Comb FuncCall ("OraclePrelude","ord") [Var 3,Var 1],Var 5],Comb FuncCall ("OracleXML","iso88591list") [Var 6],Var 7],Var 8]]))]])),Func ("OracleXML","_case_109") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("OracleXML","iso88591Encoding") [Var 4,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleXML","standardEncoding") [Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Var 1],Comb FuncCall ("OracleXML","iso88591Encoding") [Var 4,Var 6],Var 7]]))]])),Func ("OracleXML","_case_119") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_118") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '<'),Var 1],Var 5]]))]])),Func ("OracleXML","_case_118") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 ("OracleXML","standardEncoding") [Var 4,Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_117") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '>'),Var 1],Var 7]]))]])),Func ("OracleXML","_case_117") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 ("OracleXML","standardEncoding") [Var 4,Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_116") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '&'),Var 1],Var 7]]))]])),Func ("OracleXML","_case_116") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 ("OracleXML","standardEncoding") [Var 4,Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_115") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '"'),Var 1],Var 7]]))]])),Func ("OracleXML","_case_115") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 ("OracleXML","standardEncoding") [Var 4,Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_114") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '\''),Var 1],Var 7]]))]])),Func ("OracleXML","_case_114") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 ("OracleXML","standardEncoding") [Var 4,Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","_case_113") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OraclePrelude","ord") [Var 3,Var 1],Lit (Intc 32),Var 7],Var 8]]))]])),Func ("OracleXML","_case_113") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '&'),Comb ConsCall ("Prelude",":") [Lit (Charc '#'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Comb FuncCall ("OraclePrelude","ord") [Var 3,Var 1],Var 6],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ';'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","standardEncoding") [Var 4,Var 7],Var 8],Var 9],Var 10]])),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","_case_112") [Var 3,Var 4,Comb FuncCall ("OraclePrelude",">") [Comb FuncCall ("OraclePrelude","ord") [Var 3,Var 1],Lit (Intc 127),Var 11],Var 12]]))]])),Func ("OracleXML","_case_112") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '&'),Comb ConsCall ("Prelude",":") [Lit (Charc '#'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Comb FuncCall ("OraclePrelude","ord") [Var 3,Var 1],Var 6],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ';'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","standardEncoding") [Var 4,Var 7],Var 8],Var 9],Var 10]])),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_111") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 11]]))]])),Func ("OracleXML","_case_111") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("OracleXML","standardEncoding") [Var 4,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleXML","_case_120") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","StandardEnc") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleXML","standardEncoding") []]]),Branch (Pattern ("XML","Iso88591Enc") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleXML","iso88591Encoding") []]])]])),Func ("OracleXML","_case_121") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","StandardEnc") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("XML","Iso88591Enc") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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","[]") []]]]]]]]]]]]]]]]]]]]]]]])]]))] []
+ Curry/Module/OracleXML.fint view
@@ -0,0 +1,1 @@+Prog "OracleXML" ["CEventOracle","Oracle","IOExts","XML","Char","List","Prelude","Read","OracleChar","OracleList","OraclePrelude","OracleRead"] [] [Func ("OracleXML","encoding2Attribute") 2 Private (FuncType (TCons ("XML","Encoding") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_121") [Var 2,Var 1]])),Func ("OracleXML","encoding2EncFunc") 2 Private (FuncType (TCons ("XML","Encoding") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_120") [Var 2,Var 1]])),Func ("OracleXML","standardEncoding") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_119") [Var 2,Var 1]])),Func ("OracleXML","iso88591Encoding") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_110") [Var 2,Var 1]])),Func ("OracleXML","iso88591list") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,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 ("OracleXML","lookupEncoding") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlDocParams") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","Encoding") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_108") [Var 2,Var 1]])),Func ("OracleXML","lookupDtdUrl") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlDocParams") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_106") [Var 2,Var 1]])),Func ("OracleXML","hasDtdUrl") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlDocParams") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_104") [Var 2,Var 1]])),Func ("OracleXML","xtxt") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("XML","XText") [Var 2]])),Func ("OracleXML","xml") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("XML","XmlExp") [])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("XML","XElem") [Var 2,Comb ConsCall ("Prelude","[]") [],Var 3]])),Func ("OracleXML","writeXmlFile") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","writeXmlFileWithParams") [Var 2,Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","Enc") [Comb ConsCall ("XML","StandardEnc") []],Comb ConsCall ("Prelude","[]") []],Var 3,Var 1]])),Func ("OracleXML","writeXmlFileWithParams") 4 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlDocParams") []]) (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","writeFile") [Var 2,Comb FuncCall ("OracleXML","showXmlDocWithParams") [Var 3,Var 4,Var 1],Var 5]]))),Func ("OracleXML","showXmlDoc") 2 Public (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","showXmlDocWithParams") [Comb ConsCall ("Prelude","[]") [],Var 2,Var 1]])),Func ("OracleXML","showXmlDocWithParams") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlDocParams") []]) (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_102") [Var 2,Var 3,Var 1]])),Func ("OracleXML","showXmlExp") 4 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_99") [Var 2,Var 3,Var 4,Var 1]])),Func ("OracleXML","showXmlExp._#selFP3#s") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_96") [Var 2,Var 1]])),Func ("OracleXML","xtab") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","take") [Var 2,Comb FuncCall ("OraclePrelude","repeat") [Lit (Charc ' '),Var 1],Var 3]]))),Func ("OracleXML","showXmlOpenTag") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TVar 0]]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '<'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Var 2,Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OraclePrelude","map") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []]]],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleXML","showXmlOpenTag.attr2string.125") [Var 4]],Var 1],Var 3,Var 5],Var 6],Var 7],Var 8]]))),Func ("OracleXML","showXmlOpenTag.attr2string.125") 3 Private (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TVar 130) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TVar 130]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_93") [Var 2,Var 3,Var 1]])),Func ("OracleXML","showXmlExps") 4 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (FuncType (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))))) (Rule [2,3,4,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","concatMap") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleXML","showXmlExp") [Var 2,Var 4]],Var 1],Var 3,Var 5]]))),Func ("OracleXML","isXText") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","Bool") []))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_92") [Var 2,Var 1]])),Func ("OracleXML","xmlUnquoteSpecials") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_91") [Var 2,Var 1]])),Func ("OracleXML","xmlUnquoteSpecials._#selFP5#special") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_88") [Var 2,Var 1]])),Func ("OracleXML","xmlUnquoteSpecials._#selFP6#rest") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_87") [Var 2,Var 1]])),Func ("OracleXML","xmlUnquoteSpecial") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [2,3,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_86") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc 'l'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude","[]") []]],Var 1],Var 4]]))),Func ("OracleXML","unquoteUnicode") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_73") [Var 2,Var 1]])),Func ("OracleXML","readXmlFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("XML","XmlExp") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleXML","readXmlFile._#lambda3") [Var 2]],Var 3]]))),Func ("OracleXML","readXmlFile._#lambda3") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("XML","XmlExp") []])))))) (Rule [2,3,1] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Let [(4,Comb FuncCall ("OracleXML","parseXmlString") [Var 3,Var 1])] (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_68") [Var 2,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 4,Comb ConsCall ("Prelude","[]") [],Var 5],Var 6]]))]))),Func ("OracleXML","readUnsafeXmlFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("XML","XmlExp") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("Oracle","catchFail") [Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleXML","readXmlFile") [Var 2,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partCons") [Comb (ConsPartCall 1) ("Prelude","Just") []],Var 3],Var 4],Comb FuncCall ("OraclePrelude","return") [Comb ConsCall ("Prelude","Nothing") [],Var 5],Var 6]]))),Func ("OracleXML","showXmlFile") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OracleXML","readXmlFile") [Var 2,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","putStr") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleXML","showXmlDoc") []],Var 3],Var 4]]))),Func ("OracleXML","readFileWithXmlDocs") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","()") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]))))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Oracle",">>=") [Comb FuncCall ("OraclePrelude","readFile") [Var 2,Var 1],Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","return") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleXML","parseXmlString") []],Var 3],Var 4]]))),Func ("OracleXML","parseXmlString") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","fst") [Comb FuncCall ("OracleXML","parseXmlTokens") [Comb FuncCall ("OracleXML","scanXmlString") [Var 2,Var 1],Comb ConsCall ("Prelude","Nothing") [],Var 3],Var 4]]))),Func ("OracleXML","parseXmlTokens") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_66") [Var 3,Var 2,Var 1]])),Func ("OracleXML","parseXmlTokens._#selFP8#xexps") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_58") [Var 2,Var 1]])),Func ("OracleXML","parseXmlTokens._#selFP9#rem_xtokens") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_57") [Var 2,Var 1]])),Func ("OracleXML","parseXmlTokens._#selFP14#xexps1") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_56") [Var 2,Var 1]])),Func ("OracleXML","parseXmlTokens._#selFP15#xtokens1") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_55") [Var 2,Var 1]])),Func ("OracleXML","parseXmlTokens._#selFP12#xexps") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_54") [Var 2,Var 1]])),Func ("OracleXML","parseXmlTokens._#selFP13#rem_xtokens") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_53") [Var 2,Var 1]])),Func ("OracleXML","parseXmlTokens._#selFP17#xexps") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_52") [Var 2,Var 1]])),Func ("OracleXML","parseXmlTokens._#selFP18#rem_xtokens") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_51") [Var 2,Var 1]])),Func ("OracleXML","parseXmlTokens._#selFP20#xexps") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_50") [Var 2,Var 1]])),Func ("OracleXML","parseXmlTokens._#selFP21#rem_xtokens") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_49") [Var 2,Var 1]])),Func ("OracleXML","scanXmlString") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","scanXmlString.scanXml.191") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleXML","dropBlanks") [Var 1],Var 2,Var 3],Var 4]]))),Func ("OracleXML","scanXmlString.scanXml.191") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_48") [Var 2,Var 1]])),Func ("OracleXML","scanXmlString.scanXml.191._#selFP23#initxt") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_46") [Var 2,Var 1]])),Func ("OracleXML","scanXmlString.scanXml.191._#selFP24#remtag") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_45") [Var 2,Var 1]])),Func ("OracleXML","scanXmlText") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_44") [Var 2,Var 1]])),Func ("OracleXML","scanXmlText._#selFP26#txt") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_39") [Var 2,Var 1]])),Func ("OracleXML","scanXmlText._#selFP27#rem") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_38") [Var 2,Var 1]])),Func ("OracleXML","scanXmlText._#selFP29#txt") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_37") [Var 2,Var 1]])),Func ("OracleXML","scanXmlText._#selFP30#rem") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_36") [Var 2,Var 1]])),Func ("OracleXML","scanXmlElem") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_35") [Var 2,Var 1]])),Func ("OracleXML","scanXmlElemName") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_30") [Var 2,Var 3,Var 1]])),Func ("OracleXML","scanXmlElemName._#selFP32#attrs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_24") [Var 2,Var 1]])),Func ("OracleXML","scanXmlElemName._#selFP33#rest") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_23") [Var 2,Var 1]])),Func ("OracleXML","scanXmlComment") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_22") [Var 2,Var 1]])),Func ("OracleXML","scanXmlCData") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Let [(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Let [(3,Comb FuncCall ("OracleXML","dropCData") [Var 2,Var 1])] (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","_case_20") [Var 3,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","head") [Var 3,Var 4],Lit (Charc '>'),Var 5],Var 6]]))]))),Func ("OracleXML","dropCData") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_19") [Var 2,Var 1]])),Func ("OracleXML","scanXmlProcInstr") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_15") [Var 2,Var 1]])),Func ("OracleXML","parseAttrs") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_13") [Var 2,Var 1]])),Func ("OracleXML","parseAttrs._#selFP41#name") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_10") [Var 2,Var 1]])),Func ("OracleXML","parseAttrs._#selFP42#rest1") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_9") [Var 2,Var 1]])),Func ("OracleXML","parseAttrs._#selFP39#value") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_8") [Var 2,Var 1]])),Func ("OracleXML","parseAttrs._#selFP40#rest2") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_7") [Var 2,Var 1]])),Func ("OracleXML","parseAttrs._#selFP37#rem_attrs") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_6") [Var 2,Var 1]])),Func ("OracleXML","parseAttrs._#selFP38#rem_inp") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_5") [Var 2,Var 1]])),Func ("OracleXML","dropBlanks") 1 Private (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("CEventOracle","Ref") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1] (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","dropWhile") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleChar","isSpace") []]]]])),Func ("OracleXML","splitAtChar") 3 Private (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]])))) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_4") [Var 2,Var 3,Var 1]])),Func ("OracleXML","splitAtChar._#selFP44#first") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 231],TCons ("Prelude","[]") [TVar 231]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 231]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_2") [Var 2,Var 1]])),Func ("OracleXML","splitAtChar._#selFP45#rest") 2 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 231],TCons ("Prelude","[]") [TVar 231]]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TVar 231]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_1") [Var 2,Var 1]])),Func ("OracleXML","textOfXml") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Let [(3,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(4,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","concat") [Comb FuncCall ("OracleList","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","filter") [Comb FuncCall ("OraclePrelude",".") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","not") []],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","null") []],Var 1],Comb FuncCall ("OraclePrelude","map") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleXML","textOfXml.textOfXmlItem.255") []],Var 2,Var 3],Var 4],Var 5],Var 6]]))),Func ("OracleXML","textOfXml.textOfXmlItem.255") 2 Private (FuncType (TCons ("XML","XmlExp") []) (FuncType (TCons ("CEventOracle","Ref") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_0") [Var 2,Var 1]])),Func ("OracleXML","_case_0") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XText") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3]),Branch (Pattern ("XML","XElem") [4,5,6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","textOfXml") [Var 6,Var 1]])]])),Func ("OracleXML","_case_1") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_2") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_4") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_3") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Var 2,Var 1],Var 6]]))]])),Func ("OracleXML","_case_3") 5 Private (TVar (-42)) (Rule [2,4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Var 5]]),Branch (Pattern ("Prelude","False") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleXML","splitAtChar") [Var 2,Var 5,Var 1])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleXML","splitAtChar._#selFP44#first") [Var 6,Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleXML","splitAtChar._#selFP45#rest") [Var 6,Var 11])] (Comb FuncCall ("CEventOracle","collapse") [Var 12,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 4,Var 7],Var 8]])]))]))]))]])),Func ("OracleXML","_case_5") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_6") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_7") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_8") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_9") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_10") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_13") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_12") [Var 3,Var 4,Comb FuncCall ("OracleChar","isAlpha") [Var 3,Var 1],Var 5]]))]])),Func ("OracleXML","_case_12") 4 Private (TVar (-42)) (Rule [3,4,14,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 14) [Branch (Pattern ("Prelude","True") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleXML","splitAtChar") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Var 3,Var 4],Var 1])] (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleXML","parseAttrs._#selFP41#name") [Var 5,Var 15])] (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleXML","parseAttrs._#selFP42#rest1") [Var 5,Var 16])] (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude","[]") []]],Let [(8,Comb FuncCall ("OracleXML","splitAtChar") [Lit (Charc '"'),Comb FuncCall ("OraclePrelude","tail") [Var 7,Var 17],Var 18])] (Let [(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleXML","parseAttrs._#selFP39#value") [Var 8,Var 19])] (Let [(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleXML","parseAttrs._#selFP40#rest2") [Var 8,Var 20])] (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []]]],Let [(11,Comb FuncCall ("OracleXML","parseAttrs") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleXML","dropBlanks") [Var 21],Var 10,Var 22],Var 23])] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(12,Comb FuncCall ("OracleXML","parseAttrs._#selFP37#rem_attrs") [Var 11,Var 24])] (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Let [(13,Comb FuncCall ("OracleXML","parseAttrs._#selFP38#rem_inp") [Var 11,Var 25])] (Comb FuncCall ("CEventOracle","replace") [Var 26,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 6,Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 9,Var 26]],Var 12],Var 13]])]))]))]))]))]))]))]))]))])),Branch (Pattern ("Prelude","False") []) (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_11") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 27]]))]])),Func ("OracleXML","_case_11") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude",":") [Var 3,Var 4]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleXML","_case_15") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleXML","_case_14") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '?'),Var 1],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","head") [Var 4,Var 5],Lit (Charc '>'),Var 6],Var 7],Var 8]]))]])),Func ("OracleXML","_case_14") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","scanXmlString") [Comb FuncCall ("OraclePrelude","tail") [Var 4,Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","scanXmlProcInstr") [Var 4,Var 1]])]])),Func ("OracleXML","_case_19") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_18") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '['),Var 1],Var 5]]))]])),Func ("OracleXML","_case_18") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","tail") [Comb FuncCall ("OraclePrelude","dropWhile") [Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","/=") []],Lit (Charc ']')]],Var 4,Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_17") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '>'),Var 1],Var 7]]))]])),Func ("OracleXML","_case_17") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Var 4]]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_16") [Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 6]]))]])),Func ("OracleXML","_case_16") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","dropCData") [Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleXML","_case_20") 3 Private (TVar (-42)) (Rule [3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","scanXmlString") [Comb FuncCall ("OraclePrelude","tail") [Var 3,Var 1],Var 5]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","scanXmlCData") [Var 3,Var 1]])]])),Func ("OracleXML","_case_22") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleXML","_case_21") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '-'),Var 1],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","take") [Lit (Intc 2),Var 4,Var 5],Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude",":") [Lit (Charc '>'),Comb ConsCall ("Prelude","[]") []]],Var 6],Var 7],Var 8]]))]])),Func ("OracleXML","_case_21") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","scanXmlString") [Comb FuncCall ("OraclePrelude","drop") [Lit (Intc 2),Var 4,Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","scanXmlComment") [Var 4,Var 1]])]])),Func ("OracleXML","_case_23") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_24") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_30") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc '<'),Var 2],Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_29") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc '>'),Var 1],Var 6]]))]])),Func ("OracleXML","_case_29") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc '<'),Var 2],Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","scanXmlString") [Var 5,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_28") [Var 2,Var 4,Var 5,Comb FuncCall ("OracleChar","isSpace") [Var 4,Var 1],Var 7]]))]])),Func ("OracleXML","_case_28") 5 Private (TVar (-42)) (Rule [2,4,5,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]]],Let [(6,Comb FuncCall ("OracleXML","parseAttrs") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleXML","dropBlanks") [Var 1],Var 5,Var 10],Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleXML","scanXmlElemName._#selFP32#attrs") [Var 6,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleXML","scanXmlElemName._#selFP33#rest") [Var 6,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","_case_27") [Var 2,Var 7,Var 8,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","head") [Var 8,Var 14],Lit (Charc '/'),Var 15],Var 16]]))]))]))])),Branch (Pattern ("Prelude","False") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleXML","_case_26") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 4,Lit (Charc '/'),Var 1],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","head") [Var 5,Var 17],Lit (Charc '>'),Var 18],Var 19],Var 20]]))]])),Func ("OracleXML","_case_26") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Var 2,Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","scanXmlString") [Comb FuncCall ("OraclePrelude","tail") [Var 5,Var 1],Var 7]]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_25") [Var 2,Var 4,Var 5,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 8]]))]])),Func ("OracleXML","_case_25") 5 Private (TVar (-42)) (Rule [2,4,5,6,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 6) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","scanXmlElemName") [Comb FuncCall ("OraclePrelude","++") [Var 2,Comb ConsCall ("Prelude",":") [Var 4,Comb ConsCall ("Prelude","[]") []],Var 1],Var 5,Var 7]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleXML","_case_27") 5 Private (TVar (-42)) (Rule [2,7,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Var 2,Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","scanXmlString") [Comb FuncCall ("OraclePrelude","drop") [Lit (Intc 2),Var 8,Var 1],Var 10]]])),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc '<'),Var 2],Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","scanXmlString") [Comb FuncCall ("OraclePrelude","tail") [Var 8,Var 1],Var 11]]]))]])),Func ("OracleXML","_case_35") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_34") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '!'),Var 1],Var 5]]))]])),Func ("OracleXML","_case_34") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","_case_33") [Var 4,Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","take") [Lit (Intc 2),Var 4,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude",":") [Lit (Charc '-'),Comb ConsCall ("Prelude","[]") []]],Var 6],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_32") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '?'),Var 1],Var 8]]))]])),Func ("OracleXML","_case_32") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","scanXmlProcInstr") [Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_31") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 6]]))]])),Func ("OracleXML","_case_31") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","scanXmlElemName") [Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleXML","_case_33") 3 Private (TVar (-42)) (Rule [4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","scanXmlComment") [Comb FuncCall ("OraclePrelude","drop") [Lit (Intc 2),Var 4,Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","scanXmlCData") [Var 4,Var 1]])]])),Func ("OracleXML","_case_36") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_37") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_38") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_39") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_44") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_43") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '<'),Var 1],Var 5]]))]])),Func ("OracleXML","_case_43") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude",":") [Var 3,Var 4]]]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_42") [Var 3,Var 4,Comb FuncCall ("OracleChar","isSpace") [Var 3,Var 1],Var 6]]))]])),Func ("OracleXML","_case_42") 4 Private (TVar (-42)) (Rule [3,4,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]],Let [(5,Comb FuncCall ("OracleXML","scanXmlText") [Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OracleXML","dropBlanks") [Var 1],Var 4,Var 9],Var 10])] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleXML","scanXmlText._#selFP26#txt") [Var 5,Var 11])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleXML","scanXmlText._#selFP27#rem") [Var 5,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("OracleXML","_case_41") [Var 6,Comb FuncCall ("OraclePrelude","null") [Var 6,Var 13],Var 14],Var 7]]))]))]))])),Branch (Pattern ("Prelude","False") []) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_40") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 15]]))]])),Func ("OracleXML","_case_40") 4 Private (TVar (-42)) (Rule [3,4,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude","True") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleXML","scanXmlText") [Var 4,Var 1])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleXML","scanXmlText._#selFP29#txt") [Var 8,Var 12])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleXML","scanXmlText._#selFP30#rem") [Var 8,Var 13])] (Comb FuncCall ("CEventOracle","collapse") [Var 14,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 3,Var 9],Var 10]])]))]))])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleXML","_case_41") 3 Private (TVar (-42)) (Rule [6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc ' '),Var 6]])]])),Func ("OracleXML","_case_45") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_46") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_48") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_47") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '<'),Var 1],Var 5]]))]])),Func ("OracleXML","_case_47") 4 Private (TVar (-42)) (Rule [3,4,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","scanXmlElem") [Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleXML","scanXmlText") [Comb ConsCall ("Prelude",":") [Var 3,Var 4],Var 1])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleXML","scanXmlString.scanXml.191._#selFP23#initxt") [Var 5,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleXML","scanXmlString.scanXml.191._#selFP24#remtag") [Var 5,Var 10])] (Comb FuncCall ("CEventOracle","replace") [Var 11,Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XText") [Var 6],Comb FuncCall ("OracleXML","scanXmlString.scanXml.191") [Var 7,Var 11]]])]))]))]))]])),Func ("OracleXML","_case_49") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_50") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_51") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_52") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_53") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_54") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_55") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_56") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_57") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_58") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_66") 3 Private (TVar (-42)) (Rule [3,2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_65") [Var 3,Var 1]]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_64") [Var 3,Var 5,Var 4,Var 1]])]])),Func ("OracleXML","_case_64") 4 Private (TVar (-42)) (Rule [3,5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("XML","XText") [6]) (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleXML","parseXmlTokens") [Var 5,Var 3,Var 1])] (Let [(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []],Let [(8,Comb FuncCall ("OracleXML","parseXmlTokens._#selFP8#xexps") [Var 7,Var 13])] (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude","[]") []],Let [(9,Comb FuncCall ("OracleXML","parseXmlTokens._#selFP9#rem_xtokens") [Var 7,Var 14])] (Comb FuncCall ("CEventOracle","replace") [Var 15,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XText") [Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 6,Var 15]],Var 8],Var 9]])]))]))])),Branch (Pattern ("XML","XElem") [10,11,12]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_63") [Var 3,Var 5,Var 11,Var 12,Var 10,Var 1]])]])),Func ("OracleXML","_case_63") 6 Private (TVar (-42)) (Rule [3,5,11,12,10,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 10) [Branch (Pattern ("Prelude",":") [13,14]) (Let [(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleXML","_case_62") [Var 3,Var 5,Var 11,Var 12,Var 13,Var 14,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 13,Lit (Charc '<'),Var 1],Comb FuncCall ("OraclePrelude","/=") [Comb FuncCall ("OraclePrelude","head") [Var 14,Var 15],Lit (Charc '/'),Var 16],Var 17],Var 18]]))]])),Func ("OracleXML","_case_62") 8 Private (TVar (-42)) (Rule [3,5,11,12,13,14,21,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 21) [Branch (Pattern ("Prelude","True") []) (Let [(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude","[]") []],Let [(15,Comb FuncCall ("OracleXML","parseXmlTokens") [Var 5,Comb ConsCall ("Prelude","Just") [Var 14],Var 1])] (Let [(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []],Let [(16,Comb FuncCall ("OracleXML","parseXmlTokens._#selFP14#xexps1") [Var 15,Var 22])] (Let [(24,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 23,Comb ConsCall ("Prelude",":") [Var 24,Comb ConsCall ("Prelude","[]") []],Let [(17,Comb FuncCall ("OracleXML","parseXmlTokens._#selFP15#xtokens1") [Var 15,Var 23])] (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 24,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(18,Comb FuncCall ("OracleXML","parseXmlTokens") [Var 17,Var 3,Var 24])] (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Let [(19,Comb FuncCall ("OracleXML","parseXmlTokens._#selFP12#xexps") [Var 18,Var 25])] (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Let [(20,Comb FuncCall ("OracleXML","parseXmlTokens._#selFP13#rem_xtokens") [Var 18,Var 26])] (Comb FuncCall ("CEventOracle","collapse") [Var 27,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Var 14,Var 11,Var 16],Var 19],Var 20]])]))]))]))]))]))])),Branch (Pattern ("Prelude","False") []) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(31,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude",":") [Var 31,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleXML","_case_61") [Var 3,Var 5,Var 11,Var 12,Var 13,Var 14,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Var 13,Lit (Charc '<'),Var 1],Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","head") [Var 14,Var 28],Lit (Charc '/'),Var 29],Var 30],Var 31]]))]])),Func ("OracleXML","_case_61") 8 Private (TVar (-42)) (Rule [3,5,11,12,13,14,15,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 15) [Branch (Pattern ("Prelude","True") []) (Let [(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","_case_60") [Var 3,Var 5,Var 11,Var 12,Var 14,Comb FuncCall ("OraclePrelude","maybe") [Comb ConsCall ("Prelude","False") [],Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OraclePrelude","flip") [Comb FuncCall ("Oracle","compose") [Comb (FuncPartCall 2) ("Oracle","partCall") [],Comb (FuncPartCall 2) ("Oracle","compose") [Comb (FuncPartCall 3) ("Oracle","partFunc") []],Comb (FuncPartCall 3) ("OraclePrelude","==") []],Comb FuncCall ("OraclePrelude","tail") [Var 14,Var 1]]],Var 3,Var 16],Var 17]])),Branch (Pattern ("Prelude","False") []) (Let [(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_59") [Var 3,Var 5,Var 11,Var 12,Var 13,Var 14,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 18]]))]])),Func ("OracleXML","_case_59") 8 Private (TVar (-42)) (Rule [3,5,11,12,13,14,27,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 27) [Branch (Pattern ("Prelude","True") []) (Let [(28,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 28,Comb ConsCall ("Prelude","[]") []],Let [(24,Comb FuncCall ("OracleXML","parseXmlTokens") [Var 5,Var 3,Var 1])] (Let [(29,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 28,Comb ConsCall ("Prelude",":") [Var 29,Comb ConsCall ("Prelude","[]") []],Let [(25,Comb FuncCall ("OracleXML","parseXmlTokens._#selFP20#xexps") [Var 24,Var 28])] (Let [(30,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 29,Comb ConsCall ("Prelude",":") [Var 30,Comb ConsCall ("Prelude","[]") []],Let [(26,Comb FuncCall ("OracleXML","parseXmlTokens._#selFP21#rem_xtokens") [Var 24,Var 29])] (Comb FuncCall ("CEventOracle","collapse") [Var 30,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Var 13,Var 14],Var 11,Var 12],Var 25],Var 26]])]))]))])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleXML","_case_60") 7 Private (TVar (-42)) (Rule [3,5,11,12,14,24,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 24) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Var 5]]),Branch (Pattern ("Prelude","False") []) (Let [(25,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 25,Comb ConsCall ("Prelude","[]") []],Let [(21,Comb FuncCall ("OracleXML","parseXmlTokens") [Var 5,Var 3,Var 1])] (Let [(26,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 25,Comb ConsCall ("Prelude",":") [Var 26,Comb ConsCall ("Prelude","[]") []],Let [(22,Comb FuncCall ("OracleXML","parseXmlTokens._#selFP17#xexps") [Var 21,Var 25])] (Let [(27,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 26,Comb ConsCall ("Prelude",":") [Var 27,Comb ConsCall ("Prelude","[]") []],Let [(23,Comb FuncCall ("OracleXML","parseXmlTokens._#selFP18#rem_xtokens") [Var 21,Var 26])] (Comb FuncCall ("CEventOracle","collapse") [Var 27,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Var 14,Var 11,Var 12],Var 22],Var 23]])]))]))]))]])),Func ("OracleXML","_case_65") 2 Private (TVar (-42)) (Rule [3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]])]])),Func ("OracleXML","_case_68") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 2,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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1],Var 6],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","_case_67") [Var 2,Var 4,Comb FuncCall ("OraclePrelude","/=") [Comb FuncCall ("OraclePrelude","tail") [Var 4,Var 1],Comb ConsCall ("Prelude","[]") [],Var 8],Var 9]]))]])),Func ("OracleXML","_case_67") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","error") [Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 2,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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],Var 1],Var 6],Var 7]])),Branch (Pattern ("Prelude","False") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","return") [Comb FuncCall ("OraclePrelude","head") [Var 4,Var 1],Var 8]]))]])),Func ("OracleXML","_case_73") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_72") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '#'),Var 1],Var 5]]))]])),Func ("OracleXML","_case_72") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_71") [Var 4,Var 1]]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_69") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 6]]))]])),Func ("OracleXML","_case_69") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '&'),Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Var 3,Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc ';'),Comb ConsCall ("Prelude","[]") []],Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleXML","_case_71") 2 Private (TVar (-42)) (Rule [4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_70") [Var 4,Var 5,Var 6,Comb FuncCall ("OraclePrelude","==") [Var 5,Lit (Charc 'x'),Var 1],Var 7]])),Branch (Pattern ("Prelude","[]") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OracleRead","readInt") [Var 4,Var 1],Var 8],Comb ConsCall ("Prelude","[]") []]]))]])),Func ("OracleXML","_case_70") 5 Private (TVar (-42)) (Rule [4,5,6,7,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 7) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OracleRead","readHex") [Var 6,Var 1],Var 8],Comb ConsCall ("Prelude","[]") []]])),Branch (Pattern ("Prelude","False") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Comb FuncCall ("OracleRead","readInt") [Var 4,Var 1],Var 9],Comb ConsCall ("Prelude","[]") []]]))]])),Func ("OracleXML","_case_86") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '<'),Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_85") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc 'g'),Comb ConsCall ("Prelude",":") [Lit (Charc 't'),Comb ConsCall ("Prelude","[]") []]],Var 1],Var 5]]))]])),Func ("OracleXML","_case_85") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '>'),Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_84") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,Comb ConsCall ("Prelude",":") [Lit (Charc 'a'),Comb ConsCall ("Prelude",":") [Lit (Charc 'm'),Comb ConsCall ("Prelude",":") [Lit (Charc 'p'),Comb ConsCall ("Prelude","[]") []]]],Var 1],Var 5]]))]])),Func ("OracleXML","_case_84") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '&'),Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_83") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,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","[]") []]]]],Var 1],Var 5]]))]])),Func ("OracleXML","_case_83") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_82") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,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","[]") []]]]],Var 1],Var 5]]))]])),Func ("OracleXML","_case_82") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc '\''),Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_81") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,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","[]") []]]]],Var 1],Var 5]]))]])),Func ("OracleXML","_case_81") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 228),Var 1],Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 5]]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_80") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,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","[]") []]]]],Var 1],Var 6]]))]])),Func ("OracleXML","_case_80") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 246),Var 1],Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 5]]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_79") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,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","[]") []]]]],Var 1],Var 6]]))]])),Func ("OracleXML","_case_79") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 252),Var 1],Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 5]]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_78") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,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","[]") []]]]],Var 1],Var 6]]))]])),Func ("OracleXML","_case_78") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 196),Var 1],Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 5]]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_77") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,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","[]") []]]]],Var 1],Var 6]]))]])),Func ("OracleXML","_case_77") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 214),Var 1],Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 5]]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_76") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,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","[]") []]]]],Var 1],Var 6]]))]])),Func ("OracleXML","_case_76") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 220),Var 1],Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 5]]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_75") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","==") [Var 2,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","[]") []]]]]],Var 1],Var 6]]))]])),Func ("OracleXML","_case_75") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Comb FuncCall ("OraclePrelude","chr") [Lit (Intc 223),Var 1],Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 5]]])),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_74") [Var 2,Var 3,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 6]]))]])),Func ("OracleXML","_case_74") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleXML","unquoteUnicode") [Var 2,Var 1],Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 3,Var 5],Var 6]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleXML","_case_87") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 4])]])),Func ("OracleXML","_case_88") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 3])]])),Func ("OracleXML","_case_91") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_90") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '&'),Var 1],Var 5]]))]])),Func ("OracleXML","_case_90") 4 Private (TVar (-42)) (Rule [3,4,8,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 8) [Branch (Pattern ("Prelude","True") []) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []],Let [(5,Comb FuncCall ("OracleXML","splitAtChar") [Lit (Charc ';'),Var 4,Var 1])] (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []],Let [(6,Comb FuncCall ("OracleXML","xmlUnquoteSpecials._#selFP5#special") [Var 5,Var 9])] (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Let [(7,Comb FuncCall ("OracleXML","xmlUnquoteSpecials._#selFP6#rest") [Var 5,Var 10])] (Comb FuncCall ("CEventOracle","replace") [Var 11,Comb FuncCall ("OracleXML","xmlUnquoteSpecial") [Var 6,Var 7,Var 11]])]))]))])),Branch (Pattern ("Prelude","False") []) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_89") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 12]]))]])),Func ("OracleXML","_case_89") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("OracleXML","xmlUnquoteSpecials") [Var 4,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleXML","_case_92") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","XText") [3]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("XML","XElem") [4,5,6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []])]])),Func ("OracleXML","_case_93") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Var 4,Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '='),Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Var 2,Var 5,Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc '"'),Comb ConsCall ("Prelude","[]") []],Var 6],Var 7],Var 8]]))]])),Func ("OracleXML","_case_96") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_95") [Var 4,Var 3,Var 1]])]])),Func ("OracleXML","_case_95") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("XML","XText") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_94") [Var 5,Var 4,Var 1]])]])),Func ("OracleXML","_case_94") 3 Private (TVar (-42)) (Rule [5,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5])]])),Func ("OracleXML","_case_99") 4 Private (TVar (-42)) (Rule [2,3,4,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 4) [Branch (Pattern ("XML","XText") [5]) (Let [(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleXML","xtab") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Var 3,Var 5,Var 9],Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []],Var 10],Var 11]])),Branch (Pattern ("XML","XElem") [6,7,8]) (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleXML","xtab") [Var 2,Var 1],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleXML","showXmlOpenTag") [Var 6,Var 7,Var 3,Var 12],Comb FuncCall ("OracleXML","_case_98") [Var 2,Var 3,Var 6,Var 8,Comb FuncCall ("OraclePrelude","==") [Var 8,Comb ConsCall ("Prelude","[]") [],Var 13],Var 14],Var 15],Var 16]]))]])),Func ("OracleXML","_case_98") 6 Private (TVar (-42)) (Rule [2,3,6,8,9,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 9) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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") []) (Let [(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OracleXML","_case_97") [Var 2,Var 3,Var 6,Var 8,Comb FuncCall ("OraclePrelude","&&") [Comb FuncCall ("OraclePrelude","==") [Comb FuncCall ("OraclePrelude","length") [Var 8,Var 1],Lit (Intc 1),Var 10],Comb FuncCall ("OracleXML","isXText") [Comb FuncCall ("OraclePrelude","head") [Var 8,Var 11],Var 12],Var 13],Var 14]]))]])),Func ("OracleXML","_case_97") 6 Private (TVar (-42)) (Rule [2,3,6,8,11,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 11) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Let [(9,Var 8)] (Let [(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []],Let [(10,Comb FuncCall ("OracleXML","showXmlExp._#selFP3#s") [Var 9,Var 1])] (Let [(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '>'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("Oracle","apply") [Var 3,Var 10,Var 12],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '<'),Comb ConsCall ("Prelude",":") [Lit (Charc '/'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 6,Comb ConsCall ("Prelude",":") [Lit (Charc '>'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]],Var 13],Var 14],Var 15],Var 16]]))]))]),Branch (Pattern ("Prelude","False") []) (Let [(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(21,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(22,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(23,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude",":") [Var 21,Comb ConsCall ("Prelude",":") [Var 22,Comb ConsCall ("Prelude",":") [Var 23,Comb ConsCall ("Prelude","[]") []]]]]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '>'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleXML","showXmlExps") [Comb FuncCall ("OraclePrelude","+") [Var 2,Lit (Intc 2),Var 1],Var 8,Var 3,Var 17],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleXML","xtab") [Var 2,Var 18],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '<'),Comb ConsCall ("Prelude",":") [Lit (Charc '/'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Var 6,Comb ConsCall ("Prelude",":") [Lit (Charc '>'),Comb ConsCall ("Prelude",":") [Lit (Charc '\n'),Comb ConsCall ("Prelude","[]") []]],Var 19],Var 20],Var 21],Var 22],Var 23]]))]])),Func ("OracleXML","_case_102") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("XML","XElem") [4,5,6]) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(13,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(14,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(15,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(16,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(17,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(18,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(19,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(20,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude",":") [Var 13,Comb ConsCall ("Prelude",":") [Var 14,Comb ConsCall ("Prelude",":") [Var 15,Comb ConsCall ("Prelude",":") [Var 16,Comb ConsCall ("Prelude",":") [Var 17,Comb ConsCall ("Prelude",":") [Var 18,Comb ConsCall ("Prelude",":") [Var 19,Comb ConsCall ("Prelude",":") [Var 20,Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleXML","encoding2Attribute") [Comb FuncCall ("OracleXML","lookupEncoding") [Var 2,Var 1],Var 7],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleXML","_case_101") [Var 2,Comb FuncCall ("OracleXML","hasDtdUrl") [Var 2,Var 8],Var 9],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleXML","_case_100") [Var 2,Var 4,Comb FuncCall ("OracleXML","hasDtdUrl") [Var 2,Var 10],Var 11],Comb FuncCall ("OracleXML","showXmlExp") [Lit (Intc 0),Comb FuncCall ("OracleXML","encoding2EncFunc") [Comb FuncCall ("OracleXML","lookupEncoding") [Var 2,Var 12],Var 13],Comb ConsCall ("XML","XElem") [Var 4,Var 5,Var 6],Var 14],Var 15],Var 16],Var 17],Var 18],Var 19],Var 20]]))]])),Func ("OracleXML","_case_100") 4 Private (TVar (-42)) (Rule [2,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Var 4,Comb FuncCall ("OraclePrelude","++") [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 ("OraclePrelude","++") [Comb FuncCall ("OracleXML","lookupDtdUrl") [Var 2,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","[]") []]]]],Var 6],Var 7],Var 8],Var 9]])),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []])]])),Func ("OracleXML","_case_101") 3 Private (TVar (-42)) (Rule [2,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 3) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc 'n'),Comb ConsCall ("Prelude",":") [Lit (Charc 'o'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc 'y'),Comb ConsCall ("Prelude",":") [Lit (Charc 'e'),Comb ConsCall ("Prelude",":") [Lit (Charc 's'),Comb ConsCall ("Prelude","[]") []]]]])]])),Func ("OracleXML","_case_104") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","False") []]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_103") [Var 4,Var 3,Var 1]])]])),Func ("OracleXML","_case_103") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("XML","DtdUrl") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","True") []]),Branch (Pattern ("XML","Enc") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","hasDtdUrl") [Var 4,Var 1]])]])),Func ("OracleXML","_case_106") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_105") [Var 4,Var 3,Var 1]])]])),Func ("OracleXML","_case_105") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("XML","Enc") [5]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","lookupDtdUrl") [Var 4,Var 1]]),Branch (Pattern ("XML","DtdUrl") [6]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 6])]])),Func ("OracleXML","_case_108") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","_case_107") [Var 4,Var 3,Var 1]]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("XML","StandardEnc") []])]])),Func ("OracleXML","_case_107") 3 Private (TVar (-42)) (Rule [4,3,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 3) [Branch (Pattern ("XML","Enc") [5]) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Var 5]),Branch (Pattern ("XML","DtdUrl") [6]) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OracleXML","lookupEncoding") [Var 4,Var 1]])]])),Func ("OracleXML","_case_110") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("OracleXML","_case_109") [Var 3,Var 4,Comb FuncCall ("Oracle","apply") [Comb FuncCall ("OraclePrelude","elem") [Comb FuncCall ("OraclePrelude","ord") [Var 3,Var 1],Var 5],Comb FuncCall ("OracleXML","iso88591list") [Var 6],Var 7],Var 8]]))]])),Func ("OracleXML","_case_109") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("OracleXML","iso88591Encoding") [Var 4,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OracleXML","standardEncoding") [Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Var 1],Comb FuncCall ("OracleXML","iso88591Encoding") [Var 4,Var 6],Var 7]]))]])),Func ("OracleXML","_case_119") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_118") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '<'),Var 1],Var 5]]))]])),Func ("OracleXML","_case_118") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 ("OracleXML","standardEncoding") [Var 4,Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_117") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '>'),Var 1],Var 7]]))]])),Func ("OracleXML","_case_117") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 ("OracleXML","standardEncoding") [Var 4,Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_116") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '&'),Var 1],Var 7]]))]])),Func ("OracleXML","_case_116") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 ("OracleXML","standardEncoding") [Var 4,Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_115") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '"'),Var 1],Var 7]]))]])),Func ("OracleXML","_case_115") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 ("OracleXML","standardEncoding") [Var 4,Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_114") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","==") [Var 3,Lit (Charc '\''),Var 1],Var 7]]))]])),Func ("OracleXML","_case_114") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OraclePrelude","++") [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 ("OracleXML","standardEncoding") [Var 4,Var 1],Var 6]])),Branch (Pattern ("Prelude","False") []) (Let [(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","_case_113") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","<") [Comb FuncCall ("OraclePrelude","ord") [Var 3,Var 1],Lit (Intc 32),Var 7],Var 8]]))]])),Func ("OracleXML","_case_113") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '&'),Comb ConsCall ("Prelude",":") [Lit (Charc '#'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Comb FuncCall ("OraclePrelude","ord") [Var 3,Var 1],Var 6],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ';'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","standardEncoding") [Var 4,Var 7],Var 8],Var 9],Var 10]])),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(12,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude",":") [Var 12,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OracleXML","_case_112") [Var 3,Var 4,Comb FuncCall ("OraclePrelude",">") [Comb FuncCall ("OraclePrelude","ord") [Var 3,Var 1],Lit (Intc 127),Var 11],Var 12]]))]])),Func ("OracleXML","_case_112") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Let [(6,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(7,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(8,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(9,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []]),(10,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 6,Comb ConsCall ("Prelude",":") [Var 7,Comb ConsCall ("Prelude",":") [Var 8,Comb ConsCall ("Prelude",":") [Var 9,Comb ConsCall ("Prelude",":") [Var 10,Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc '&'),Comb ConsCall ("Prelude",":") [Lit (Charc '#'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("OraclePrelude","++") [Comb FuncCall ("OraclePrelude","show") [Comb FuncCall ("OraclePrelude","ord") [Var 3,Var 1],Var 6],Comb FuncCall ("OraclePrelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc ';'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","standardEncoding") [Var 4,Var 7],Var 8],Var 9],Var 10]])),Branch (Pattern ("Prelude","False") []) (Let [(11,Comb FuncCall ("CEventOracle","fresh") [Comb ConsCall ("Prelude","()") []])] (Comb FuncCall ("CEventOracle","expand") [Var 1,Comb ConsCall ("Prelude",":") [Var 11,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("OracleXML","_case_111") [Var 3,Var 4,Comb FuncCall ("OraclePrelude","otherwise") [Var 1],Var 11]]))]])),Func ("OracleXML","_case_111") 4 Private (TVar (-42)) (Rule [3,4,5,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Rigid (Var 5) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("OracleXML","standardEncoding") [Var 4,Var 1]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CEventOracle","replace") [Var 1,Comb FuncCall ("OraclePrelude","failed") [Var 1]])]])),Func ("OracleXML","_case_120") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","StandardEnc") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleXML","standardEncoding") []]]),Branch (Pattern ("XML","Iso88591Enc") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb (FuncPartCall 2) ("Oracle","partFunc") [Comb (FuncPartCall 2) ("OracleXML","iso88591Encoding") []]])]])),Func ("OracleXML","_case_121") 2 Private (TVar (-42)) (Rule [2,1] (Comb FuncCall ("CEventOracle","replace") [Var 1,Case Flex (Var 2) [Branch (Pattern ("XML","StandardEnc") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("XML","Iso88591Enc") []) (Comb FuncCall ("CEventOracle","collapse") [Var 1,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","[]") []]]]]]]]]]]]]]]]]]]]]]]])]]))] []
+ KiCS-debugger.cabal view
@@ -0,0 +1,93 @@+Name:          KiCS-debugger+Version:       0.1.0+Cabal-Version: >= 1.6+Author:        Bernd Braßel+Maintainer:    Bernd Braßel+Homepage:      http://curry-language.org+License:       OtherLicense+License-File:  LICENSE+Category:      Debug+build-type:    Custom+Synopsis:      debug features for kics +Description:   This package contains the debugger for the Curry to Haskell compiler "kics".+Stability:     experimental+extra-tmp-files: Curry/Module/*.fcy, +                 Curry/Module/*.fint, +                 Curry/DebugModule/*.fcy+                 Curry/DebugModule/*.hs+extra-source-files:+   Curry/DebugModule/*.hs.include+   biosphere/src/Curry/Module/*.hs.include+Data-Dir: .+Data-Files:    +   Curry/Module/*.fcy+   Curry/Module/*.fint++Library+  hs-source-dirs: .,biosphere/src+  Build-Depends:  +    base == 4.1.*,+    haskell98,+    filepath,+    syb,+    containers,+    mtl,+    readline,+    KiCS >= 0.9.1++  Exposed-Modules:+    Curry.Files.KiCSDebugPath++    Curry.Debugger.DebugMonad+    Curry.Debugger.DebugInfo +    Curry.Debugger.PartCalls +    Curry.Debugger.ShowTerm+    Curry.Debugger.DebugInfoGoodies++    Curry.Debugger.Tools.Debug.Monad+    Curry.Debugger.Tools.Cycle.Monad+    Curry.Debugger.Tools.Observations.Monad+    Curry.Debugger.Tools.Tracer.Monad+    Curry.Debugger.Tools.DeclarativeDebugger.CallStack+    Curry.Debugger.Tools.DeclarativeDebugger.Monad+    Curry.Debugger.Tools.StrictEvaluation.Monad+    Curry.Debugger.Tools.Observe.Monad++  Other-Modules:+    Curry.Debugger.Logic+    Curry.Debugger.BoolStack+    Curry.Debugger.Oracle+    Curry.Debugger.Parser+    Curry.Debugger.Bubble ++    Curry.Debugger.Tools.DeclarativeDebugger.UI+    Curry.Debugger.Tools.DeclarativeDebugger.Ratings++    Paths_KiCS_debugger++Executable mkstrict+  main-is: mkstrict.hs+  hs-source-dirs: prophecy, biosphere/src, .curry/kics+  Build-Depends:  +    base == 4.1.*,+    haskell-src,+    directory,+    curry-base >= 0.2.6,+    KiCS >= 0.9.0,+    KiCS-prophecy >= 0.1.0+  Other-Modules:+    Curry.Module.SrcRef+    Curry.Module.AbstractHaskell             +    Curry.Module.FlatToAbstractCurry         +    Curry.Module.TransformationDebugInfo     +    Curry.Module.TransformationMonad+    Curry.Module.TransformationPrint+    Curry.Module.TransformationPartCalls+    Curry.Module.TransformationComb          +    Curry.Module.TransformationExpr+    Curry.Module.TransformationInstances+    Curry.Module.TransformationSignatures+    Curry.Module.ExternalStubs+    Curry.Module.Transformation+    Curry.Module.TransformationDependencies  +    Curry.Module.DebuggerPath
+ LICENSE view
@@ -0,0 +1,34 @@+KiCS (Kiel Curry System) License++Copyright (c) 2009, University of Kiel+All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are+met:++- Redistributions of source code must retain the above copyright+  notice, this list of conditions and the following disclaimer.++- Redistributions in binary form must reproduce the above copyright+  notice, this list of conditions and the following disclaimer in the+  documentation and/or other materials provided with the distribution.++- None of the names of the copyright holders and contributors may be+  used to endorse or promote products derived from this software without+  specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.+++
+ Setup.hs view
@@ -0,0 +1,234 @@+module Main where++import System.FilePath+import System.Directory+import Monad+import Data.List++import Distribution.Simple+import Distribution.Simple.Setup +import Distribution.Simple.Program+import Distribution.Simple.LocalBuildInfo+import Distribution.Simple.PreProcess+import Distribution.PackageDescription +import Distribution.Verbosity+import Distribution.ModuleName (ModuleName(..))++import Curry.Files.CymakePath+import Curry.Files.KiCSPath+import Curry.Files.ProphecyPath++withLibs :: Bool+withLibs = True++kics, cymake, prophecy :: IO Program+kics     = mkProg getKiCS+cymake   = mkProg getCymake+prophecy = mkProg getProphecy++mkProg getProg = do+  call <- getProg+  return (simpleProgram (takeBaseName call))+            {programFindLocation = \_-> return (Just call)}++mkstrict :: Program+mkstrict = simpleProgram "mkstrict"++main :: IO ()+main = do+  cymakeProg   <- cymake+  kicsProg     <- kics+  prophecyProg <- prophecy++  defaultMainWithHooks simpleUserHooks+    {hookedPrograms=mkstrict:kicsProg:cymakeProg:prophecyProg:+                     hookedPrograms simpleUserHooks+    ,confHook=myConfHook+    ,postConf=myPostConf+    ,hookedPreProcessors=[("curry",mkModule),+                          ("lcurry",mkModule),+                          ("fcy",mkOracleModule)]+    }++-- what a hack! something was forgotten in Distribution.ModuleName+modName :: [String] -> ModuleName+modName xs = read $ "ModuleName " ++ show xs++myConfHook :: +  (Either GenericPackageDescription PackageDescription, HookedBuildInfo) +    -> ConfigFlags -> IO LocalBuildInfo+myConfHook info flags = do+  lbi <- confHook simpleUserHooks info flags+  if not withLibs +   then return lbi +   else do+    libPath  <- getKiCSLibDir +    dataPath <- getKiCSDataDir+    allFiles <- getDirectoryContents libPath++    let stdfiles  = filter (isSuffixOf ".fcy") allFiles+        goodfiles = filter (not . (`elem` badlibs) . takeBaseName) stdfiles+        stdlibs   = map takeBaseName stdfiles+        goodlibs  = map takeBaseName goodfiles+        libs = map (\ l -> modName ("Curry":"Module":["Oracle" ++ l])) stdlibs+             ++map (\ l -> modName ("Curry":"DebugModule":[l])) goodlibs +        dbgPath = "Curry" </> "DebugModule"++    mapM_ (\ lib -> copyFile (libPath </> lib) (dbgPath </> lib)) goodfiles+    +    let require = requireProg flags lbi +    prop <- require prophecy+    mapM_ (mkOracleLib (unflag $ configVerbosity flags) prop) stdlibs+  +    let package  = localPkgDescr lbi+        Just lib = library package+        ex       = exposedModules lib+        llbi     = libBuildInfo lib+        hsdirs   = hsSourceDirs llbi+        llbi'    = llbi{hsSourceDirs=dataPath:hsdirs}+        lib'     = Just lib{exposedModules=ex ++ libs,+                            libBuildInfo=llbi'}+    return lbi{localPkgDescr=package{library=lib'}}++unflag = fromFlagOrDefault silent++requireProg :: ConfigFlags -> LocalBuildInfo -> IO Program +            -> IO ConfiguredProgram+requireProg verb lbi prog = do+  p <- prog+  (cp,_) <- requireProgram (unflag $ configVerbosity verb) p AnyVersion +                           (withPrograms lbi)+  return cp+ +callProg :: Verbosity -> LocalBuildInfo -> IO Program -> Args -> IO ()+callProg verb lbi prog args = do+  p <- prog+  rawSystemProgramConf verb p (withPrograms lbi) args++mkOracleLib :: Verbosity -> ConfiguredProgram -> FilePath -> IO ()+mkOracleLib verb prop stdlib = do+  rawSystemProgram verb prop ["-o","Curry/Module/",stdlib]+  return ()++myPostConf :: +  Args -> ConfigFlags -> PackageDescription -> LocalBuildInfo -> IO ()+myPostConf args confFlags descrs lbi = do+  let require = requireProg confFlags lbi+  require cymake+  require kics+  require prophecy+  postConf simpleUserHooks args confFlags descrs lbi++badlibs =+  [+   -- mkstrict fails+   "Traversal"+  ,"FlatCurry"+  ,"AbstractCurry"+  ,"SetRBT"+  ,"TableRBT"+  ,"Pretty"+  ,"CurryStringClassifier"+  ,"FiniteMap"+  ,"Parser"+  ,"EventOracle"+  ,"CurrySyntax"+  ,"EasyCheck"++  -- consequence of FlatCurry failing+  ,"FlexRigid","FlatCurryTools","FlatCurryShow","FlatCurryRead"+  ,"FlatCurryXML","PrettyFlat","CompactFlatCurry","FlatCurryGoodies"++  -- consequence of FiniteMap failing+  ,"GraphInductive"++  -- consequence of AbstractCurry failing+  ,"AbstractCurryPrinter"++  -- consequence of Pretty failing+  ,"StyledText"++  -- resulting haskell incorrect+  ,"RedBlackTree"+  ,"IO"+  ,"Global"+  ,"Array"+  ,"Meta"++  -- consequence of incorrect IO+  , "Assertion"+  , "Oracle"+  , "Distribution"+  , "CEventOracle"+  , "IOExts"+  , "PropertyFile"+  , "Socket"++  -- consequence of incorrect Meta+  , "Unsafe"  ++  -- consequence of incorrect Global+  , "System" +  , "Random" +  ]++mkModule :: BuildInfo -> LocalBuildInfo -> PreProcessor+mkModule _ lbi = PreProcessor+  {platformIndependent = True+  ,runPreProcessor     = mkSimplePreProcessor $ \ inf outf verb -> do+                          datadir <- getKiCSLibDir +                          runKics datadir lbi inf outf verb}++runKics :: FilePath -> LocalBuildInfo +        -> FilePath -> FilePath -> Verbosity -> IO ()+runKics datadir lbi infile outfile verb +  | isPrefixOf "Curry/Module" infile+  = do callCymake ["-iCurry/Module","--no-hidden-subdir"]+       callKics   ["-userlibpath","Curry/Module"]+  | isPrefixOf "prophecy" infile+  = do callCymake ["-iprophecy/Curry/Module"]+       callKics   $ ["-userlibpath","prophecy/Curry/Module"] +++         if isSuffixOf "Transform.curry" infile +         then ["-executable","prophecy"]+         else []+  | isPrefixOf "biosphere" infile+  = do callCymake ["-iprophecy/Curry/Module","-ibiosphere/src/Curry/Module"]+       callKics $ ["-userlibpath",+                   "prophecy/Curry/Module:biosphere/src/Curry/Module"] +++         if isSuffixOf "TransformationDependencies.lcurry" infile +         then ["-executable","mkstrict"]+         else []+  | otherwise = error $ "runKics, unexpected infile: " ++ infile+ where+    call = callProg verb lbi+    callCymake args = +      call cymake $ args ++ ["-i"++datadir,"-e","--flat",infile]+    callKics args = +      call kics $ args ++ ["-nomake","-o",outfile,infile]++mkOracleModule :: BuildInfo -> LocalBuildInfo -> PreProcessor+mkOracleModule buildInfo lbi = PreProcessor+  {platformIndependent = True+  ,runPreProcessor     = mkSimplePreProcessor (runKicsFcy lbi)}++runKicsFcy :: LocalBuildInfo -> FilePath -> FilePath -> Verbosity -> IO ()+runKicsFcy lbi infile outfile verb +  | isPrefixOf "Curry/Module" infile+  = do +    libPath <- getOracleLibDir+    callKics ["-userlibpath",libPath ++ pathSeparator:"Curry/Module"]+  | isPrefixOf "Curry/DebugModule" infile+  = do+    let dir = addTrailingPathSeparator $ +              joinPath $+              reverse $ drop 2 $ reverse $+              splitDirectories (takeDirectory outfile)+    call (return mkstrict) ["-o",dir,dropExtension infile]+  +  where+    call = callProg verb lbi+    callKics args = +      call kics $ args ++ ["-nomake","--no-interfaces","-o",outfile,infile]+  ++
+ biosphere/src/Curry/Debugger/BoolStack.lhs view
@@ -0,0 +1,51 @@+% BoolStack.lhs+% Andreas Baldeau+% April 13, 2009++Overview+========++This module provides an optimized implementation for stacks of `Bool` values.++> module Curry.Debugger.BoolStack (+>     BoolStack,+>     emptyBoolStack,+>     allTrue,+>     pop,+>     push+> ) where++Implementation+==============++Representation+--------------++The stack is repesented by a list of integers. An entry _n_ means there are _n_+`True` values on the stack followed by one `False` value. A list containing only+one `0` represents the empty stack, an empty one is an infinite stack consisting+of only `True` values.++> type BoolStack = [Integer]++> emptyBoolStack :: BoolStack+> emptyBoolStack = [0]++> allTrue :: BoolStack+> allTrue = []++Functions+---------++> pop :: BoolStack -> (BoolStack, Bool)+> pop []       = ([], True)+> pop [0]      = error "pop: Stack underflow"+> pop (0 : os) = (os, False)+> pop (n : os) = (n - 1 : os, True)++> push :: BoolStack -> Bool -> BoolStack+> push []       True  = []+> push []       False = error "push: Cannot push False onto an infinte stack."+> push (b : bs) True  = b + 1 : bs+> push bs       False = 0 : bs+
+ biosphere/src/Curry/Debugger/Bubble.hs view
@@ -0,0 +1,203 @@+module Curry.Debugger.Bubble +  (bubble,bubbleWithStore,+   cleanTerm,cleanTermWithStore,+   value) where++import Prelude  as P+import Data.Map as M+import Data.Maybe ++import Curry.Debugger.DebugInfo+import Curry.Debugger.Logic++--------------------------------------------------------+-- remove all unreachable sub branches,+-- e.g., eliminate ?1 below ?1+--------------------------------------------------------++cleanTerm :: Term -> Term+cleanTerm = cleanTermWithStore emptyConstraintStore++-- perhapse cleanTerm should also report on ors included+cleanTermWithStore :: ConstraintStore -> Term -> Term+cleanTermWithStore refMap (Term n si ts) = +  Term n si (P.map (cleanTermWithStore refMap) ts)+cleanTermWithStore refMap (TermOr si r ts) =   +  case lookupRef refMap r of+   Just i  -> cleanTermWithStore refMap (ts !! i)+   Nothing -> TermOr si r (cleanSequence (insertBind refMap r) ts 0)+cleanTermWithStore _ t = t+++cleanSequence :: (Int -> ConstraintStore) -> [Term] -> Int -> [Term]+cleanSequence _ [] _     = []+cleanSequence adjMap (t:ts) i = +  cleanTermWithStore  (adjMap i) t : +  (cleanSequence adjMap ts $! i+1)++--------------------------------------------------------+-- remove failures (in bubbled terms)+--------------------------------------------------------++value :: Term -> Maybe Term+value (Term n si ts) = do+  ts' <- mapM value ts+  return (Term n si ts')+value (TermOr si r ts) = do+  case catMaybes $ P.map value ts of+    []  -> Nothing+    [t] -> Just t+    ts' -> Just (TermOr si r ts')+value (TermFail _) = Nothing+value t = Just t++--------------------------------------------------------+-- extend terms with information about references below+--------------------------------------------------------++type OrCollect = Map OrRef Int++data Bubble = BubbleTerm {static::StaticInfo, +                          refsBelow::OrCollect,+                          refsToBubble::OrCollect,+                          toBubbleBelow::Bool,+                          name::String,+                          args::[Bubble]}+            | BubbleOr   {static::StaticInfo,+                          orRef::OrRef,+                          refsBelow::OrCollect,+                          toBubbleBelow::Bool,+                          args::[Bubble]}+            | Bubbled Term+            deriving (Show,Eq)++allRefsBelow :: Bubble -> OrCollect+allRefsBelow (Bubbled _) = empty+allRefsBelow BubbleOr{orRef=r,refsBelow=refs} = insert r 1 refs+allRefsBelow BubbleTerm{refsBelow=refs} = refs++unionsOC :: [OrCollect] -> OrCollect+unionsOC = unionsWith (\_ _ -> 1)++-- collect all OrRefs below+addRefsToParent :: Term -> (Bubble,OrCollect,Bool)+addRefsToParent t@(Term n si ts) = +  case unzip3 (P.map addRefsToParent ts) of+    (bs,maps,bubbleBelows) -> +      let map=unionsWith (+) maps +          toBubble = M.filter (>1) map +          set = M.map (const 1) map +          bubbleBelow = or ((toBubble /= empty) : bubbleBelows)+      in+      if map==empty +      then (Bubbled t,map,False)+      else (BubbleTerm{static=si,+                       refsBelow=set,+                       refsToBubble=toBubble,+                       toBubbleBelow=bubbleBelow,+                       name=n,+                       args=bs},set,bubbleBelow)+addRefsToParent t@(TermOr si r ts) = +  case unzip3 (P.map addRefsToParent ts) of+    (bs,maps,bubb) -> +      let set=unionsOC maps+          bubbleBelow = or bubb+      in+      (BubbleOr{static=si,+                orRef=r,+                refsBelow=set, +                toBubbleBelow=bubbleBelow,+                args=bs},insert r 1 set,bubbleBelow)+addRefsToParent t = (Bubbled t,empty,False)++addRefs :: Term -> Bubble+addRefs t = case addRefsToParent t of (t',_,_) -> t'++--------------------------------------------------------+-- bubble up a set of references +--------------------------------------------------------++bubbleUp :: OrCollect -> Bubble -> Bubble+bubbleUp _ t@(Bubbled _) = t+bubbleUp set t@(BubbleTerm{refsBelow=refs,refsToBubble=bset}) +  | toBubbleBelow t || intersection set refs /= empty+  = let bubbleSet = union bset set+     in merge (\ bs -> +                  let below = unionsOC (P.map allRefsBelow bs) in+                  if below==empty+                  then Bubbled (Term (name t) (static t) +                                     (P.map (\ (Bubbled t') -> t') bs))+                  else t{refsBelow=below,+                         refsToBubble=empty,+                         toBubbleBelow=False,+                         args=bs})+              Nothing+              bubbleSet+              (P.map (bubbleUp bubbleSet) (args t))+  | otherwise = t+bubbleUp set t@(BubbleOr{refsBelow=refs,orRef=r})+  | toBubbleBelow t || bubbleSet /= empty+  = let bubbledArgs = P.map (bubbleUp bubbleSet) (args t)+     in if   bubbleSet == empty || member r set+        then t{toBubbleBelow=False,args=bubbledArgs}+        else merge (\ bs -> +                        t{refsBelow=unionsOC (P.map allRefsBelow bs),+                          toBubbleBelow=False,+                          args=bs})+                   (Just r)+                   bubbleSet+                   bubbledArgs+  | otherwise = t+  where+    bubbleSet = intersection set refs+++merge :: ([Bubble] -> Bubble) -> Maybe OrRef+      -> OrCollect -> [Bubble] -> Bubble+merge parent parentRef set args = case nextOr set args of+  Nothing -> parent args +  Just (si,r,size)  -> +    let bubbledArgs = P.map (merge parent parentRef (delete r set)) +                            (makeBranches r size args)+       in+       BubbleOr{static=si,+                orRef=r,+                refsBelow=unionsOC (P.map allRefsBelow bubbledArgs),+                toBubbleBelow=False,+                args=bubbledArgs}+++nextOr :: OrCollect -> [Bubble] -> Maybe (StaticInfo,OrRef,Int)+nextOr _   [] = Nothing+nextOr set (o@(BubbleOr{orRef=r,refsBelow=below}):xs) +  | member r set = Just (static o,r,length (args o))+  | hiddenRefs /= empty = nextOr set (bubbleUp hiddenRefs o:xs)+  | otherwise    = nextOr set xs+  where+    hiddenRefs = intersection below set+nextOr set (_:xs) = nextOr set xs++makeBranches :: OrRef -> Int -> [Bubble] -> [[Bubble]]+makeBranches _ i [] = replicate i []+makeBranches r i (t@(BubbleOr{orRef=r',refsBelow=refs,args=bs}):args) +  | r==r' = zipWith (:) bs (makeBranches r i args)+  | member r refs +  = makeBranches r i (bubbleUp (singleton r 1) t:args) +makeBranches r i (t:args) = P.map (t:) (makeBranches r i args)+++bubble :: Term -> Term+bubble = bubbleWithStore emptyConstraintStore++bubbleWithStore :: ConstraintStore -> Term -> Term+bubbleWithStore store t = +  deBubble $ case addRefsToParent (cleanTermWithStore store t) of+               (t',_,True)  -> bubbleUp empty t'+               (t',_,False) -> t'+++deBubble :: Bubble -> Term+deBubble BubbleTerm{static=si,name=n,args=ts} = Term n si (P.map deBubble ts)+deBubble BubbleOr{static=si,orRef=r,args=ts}  = TermOr si r (P.map deBubble ts)+deBubble (Bubbled t) = t+
+ biosphere/src/Curry/Debugger/DebugInfo.lhs view
@@ -0,0 +1,158 @@+> {-# LANGUAGE DeriveDataTypeable #-}+> {-# LANGUAGE FlexibleInstances #-}+> {-# LANGUAGE UndecidableInstances #-}++% DebugInfo.lhs+% Andreas Baldeau+% April 13, 2009++Overview+========++> module Curry.Debugger.DebugInfo (+>     DI (..),+>     StaticInfo (..),+>     DynamicInfo (..),+>     ModID,+>     DefID,+>     Term (..),+>     GenTerm (..)+> ) where++> import Data.Generics+> import Curry.Debugger.Logic++The representation of debug information+=======================================++`DI`+----++Our debug information consist of two different kinds of information. The first+ones are static information i.e. information about the executed code.++> data DI = DebugInfo {+>               staticInfo :: StaticInfo,+>               dynamicInfo :: DynamicInfo+>           }+>  deriving Show++`StaticInfo`+------------++`SrcID` holds a reference to the position in code where the function / data+type / etc. of intrest is defined.++> data StaticInfo  = SrcID {+>                        modID :: ModID,+>                        defID :: DefID+>                    }+>                  | SrcDescr String -- ???+>  deriving (Show,Eq,Data,Typeable)++> type ModID = String -- for the moment its the file name+>            --Integer +> type DefID = Integer++`DynamicInfo`+-------------++The second kind of information are dynamic ones. They hold concrete values as+arguments to a function call, local variables, etc.++> data DynamicInfo = DynamicInfo {+>                        context :: [(StaticInfo, Term)],+>                        currentValues :: [Term]+>                    }+>  deriving Show++`Term`+------++> data Term = Term String StaticInfo [Term]+>           | TermChar Char+>           | TermInt Integer -- deprecated+>           | TermFloat Float+>           | TermExt StaticInfo ExternalValue+>           | TermUnderscore StaticInfo+>           | TermOr StaticInfo OrRef [Term]+>           | TermFail StaticInfo+>  deriving (Show,Eq,Data,Typeable)++> type ExternalValue = String++The class `GenTerm`+===================++The static information is generated during the transformation of the modules+whereas dynamic information has to be generated at runtime. To be able to get+a represantion e.g. of the value returned by a function one can call `genTerm`+as there is an instance of `GenTerm` generated for every data type.++> class Data a => GenTerm a where+>   genTerm :: a -> Term++	`underscore` returns a representation of a not evaluated expression.++	>   underscore :: a+++	The class `GenStaticInfo`+	=========================++	Provides a function to return the static information of a term for given constructor.++	> class GenStaticInfo a where+	>   genStaticInfo :: a -> StaticInfo+++	The class `DebugType`+	=====================++	Class that has (is going to / GenTerm deprecated) to be available for all transformed types and provides functions for+	- generating terms for given constructors+	- returning a representation failed calculations+	- creating non-deterministic branches for the type+	- returning a representation of not evaluated terms++	> class DebugType a where+	>   generateTerm :: a -> Term+	>   genfailed :: a+	>   makeOr :: OrRef -> [a] -> a+	>   genunderscore :: a++	`DebugType` instance for `Data` and `GenStaticInfo` types+	---------------------------------------------------------++	Generic instance for all types providing an instance of `Data`.++	> instance (Data a,GenStaticInfo a) => DebugType a where++	>   generateTerm x = let si   = genStaticInfo x+	>                        cons = toConstr x in+	>     case constrIndex cons of++	  Special terms for special constructors:++	>       1 -> TermFail si +	>       2 -> TermOr si (orRef x) (map generateTerm (branches x))+	>       3 -> TermUnderscore si++	  Regular term for a regular constructor:++	>       _ -> Term (showConstr cons) si [] -- (map generateTerm (args x))++	  The failed representation is the 1st constructor of a transformed type:++	>   genfailed = let res = fromConstr $ indexConstr (dataTypeOf res) 1 in res++	  The or branch representation is the 2nd constructor of a transformed type:++	>   makeOr ref xs = +	>     let orWithUndefined  = fromConstr $ indexConstr (dataTypeOf (head xs)) 2+	>         orWithArgs = gmapT (castArgs ref xs) orWithUndefined+	>       in orWithArgs++	  The representation for not evaluated calculations is the 3rd constructor of a transformed type:++	>   genunderscore = let res = fromConstr $ indexConstr (dataTypeOf res) 3 in res
+ biosphere/src/Curry/Debugger/DebugInfoGoodies.lhs view
@@ -0,0 +1,61 @@+% DebugInfoGoodies.lhs+% Andreas Baldeau+% April 13, 2009++Overview+========++> module Curry.Debugger.DebugInfoGoodies (+>     staticInfoToSrcTuple,+>     getContext,+>     getModuleName,+>     getFuncArgs,+>     stringTermToString++     getFuncDeclName,+     getFuncDecl,++> ) where+++> import Curry.Debugger.DebugInfo++General+=======++> staticInfoToSrcTuple :: StaticInfo -> (ModID, DefID)+> staticInfoToSrcTuple si = (modID si, defID si)++> getContext :: DI -> [(StaticInfo,Term)]+> getContext = context . dynamicInfo++Function handling+=================++getFuncDecl :: DI -> IO Decl+getFuncDecl i = do+    se <- getSrcAt $ staticInfoToSrcTuple $ staticInfo i+    case se of+        SrcDecl fd     -> return fd+        SrcExpr fd _ _ -> return fd+        _ -> error $ "unexpected source entity: " ++ show se++getFuncDeclName :: Decl -> String+getFuncDeclName (FunctionDecl _ i _) = name i+getFuncDeclName x = error $ show x++> getModuleName :: DI -> String+> getModuleName i = modID $ staticInfo i++> getFuncArgs :: DI -> [Term] +> getFuncArgs i = currentValues $ dynamicInfo i++Converting Term-representations to their represented values+===========================================================++This function will only convert represented Strings to real Strings.++> stringTermToString :: Term -> String+> stringTermToString (Term _ _ []) = ""+> stringTermToString (Term _ _ [TermChar c, st]) = c : stringTermToString st+
+ biosphere/src/Curry/Debugger/DebugMonad.lhs view
@@ -0,0 +1,379 @@+% DebugMonad.lhs+% Andreas Baldeau, Christoph Wulf, Bernd Brassel+% April 13, 2009++Overview+========++> {-# LANGUAGE FlexibleContexts #-}++> module Curry.Debugger.DebugMonad (+>    module Curry.Debugger.DebugInfo, +>    module Curry.Debugger.DebugMonad,+>    module Curry.Debugger.Logic) where++Imports+=======++> import Control.Monad.State++> import Curry.Debugger.Oracle+> import Curry.Debugger.Logic+> import Curry.Debugger.DebugInfo+> import Data.Generics+> import Data.Maybe (fromJust)+> import qualified Data.Map as Map++Definitions+===========++`Hook`+------++> data Hook = FuncCallHook String -- function name+>           | FuncDeclHook String -- function name+>           | ConsHook ConsHookType+>           | CaseHook+>           | BranchHook+>           | FreeHook+>           | OrHook+>           | LetHook+>  deriving Show++`ConsHookType`+--------------++> data ConsHookType = Constructor      +>                   | Literal+>                   | PartCall+>  deriving Show++`ExceptionHook`+---------------++> data ExceptionHook = ErrorHook String -- Prelude.error+>                    | FailedHook       -- Prelude.failed+>                    | NEPCaseHook DI   -- non exhaustive patterns at case+>                    | NEPRulesHook DI  -- non exhaustive patterns at functions+>  deriving Show++`Func`+------++Type for representations of functions/constructors.+Contains a Term with function name and static information of the declaration+and the function itself.++> data (DM dm) => Func dm a b = FuncFail+>                             | FuncOr OrRef [Func dm a b]+>                             | FuncUnderscore+>                             | FuncRep Term (a -> dm b)++`GenTerm` instance for function representation: extracts the contained term.++> instance DM dm => GenTerm (Func dm a b) where++TODO: deprecated+	>   underscore = FuncUnderscore++>   genTerm (FuncRep term _) = term+>   genTerm x = genericTerm undefined x++> instance Data (Func dm a b) +> instance Typeable (Func dm a b) ++Underscore+----------++Returns the representation of a not evaluated term for the result type, 3rd constructor.++> underscore :: GenTerm a => a+> underscore = let res = fromConstr $ indexConstr (dataTypeOf res) 3 in res++Logic+-----++Returns the representation of a failed calculation for the result type, 1st constructor.++> failed :: GenTerm a => a+> failed = let res = fromConstr $ indexConstr (dataTypeOf res) 1 in res++> (?) :: (GenTerm a,DM dm) => a -> a -> dm a+> x ? y = do +>   ref <- newOrRef+>   return (mkOr ref [x,y])++> mkOr :: GenTerm a => OrRef -> [a] -> a+> mkOr ref xs = +>   let orWithUndefined  = fromConstr $ indexConstr (dataTypeOf (head xs)) 2+>       orWithArgs = gmapT (castArgs ref xs) orWithUndefined+>    in orWithArgs++apply given function to all branches++> inline :: (DM m,GenTerm a, GenTerm a2) => +>    ConstraintStore -> OrRef -> (a -> m a2) -> a -> m a2+> inline cs r f x = do+>   args <- mapM choose (zip [0..1] $ branches x)+>   return (mkOr r args)+>  where+>    choose (i,x') = do+>      setConstraintStore (insertBind cs r i)+>      res <- f x'+>      setConstraintStore cs+>      return res+++the or branches of a given term++> branches :: (Data a) => a -> [a]+> branches x = x !@ 1++> castArgs :: (Data a,Data b) => OrRef -> [a] -> b -> b+> castArgs ref xs _ = case cast ref of+>   Just r' -> r'+>   Nothing -> case cast xs of+>     Just xs' -> xs'+>     Nothing  -> error "castArgs: not applied to argument of Or"++(!@) retrieves the ith argument of a given constructor++> (!@) :: (Data a,Typeable b) => a -> Int -> b+> x !@ i = fromJust (gmapQi i cast x)++the or reference of a given term++> orRef :: Data a => a -> OrRef+> orRef x = x !@ 0++the function called from generated code to treat remaining+cases++> treatCase :: (DM dm,GenTerm a,GenTerm b) => dm b -> (a -> dm b) -> a -> dm b+> treatCase failhook f x +>  | constrIndex (toConstr x) <= 2 = treatCase' True f x+>  | otherwise                     = failhook++> treatCase' count f x =+>   let meval = if count then eval else id in+>     case constrIndex (toConstr x) of+>      1 -> return failed+>      2 -> do+>         let r = orRef x+>         cs <- getConstraintStore+>         case lookupRef cs r of +>           Nothing -> meval $ inline cs r (treatCase' count f) x+>           Just i  -> treatCase' count f (branches x !! i)+>      _ -> f x++> term s =  Term s (SrcID "Prelude" 0)++Creates a term or a given static info and a constructor added by the transformation.++> genericTerm :: GenTerm a => StaticInfo -> a -> Term+> genericTerm si x = case constrIndex (toConstr x) of+>    1 -> TermFail si +>    2 -> TermOr si (orRef x) (map genTerm (branches x))+>    3 -> TermUnderscore si+>    _ -> error "genericTerm: unexpected argument"++> peekType :: TypeRep -> [Int] -> TypeRep+> peekType tyRep indexes = peekType' (typeRepArgs tyRep) indexes+>   where+>     peekType' :: [TypeRep] -> [Int] -> TypeRep+>     peekType' tyReps [i]    = tyReps !! i+>     peekType' tyReps (i:is) = peekType (tyReps !! i) is+++Classes+=======++`OracleState`+-------------++> class OracleState om where+>     getOracle :: om Oracle+>     setOracle :: Oracle -> om ()+>     getExt :: om [String]+>     setExt :: [String] -> om ()+>     newOrRef :: om OrRef+>     getConstraintStore :: om ConstraintStore+>     setConstraintStore :: ConstraintStore -> om ()+++`DM`+----++> class (Monad dm,OracleState dm) => DM dm where+>     hook :: GenTerm a => Hook -> DI -> dm a -> dm a+>     hook _ _ ma = ma++>     funcCallHook :: GenTerm a => String -> DI -> dm a -> dm a+>     funcCallHook name = hook (FuncCallHook name)++>     funcDeclHook :: GenTerm a => String -> DI -> dm a -> dm a+>     funcDeclHook name = hook (FuncDeclHook name)++>     consHook :: GenTerm a => ConsHookType -> DI -> dm a -> dm a+>     consHook cht = hook (ConsHook cht)++>     constructorHook :: GenTerm a => DI -> dm a -> dm a+>     constructorHook = consHook Constructor++>     litHook :: GenTerm a => DI -> dm a -> dm a+>     litHook = consHook Literal++>     partCallHook :: GenTerm a => DI -> dm a -> dm a+>     partCallHook = consHook PartCall++>     caseHook :: GenTerm a => DI -> dm a -> dm a+>     caseHook = hook CaseHook ++>     branchHook :: GenTerm a => DI -> dm a -> dm a+>     branchHook = hook BranchHook ++>     freeHook :: GenTerm a => DI -> dm a -> dm a+>     freeHook = hook FreeHook ++>     orHook :: GenTerm a => DI -> dm a -> dm a+>     orHook = hook OrHook ++>     letHook :: GenTerm a => DI -> dm a -> dm a+>     letHook = hook LetHook ++>     exceptionHook :: GenTerm a => ExceptionHook -> dm a+>     exceptionHook _ = return failed++>     errorHook :: GenTerm a => String -> dm a+>     errorHook s = exceptionHook (ErrorHook s)++>     failedHook :: GenTerm a => dm a+>     failedHook = exceptionHook FailedHook++>     nepCaseHook :: GenTerm a => DI -> dm a+>     nepCaseHook di = exceptionHook (NEPCaseHook di)++>     nepRulesHook :: GenTerm a => DI -> dm a+>     nepRulesHook di = exceptionHook (NEPRulesHook di)++Functions+=========++Acessing the oracle+-------------------++> popOracle :: DM dm => dm Bool+> popOracle = do+>     o <- getOracle+>     let (o', b) = pop o+>     setOracle o'+>     return b++> pushOracle :: DM dm => Bool -> dm ()+> pushOracle b = do+>     o <- getOracle+>     let o' = push o b+>     setOracle o'++`eval`+------++> eval :: (GenTerm a, DM dm) => dm a -> dm a+> eval act = do+>     needed <- popOracle+>     if needed then act else return underscore++Accessing virtual I/O+---------------------++Extracts and returns the next ext value from the oracle.++> getNextExtVal :: (Read a, OracleState om, Monad om) => om a+> getNextExtVal = do+>   vals <- getExt+>   setExt $ tail vals+>   return $ read $ head vals+++Monad transformer+=================++> type DebugT st dm = StateT (DebugState st) dm++> data DebugState st = DebugState {+>        oracle :: Oracle,+>        ext :: [String],+>        toolstate :: st,+>        nextOrIdx :: Integer,+>        constraints :: ConstraintStore+>      }+>  deriving Show++> runDebugT :: Monad dm => DebugT st dm a -> dm a+> runDebugT ma = +>  (runStateT ma $ DebugState { oracle    = undefined, +>                               ext       = undefined, +>                               toolstate = undefined,+>                               nextOrIdx = 1,+>                               constraints = emptyConstraintStore })+>              >>= return . fst++> newtype DMT st m a = DMT { runDMT :: DebugT st m a }++> instance Monad m => Monad (DMT st m) where+>   a >>= b  = DMT (runDMT a >>= runDMT . b)+>   return x = DMT (return x)++> instance Monad m => OracleState (DMT st m) where+>   getOracle   = DMT (get >>= return . oracle)+>   setOracle o = DMT (get >>= \ dst -> put dst{oracle=o})+>   getExt      = DMT (get >>= return . ext)+>   setExt ext  = DMT (get >>= \ dst -> put dst{ext=ext})+>   newOrRef    = DMT (do +>                   dst <- get+>                   let idx = nextOrIdx dst+>                       idx' = idx+1+>                   seq idx' (put dst{nextOrIdx=idx'})+>                   return idx)+>   getConstraintStore   = DMT (get >>= return . constraints)+>   setConstraintStore s = DMT (get >>= \ dst -> put dst{constraints=s})+++> getToolState :: Monad dm => DMT st dm st+> getToolState = DMT (get >>= return . toolstate)++> putToolState :: Monad dm => st -> DMT st dm ()+> putToolState st = DMT (get >>= \ dst -> put dst{toolstate=st})++> modifyToolState :: Monad dm => (st -> st) -> DMT st dm ()+> modifyToolState f = DMT (get >>= \ dst ->+>                                    put dst{toolstate=(f $ toolstate dst)})++> instance MonadTrans (DMT st) where+>     lift m = DMT (lift m)++> instance MonadIO m => MonadIO (DMT st m) where+>    liftIO = lift . liftIO++> debug :: (DM dm,MonadIO dm) => dm a -> String -> dm a +> debug oa sfile = do+>     ora <- liftIO $ readStepsFile sfile+>     setOracle ora+>     ext <- liftIO $ readExtFile sfile+>     setExt ext+>     oa++> debugDMT :: (DM (DMT st dm),MonadIO dm) => +>             DMT st dm a -> String -> st -> dm a+> debugDMT exp steps st = +>   runDebugT (runDMT (debug (maybePrintOracle (putToolState st >> exp)) steps))++> maybePrintOracle action = do+>            res <- action+>            o <- getOracle+>            unless (o==emptyOracle) +>                   (liftIO $ putStrLn "oracle not empty!" >> print o)+>            return res+++
+ biosphere/src/Curry/Debugger/Logic.hs view
@@ -0,0 +1,18 @@+module Curry.Debugger.Logic where++import Data.Generics+import Data.Maybe (fromJust)+import Data.Map as Map++type OrRef = Integer+type Bind = Int+type ConstraintStore = Map.Map OrRef Bind++emptyConstraintStore :: ConstraintStore+emptyConstraintStore = Map.empty++lookupRef :: ConstraintStore -> OrRef -> Maybe Bind+lookupRef = flip Map.lookup++insertBind :: ConstraintStore -> OrRef -> Bind -> ConstraintStore+insertBind cs r b = Map.insert r b cs
+ biosphere/src/Curry/Debugger/Oracle.lhs view
@@ -0,0 +1,88 @@+% Oracle.lhs+% Andreas Baldeau+% April 13, 2009++Overview+========++> module Curry.Debugger.Oracle (+>     Oracle,+>     emptyOracle,+>     allTrue,+>     pop,+>     push,+>     readStepsFile,+>     parseSteps,+>     readExtFile+> ) where++Representation+==============++> import qualified Curry.Debugger.BoolStack as BS++`Oracle`+--------++`Oracle` is just a simple `BoolStack`. ++> type Oracle = BS.BoolStack++> emptyOracle :: Oracle+> emptyOracle = BS.emptyBoolStack++> allTrue :: Oracle+> allTrue = BS.allTrue++Functions+=========++Accessing the `Oracle`+----------------------++These are simply aliases for the corressponding `BoolStack` functions.++> pop :: Oracle -> (Oracle, Bool)+> pop = BS.pop++> push :: Oracle -> Bool -> Oracle+> push = BS.push++Parsing prophecy files+----------------------++`readStepsFile` reads the specified (without `.steps`) prophecy file and returns+the represented `Oracle`.++> readStepsFile :: String -> IO Oracle+> readStepsFile modName = do+>     contents <- readFile $ modName ++ ".steps"+>     return $ parseSteps contents++`parseSteps` parses the content of a prophecy file and returns the represented+`Oracle`.++> parseSteps :: String -> Oracle+> parseSteps steps =+>     case reads steps :: [(Oracle, String)] of+>         [(o, "")] -> o+>         value     -> error $ "Parsing steps failed: "+>                           ++ show value++Virtual I/O+-----------++Reads the specified external file for given module name and returns the splitted list of inputs.++> readExtFile :: String -> IO [String]+> readExtFile modName = do+>     contents <- readFile $ modName ++ ".steps"+>     return $ split contents++Splits the given contents of an .ext file.++> split :: String -> [String]+> split s = case break (=='\n') s of+>            ([],[])    -> []+>            (n,_:vres) -> let (v,res) = splitAt (read n) vres in  +>                          v:split res
+ biosphere/src/Curry/Debugger/Parser.hs view
@@ -0,0 +1,82 @@+module Curry.Debugger.Parser where++-- This module should be deleted and referencing imports replaced by imports of the parser combinators included in the haskell library++infixl 4 <$>, <*, *>, <*>+infixl 3 <||>++type Parser a = String -> Pos -> Result a++data Result a = Result a String Pos+              | Error String+   deriving Show+++type Pos = (Int,Int)++row :: Pos -> Int+row (_,x) = x++col :: Pos -> Int+col (x,_) = x++incPos :: Char -> Pos -> Pos+incPos '\n' (_,y) = (0,y+1)+incPos _    (x,y) = (x+1,y)++showPos :: Pos -> String+showPos (x,y) = "at line " ++ show x ++ " at column " ++ show y+++pSucceed :: a -> Parser a+pSucceed = Result++pFail :: Parser a+pFail _ pos = Error ("Fail " ++ showPos pos)++pSym :: Char -> Parser Char+pSym c = pPred (c==) ++pPred :: (Char -> Bool) -> Parser Char+pPred p [] _       = Error "End of File"+pPred p (t:ts) pos | p t       = Result t ts (incPos t pos)+                   | otherwise = err+ where+  err = Error ("unexpected Symbol " ++ show t ++ " " ++ showPos pos)++(<||>) :: Parser a -> Parser a -> Parser a+(p <||> q) input pos = +  case p input pos of+       Error _ -> q input pos+       result  -> result++(<*>) :: Parser (b -> a) -> Parser b -> Parser a+(p <*> q) input pos1 = +  case p input pos1 of+       Result pv qinput pos2 ->+              case q qinput pos2 of+                   Result qv rest pos3 -> Result (pv qv) rest pos3 +                   Error err -> Error err+       Error err -> Error err+                  +(<->>) :: Parser a -> (a -> Parser b) -> Parser b+(p <->> qf) ts pos1 = +  case p ts pos1 of+       Result pv ts1 pos2 ->+              case qf pv ts1 pos2 of+                   Error err -> Error err+                   result -> result+       Error err -> Error err+++(<$>) :: (b -> a) -> Parser b -> Parser a+f <$> p = pSucceed f <*> p++f <$ p = const f <$> p++(<*) :: Parser a -> Parser b -> Parser a+p <* q = (\ x _ -> x) <$> p <*> q++(*>) :: Parser a -> Parser b -> Parser b+p *> q = (\ _ x -> x) <$> p <*> q+
+ biosphere/src/Curry/Debugger/PartCalls.hs view
@@ -0,0 +1,392 @@++module Curry.Debugger.PartCalls where+import qualified Curry.Debugger.DebugMonad as DM+import qualified Curry.Debugger.DebugInfo as DI+ +partCall1 ::+          (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+            DI.Term -> (a -> dm b) -> DM.Func dm a b+partCall1 (DI.Term name info args) f+  = DM.FuncRep (term []) (\ x1 -> f x1)+  where term = (DI.Term name info) Prelude.. ((args Prelude.++))+ +partCall2 ::+          (DM.DM dm, DI.GenTerm a, DI.GenTerm b, DI.GenTerm c) =>+            DI.Term -> (a -> b -> dm c) -> DM.Func dm a (DM.Func dm b c)+partCall2 (DI.Term name info args) f+  = DM.FuncRep (term [])+      (\ x1 ->+         do let t1 = DI.genTerm x1+            Prelude.return (DM.FuncRep (term [t1]) (\ x2 -> f x1 x2)))+  where term = (DI.Term name info) Prelude.. ((args Prelude.++))+ +partCall3 ::+          (DM.DM dm, DI.GenTerm a, DI.GenTerm b, DI.GenTerm c,+           DI.GenTerm d) =>+            DI.Term ->+              (a -> b -> c -> dm d) ->+                DM.Func dm a (DM.Func dm b (DM.Func dm c d))+partCall3 (DI.Term name info args) f+  = DM.FuncRep (term [])+      (\ x1 ->+         do let t1 = DI.genTerm x1+            Prelude.return+              (DM.FuncRep (term [t1])+                 (\ x2 ->+                    do let t2 = DI.genTerm x2+                       Prelude.return (DM.FuncRep (term [t1, t2]) (\ x3 -> f x1 x2 x3)))))+  where term = (DI.Term name info) Prelude.. ((args Prelude.++))+ +partCall4 ::+          (DM.DM dm, DI.GenTerm a, DI.GenTerm b, DI.GenTerm c, DI.GenTerm d,+           DI.GenTerm e) =>+            DI.Term ->+              (a -> b -> c -> d -> dm e) ->+                DM.Func dm a (DM.Func dm b (DM.Func dm c (DM.Func dm d e)))+partCall4 (DI.Term name info args) f+  = DM.FuncRep (term [])+      (\ x1 ->+         do let t1 = DI.genTerm x1+            Prelude.return+              (DM.FuncRep (term [t1])+                 (\ x2 ->+                    do let t2 = DI.genTerm x2+                       Prelude.return+                         (DM.FuncRep (term [t1, t2])+                            (\ x3 ->+                               do let t3 = DI.genTerm x3+                                  Prelude.return+                                    (DM.FuncRep (term [t1, t2, t3]) (\ x4 -> f x1 x2 x3 x4)))))))+  where term = (DI.Term name info) Prelude.. ((args Prelude.++))+ +partCall5 ::+          (DM.DM dm, DI.GenTerm a, DI.GenTerm b, DI.GenTerm c, DI.GenTerm d,+           DI.GenTerm e, DI.GenTerm f) =>+            DI.Term ->+              (a -> b -> c -> d -> e -> dm f) ->+                DM.Func dm a+                  (DM.Func dm b (DM.Func dm c (DM.Func dm d (DM.Func dm e f))))+partCall5 (DI.Term name info args) f+  = DM.FuncRep (term [])+      (\ x1 ->+         do let t1 = DI.genTerm x1+            Prelude.return+              (DM.FuncRep (term [t1])+                 (\ x2 ->+                    do let t2 = DI.genTerm x2+                       Prelude.return+                         (DM.FuncRep (term [t1, t2])+                            (\ x3 ->+                               do let t3 = DI.genTerm x3+                                  Prelude.return+                                    (DM.FuncRep (term [t1, t2, t3])+                                       (\ x4 ->+                                          do let t4 = DI.genTerm x4+                                             Prelude.return+                                               (DM.FuncRep (term [t1, t2, t3, t4])+                                                  (\ x5 -> f x1 x2 x3 x4 x5)))))))))+  where term = (DI.Term name info) Prelude.. ((args Prelude.++))+ +partCall6 ::+          (DM.DM dm, DI.GenTerm a, DI.GenTerm b, DI.GenTerm c, DI.GenTerm d,+           DI.GenTerm e, DI.GenTerm f, DI.GenTerm g) =>+            DI.Term ->+              (a -> b -> c -> d -> e -> f -> dm g) ->+                DM.Func dm a+                  (DM.Func dm b+                     (DM.Func dm c (DM.Func dm d (DM.Func dm e (DM.Func dm f g)))))+partCall6 (DI.Term name info args) f+  = DM.FuncRep (term [])+      (\ x1 ->+         do let t1 = DI.genTerm x1+            Prelude.return+              (DM.FuncRep (term [t1])+                 (\ x2 ->+                    do let t2 = DI.genTerm x2+                       Prelude.return+                         (DM.FuncRep (term [t1, t2])+                            (\ x3 ->+                               do let t3 = DI.genTerm x3+                                  Prelude.return+                                    (DM.FuncRep (term [t1, t2, t3])+                                       (\ x4 ->+                                          do let t4 = DI.genTerm x4+                                             Prelude.return+                                               (DM.FuncRep (term [t1, t2, t3, t4])+                                                  (\ x5 ->+                                                     do let t5 = DI.genTerm x5+                                                        Prelude.return+                                                          (DM.FuncRep (term [t1, t2, t3, t4, t5])+                                                             (\ x6 -> f x1 x2 x3 x4 x5 x6)))))))))))+  where term = (DI.Term name info) Prelude.. ((args Prelude.++))+ +partCall7 ::+          (DM.DM dm, DI.GenTerm a, DI.GenTerm b, DI.GenTerm c, DI.GenTerm d,+           DI.GenTerm e, DI.GenTerm f, DI.GenTerm g, DI.GenTerm h) =>+            DI.Term ->+              (a -> b -> c -> d -> e -> f -> g -> dm h) ->+                DM.Func dm a+                  (DM.Func dm b+                     (DM.Func dm c+                        (DM.Func dm d (DM.Func dm e (DM.Func dm f (DM.Func dm g h))))))+partCall7 (DI.Term name info args) f+  = DM.FuncRep (term [])+      (\ x1 ->+         do let t1 = DI.genTerm x1+            Prelude.return+              (DM.FuncRep (term [t1])+                 (\ x2 ->+                    do let t2 = DI.genTerm x2+                       Prelude.return+                         (DM.FuncRep (term [t1, t2])+                            (\ x3 ->+                               do let t3 = DI.genTerm x3+                                  Prelude.return+                                    (DM.FuncRep (term [t1, t2, t3])+                                       (\ x4 ->+                                          do let t4 = DI.genTerm x4+                                             Prelude.return+                                               (DM.FuncRep (term [t1, t2, t3, t4])+                                                  (\ x5 ->+                                                     do let t5 = DI.genTerm x5+                                                        Prelude.return+                                                          (DM.FuncRep (term [t1, t2, t3, t4, t5])+                                                             (\ x6 ->+                                                                do let t6 = DI.genTerm x6+                                                                   Prelude.return+                                                                     (DM.FuncRep+                                                                        (term+                                                                           [t1, t2, t3, t4, t5, t6])+                                                                        (\ x7 ->+                                                                           f x1 x2 x3 x4 x5 x6+                                                                             x7)))))))))))))+  where term = (DI.Term name info) Prelude.. ((args Prelude.++))+ +partCall8 ::+          (DM.DM dm, DI.GenTerm a, DI.GenTerm b, DI.GenTerm c, DI.GenTerm d,+           DI.GenTerm e, DI.GenTerm f, DI.GenTerm g, DI.GenTerm h,+           DI.GenTerm i) =>+            DI.Term ->+              (a -> b -> c -> d -> e -> f -> g -> h -> dm i) ->+                DM.Func dm a+                  (DM.Func dm b+                     (DM.Func dm c+                        (DM.Func dm d+                           (DM.Func dm e (DM.Func dm f (DM.Func dm g (DM.Func dm h i)))))))+partCall8 (DI.Term name info args) f+  = DM.FuncRep (term [])+      (\ x1 ->+         do let t1 = DI.genTerm x1+            Prelude.return+              (DM.FuncRep (term [t1])+                 (\ x2 ->+                    do let t2 = DI.genTerm x2+                       Prelude.return+                         (DM.FuncRep (term [t1, t2])+                            (\ x3 ->+                               do let t3 = DI.genTerm x3+                                  Prelude.return+                                    (DM.FuncRep (term [t1, t2, t3])+                                       (\ x4 ->+                                          do let t4 = DI.genTerm x4+                                             Prelude.return+                                               (DM.FuncRep (term [t1, t2, t3, t4])+                                                  (\ x5 ->+                                                     do let t5 = DI.genTerm x5+                                                        Prelude.return+                                                          (DM.FuncRep (term [t1, t2, t3, t4, t5])+                                                             (\ x6 ->+                                                                do let t6 = DI.genTerm x6+                                                                   Prelude.return+                                                                     (DM.FuncRep+                                                                        (term+                                                                           [t1, t2, t3, t4, t5, t6])+                                                                        (\ x7 ->+                                                                           do let t7 = DI.genTerm x7+                                                                              Prelude.return+                                                                                (DM.FuncRep+                                                                                   (term+                                                                                      [t1, t2, t3,+                                                                                       t4, t5, t6,+                                                                                       t7])+                                                                                   (\ x8 ->+                                                                                      f x1 x2 x3 x4+                                                                                        x5+                                                                                        x6+                                                                                        x7+                                                                                        x8)))))))))))))))+  where term = (DI.Term name info) Prelude.. ((args Prelude.++))+ +partCall9 ::+          (DM.DM dm, DI.GenTerm a, DI.GenTerm b, DI.GenTerm c, DI.GenTerm d,+           DI.GenTerm e, DI.GenTerm f, DI.GenTerm g, DI.GenTerm h,+           DI.GenTerm i, DI.GenTerm j) =>+            DI.Term ->+              (a -> b -> c -> d -> e -> f -> g -> h -> i -> dm j) ->+                DM.Func dm a+                  (DM.Func dm b+                     (DM.Func dm c+                        (DM.Func dm d+                           (DM.Func dm e+                              (DM.Func dm f (DM.Func dm g (DM.Func dm h (DM.Func dm i j))))))))+partCall9 (DI.Term name info args) f+  = DM.FuncRep (term [])+      (\ x1 ->+         do let t1 = DI.genTerm x1+            Prelude.return+              (DM.FuncRep (term [t1])+                 (\ x2 ->+                    do let t2 = DI.genTerm x2+                       Prelude.return+                         (DM.FuncRep (term [t1, t2])+                            (\ x3 ->+                               do let t3 = DI.genTerm x3+                                  Prelude.return+                                    (DM.FuncRep (term [t1, t2, t3])+                                       (\ x4 ->+                                          do let t4 = DI.genTerm x4+                                             Prelude.return+                                               (DM.FuncRep (term [t1, t2, t3, t4])+                                                  (\ x5 ->+                                                     do let t5 = DI.genTerm x5+                                                        Prelude.return+                                                          (DM.FuncRep (term [t1, t2, t3, t4, t5])+                                                             (\ x6 ->+                                                                do let t6 = DI.genTerm x6+                                                                   Prelude.return+                                                                     (DM.FuncRep+                                                                        (term+                                                                           [t1, t2, t3, t4, t5, t6])+                                                                        (\ x7 ->+                                                                           do let t7 = DI.genTerm x7+                                                                              Prelude.return+                                                                                (DM.FuncRep+                                                                                   (term+                                                                                      [t1, t2, t3,+                                                                                       t4, t5, t6,+                                                                                       t7])+                                                                                   (\ x8 ->+                                                                                      do let t8+                                                                                               = DI.genTerm+                                                                                                   x8+                                                                                         Prelude.return+                                                                                           (DM.FuncRep+                                                                                              (term+                                                                                                 [t1,+                                                                                                  t2,+                                                                                                  t3,+                                                                                                  t4,+                                                                                                  t5,+                                                                                                  t6,+                                                                                                  t7,+                                                                                                  t8])+                                                                                              (\ x9+                                                                                                 ->+                                                                                                 f+                                                                                                   x1+                                                                                                   x2+                                                                                                   x3+                                                                                                   x4+                                                                                                   x5+                                                                                                   x6+                                                                                                   x7+                                                                                                   x8+                                                                                                   x9)))))))))))))))))+  where term = (DI.Term name info) Prelude.. ((args Prelude.++))+ +partCall10 ::+           (DM.DM dm, DI.GenTerm a, DI.GenTerm b, DI.GenTerm c, DI.GenTerm d,+            DI.GenTerm e, DI.GenTerm f, DI.GenTerm g, DI.GenTerm h,+            DI.GenTerm i, DI.GenTerm j, DI.GenTerm k) =>+             DI.Term ->+               (a -> b -> c -> d -> e -> f -> g -> h -> i -> j -> dm k) ->+                 DM.Func dm a+                   (DM.Func dm b+                      (DM.Func dm c+                         (DM.Func dm d+                            (DM.Func dm e+                               (DM.Func dm f+                                  (DM.Func dm g (DM.Func dm h (DM.Func dm i (DM.Func dm j k)))))))))+partCall10 (DI.Term name info args) f+  = DM.FuncRep (term [])+      (\ x1 ->+         do let t1 = DI.genTerm x1+            Prelude.return+              (DM.FuncRep (term [t1])+                 (\ x2 ->+                    do let t2 = DI.genTerm x2+                       Prelude.return+                         (DM.FuncRep (term [t1, t2])+                            (\ x3 ->+                               do let t3 = DI.genTerm x3+                                  Prelude.return+                                    (DM.FuncRep (term [t1, t2, t3])+                                       (\ x4 ->+                                          do let t4 = DI.genTerm x4+                                             Prelude.return+                                               (DM.FuncRep (term [t1, t2, t3, t4])+                                                  (\ x5 ->+                                                     do let t5 = DI.genTerm x5+                                                        Prelude.return+                                                          (DM.FuncRep (term [t1, t2, t3, t4, t5])+                                                             (\ x6 ->+                                                                do let t6 = DI.genTerm x6+                                                                   Prelude.return+                                                                     (DM.FuncRep+                                                                        (term+                                                                           [t1, t2, t3, t4, t5, t6])+                                                                        (\ x7 ->+                                                                           do let t7 = DI.genTerm x7+                                                                              Prelude.return+                                                                                (DM.FuncRep+                                                                                   (term+                                                                                      [t1, t2, t3,+                                                                                       t4, t5, t6,+                                                                                       t7])+                                                                                   (\ x8 ->+                                                                                      do let t8+                                                                                               = DI.genTerm+                                                                                                   x8+                                                                                         Prelude.return+                                                                                           (DM.FuncRep+                                                                                              (term+                                                                                                 [t1,+                                                                                                  t2,+                                                                                                  t3,+                                                                                                  t4,+                                                                                                  t5,+                                                                                                  t6,+                                                                                                  t7,+                                                                                                  t8])+                                                                                              (\ x9+                                                                                                 ->+                                                                                                 do let t9+                                                                                                          = DI.genTerm+                                                                                                              x9+                                                                                                    Prelude.return+                                                                                                      (DM.FuncRep+                                                                                                         (term+                                                                                                            [t1,+                                                                                                             t2,+                                                                                                             t3,+                                                                                                             t4,+                                                                                                             t5,+                                                                                                             t6,+                                                                                                             t7,+                                                                                                             t8,+                                                                                                             t9])+                                                                                                         (\+                                                                                                            x10+                                                                                                            ->+                                                                                                            f+                                                                                                              x1+                                                                                                              x2+                                                                                                              x3+                                                                                                              x4+                                                                                                              x5+                                                                                                              x6+                                                                                                              x7+                                                                                                              x8+                                                                                                              x9+                                                                                                              x10)))))))))))))))))))+  where term = (DI.Term name info) Prelude.. ((args Prelude.++))
+ biosphere/src/Curry/Debugger/ShowTerm.lhs view
@@ -0,0 +1,172 @@+% ShowTerm.lhs+% Andreas Baldeau, Christoph Wulf+% April 13, 2009++Overview+========++> module Curry.Debugger.ShowTerm (+>     showTerm,+>     showGenTerm,+>     printTerm,++	>     showsTerm,+	>     showsAlgebraicTerm,+	>     calcNat,+	>     showsRegularTerm++> ) where++Imports+-------++> import Prelude as P+> import Data.Map as Map+> import Control.Monad.Trans++> import Curry.Debugger.DebugInfo+> import Curry.Debugger.Logic+> import Curry.Debugger.Bubble+> import Curry.Debugger.Parser+> import List++Interface+=========++Shows given term.++> showTerm :: Term -> String+> showTerm t = showsTerm False +>                (maybe (TermFail undefined) id $  value $ bubble t) ""++Converts given data to term and shows it.++> showGenTerm :: GenTerm a => a -> String+> showGenTerm = showTerm . genTerm++Converts given data to term and prints it to lifted IO of current monad.++> printTerm :: (GenTerm a,MonadIO m) => a -> m ()+> printTerm x = liftIO (putStr (showGenTerm x))++Implementation+==============++> type PrecInfo = Bool++> showsTerm :: PrecInfo -> Term -> ShowS+> showsTerm b t@(Term _ _ _) = showsAlgebraicTerm b t+> showsTerm _ (TermUnderscore _) = showChar '_'+> showsTerm _ (TermFail _)       = showChar '!'+> showsTerm b (TermOr _ r [x,y]) = +>   showParen b (showsTerm True x . +>                showString " ? " . +>                showsTerm True y)+> showsTerm b (TermOr si r xs)    = showsTerm b (Term "Or" si xs)+> showsTerm _ (TermChar c)  = showChar '\'' . showChar c . showChar '\''+> showsTerm b (TermInt i)   = showParen (b && i<0) (shows i)+> showsTerm b (TermFloat f) = showParen (b && f<0) (shows f)+> showsTerm b (TermExt _ v) = showParen True (showString "#Ext: " . showString v)++Shows terms of algebraic data, handles special constructors (numbers, lists) and delegates others to `showsRegularTerm`.++> showsAlgebraicTerm :: PrecInfo -> Term -> ShowS+> showsAlgebraicTerm b t@(Term s SrcID{modID="Prelude"} ts) = case s of+>   "Zero" -> showChar '0'+>   "Pos"  -> nat+>   "Neg"  -> showChar '-' . nat+>   "[]"   -> showString "[]"+>   ":"    -> showsListTerm b t+>   "O"    -> nat'+>   "I"    -> nat'+>   "IHi"  -> nat'++Parse other constructors of Prelude against tuples, else treat them as regular constructors:++>   _      -> tuple+>   where+>     tuple = case isTuple s of+>               Just n  -> showsTupleTerm b t n+>               Nothing -> showsRegularTerm b t+>     nat   = case calcNat (head ts) of+>               Just n  -> shows n+>               Nothing -> showsRegularTerm b t+>     nat'  = case calcNat t of+>               Just n  -> shows n+>               Nothing -> showsRegularTerm b t++All not Prelude concstructors are treated as regular constructors:++> showsAlgebraicTerm b t = showsRegularTerm b t++Converts a term of `Nat` to a haskell number.++> calcNat (Term s _ ts) = case s of+>   "O"   -> case mnat of+>              Just nat -> Just $ 2 * nat +>              Nothing  -> Nothing+>   "I"   -> case mnat of+>              Just nat -> Just $ 2 * nat + 1+>              Nothing  -> Nothing+>   "IHi" -> Just 1+>   _     -> error $ "unknown cons of Nat: " ++ s+>   where+>     mnat = calcNat (head ts)+> calcNat _ = Nothing++Shows a list term. Checks wether it's a String.++> showsListTerm b t = case t of+>   (Term ":" _ [TermChar _,_]) -> showChar '"' . showsStringTerm t+>   _                           -> showChar '[' . showsList b t++Shows a string term (list term of char terms).++> showsStringTerm t = case t of+>   (Term ":"  _ [TermChar c,rt]) -> showChar c . showsStringTerm rt+>   (Term "[]" _ _)               -> showChar '"'++> showsList :: PrecInfo -> Term -> ShowS+> showsList b (Term ":"  _ [te,(Term "[]" _ _)]) = +>   showsTerm b te . showChar ']'+> showsList b (Term ":"  _ [te,tl]) = +>   showsTerm b te . showChar ',' . showsList b tl+> showsList _ (Term "[]" _ _)       = showChar ']'+> showsList _ (TermUnderscore _)    = showString "...]"+> showsList b t = showsTerm b t+++> showsRegularTerm b (Term s _ []) = showString s+> showsRegularTerm b (Term s _ ts) = +>   showParen b $ showString s .+>                 foldr (\t fs -> showChar ' ' . showsTerm True t . fs) id ts++Checks if constructor name is a tuple, returns the arity of the tuple or nothing:++> isTuple s =+>   case pTuple s (0,0) of+>     Result 0 "" _  -> Just 0+>     Result i "" _  -> Just (i+1)+>     _              -> Nothing++Tuple parser:++> pTuple :: Parser Int+> pTuple = pSucceed (\_ n -> n)+>          <*> pSym '(' <*> tupleInterior++> tupleInterior :: Parser Int+> tupleInterior = pSucceed (\_ n -> n+1)+>                  <*> pSym ',' <*> tupleInterior+>                 <||>+>                 pSucceed (const 0)+>                  <*> pSym ')'++Shows the tuple of given term:++> showsTupleTerm b (Term _ _ []) 0 = showString "()"+> showsTupleTerm b (Term _ _ ts) n = +>   showParen b $ showChar '(' . showString interior . showChar ')'+>   where+>     interior = concat $ intersperse "," terms+>     terms    = P.map showTerm ts
+ biosphere/src/Curry/Debugger/Tools/Cycle/Monad.lhs view
@@ -0,0 +1,40 @@+> {-# LANGUAGE FlexibleInstances #-}++> module Curry.Debugger.Tools.Cycle.Monad where++> import Curry.Debugger.DebugMonad+> import Curry.Debugger.ShowTerm+> import Control.Monad.State++Container for the calls (Function name + Argument terms):++> data TraceElement = TraceElement String [Term]++Call is equal to another, if function names and arguments are identical:++> instance Eq TraceElement where+>   (TraceElement s ts) == (TraceElement s' ts') = s == s' && ts == ts'++> instance MonadIO m => DM (DMT [TraceElement] m) where+             +>   funcCallHook name di call = do+>     let args = currentValues (dynamicInfo di)+>     trace <- getToolState+>     let traceElt = TraceElement name args+>     putToolState (traceElt : trace)+>     (when (elem traceElt trace)+>           (fail $ showCycle name args))+>     (liftIO $ putStrLn (name ++ " " ++ (show $ length trace)))+>     result <- call+>     putToolState trace+>     return result++> showCycle :: String -> [Term] -> String+> showCycle func args =+>   "Cycle: " ++ func ++ " " ++ showedArgs+>     where+>       showedArgs = concatMap (\ t -> showTerm t ++ " ") args++> run :: GenTerm a => DMT [TraceElement] IO a -> String -> IO a+> run exp steps = debugDMT exp steps []+
+ biosphere/src/Curry/Debugger/Tools/Debug/Monad.lhs view
@@ -0,0 +1,46 @@+> {-# LANGUAGE FlexibleInstances #-}++> module Curry.Debugger.Tools.Debug.Monad where++> import Curry.Debugger.DebugMonad+> import Curry.Debugger.ShowTerm+> import Control.Monad.State+++> instance MonadIO m => DM (DMT Int m) where++>   hook hookType di call = do+>     let args = currentValues (dynamicInfo di)+>     level <- getToolState+>     oracle <- getOracle+>     let oracleInfo = format 4 (show oracle)+>     liftIO $ putStrLn (oracleInfo ++ (replicate level ' ') ++ showHook hookType args)+>     putToolState (level + 1)+>     result <- call+>     putToolState level+>     return result++> format :: Int -> String -> String+> format n [] | n < 0     = []+>             | otherwise = format (n-1) [] ++ " "+> format n (c:cs)         = c : format (n-1) cs++> showHook :: Hook -> [Term] -> String+> showHook (FuncCallHook name) args = "FuncCallHook " ++ showHookSignature name args+> showHook (FuncDeclHook name) args = "FuncDeclHook " ++ showHookSignature name args+> showHook hook                args = showHookSignature (show hook) args++> showHookSignature :: String -> [Term] -> String+> showHookSignature name args =+>   name ++ " " ++ showedArgs+>     where+>       showedArgs = concatMap (\ t -> showTerm t ++ " ") args++> run :: GenTerm a => DMT Int IO a -> String -> IO a+> run exp steps = do+>            putStrLn $ "starting strict evaluation"+>            result <- debugDMT exp steps 0+>            printTerm result+>            putStrLn "\nstrict evaluation finished"+>            return result+
+ biosphere/src/Curry/Debugger/Tools/DeclarativeDebugger/CallStack.lhs view
@@ -0,0 +1,67 @@+> {-# OPTIONS_GHC -XFlexibleInstances #-}+> module Curry.Debugger.Tools.DeclarativeDebugger.CallStack ( CallStack+>                  , FuncCall (..)+>                  , new+>                  , top+>                  , push+>                  , pop+>                  )+>  where++> import Curry.Debugger.Tools.DeclarativeDebugger.Ratings ( Rating (..) )++> data CallStack = CS { stack :: [FuncCall] }+> data FuncCall = FC { mod  :: String+>                    , name :: String+>                    , args :: [String]+>                    , res :: Maybe String+>                    , rating :: Rating+>                    }++> instance Show CallStack where+>     showsPrec _prec (CS cs) = shows' 1 $ reverse cs where+>         shows' _n [] = showString "<Empty callstack>"+>         shows' n [c] = shows'' n c+>         shows' n (c : cs) = (shows' (n + 1) cs)+>                           . (showChar '\n')+>                           . (shows'' n c)+>         shows'' n c = (showChar '(')+>                     . (shows n)+>                     . (showString ") ")+>                     . (shows c)++> instance Show FuncCall where+>     showsPrec _prec (FC m f as re ra) = (case m of+>                                              "" ->+>                                                  id+>                                              _ ->+>                                                  (showString m)+>                                                . (showChar '.')+>                                         )+>                                       . (showString f)+>                                       . (foldl (\sf a -> sf+>                                                        . (showChar ' ')+>                                                        . (showString a)+>                                                ) id as)+>                                       . (case re of+>                                              Nothing ->+>                                                  id+>                                              Just r  -> +>                                                  (showString " ==> ")+>                                                . (showString r)+>                                         )+>                                       . (showString " (")+>                                       . (shows ra)+>                                       . (showChar ')')+> new :: CallStack+> new = CS { stack = [] }++> top :: CallStack -> FuncCall+> top = head . stack++> push :: CallStack -> FuncCall -> CallStack+> push (CS cs) c = CS { stack = c : cs }++> pop :: CallStack -> CallStack+> pop (CS (c : cs)) = CS { stack = cs } +
+ biosphere/src/Curry/Debugger/Tools/DeclarativeDebugger/Monad.lhs view
@@ -0,0 +1,482 @@+> {-# OPTIONS_GHC -fglasgow-exts #-}+> module Curry.Debugger.Tools.DeclarativeDebugger.Monad where++> import Control.Monad.Error+> import Control.Monad.State+> import Control.Monad.Trans++> import Curry.Debugger.DebugMonad+> import Curry.Debugger.Oracle+> import Curry.Debugger.DebugInfo+> import Curry.Debugger.DebugInfoGoodies+> import Curry.Debugger.ShowTerm++> import qualified Curry.Debugger.Tools.DeclarativeDebugger.CallStack as CS+> import Curry.Debugger.Tools.DeclarativeDebugger.CallStack ( CallStack+>                  , FuncCall (..)+>                  )++> import qualified Curry.Debugger.Tools.DeclarativeDebugger.Ratings as R+> import Curry.Debugger.Tools.DeclarativeDebugger.Ratings ( Ratings (..)+>                , Rating (..)+>                )++> import qualified Curry.Debugger.Tools.DeclarativeDebugger.UI as UI+> import Curry.Debugger.Tools.DeclarativeDebugger.UI ( Cmd (..)+>           )++> type DDM a = DMT DeclarativeState (ErrorT DeclarativeException IO) a++> data DeclarativeException = QuitException    DeclarativeState+>                           | RestartException DeclarativeState+>                           | UndefinedException+>  deriving Show++> instance Error DeclarativeException where+>     noMsg = UndefinedException++> data DeclarativeState = DS { execMode :: ExecMode+>                            , ratings :: Ratings+>                            , unratedLeft :: Bool+>                            , wrongRules :: [FuncCall]+>                            , nextCmd :: Maybe Cmd+>                            , undoStack :: [Cmd]+>                            , replayStack :: [Cmd]+>                            , callStack :: CallStack+>                            }+>  deriving Show++> type InternalState = (Oracle, DeclarativeState)++> data ExecMode = ResultMode  -- just get the result+>               | CorrectMode -- current subcomputation is marked as correct+>               | InspectMode+>               | NavigateMode+>  deriving Show++> instance DM (DMT DeclarativeState (ErrorT DeclarativeException IO)) where+>     funcDeclHook fname info ma = do+>         emode <- getExecMode++>         r <- case emode of+>             ResultMode   -> evaluateResult ma+>             CorrectMode  -> ma+>             NavigateMode -> navigate (niceFname fname) info ma+>             InspectMode  -> inspect (niceFname fname) info ma+>         return r++> niceFname :: String -> String+> niceFname fname =+>     let c = head fname+>     in  if c < 'a' || c > 'z' then+>             '(' : fname ++ ")"+>         else+>             fname++> evaluateResult :: DDM a -> DDM a+> evaluateResult ma = do+>     rating <- getRating+>     let iscorrect = rating == Correct++>     when iscorrect $ setExecMode CorrectMode+>     shiftRatings+>     r <- ma+>     when iscorrect $ setExecMode ResultMode++>     return r++> navigate :: GenTerm a => String -> DI -> DDM a -> DDM a+> navigate fname info ma = do+>     setUnratedLeft++	>     (modname, fname) <- liftIO $ getQualifiedFuncName info++>     modname <- getModName++>     let cv = map (showTerm) $ currentValues $ dynamicInfo info+>     rating <- getRating+>     let fc = FC modname fname cv Nothing rating+>     csPush fc +>     let sfc = show fc++>     r <- navigatePrompt sfc fname info ma++>     csPop++>     return r++> navigatePrompt :: GenTerm a => String -> String -> DI -> DDM a -> DDM a+> navigatePrompt p fname info ma = do+>     replaying <- isReplaying+>     nc <- getNextCmd+>     cmd <-+>         case nc of+>             Nothing ->+>                 if replaying then +>                     popReplayStack+>                 else+>                     liftIO $ UI.getNavigateCmd p+>             Just c -> do+>                 setNextCmd Nothing+>                 return c++>     case cmd of+>         HelpCmd -> do+>             liftIO UI.navigateHelp+>             navigatePrompt p fname info ma++>         QuitCmd -> do+>             quit++>         InspectCmd -> do+>             pushUndoStack cmd+>             setExecMode InspectMode+>             csPop+>             inspect fname info ma++>         StackCmd -> do+>             csPrint+>             navigatePrompt p fname info ma++>         RestartCmd -> do+>             pushUndoStack cmd+>             restart++>         StepCmd n -> do+>             when (nc == Nothing) $ pushUndoStack cmd+>             when (n > 1) $ setNextCmd $ Just $ StepCmd $ n - 1+>             shiftRatings+>             ma++>         SkipCmd n -> do+>             when (nc == Nothing) $ pushUndoStack cmd+>             when (n > 1) $ setNextCmd $ Just $ SkipCmd $ n - 1+>             setExecMode ResultMode+>             r <- evaluateResult ma+>             setExecMode NavigateMode+>             return r++>         UndoCmd n -> do+>             prepareReplay n+>             restart++>         _ -> do+>             liftIO $ do+>                 putStr "Error: Unexpected command "+>                 print cmd+>             navigatePrompt p fname info ma++> inspect :: GenTerm a => String -> DI -> DDM a -> DDM a+> inspect fname info ma = do+>     rating <- getRating++>     case rating of+>         Correct -> do+>             setExecMode CorrectMode+>             r <- ma+>             setExecMode InspectMode+>             return r++>         Wrong -> do+>             shiftRatings+>             ma++>         Unrated -> do+>             setUnratedLeft++	>             (modname, fname) <- liftIO $ getQualifiedFuncName info++>             modname <- getModName++>             let cv = map (showTerm) $ currentValues $ dynamicInfo info++>             state <- backupState+>             setExecMode ResultMode+>             res <- evaluateResult ma+>             setExecMode InspectMode+>             state' <- backupState+>             restoreState state+>             let sr = showGenTerm res++>             let fc = FC modname fname cv (Just sr) rating+>             csPush fc +>             let sfc = show fc++>             r <- inspectPrompt sfc state' res info ma++>             csPop++>             return r++> loopWrong :: DDM a -> DDM a+> loopWrong ma = do+>     (o, dds)  <- backupState+>     r <- ma+>     (_, dds') <- backupState++>     case unratedLeft dds' of+>         True -> do+>             let state' = (o, dds { ratings = R.restart $ ratings dds'+>                                  , unratedLeft = False+>                                  }+>                          )+>             restoreState state'+>             liftIO $ UI.putEndMsg []+>             loopWrong ma++>         False -> do+>             liftIO $ do+>                 putStrLn "Nothing left for rating."+>             quit++> inspectPrompt :: String -> InternalState -> a -> DI -> DDM a -> DDM a+> inspectPrompt sfc state' res info ma = do+>     replaying <- isReplaying+>     nc <- getNextCmd++>     cmd <-+>         case nc of+>             Nothing ->+>                 if replaying then +>                     popReplayStack+>                 else+>                     liftIO $ UI.getInspectCmd sfc+>             Just c -> do+>                 setNextCmd Nothing+>                 return c++>     case cmd of+>         HelpCmd -> do+>             liftIO UI.inspectHelp+>             inspectPrompt sfc state' res info ma++>         QuitCmd -> do+>             quit++>         RestartCmd -> do+>             pushUndoStack cmd+>             restart++>         StackCmd -> do+>             csPrint+>             inspectPrompt sfc state' res info ma++>         RateCmd Correct -> do+>             pushUndoStack cmd+>             modifyRatings $+>                 \(Ratings p _) -> Ratings (R.push p 1 Correct)+>                                           (R.future $ ratings $ snd state')+>             setExecMode CorrectMode+>             r <- ma+>             setExecMode InspectMode+>             return r++>         RateCmd Wrong -> do+>             pushUndoStack cmd+>             modifyRatings $+>                 \(Ratings _ f) -> Ratings [] f+>             fc <- csTop+>             let fc' = fc { rating = Wrong }+>             csPop+>             csPush fc'+>             addWrongRule fc'+>             loopWrong ma++>         SkipCmd n -> do+>             when (nc == Nothing) $ pushUndoStack cmd+>             when (n > 1) $ setNextCmd $ Just $ SkipCmd $ n - 1+>             shiftRatings+>             ma++>         UndoCmd n -> do+>             prepareReplay n+>             restart++>         _ -> do+>             liftIO $ do+>                 putStr "Error: Unexpected command "+>                 print cmd+>             inspectPrompt sfc state' res info ma++State handling functions+========================++> backupState :: DDM InternalState+> backupState = do+>     o   <- getOracle+>     dds <- getToolState+>     return (o, dds)++> restoreState :: InternalState -> DDM ()+> restoreState (o, dds) = do+>     setOracle o+>     putToolState dds++> printState :: DDM ()+> printState = backupState >>= liftIO . print++Ratings+=======++> setUnratedLeft :: DDM ()+> setUnratedLeft = modifyToolState $ \s -> s { unratedLeft = True } ++> addWrongRule :: FuncCall -> DDM ()+> addWrongRule fc = modifyToolState $ \s -> s { wrongRules = fc : wrongRules s }++> shiftRatings :: DDM ()+> shiftRatings = modifyToolState $ \s -> s { ratings = R.shift (ratings s) 1 }++> modifyRatings :: (Ratings -> Ratings) -> DDM ()+> modifyRatings f = modifyToolState $ \s -> s { ratings = f (ratings s) }++> getRating :: DDM Rating+> getRating = do+>     st <- getToolState+>     return $ R.current $ ratings st++Stepping, skipping and undoing+==============================++> setNextCmd :: Maybe Cmd -> DDM ()+> setNextCmd mnc = modifyToolState $ \s -> s { nextCmd = mnc }++> getNextCmd :: DDM (Maybe Cmd)+> getNextCmd = do+>     st <- getToolState+>     return $ nextCmd st++> pushUndoStack :: Cmd -> DDM ()+> pushUndoStack c = modifyToolState $ \s -> s { undoStack = c : undoStack s }++> prepareReplay :: Int -> DDM ()+> prepareReplay n = modifyToolState $ \s -> s { replayStack = reverse $+>                                                                drop n $+>                                                                    undoStack s+>                                             , undoStack = []+>                                             }++> isReplaying :: DDM Bool+> isReplaying = do+>     st <- getToolState+>     return $ [] /= replayStack st++> popReplayStack :: DDM Cmd+> popReplayStack = do+>     st <- getToolState+>     let (c : cs) = replayStack st+>     modifyToolState $ \s -> s { replayStack = cs }+>     return c++CallStack+=========++> csPush :: FuncCall -> DDM ()+> csPush fc =+>     modifyToolState $+>         \s -> s { callStack = CS.push (callStack s) fc }++> csPop :: DDM ()+> csPop =+>     modifyToolState $+>         \s -> s { callStack = CS.pop $ callStack s }++> csTop :: DDM FuncCall+> csTop = do+>     st <- getToolState+>     return $ CS.top $ callStack st++> csPrint :: DDM ()+> csPrint = do+>     st <- getToolState+>     liftIO $ print $ callStack st++ExecMode+========++> getExecMode = do+>     st <- getToolState+>     return $ execMode st++> setExecMode :: ExecMode -> DDM ()+> setExecMode em = modifyToolState $ \s -> s { execMode = em }++Execeptions+===========++> restart :: DDM a+> restart = do+>     st <- getToolState+>     lift $ throwError $ RestartException st++> quit :: DDM a+> quit = do+>     st <- getToolState+>     lift $ throwError $ QuitException st++Running the debugger+====================++> debugThis :: GenTerm a => DDM a -> DDM (a, DeclarativeState)+> debugThis exp = do+>     r <- exp+>     st <- getToolState+>     return (r, st)++> debugLoop :: GenTerm a => DDM a -> String -> ExecMode -> Ratings+>                                 -> [FuncCall] -> [Cmd] -> [Cmd] -> IO ()+> debugLoop exp sfile emode rats wrongs undos replays = do+>     er <- runErrorT $ debugDMT (debugThis exp) sfile $+>         DS { execMode    = emode+>            , ratings     = rats+>            , unratedLeft = False+>            , undoStack   = undos+>            , replayStack = replays+>            , nextCmd     = Nothing+>            , wrongRules  = wrongs+>            , callStack   = CS.new+>            }++>     case er of+>         Left e ->+>             case e of+>                 QuitException st -> do+>                     liftIO $ mapM_ print $ wrongRules st+>                     return ()+>                 RestartException st ->+>                     debugLoop exp+>                               sfile +>                               NavigateMode+>                               R.new+>                               []+>                               (undoStack   st)+>                               (replayStack st)+>                 UndefinedException -> do+>                     putStrLn "This should not happen. Please report bug."+>         Right (r, st)+>             | unratedLeft st -> do+>                 UI.putEndMsg [ ("Result", showGenTerm r)+> --                             , ("Oracle", show $ oracle dms)+>                              ]+>                 debugLoop exp+>                           sfile+>                           (execMode st)+>                           (R.restart $ ratings st)+>                           (wrongRules st)+>                           (undoStack st)+>                           (replayStack st)+>             | otherwise -> do+>                 liftIO $ do+>                     putStrLn "Nothing left for rating."+>                     mapM_ print $ wrongRules st+>                 return ()++> run :: GenTerm a => DDM a -> String -> IO ()+> run exp sfile = do+>     UI.start+>     debugLoop exp sfile NavigateMode R.new [] [] []+>     UI.stop+>     putStrLn "Bye."++> getModName = return "" -- FIXME+
+ biosphere/src/Curry/Debugger/Tools/DeclarativeDebugger/Ratings.lhs view
@@ -0,0 +1,85 @@+> module Curry.Debugger.Tools.DeclarativeDebugger.Ratings ( Ratings (..)+>                , Rating (..)+>                , new+>                , shift+>                , replace+>                , push+>                , pop+>                , top+>                , current+>                , restart+>                ) where++> data Ratings = Ratings { past   :: RatingStack+>                        , future :: RatingStack+>                        }+>  deriving Show++> type RatingStack = [RatingBurst]++> data RatingBurst = Burst Rating Int+>  deriving Show++> data Rating = Correct+>             | Wrong+>             | Unrated+>  deriving Eq++> instance Show Rating where+>     showsPrec _prec Correct = showString "correct"+>     showsPrec _prec Wrong   = showString "wrong"+>     showsPrec _prec Unrated = showString "unrated"++> new :: Ratings+> new = Ratings { past   = []+>               , future = []+>               }++> shift :: Ratings -> Int -> Ratings+> shift r@(Ratings p f) n+>     | n == 0 =+>         r+>     | n < 0 =+>         let (Ratings f' p') = shift (Ratings f p) (-n)+>         in  (Ratings p' f')+>     | otherwise =+>         case f of+>             [] ->+>                 Ratings (push p n Unrated) f+>             (b@(Burst r m) : rs)+>                 | n < m ->+>                     Ratings (push p n r) ((Burst r (m - n)) : rs)+>                 | n == m ->+>                     Ratings (b : p) rs+>                 | otherwise ->+>                     shift (Ratings (b : p) rs) $ n - m++> replace :: Ratings -> Int -> Rating -> Ratings+> replace (Ratings p f) n r = let f' = push (pop f n) 1 r+>                          in  Ratings { past = p, future = f' }++> current :: Ratings -> Rating+> current (Ratings _p f) = top f++> restart :: Ratings -> Ratings+> restart (Ratings p f) = Ratings { past = []+>                                 , future = foldl (flip (:)) f p+>                                 }++> top :: RatingStack -> Rating+> top [] = Unrated+> top (Burst r _n : rs) = r++> push :: RatingStack -> Int -> Rating -> RatingStack+> push [] n r = [Burst r n]+> push (b@(Burst rb m) : rs) n r+>     | rb == r   = Burst rb (m + n) : rs+>     | otherwise = Burst r n : b : rs++> pop :: RatingStack -> Int-> RatingStack+> pop [] _n = []+> pop (Burst _r m : rs) n +>     | m > n     = Burst _r (m - n) : rs+>     | m == n    = rs+>     | otherwise = pop rs $ n - m+
+ biosphere/src/Curry/Debugger/Tools/DeclarativeDebugger/UI.lhs view
@@ -0,0 +1,337 @@+> {-# OPTIONS -cpp #-} +> module Curry.Debugger.Tools.DeclarativeDebugger.UI ( Cmd (..)+>           , start+>           , stop+>           , navigateHelp+>           , inspectHelp+>           , getNavigateCmd+>           , getInspectCmd+>           , putLabledInfos+>           , putEndMsg+>           )+>  where++> import Data.List (isPrefixOf)++> import qualified System.Console.Readline as RL++> import Curry.Debugger.Tools.DeclarativeDebugger.Ratings ( Ratings+>                , Rating (..)+>                )++> data Cmd = StackCmd+>          | HelpCmd+>          | InspectCmd+>          | StepCmd Int+>          | UndoCmd Int+>          | SkipCmd Int+>          | QuitCmd+>          | RateCmd Rating+>          | RestartCmd+>  deriving (Eq, Show)++> type Commands = [(String, String, [[ArgType]], GenCmd)]++> data ArgType = SpecialArgType String+>              | NaturalIntArgType++> data Arg = SpecialArg String+>          | IntArg Int++> type GenCmd = [Arg] -> Cmd++> navigateCommands :: Commands+> navigateCommands =+>     [ ( "help"+>       , "Shows these information."+>       , []+>       , \_ -> HelpCmd+>       )+>     , ( "quit"+>       , "Quit debugger."+>       , []+>       , \_ -> QuitCmd+>       )+>     , ( "restart"+>       , "Restarts the whole computation."+>       , []+>       , \_ -> RestartCmd+>       )+>     , ( "inspect"+>       , "Go to inspection mode."+>       , []+>       , \_ -> InspectCmd+>       )+>     , ( "step"+>       , "Step into current evaluation, with positive n do n steps."+>       , [ []+>         , [NaturalIntArgType]+>         ]+>       , \args -> case args of+>                      []         -> StepCmd 1+>                      [IntArg n] -> StepCmd n+>       )+>     , ( "skip"+>       , "Skip this expression, with positive n the next n expressions."+>       , [ []+>         , [NaturalIntArgType]+>         ]+>       , \args -> case args of+>                      []         -> SkipCmd 1+>                      [IntArg n] -> SkipCmd n+>       )+>     , ( "undo"+>       , "Undo the previous command, with positive n the n commands "+>      ++ "executed before."+>       , [ []+>         , [NaturalIntArgType]+>         ]+>       , \args -> case args of+>                      []         -> UndoCmd 1+>                      [IntArg n] -> UndoCmd n+>       )+>     , ( "stack"+>       , "Show callstack."+>       , []+>       , \_ -> StackCmd+>       )+>     ]++> inspectCommands :: Commands+> inspectCommands =+>     [ ( "help"+>       , "Shows these information."+>       , []+>       , \_ -> HelpCmd+>       )+>     , ( "quit"+>       , "Quit debugger."+>       , []+>       , \_ -> QuitCmd+>       )+>     , ( "restart"+>       , "Restart the whole debugging process. Every rating will be lost!"+>       , []+>       , \_ -> RestartCmd+>       )+>     , ( "correct"+>       , "Rates the result of the current expression as correct."+>       , []+>       , \_ -> RateCmd Correct+>       )+>     , ( "wrong"+>       , "Rates the result of the current expression as wrong."+>       , []+>       , \_ -> RateCmd Wrong+>       )+>     , ( "next"+>       , "Don't rate the current expression, with positive n the next "+>      ++ "n expressions."+>       , [ []+>         , [NaturalIntArgType]+>         ]+>       , \args -> case args of+>                      []         -> SkipCmd 1+>                      [IntArg n] -> SkipCmd n+>       )+>     , ( "undo"+>       , "Undo the previous command, with positive n the n commands "+>      ++ "executed before."+>       , [ []+>         , [NaturalIntArgType]+>         ]+>       , \args -> case args of+>                      []         -> UndoCmd 1+>                      [IntArg n] -> UndoCmd n+>       )+>     , ( "stack"+>       , "Show callstack."+>       , []+>       , \_ -> StackCmd+>       )+>     ]++> navigateCommandNames :: [String]+> navigateCommandNames = fst4 $ unzip4 navigateCommands++> inspectCommandNames :: [String]+> inspectCommandNames = fst4 $ unzip4 inspectCommands++> help :: Commands -> IO ()+> help = mapM_ (\(c, h, _, _) -> do+>                   putStr "\t"+>                   putStr c+>                   putStr "\t"+>                   putStrLn h+>              )++> navigateHelp :: IO ()+> navigateHelp = help navigateCommands++> inspectHelp :: IO ()+> inspectHelp = help inspectCommands++> fst4 :: (a, b, c, d) -> a+> fst4 (a, _, _, _) = a++> snd4 :: (a, b, c, d) -> b+> snd4 (_, b, _, _) = b++> thrd4 :: (a, b, c, d) -> c+> thrd4 (_, _, c, _) = c++> frth4 :: (a, b, c, d) -> d+> frth4 (_, _, _, d) = d++> unzip4 :: [(a, b, c, d)] -> ([a], [b], [c], [d])+> unzip4 = foldr (\(a, b, c, d)~ (as, bs, cs, ds) ->+>                     (a : as, b : bs, c : cs, d : ds)+>                ) ([], [], [], [])++> lookup4 :: Eq a => a -> [(a, b, c, d)] -> Maybe (b, c, d)+> lookup4 _ [] = Nothing+> lookup4 kl ((k, v1, v2, v3) : kv4s)+>     | kl == k   = Just (v1, v2, v3)+>     | otherwise = lookup4 kl kv4s++Initializing and cleaning up+============================++    > start :: IO ()+    > start = SLE.initialise++    > stop :: IO ()+    > stop = SLE.restore++> start :: IO ()+> start = RL.initialize++> stop :: IO ()+> stop = RL.resetTerminal Nothing++Readline stuff+==============++> matchCommand :: String -> [String] -> [String]+> matchCommand c = filter (isPrefixOf c)++> completeWord :: [String] -> String -> Int -> Int -> IO (Maybe (String, [String]))+> completeWord commandNames word start end = do+>     return $ if start > 0 then +>                  Nothing+>              else+>                  case matchCommand word commandNames of+>                      []  -> Nothing+>                      [c] -> Just (c, [])+>                      cs  -> Just (word, cs)++> completeNavigateWord :: String -> Int -> Int -> IO (Maybe (String, [String]))+> completeNavigateWord = completeWord navigateCommandNames++> completeInspectWord :: String -> Int -> Int -> IO (Maybe (String, [String]))+> completeInspectWord = completeWord inspectCommandNames++> setNavigateCompletion :: IO ()+> setNavigateCompletion = RL.setAttemptedCompletionFunction $ Just completeNavigateWord++> setInspectCompletion :: IO ()+> setInspectCompletion = RL.setAttemptedCompletionFunction $ Just completeInspectWord++Getting information from the user+=================================++> readLine = gnuReadLine++> simpleReadLine :: String -> IO String+> simpleReadLine prompt = do+>     putStr prompt+>     getLine++	> intermediateReadLine :: String -> IO String+	> intermediateReadLine prompt = do+	>     mi <- SLE.getLineEdited prompt+	>     case mi of+	>         Just i  -> return i+	>         Nothing -> return "quit"++> gnuReadLine :: String -> IO String+> gnuReadLine prompt = do+>     mi <- RL.readline prompt+>     case mi of+>         Just i  -> do+>             RL.addHistory i+>             return i+>         Nothing -> return "quit"++> parseArgs :: [[ArgType]] -> [String] -> Maybe [Arg]+> parseArgs [] [] = Just [] +> parseArgs [] _  = Nothing+> parseArgs (ts : tss) as =+>     case parseArgs' ts as of+>         Just as' -> Just as'+>         Nothing  -> parseArgs tss as+>     where+>         parseArgs' [] [] = Just []+>         parseArgs' (_ : _) [] = Nothing+>         parseArgs' [] (_ : _) = Nothing+>         parseArgs' ((SpecialArgType s) : ts) (a : as)+>             | s == a = do+>                 pas <- parseArgs' ts as+>                 return $ (SpecialArg s) : pas+>             | otherwise = Nothing+>         parseArgs' (NaturalIntArgType : ts) (a : as) = +>             case reads a :: [(Int, String)] of+>                 [(n, "")]+>                     | n > 0 -> do+>                         pas <- parseArgs' ts as+>                         return $ (IntArg n) : pas+>                     | otherwise ->+>                         Nothing++>                 _ -> Nothing++> getCmd :: Commands -> String -> IO Cmd+> getCmd commands p = do+>     i <- readLine p+>     let is = words i+>     case is of+>         []         -> getCmd commands p+>         (c : args) ->+>             case lookup4 c commands of+>                 Nothing -> do+>                     putStrLn "Invalid command."+>                     getCmd commands p+>                 Just (_, tss, gc) ->+>                     case parseArgs tss args of+>                         Nothing -> do+>                             putStrLn "Invalid parameters."+>                             getCmd commands p+>                         Just pagrs -> return $ gc pagrs++> getNavigateCmd :: String -> IO Cmd+> getNavigateCmd p = do+>     setNavigateCompletion+>     getCmd navigateCommands $ p ++ " > "++> getInspectCmd :: String -> IO Cmd+> getInspectCmd p = do+>     setInspectCompletion+>     getCmd inspectCommands $ p ++ " $ "++Showing information to the user+===============================++> putLabledInfos :: [(String, String)] -> IO ()+> putLabledInfos =+>     mapM_ ( \(label, info) -> do+>                 putStr label+>                 putStr ": "+>                 putStrLn info+>           )++> putEndMsg :: [(String, String)] -> IO ()+> putEndMsg is = do+>     putStrLn "\nReached end of computation...\n"+>     putLabledInfos is+>     putStrLn "\nRestarting computation...\n"+
+ biosphere/src/Curry/Debugger/Tools/Observations/Monad.lhs view
@@ -0,0 +1,65 @@+> {-# OPTIONS_GHC -fglasgow-exts #-}+> module Curry.Debugger.Tools.Observations.Monad where++> import Control.Monad.Trans+> import Control.Monad+> import Curry.Debugger.DebugMonad++> import Curry.Debugger.ShowTerm++> data ObservationsState = OS { fnames :: [String]+>                             , obs :: [(String, [String])] }++> instance Monad m => DM (DMT ObservationsState m) where++>   funcCallHook fname info ma = do+>     r <- ma+>     st <- getToolState+>     let args = currentValues (dynamicInfo info)+>     when+>       (elem fname $ fnames st)+>       (addObs fname $ showFuncCall fname args $ genTerm r)+>     return r++> showFuncCall :: String -> [Term] -> Term -> String+> showFuncCall func args result =+>   (niceFname func) ++ " " ++ showedArgs ++ "= " ++ showTerm result+>     where+>       showedArgs = concatMap (\ t -> showTerm t ++ " ") args++> niceFname fname =+>   let c = head fname+>   in  if c < 'a' || c > 'z' then+>           '(' : fname ++ ")"+>       else+>           fname++> addObs fname val = modifyToolState $+>                        \st -> st { obs = add fname val $ obs st }+>   where+>     add n v [] = [(n, [v])]+>     add n v ((n', vs) : nvs)+>       | n == n' = (n, v : vs) : nvs+>       | otherwise = (n', vs) : add n v nvs++> observe exp = do+>     r <- exp+>     st <- getToolState+>     return (r, obs st)++> run exp fname = do+>   putStrLn "Enter names of functions to observe:"+>   fns <- getLine+>   (r, os) <- debugDMT (observe exp) fname $ OS { fnames = words fns, obs = [] }+>   putStr "Result: "+>   putStrLn $ showGenTerm r+>   putStrLn ""+>   putStrLn "Observations"+>   putStrLn "============"+>   printObservations os++> printObservations [] = return ()+> printObservations ((_, es) : os) = do+>   mapM_ (liftIO . putStrLn) $ reverse es+>   printObservations os+
+ biosphere/src/Curry/Debugger/Tools/Observe/Monad.lhs view
@@ -0,0 +1,44 @@+> {-# LANGUAGE FlexibleInstances #-}++> module Curry.Debugger.Tools.Observe.Monad where++> import Curry.Debugger.DebugMonad+> import Curry.Debugger.ShowTerm+> import Control.Monad.State++> instance MonadIO m => DM (DMT [String] m) where+             +>   funcCallHook name di call = do+>     let args = currentValues (dynamicInfo di)+>     funcs <- getToolState+>     result <- call+>     when (elem name funcs) +>       (liftIO $ putStrLn $ showFuncCall name args $ genTerm result)+>     return result++	>     let rt = genTerm result+	>     case rt of+	>       TermUnderscore _ ->+	>         return result+	>       _                -> do+	>         when (elem name funcs) +	>            (liftIO $ putStrLn $ showFuncCall name args rt)+	>         return result++> showFuncCall :: String -> [Term] -> Term -> String+> showFuncCall func args result =+>   func ++ " " ++ showedArgs ++ "= " ++ showTerm result+>     where+>       showedArgs = concatMap (\ t -> showTerm t ++ " ") args++> run :: GenTerm a => DMT [String] IO a -> String -> IO a+> run exp steps = do+>   putStrLn "Enter names of functions to observe:"+>   funcs <- getLine+>   result <- debugDMT exp steps (words funcs)+>   printTerm result+>   putStrLn ""+>   return result++  +
+ biosphere/src/Curry/Debugger/Tools/StrictEvaluation/Monad.lhs view
@@ -0,0 +1,17 @@+> {-# OPTIONS_GHC -fglasgow-exts #-}+> module Curry.Debugger.Tools.StrictEvaluation.Monad where++> import Control.Monad+> import Control.Monad.Trans+> import Curry.Debugger.DebugMonad+> import Curry.Debugger.ShowTerm++> instance Monad m => DM (DMT a m)++> run exp fname = do+>            putStrLn "starting strict evaluation"+>            debugDMT (printOracle >> exp) fname () >>= printTerm+>            putStrLn "\nstrict evaluation finished"+++> printOracle = getOracle >>= liftIO . print
+ biosphere/src/Curry/Debugger/Tools/Tracer/Monad.lhs view
@@ -0,0 +1,40 @@+> {-# OPTIONS_GHC -fglasgow-exts #-}+> module Curry.Debugger.Tools.Tracer.Monad where++> import Control.Monad.State+> import Control.Monad.Trans++> import Curry.Debugger.DebugMonad+> import Curry.Debugger.Oracle+> import Curry.Debugger.DebugInfo+> import Curry.Debugger.DebugInfoGoodies+> import Curry.Debugger.ShowTerm++> type TM a = DMT () IO a++> instance DM (DMT () IO) where+>     funcDeclHook name info ma = do+>         result <- ma+>         istr <- liftIO $ isTrace name info+>         when (istr)+>              (liftIO $ do+>                           let label = getName info+>                           putStrLn $ label ++ ":"+>                           putStrLn $ replicate (1 + length label) '='+>                           putStrLn $ showGenTerm result+>                           putStrLn "")+>         return result ++> traceFuncName :: (String, String)+> traceFuncName = ("Trace", "trace")++> isTrace :: String -> DI -> IO Bool+> isTrace fname di = do+>     return $ (getModuleName di, fname) == traceFuncName++> getName :: DI -> String+> getName = showTerm . head . getFuncArgs++> run :: GenTerm a => TM a -> String -> IO a+> run ta sfile = debugDMT ta sfile ()+
+ biosphere/src/Curry/Module/AbstractHaskell.lcurry view
@@ -0,0 +1,43 @@+AbstractHaskell+===============++Extends abstract curry by type classes.+++> import AbstractCurry+> import AbstractCurryPrinter++Types+-----++A type class consists of a class name and a number of class arguments:++> data TypeClass = TypeClass QName [CTypeExpr]+++An instance declaration consists of constraints, the instanciated class and+function declarations.++> data InstanceDecl = Instance [TypeClass] TypeClass [HFuncDecl]+++A haskell function declaration is an abstract curry function declaration+extended by type class constraints.++> data HFuncDecl = HFunc QName Int CVisibility [TypeClass] CTypeExpr CRules+++The following Haskell programm type is an extension of `CurryProg` including+instance declarations and haskell function declarations.++> data HaskellProg = HaskellProg String          -- name+>                                String          -- header+>                                [String]        -- imports+>                                String          -- external definitions+>                                [HTypeDecl]     -- types+>                                [InstanceDecl]  -- instance declarations+>                                [HFuncDecl]     -- haskell functions+>                                [COpDecl]       -- operators+++> data HTypeDecl = HTypeDecl [TypeClass] CTypeDecl [QName]
+ biosphere/src/Curry/Module/ExternalStubs.lcurry view
@@ -0,0 +1,150 @@+Generation of stubs for external Functions+==========================================++External functions need to be transformed manually.+For that reason the programmer should be supported with stubs for those functions.+This module generates stubs for external functions of a given flat curry program in an initial `M<module>.hs` (see Transformation.lcurry).++Usage+-----++Call `mkStubs` to generate the stubs module or `writeStubs` to write the `M<module>.hs` for given flat curry program.+Function `containsExt` returns wether given program contains external functions or not.++> module ExternalStubs (+>   stubsInfo,+>   mkStubs,+>   writeStubs,+>   containsExt) +>    where++Imports+-------++> import System+> import IO++> import FlatCurry as FC+> import FlatCurryGoodies++> import AbstractCurry as AC+> import AbstractHaskell++> import FlatToAbstractCurry++> import TransformationDebugInfo+> import TransformationSignatures+> import TransformationPrint++Interface+=========++Generation info at the top of the stubs file:++> stubsInfo = "{- Auto generated stubs for external functions and types\n   Remove this comment to suppress warnings. -}" +++Returns wether given program contains external functions or types or not.++> containsExt :: Prog -> Bool+> containsExt (Prog _ _ types functions _) =+>   any isExternal functions || any (null . typeConsDecls) types+++Generates external stubs module for given flat curry program.++> mkStubs :: Prog -> HaskellProg+> mkStubs = flip mkStubs' $ higherOrderTypes -- TODO: calculate higher order types+++Creates `M<module>.hs` with generated external stubs for given flat curry program.++> writeStubs :: String -> Prog -> IO ()+> writeStubs fileName prog = do+>   prettyacy fileName $ mkStubs $ updQNamesInProg renameModule prog+>   clean fileName+++Implementation+==============++Creates stubs after renaming of functions and types.++> mkStubs' :: Prog -> [FC.QName] -> HaskellProg+> mkStubs' (Prog modname _ types functions _) hoTypes =+>   HaskellProg modname' "" [] "" types' insts stubs []+>     where+>       modname'       = modulePrefix ++ modname+>       stubs          = concatMap (\f -> mkStub f hoTypes) functions+>       (types',insts) = unzip $ concatMap handleType types+++Generates a list with a single stub for given external function or an empty list for regular function.++> mkStub :: FuncDecl -> [FC.QName] -> [HFuncDecl]+> mkStub (Func _ _ _ _ (Rule _ _)) _ = []+> mkStub fd@(Func name arity _ typE (External _ )) hoTypes =+>  if skippedFunc fd then [] else [stub]+>   where+>     stub   = HFunc name' arity AC.Private constr typE' $ rules [rule]+>     name'  = renameFunc name+>     constr = constraint debugMonadClass tvar :+>             map (constraint staticInfoClass) tvars+>     tvar   = (-1,debugTVarName) +>     tvars  = map convertTypeVariable (extractTVars typE)+>     typE'  = transformType arity typE hoTypes+>     rule   = simpleRule pats call+>     pats   = map px [0..arity-1]+>     call   = comb hook (map xx [0..arity-1]) $$ noImpl+>     hook   = hookHelperName name++Generates a list with a single tupel of type and `GenTerm` instance for given external type or an empty list for regular type or type synonym.++> handleType :: TypeDecl -> [(HTypeDecl,InstanceDecl)]+> handleType (TypeSyn _ _ _ _)  = []+> handleType (Type _ _ _ (_:_)) = []+> handleType td@(Type _ _ _ []) =+>   let htd = mkType td in+>   if skippedType td then [] else [(htd, mkInst htd)]+++Generates a type stub for given (external) type. Adds type variable for debug monad constraint, adds `GenTerm` constraints for further tvars and adds a constructor with same name like the type and original tvars.++> mkType :: TypeDecl -> HTypeDecl+> mkType (Type name _ tvars _) = type'+>   where+>     type'  = HTypeDecl constr (CType name' AC.Private (tvar':tvars') [cons]) []+>     constr = constraint debugMonadClass tvar':+>              map (constraint staticInfoClass) tvars'+>     name'  = renameType $ name+>     tvars' = (map convertTypeVariable tvars)+>     tvar'  = (-1,debugTVarName)+>     cons   = CCons name' (length tvars) AC.Private (map CTVar tvars')++data InstanceDecl = Instance [TypeClass] TypeClass [HFuncDecl]++Generates a stub `GenTerm` instance for given (external) type++> mkInst :: HTypeDecl -> InstanceDecl+> mkInst (HTypeDecl _ (CType name _ tvars _) _) = inst+>   where+>     inst   = Instance [] tclass [func]+>     tclass = TypeClass staticInfoClass [CTCons name ctvars]+>     ctvars = map CTVar tvars+>     func   = HFunc staticInfoFunc 1 AC.Private [] untyped (rules [rule])+>     rule   = simpleRule [px 0] noImpl++error "not implemented":++> noImpl = presym "error" $$ acyStr "not implemented"++Removes module header from file containing haskell module with given name and replaces it with a generation info.++> clean :: String -> IO ()+> clean fileName = do+>   handle <- openFile fileName ReadMode+>   hGetLine handle -- remove 1st line+>   contents <- hGetContents handle+>   hClose handle+>   let contents' = stubsInfo ++ "\n" ++ contents+>   writeFile fileName contents'
+ biosphere/src/Curry/Module/FlatToAbstractCurry.lcurry view
@@ -0,0 +1,290 @@+Flat Curry to Abstract Curry+============================++This module provides some constants and converters from Flat Curry to Abstract Curry.++Imports:+--------++> import FlatCurry as FC+> import FlatCurryGoodies+> import AbstractHaskell+> import AbstractCurry as AC+> import Assertion+> import AbstractCurryPrinter+> import List++Variables+=========++Converts a flat curry variable index (single `Int`) to a `CVarIName` as+parameter for `CTVar`, `CVar` and `CPVar`.++> convertVariable :: VarIndex -> CVarIName+> convertVariable i | i < 0     = (i,'y':show (-i))+>                   | otherwise = (i,'x':show i)++> convertTypeVariable :: VarIndex -> CVarIName+> convertTypeVariable i | i < 0                  = (i, 'y':show (-i))+>                       | i <= ord 'z' - ord 'a' = (i,[chr (i + ord 'a')])+>                       | otherwise              = (i, 'x':show i)++Creating variables++> xx :: Int -> CExpr+> xx = CVar . convertVariable++> px :: Int -> CPattern+> px = CPVar . convertVariable++> tx :: Int -> CTypeExpr+> tx = CTVar . convertTypeVariable++Returns the index from the first fresh variable for the given FC expression.++> freshVariable :: Expr -> Int+> freshVariable = (+1) . maximum . allVars where+>   maximum []            = -1+>   maximum [x]           = x+>   maximum (x:xs@(_:_))  = max x (maximum xs)++Extracts all type variable indices contained in the given type.++> extractTVars (TVar index)     = [index]+> extractTVars (TCons _ argts)  = nub $ concat (map extractTVars argts)+> extractTVars (FuncType t1 t2) = nub $ (extractTVars t1) ++ (extractTVars t2)+++Converts flat curry visibility in abstract curry visibilty.++> convertVisibility FC.Public  = AC.Public+> convertVisibility FC.Private = AC.Private+++Converts a flat curry operator into a abstract curry operator.++> convertOperator :: OpDecl -> COpDecl+> convertOperator (Op name p n) = (COp name (convertFixity p) n)+++Converts flat curry fixity in abstract curry fixity.++> convertFixity InfixOp  = CInfixOp+> convertFixity InfixlOp = CInfixlOp+> convertFixity InfixrOp = CInfixrOp+++Converts a flat curry type declaration to abstract curry.++> convertTypeDecl :: TypeDecl -> CTypeDecl+> convertTypeDecl (Type name vis vars conss) =+>   (CType name+>          (convertVisibility vis)+>          (map convertVariable vars)+>          (map convertConsDecl conss))++> convertTypeDecl (TypeSyn name vis vars typeexpr) =+>   (CTypeSyn name+>             (convertVisibility vis)+>             (map convertVariable vars)+>             (convertType typeexpr))+++Converts a flat curry type expression to abstract curry without transformation!++> convertType :: TypeExpr -> CTypeExpr+> convertType (TVar i)           = tx i+> convertType (FuncType te1 te2) = CFuncType (convertType te1) (convertType te2)+> convertType (TCons name tes)   = CTCons name (map convertType tes)+++Converts a flat curry constructor declaration to abstract curry.++> convertConsDecl :: ConsDecl -> CConsDecl+> convertConsDecl (Cons  name arity vis args) =+>                 (CCons name arity (convertVisibility vis) (map convertType args))+++Converts a flat curry literal to abstract curry.++> convertLiteral (Intc i)   = CIntc i+> convertLiteral (Floatc f) = CFloatc f+> convertLiteral (Charc c)  = CCharc c+++Converts a flat curry pattern to abstract curry.++> convertPattern (Pattern name is) = CPComb name $ map (CPVar . convertVariable) is+> convertPattern (LPattern lit)    = CPLit $ convertLiteral lit+++Abstract curry symbol for an empty guard:++> csuccess :: CExpr+> csuccess = presym "success"+++Some useful abstractions:+-------------------------++Create a rule with no guard ++> noGuardRule :: [CPattern] -> CExpr -> [CLocalDecl] -> CRule+> noGuardRule ps e = CRule ps [(csuccess,e)] ++Create a simple rule with no guard and no local declarations++> simpleRule :: [CPattern] -> CExpr -> CRule+> simpleRule ps e = noGuardRule ps e []++Create a rule without pattern++> constantRule :: CExpr -> CRule+> constantRule = simpleRule []++there is no need for eval annotations anymore++> rules :: [CRule] -> CRules+> rules = CRules CFlex++some simplifications and security in building a function declaration++> funcDecl :: AC.QName -> CVisibility -> CTypeExpr -> [CRule] -> HFuncDecl+> funcDecl _ _   _ [] = error "no rules to create function"+> funcDecl n vis t rrs@(r:rs)+>  | not (all (==arity r) (map arity rs)) = error "rules have different arity"+>  | otherwise = HFunc n (arity r) vis [] t (rules rrs)+>  where+>    arity (CRule ps _ _) = length ps++> pubFunc :: AC.QName -> CTypeExpr -> [CRule] -> HFuncDecl+> pubFunc n = funcDecl n AC.Public++> untypedFunc :: AC.QName -> [CRule] -> HFuncDecl+> untypedFunc n = pubFunc n untyped++> constantFunc :: AC.QName -> CExpr -> HFuncDecl+> constantFunc n expr = untypedFunc n [constantRule expr]++name of the prelude ++> prelude :: String+> prelude = "Prelude" ++Constructing a QName of the prelude++> prename :: String -> AC.QName+> prename s = (prelude,s)++A symbol of the prelude:++> presym :: String -> CExpr+> presym s = CSymbol (prename s)++Apply an expression to an expression and to a list of expressions.++> ($$) :: CExpr -> CExpr -> CExpr+> ($$) = CApply++> ($$$) :: CExpr -> [CExpr] -> CExpr+> ($$$) = foldl ($$)++> comb :: FC.QName -> [CExpr] -> CExpr+> comb sym = ($$$) (CSymbol sym)++Creating lists++> (:!:) :: CExpr -> CExpr -> CExpr+> a :!: b = (presym ":") $$$ [a,b] ++> list :: [CExpr] -> CExpr+> list []     = presym "[]"+> list (e:es) = e :!: (list es)++> acyStr :: String -> CExpr+> acyStr []     = presym "[]"+> acyStr (c:cs) = (presym ":") $$$ [(CLit (CCharc c)),(acyStr cs)]++Creating lambdas++> (->>) :: [CPattern] -> CExpr -> CExpr+> (->>) = CLambda++> (->-) :: CPattern -> CExpr -> CExpr+> (->-) = CLambda . (:[])+++Higher Order is done with two concepts: +1) returning a partial call+2) a lifting operation which is applied as many times as arguments are missing++> higherOrder :: CExpr -> Int ->  CExpr +> higherOrder wrapper n = construct (map wrap [1 .. n])+>   where+>    construct [x]          = x+>    construct (x:xs@(_:_)) = point $$$ [x,construct xs]+>    +>    wrap m | m==1      = wrapper+>           | otherwise = point $$ wrap (m-1)++The initial wrapper for monads++> monadWrap :: CExpr+> monadWrap = point $$ presym "return"++The application `(.)` in AbstractCurry++> point :: CExpr+> point = presym "."++a type expression representing "untyped" -- what an ugly hack :o(++> untyped :: CTypeExpr+> untyped = CTCons (prename "untyped") []++Creates a constraint for given variable and qualified name of class.++> constraint :: AC.QName -> CVarIName -> TypeClass+> constraint clazz var = (TypeClass clazz [CTVar var])+++Tests+------++> test1 = AssertEqual "rules with no guard" +>                     (noGuardRule [] csuccess []) +>                     (simpleRule [] csuccess)+>++	> test2 = AssertEqual "see? no guard"+	>                     (showFuncDecl (untypedFunc ("","f") [simpleRule [] csuccess]))+	>                     "\nf = success"+	>++> test3 = AssertEqual "applying something"+>                     (showExpr (presym "f" $$$ map (CVar . convertVariable) [1..3]))+>                     "f x1 x2 x3"+>+>+> test4 = AssertEqual "a nice lambda" +>                     (showExpr (px 1 ->- xx 1))+>                     "\\x1 -> x1" +>++should be equal to: return . (\x->x)++> test5 = AssertEqual "higher order 1"+>                     (showExpr $ higherOrder monadWrap 1 $$ (px 1 ->- xx 1))+>                     "((.)) return (\\x1 -> x1)"++should be equal to: ((return.) . ((return.).)) (\ x y ->x)++> test6 = AssertEqual "higher order 2"+>                     (showExpr $ higherOrder monadWrap 2 $$ ([px 1,px 2] ->> xx 1))+>                     "((.)) (((.)) return) (((.)) (((.)) return)) (\\x1 x2 -> x1)"++should be equal to: ((return.) . ((return.).) . (((return .) .) .)) (\ x y z -> x)++> test7 = AssertEqual "higher order 3"+>                     (showExpr $ higherOrder monadWrap 3 $$ ([px 1,px 2,px 3] ->> xx 1))+>                     "((.)) (((.)) return) (((.)) (((.)) (((.)) return)) (((.)) (((.)) (((.)) return)))) (\\x1 x2 x3 -> x1)"
+ biosphere/src/Curry/Module/SrcRef.curry view
@@ -0,0 +1,1587 @@+{-++  There is no support for function patterns nor record syntax.++  Issues:+    source references for variables in mathcing pattern declarations +    are incorrect.++-}++module SrcRef (+  SrcRef,+  InfoTree,+  getInfoTree,nextStaticInfo,infoChildren,++  srcAt,treeN,+++  bigTest,testAt,testAddTree,testZip) ++   where++import qualified FlatCurry as FC+import qualified FlatCurryGoodies as FG+import CurrySyntax+import ReadShowTerm+import System+import FiniteMap+import Sort+import List+import Float++import Unsafe (trace)++--------------------------------------------+-- the interface +--------------------------------------------++type SrcRef = Int+type Eq a = Maybe (Equation a)+++data SrcEntity a = SrcDecl (Decl a) +                 | SrcCon  (Decl a) (ConstrDecl a)+                 | SrcConTerm (Decl a) (Eq a) (ConstrTerm a)+                 | SrcNew  (Decl a) (NewConstrDecl a)+                 | SrcRhs  (Decl a) (Eq a) (Rhs a)+                 | SrcId   (Decl a) Ident+                 | SrcCond (Decl a) (Eq a) (Expression a) (Expression a)+                 | SrcExpr (Decl a) (Eq a) (Expression a)+                 | SrcAlt  (Decl a) (Eq a) (Alt a)++type InfoTree = [AdrTree [SrcRef]]++nextStaticInfo :: InfoTree -> ([SrcRef],InfoTree)+nextStaticInfo [] = error "empty infotree"+nextStaticInfo (Tree x xs:adrs) = (x,xs ++ adrs)++infoChildren :: InfoTree -> [InfoTree]+infoChildren = map (:[]) ++getInfoTree :: FC.Prog -> IO InfoTree+getInfoTree p@(FC.Prog m _ _ _ _) = do+  readCurry m >>= return . zipFlatCy p ++--------------------------------------------+-- implementation +--------------------------------------------++treeN :: Int -> InfoTree+treeN _ = trees where trees = tr:trees+                      tr = Tree [0] trees ++++----------------------------------------------------------+-- the instance to find a source entity at given position+----------------------------------------------------------++srcAt :: Module p -> SrcRef -> Maybe (SrcEntity p)+srcAt m ref = either Just (const Nothing) $+  moduleAt m ref (\ x r -> if r==0 then Left x else Right (r-1))++-------------------------------------------+-- some basic connectors definitions and+-- connectors +-------------------------------------------++-- an action tells what to do with a source entity+type Action a b p = SrcEntity p -> a -> Either b a+              ++-- a source selector decides whether to apply the action +-- to this part of the source+type Selector a b p = a -> Action a b p -> Either b a++here :: SrcEntity p -> Selector a b p+here se ref h = h se ref++notHere :: Selector a b p+notHere ref _ = Right ref++-- is it left or right?++(.*) :: Selector a b p -> Selector a b p -> Selector a b p+(f .* g) ref h = either Left (flip g h) (f ref h)++-- is it part of this list?+inListAt :: (a -> Selector b c p) -> [a] -> Selector b c p+inListAt _ []     = notHere +inListAt f (x:xs) = f x .* inListAt f xs++-------------------------------------------+-- traversing the program+-------------------------------------------++-- srcAt for a program and a reference +-- -> retrieve source entity at address+moduleAt :: Module p -> Selector a b p +moduleAt (Module _ _ ds) = declsAt ds ++declsAt :: [Decl p] -> Selector a b p+declsAt = inListAt declAt++declAt :: Decl p -> Selector a b p+declAt (ImportDecl _ _ _ _ _) = notHere +declAt d@(InfixDecl _ _ _ is) = inListAt (here . SrcId d) is +declAt d@(DataDecl _ _ _ cs)  = +  here (SrcDecl d) .* inListAt (here . SrcCon d) cs +declAt d@(NewtypeDecl _ _ _  c) = here (SrcDecl d) .* here (SrcNew d c)+declAt d@(TypeDecl _ _ _ _)  = here (SrcDecl d) +declAt (TypeSig _ _ _)       = notHere +declAt (EvalAnnot _ _ _)     = notHere +declAt d@(FunctionDecl _ _ es) +  = here (SrcDecl d) .* eqsAt d es+declAt d@(ExternalDecl _ _ _ i _) = here (SrcId d i) +declAt (FlatExternalDecl _ _) = notHere +declAt d@(PatternDecl _ t rhs) +  = here (SrcDecl d) .* conTermAt (d,Nothing) t .* rhsAt (d,Nothing) rhs+declAt d@(ExtraVariables _ is) = inListAt (here . SrcId d) is+++locsAt :: [Decl p] -> Selector a b p+locsAt = declsAt++type EqContext p = Decl p+type ExpContext p = (Decl p,Eq p)++eqsAt :: EqContext p -> [Equation p] -> Selector a b p+eqsAt d = inListAt (eqAt d)++eqAt :: EqContext p -> Equation p -> Selector a b p+eqAt d eq@(Equation _ l r) = +  (lhsAt (d,Just eq) l) .* (rhsAt (d,Just eq) r)++lhsAt :: ExpContext p -> Lhs p -> Selector a b p+lhsAt c (FunLhs _ cs)   = conTermsAt c cs+lhsAt c (OpLhs t1 _ t2) = conTermAt c t1 .* conTermAt c t2+lhsAt c (ApLhs l cs)    = lhsAt c l .* conTermsAt c cs+  +conTermsAt :: ExpContext p -> [ConstrTerm p] -> Selector a b p +conTermsAt c = inListAt (conTermAt c)++conTermAt :: ExpContext p -> ConstrTerm p -> Selector a b p+conTermAt c@(d,eq) t = case t of+      ParenPattern t'           -> conTermAt c t' +      LiteralPattern (String s) -> +        stringAt (SrcConTerm d eq . LiteralPattern) s +      ListPattern cs  -> listExpAt (conTermAt c) +                           (here . SrcConTerm d eq . ListPattern)+                           cs +      _ -> here (SrcConTerm d eq t) .* +         (case t of+           ConstructorPattern _ cs   -> conTermsAt c cs  +           InfixPattern t1 _ t2 -> (conTermAt c t1 .* conTermAt c t2) +           TuplePattern cs -> conTermsAt c cs +           AsPattern _ p   -> conTermAt c p +           LazyPattern p   -> conTermAt c p+           FunctionPattern _ cs -> conTermsAt c cs +           InfixFuncPattern t1 _ t2 -> conTermAt c t1 .* conTermAt c t2+           --RecordPattern [Field a (ConstrTerm a)] (Maybe (ConstrTerm a))+           _ -> notHere)+++stringAt :: (Literal -> SrcEntity p) -> String -> Selector a b p+stringAt f = listExpAt (litAt f . Char) (here . f . String)++listExpAt :: (e -> Selector a b p) -> ([e] -> Selector a b p) +          -> [e] -> Selector a b p+listExpAt _ fs []         = fs []+listExpAt f fs xxs@(x:xs) = fs xxs .* f x .* listExpAt f fs xs++litAt :: (Literal -> SrcEntity p) -> Literal -> Selector a b p+litAt f l = case l of+  String s -> stringAt f s +  _        -> here (f l) ++++rhsAt :: ExpContext p -> Rhs p -> Selector a b p+rhsAt c@(d,eq) r@(SimpleRhs _ e ls)  +  = here (SrcRhs d eq r) .* expAt c e .* locsAt ls+rhsAt c@(d,eq) r@(GuardedRhs conds ls) +  = here (SrcRhs d eq r) .* condsAt c conds .* locsAt ls++condsAt :: ExpContext p -> [CondExpr p] -> Selector a b p+condsAt c = inListAt (condAt c)++condAt :: ExpContext p -> CondExpr p -> Selector a b p+condAt c@(d,eq) (CondExpr _ e1 e2) = +  here (SrcCond d eq e1 e2) .* expAt c e1 .* expAt c e2++srcExpr :: ExpContext p -> Expression p -> SrcEntity p+srcExpr (d,eq) = SrcExpr d eq++expsAt :: ExpContext p -> [Expression p] -> Selector a b p+expsAt c = inListAt (expAt c)+++expAt :: ExpContext p -> Expression p -> Selector a b p+expAt c e@(Variable _)    = here (srcExpr c e) +expAt c (Literal l)       = litAt (srcExpr c . Literal) l +expAt t c@(Constructor _) = here (srcExpr t c) +expAt c (Paren e)         = expAt c e +expAt c t@(Typed e _)     = here (srcExpr c t) .* expAt c e+expAt c e@(Tuple es)      = here (srcExpr c e) .* expsAt c es+expAt c (List es)         = listExpAt (expAt c) (here . srcExpr c . List) es+expAt c e@(EnumFrom e')   = here (srcExpr c e) .* expAt c e' +expAt c e@(EnumFromThen e' e'') = +  here (srcExpr c e) .* expAt c e' .* expAt c e''+expAt c e@(EnumFromTo e1 e2) = +  here (srcExpr c e) .* expAt c e1 .* expAt c e2+expAt c e@(EnumFromThenTo e1 e2 e3) = +  here (srcExpr c e) .* expAt c e1 .* expAt c e2 .* expAt c e3+expAt c e@(UnaryMinus _ e1) = here (srcExpr c e) .* expAt c e1+expAt c e@(Apply e1 e2) = here (srcExpr c e) .* expAt c e1 .* expAt c e2+expAt c e@(InfixApply e1 _ e2) = here (srcExpr c e) .* expAt c e1 .* expAt c e2+expAt c e@(LeftSection e1 _) = here (srcExpr c e) .* expAt c e1+expAt c e@(RightSection _ e1) = here (srcExpr c e) .* expAt c e1+expAt c e@(Lambda cs e1) = here (srcExpr c e) .* conTermsAt c cs .* expAt c e1+expAt c e@(IfThenElse e1 e2 e3) = +  here (srcExpr c e) .* expAt c e1 .* expAt c e2 .* expAt c e3+expAt c (ListCompr e1 stmts) = +  listExpAt (stmtAt c) final (stmts ++ [StmtExpr e1])+  where+    final [] = notHere+    final xs@(_:_) = here $  srcExpr c $ ListCompr e1 $ init xs+expAt c (Do stmts e1) = doAt c e1 stmts+expAt c e@(Case e1 alts) =+  here (srcExpr c e) .* expAt c e1 .* altsAt c alts+expAt c e@(Let ds e1) = +  here (srcExpr c e) .* declsAt ds .* expAt c e1+expAt _ (RecordConstr _) = error "record1"+ -- [Field a (Expression a)]+expAt _ (RecordSelection _ _) = error "record2"+ -- (Expression a) Idente+expAt _ (RecordUpdate _ _)= error "record3"+ --[Field a (Expression a)] (Expression a)+++doAt :: ExpContext p -> Expression p -> [Statement p] -> Selector a b p+doAt c e1 stmts = listExpAt (stmtAt c) maybeFinalGenerator stmts +  where+    maybeFinalGenerator []       = expAt c e1+    maybeFinalGenerator xs@(_:_) = here (srcExpr c (Do xs e1))++stmtAt :: ExpContext p -> Statement p -> Selector a b p+stmtAt c (StmtExpr e)   = expAt c e+stmtAt _ (StmtDecl ds)  = declsAt ds+stmtAt c (StmtBind p e) = conTermAt c p .* expAt c e+++altsAt :: ExpContext p -> [Alt p] -> Selector a b p+altsAt a = inListAt (altAt a)++altAt :: ExpContext p -> Alt p -> Selector a b p+altAt c a@(Alt _ p rhs) = +  here (SrcAlt (err "decl") (err "eq") a) .* conTermAt c p .* rhsAt c rhs+  where+    err s = error $ "no context for "++s++"in alternative"++-------------------------------------------+-- Getting the whole SrcRef Information+-------------------------------------------++data AdrTree a = Tree a [AdrTree a]++type Tree = AdrTree (Maybe SrcRef) ++type State = SrcRef ++type Add a = State -> (State,a)++ret :: a -> Add a+ret x s = (s,x)++infixl 1 .>>, .>>=++(.>>=) :: Add a -> (a -> Add b) -> Add b+(f .>>= g) s = case f s of+                (s',x) -> g x s'++(.>>) :: Add _ -> Add b -> Add b+f .>> g = f .>>= const g++nope :: Add Tree+nope = ret (Tree Nothing [])++add :: (SrcRef -> a) -> Add a+add f r = (r+1,f r)++inc :: Int -> Add ()+inc i r = (r+i,())++next :: Add (Maybe Int)+next r = (r+1,Just r)++this :: Add Int+this r = (r,r)++run :: Add a -> a+run f = snd (f 0)+++-- srcAdd for a program and a reference +-- -> retrieve source entity Add address+moduleAdd :: Module Pos -> Add [Tree]+moduleAdd (Module _ _ ds) = declsAdd ds++declsAdd :: [Decl Pos] -> Add [Tree]+declsAdd = inListAdd declAdd++declAdd :: Decl Pos -> Add Tree+declAdd (ImportDecl _ _ _ _ _) = nope+declAdd (InfixDecl _ _ _ is) = +  inListAdd (const $ next .>>= ret . flip Tree []) is .>>=+  ret . Tree Nothing+declAdd (DataDecl _ _ _ cs)  = +  next .>>= \ r ->+  inListAdd constrDeclAdd cs .>>= +  ret . Tree r +declAdd (NewtypeDecl _ _ _ c) = +  next .>>= \r ->  +  newConstrDeclAdd c .>>= +  ret . Tree r . (:[])+declAdd (TypeDecl _ _ _ _)  = +  next .>>= ret . flip Tree []+declAdd (TypeSig _ _ _) = nope+declAdd (EvalAnnot _ _ _) = nope+declAdd (FunctionDecl _ _ es) =+  next .>>= \r ->  +  eqsAdd es .>>= +  ret . Tree r+declAdd (ExternalDecl _ _ _ _ _) = +  next .>>= ret . flip Tree []+declAdd (FlatExternalDecl _ _) = nope +declAdd (PatternDecl _ t rhs) +  = next .>>= \r ->+    conTermAdd t .>>= \ t' ->+    rhsAdd rhs .>>= \ r' ->+    ret (Tree r [t',r'])+declAdd (ExtraVariables _ is) = +  inListAdd (const $ next .>>= ret . flip Tree []) is .>>= +  ret . Tree Nothing+++constrDeclAdd :: ConstrDecl Pos -> Add Tree+constrDeclAdd (ConstrDecl _ _ _ _) = +  next .>>= ret . flip Tree []+constrDeclAdd (ConOpDecl _ _ _ _ _) = +  next .>>= ret . flip Tree []++newConstrDeclAdd :: NewConstrDecl Pos -> Add Tree+newConstrDeclAdd = error "adding to new declaration"++locsAdd :: [Decl Pos] -> Add [Tree]+locsAdd = declsAdd++eqsAdd :: [Equation Pos] -> Add [Tree] +eqsAdd = inListAdd eqAdd++eqAdd :: Equation Pos -> Add Tree+eqAdd (Equation _ l r) = +  lhsAdd l .>>= \ l' ->+  rhsAdd r .>>= \ r' -> +  ret (Tree Nothing [l',r'])++lhsAdd :: Lhs Pos -> Add Tree+lhsAdd (FunLhs _ cs)   = conTermsAdd cs .>>= ret . Tree Nothing+lhsAdd (OpLhs t1 _ t2) = +  conTermAdd t1 .>>= \ t1' -> +  conTermAdd t2 .>>= \ t2' ->+  ret (Tree Nothing [t1',t2'])+lhsAdd (ApLhs l cs) = +  lhsAdd l .>>= \ l' -> +  conTermsAdd cs .>>= +  ret . Tree Nothing . (l':)+  +conTermAdd :: ConstrTerm Pos -> Add Tree+conTermAdd t = case t of+      ParenPattern t' -> conTermAdd t'+      LiteralPattern l -> litAdd l+      NegativePattern _ l -> litAdd l+      ListPattern cs   -> listExpAdd conTermAdd cs +      _ -> next .>>= \r->+         (case t of++           ConstructorPattern _ cs -> +             conTermsAdd cs .>>= ret . Tree r+           InfixPattern t1 _ t2 -> +             conTermAdd t1 .>>= \ t1' -> +             conTermAdd t2 .>>= \ t2' ->+             ret (Tree r [t1',t2'])+           TuplePattern cs -> conTermsAdd cs .>>= ret . Tree r+           AsPattern _ p   -> conTermAdd p +           LazyPattern p   -> conTermAdd p +           FunctionPattern _ cs -> +             conTermsAdd cs .>>= ret . Tree r+           InfixFuncPattern t1 _ t2 -> +             conTermAdd t1 .>>= \ t1' -> +             conTermAdd t2 .>>= \ t2' ->+             ret (Tree r [t1',t2'])+           VariablePattern _ -> ret (Tree r [])+           _ -> ret (Tree r []))+++conTermsAdd :: [ConstrTerm Pos] -> Add [Tree] +conTermsAdd = inListAdd conTermAdd++stringAdd :: String -> Add Tree+stringAdd = listExpAdd (\_-> next .>>= ret . flip Tree [])++listExpAdd :: (a -> Add Tree) -> [a] -> Add Tree+listExpAdd f = listExpAdd' f (next .>>= ret . flip Tree [])++listExpAdd' :: (a -> Add Tree) -> Add Tree -> [a] -> Add Tree+listExpAdd' _ e []     = e+listExpAdd' f e (x:xs) = next .>>= \ rxxs ->+                        f x  .>>= \ tx ->+                        listExpAdd' f e xs .>>= \ txs -> +                        ret (Tree rxxs [tx,txs])+++litAdd :: Literal -> Add Tree+litAdd l = case l of+  String s -> stringAdd s +  _        -> next .>>= ret . flip Tree []+++rhsAdd :: Rhs Pos -> Add Tree+rhsAdd (SimpleRhs _ e ls) = +  next .>>= \ r -> +  expAdd e .>>= \ e' ->+  locsAdd ls .>>= ret . Tree r . (e':)+rhsAdd (GuardedRhs conds ls) =+  next .>>= \ r -> +  condsAdd conds .>>= \ conds' ->+  locsAdd ls .>>= ret . Tree r . (conds'++)++condsAdd :: [CondExpr Pos] -> Add [Tree]+condsAdd = inListAdd condAdd++condAdd :: CondExpr Pos -> Add Tree+condAdd (CondExpr _ e1 e2) = +  next .>>= \ r -> +  expAdd e1 .>>= \ e1' -> +  expAdd e2 .>>= \ e2' ->+  ret (Tree r [e1',e2'])++expsAdd :: [Expression Pos] -> Add [Tree]+expsAdd = inListAdd expAdd++expAdd :: Expression Pos -> Add Tree+expAdd (Variable _)    = next .>>= ret . flip Tree []+expAdd (Literal l)     = litAdd l +expAdd (Constructor _) = next .>>= ret . flip Tree []+expAdd (Paren e)         = expAdd e +expAdd (Typed e _)       = +  next .>>= \r -> expAdd e .>>= ret . Tree r . (:[])+expAdd (Tuple es)        = +  next .>>= \ r -> expsAdd es .>>= ret . Tree r+expAdd (List es)         = listExpAdd expAdd es+expAdd (EnumFrom e)      = +  next .>>= \r -> +  expAdd e .>>= +  ret . Tree r . (:[])+expAdd (EnumFromThen e1 e2) = +  next .>>= \r ->  +  expAdd e1 .>>= \ e1' -> +  expAdd e2 .>>= \ e2' ->+  ret (Tree r [e1',e2'])+expAdd (EnumFromTo e1 e2) = +  next .>>= \r ->  +  expAdd e1 .>>= \ e1' -> +  expAdd e2 .>>= \ e2' ->+  ret (Tree r [e1',e2'])+expAdd (EnumFromThenTo e1 e2 e3) = +  next .>>= \r ->  +  expAdd e1 .>>= \ e1' -> +  expAdd e2 .>>= \ e2' ->+  expAdd e3 .>>= \ e3' ->+  ret (Tree r [e1',e2',e3'])+expAdd (UnaryMinus _ e) = +  next .>>= \r -> +  expAdd e .>>= +  ret . Tree r . (:[])+expAdd (Apply e1 e2) = +  next .>>= \r ->  +  expAdd e1 .>>= \ e1' -> +  expAdd e2 .>>= \ e2' ->+  ret (Tree r [e1',e2'])+expAdd (InfixApply e1 _ e2) = +  next .>>= \r ->  +  expAdd e1 .>>= \ e1' -> +  expAdd e2 .>>= \ e2' ->+  ret (Tree r [e1',e2'])+expAdd (LeftSection e _) = +  next .>>= \r -> +  expAdd e .>>= +  ret . Tree r . (:[])+expAdd (RightSection _ e) = +  next .>>= \r -> +  expAdd e .>>= +  ret . Tree r . (:[])+expAdd (Lambda cs e1) = +  next .>>= \r -> +  conTermsAdd cs .>>= \ cs' -> +  expAdd e1 .>>= \ e' -> +  ret (Tree r [Tree Nothing cs', Tree Nothing [e']])+expAdd (IfThenElse e1 e2 e3) = +  next .>>= \r ->  +  expAdd e1 .>>= \ e1' -> +  expAdd e2 .>>= \ e2' ->+  expAdd e3 .>>= \ e3' ->+  ret (Tree r [e1',e2',e3'])+-- why are listcomp and do different?+-- because they miss a return at the end.+expAdd (ListCompr e1 stmts) = +  listExpAdd' stmtAdd final stmts+  where+    final = next .>>= \ r ->+            expAdd e1 .>>= \ t ->+            ret (Tree r [t])+expAdd (Do stmts e1) = stmtsAdd stmts e1+  --listExpAdd stmtAdd (stmts ++ [StmtExpr e1])+expAdd (Case e1 alts) =+  next .>>= \r ->+  expAdd e1 .>>= \ e1' -> +  altsAdd alts .>>= +  ret . (Tree r) . (e1':)+expAdd (Let ds e1) = +  next .>>= \ r ->+  declsAdd ds .>>= \ ds' -> +  expAdd e1 .>>= \ e1' ->+  ret (Tree r (ds'++[e1']))++expAdd (RecordConstr _) = error "add record1"+ -- [Field a (Expression a)]+expAdd (RecordSelection _ _) = error "add record2"+ -- (Expression a) Ident+expAdd (RecordUpdate _ _)= error "add record3"+ --[Field a (Expression a)] (Expression a)+++stmtsAdd :: [Statement Pos] -> Expression Pos -> Add Tree+stmtsAdd stmts e = listExpAdd' stmtAdd (expAdd e) stmts++ --stmts ++ [StmtExpr e1])failed --inListAdd stmtAdd++stmtAdd :: Statement Pos -> Add Tree+stmtAdd (StmtExpr e)   = expAdd e +stmtAdd (StmtDecl ds)  = declsAdd ds .>>= ret . Tree Nothing+stmtAdd (StmtBind p e) = +  conTermAdd p .>>= \p' -> +  expAdd e .>>= \ e' ->+  ret (Tree Nothing [p',e'])+++altsAdd :: [Alt Pos] -> Add [Tree]+altsAdd = inListAdd altAdd++altAdd :: Alt Pos -> Add Tree+altAdd (Alt _ p rhs) = +  next .>>= \r ->  +  conTermAdd p .>>= \p'-> +  rhsAdd rhs .>>= \ r' ->+  ret (Tree r [p',r'])++inListAdd :: (a -> Add b) -> [a] -> Add [b]+inListAdd _ []     = ret []+inListAdd f (x:xs) = f x .>>= \ x' -> +                     inListAdd f xs .>>= +                     ret . (x':)++++--------------------------------------------+-- making addresses for flatcurry programs+--------------------------------------------+++adrMap :: (a -> b) -> AdrTree a -> AdrTree b+adrMap f (Tree x xs) = Tree (f x) (map (adrMap f) xs)+{-+mkExprs :: Int -> StaticInfoExpr+mkExprs i = FC.Comb FC.ConsCall ("DebugInfo","SrcID") +               [FC.Comb FC.ConsCall ("Prelude","[]") [],+                FC.Lit (FC.Intc i)]++mkAdrs :: [Decl Pos] -> FC.Prog -> [AdrTree Int]+mkAdrs ds (FC.Prog _ _ ts fs _) = +  map (mkAdrType ds) ts ++ map (mkAdrFun ds) fs++mkAdrType :: [Decl Pos] -> FC.TypeDecl -> AdrTree Int+mkAdrType _ _ = manyZeros+++mkAdrFun :: [Decl Pos] -> FC.FuncDecl -> AdrTree Int+mkAdrFun _ _ = manyZeros++manyZeros :: AdrTree Int+manyZeros = Tree 0 (repeat manyZeros)+-}+-----------------------------------------------------+-- phase one: top level declarations with addresses+-----------------------------------------------------++type QN = Either String FC.QName                     ++ltQN :: QN -> QN -> Bool+ltQN (Left s) (Left s') = cmpString s s' == LT+ltQN (Left _) (Right _) = True+ltQN (Right _) (Left _) = False+ltQN (Right s) (Right s') = case cmpString (snd s) (snd s') of+              LT -> True+              EQ -> cmpString (fst s) (fst s') == LT+              _  -> False++type Tree' = AdrTree [SrcRef]+type TopMap = FM QN (Decl Pos,Tree)++mkMap :: Module Pos -> TopMap+mkMap m@(Module _ _ ds) = +  foldr addDecl (emptyFM ltQN) (zip ds trees)+  where+    trees = run (moduleAdd m)++    addDecl x fm = case fst x of +        DataDecl _ (Ident s _) _ _   -> addToFM fm (Left s) x+        TypeDecl _ (Ident s _) _ _   -> addToFM fm (Left s) x+        FunctionDecl _ (Ident s _) _ -> addToFM fm (Left s) x+        _                            -> fm++lookupTM :: String -> FC.QName -> TopMap -> Maybe (Decl Pos,Tree)+lookupTM m mn fm = +  lookupFM fm (if m==fst mn then Left (snd mn) else Right mn)++zipFlatCy :: FC.Prog -> Module Pos -> [Tree']+zipFlatCy (FC.Prog p _ ts fs _) m  +  = typeRefs ++ funcRefs+  where+    qnmap = mkMap m +    typeRefs     = map (zipType qnmap p . FG.typeName) ts+    (zippedFuncs,lifts) = (unzip' $ map (zipFunc qnmap p) fs) defOpts+    funcRefs = zipLiftFuncs lifts fs zippedFuncs +++tot :: Tree -> Tree'+tot = adrMap (maybe [] (:[]))++zipType :: TopMap -> String -> FC.QName -> Tree'+zipType fm m mn = +  maybe (error $ "data decl for type " ++ show mn ++ " not found.")+        (tot . snd)+        (lookupTM m mn fm)+ +zipFunc :: TopMap -> String -> FC.FuncDecl -> ZR (Maybe Tree')+zipFunc fm m f opts = maybe (Nothing,[])+                       (\ d -> (Just $^ zipBody f d) opts)+                       (lookupTM m mn fm)+  where+    mn = FG.funcName f++zipBody :: FC.FuncDecl -> (Decl Pos,Tree) -> ZR Tree'+zipBody f (FunctionDecl _ _ eqs,Tree (Just i) ts) = +  Tree [i] $^ caseCascade (FG.funcArgs f) (FG.funcBody f) prts+  where+    prts = zipWith patRhsTree eqs ts++    patRhsTree :: Equation Pos -> Tree -> (([ConstrTerm Pos],Tree),(Rhs Pos,Tree))+    patRhsTree (Equation _ l r) (Tree _ [tl,tr]) = ((cterms l,tl),(r,tr))++    cterms :: Lhs Pos -> [ConstrTerm Pos]+    cterms (FunLhs _ cs)    = cs+    cterms (OpLhs  c1 _ c2) = [c1,c2]+    cterms (ApLhs  l cs)    = cterms l ++ cs++caseCascade :: [FC.VarIndex] -> FC.Expr +            -> [(([ConstrTerm Pos],Tree),(Rhs Pos,Tree))] +            -> ZipResult+caseCascade = caseCascade' 0 True++caseCascade' :: Int -> Bool -> [FC.VarIndex] -> FC.Expr +            -> [(([ConstrTerm Pos],Tree),(Rhs Pos,Tree))] +            -> ZipResult+caseCascade' ref b vs e prts = case e of+  FC.Case FC.Flex (FC.Var v) bs -> +    case break (v==) vs of+      (vs1,_:vs2) -> let idx=length vs1 in+                     zipBranches ref idx vs1 vs2 +                        bs+                        (groupBy (grp idx) (sortBy (srt idx bs) prts))+      _ -> error $ "var not found"+  FC.Case FC.Rigid (FC.Var v) bs -> +    if b then res else caseCascade' ref b vs (FC.Case FC.Flex (FC.Var v) bs) prts+  _ -> res+        + where+    fidx ct = maybe (error "fidx") id . findIndex (flatConsName ct==)++    srt i bs ((cts1,_),(_,_)) ((cts2,_),(_,_)) = +      fidx (cts1!!i) bsns <= fidx (cts2!!i) bsns+      where+        bsns = map (snd . FG.patCons . FG.branchPattern) bs++    grp i ((cts1,_),(_,_)) ((cts2,_),(_,_)) = +      flatConsName (cts1!!i) == flatConsName (cts2!!i)++    res = case prts of+        [((pvs,Tree Nothing _),(r,t))] -> +          if all isVarPat pvs then zipRhs e r t+                              else error $ "non-variable lhs left: " ++ show pvs+        [((_,t),_)] -> error $ "unexpexted tree in case cascade: "++show t+        (_:_:_) -> error "more than one right hand side found"++flatConsName :: ConstrTerm _ -> String+flatConsName (LiteralPattern l) = case l of+  String []    -> "[]"+  String (_:_) -> ":"+  _ -> error "name of lit"+flatConsName (ConstructorPattern qi _) = identName qi+flatConsName (TuplePattern xs) = '(':replicate (length xs - 1) ','++")"+flatConsName (ListPattern []) = "[]"+flatConsName (ListPattern (_:_)) = ":"+flatConsName (InfixPattern _ qi _) = identName qi+flatConsName (ParenPattern p) = flatConsName p+++identName :: QualIdent -> String+identName (UnqualIdent (Ident s _)) = s+identName (QualIdent _ (Ident s _)) = s++opName :: InfixOp -> String+opName iop = identName (opIdent iop)++opIdent :: InfixOp -> QualIdent+opIdent (InfixOp i)     = i+opIdent (InfixConstr i) = i++conArgs :: ConstrTerm p -> [ConstrTerm p]+conArgs (ConstructorPattern _ cs) = cs+conArgs (TuplePattern cs) = cs+conArgs (VariablePattern _) = error "unexpected pattern variable"+conArgs (ParenPattern p) = conArgs p+conArgs (LiteralPattern l) = case l of+  String [] -> []+  String (c:cs) -> [LiteralPattern (Char c),LiteralPattern (String cs)]+  _ -> []+conArgs (NegativePattern _ _) = []+conArgs (ListPattern []) = []+conArgs (ListPattern (x:xs)) = [x,ListPattern xs]+conArgs (InfixPattern x _ y) = [x,y]+conArgs (AsPattern _ c) = conArgs c++isVarPat :: ConstrTerm _ -> Bool+isVarPat x = case x of VariablePattern _ -> True; _ -> False++zipBranches :: Int -> Int -> [FC.VarIndex] -> [FC.VarIndex] -> [FC.BranchExpr] +            -> [[(([ConstrTerm Pos],Tree),(Rhs Pos,Tree))]] +            -> ZipResult+zipBranches ref idx vs1 vs2 bs prtss = unzip' $ zipWith' zipper bs prtss+  where+    zipWith' _ []       []     = []+    zipWith' f (x:xs)   (y:ys) = f x y:zipWith' f xs ys+    zipWith' _ xs@(_:_) []     = map allRef xs++    zipper :: FC.BranchExpr -> [(([ConstrTerm Pos],Tree),(Rhs Pos,Tree))] +           -> ZR Tree'+    zipper (FC.Branch p e) prts = Tree is $^ ts+      where+        modPrt ((cts,Tree _ trees),(r,rt)) = case splitAt idx cts of+          (cts1,ct:cts2) -> case splitAt idx trees of+            (ts1,Tree (Just i) ts':ts2) -> +               (i,((cts1++conArgs ct++cts2,Tree Nothing (ts1++ts'++ts2)),(r,rt)))+            _ -> error "wrong tree in zipBranches"+          _ -> error "wrong index in zipBranches"+        (is,prts')  = unzip (map modPrt prts)+        ts = caseCascade (vs1++vs++vs2) e prts'+        vs = case p of FC.Pattern _ args -> args; FC.LPattern _ -> []++    allRef :: FC.BranchExpr -> ZR Tree' +    allRef (FC.Branch _ e) = zir (t [FG.trExpr v l c le f o ca br e])+     where+       t   = Tree [ref]+       v _ = t []+       l = error "allRef: literal"+       c = error "allRef: comb"+       le = error "allRef: let"+       f = error "allRef: free"+       o = error "allRef: or"+       ca _ _ ts = t ts+       br _ tr = tr+    +       ++++zipRhs :: FC.Expr -> Rhs Pos -> Tree -> ZipResult+zipRhs (FC.Let vbs e) (SimpleRhs _ e' locs@(_:_)) (Tree (Just i) (t:ts))+  = (:[]) $^ Tree [i] $^ zipBinds vbs e locs e' (ts++[t])+zipRhs e   (SimpleRhs _ e' []) (Tree _ ts)  = +  case ts of+   [t] -> zipExp e e' t+   _ -> error $ "unexpected tree for right hand side: " ++ show ts+zipRhs exp (GuardedRhs grs []) (Tree _ tgrs) +  = zipGuards guardErr grs exp tgrs+zipRhs (FC.Let vbs e) (GuardedRhs grs locs@(_:_)) (Tree (Just i) ts)+  = (:[]) $^ Tree [i] $^+    zipBinds' (const $ zipGuards guardErr grs) vbs e locs (tlocs++tgrs)+  where+    (tgrs,tlocs) = splitAt (length grs) ts++-- = (:[]) $^ Tree [i] $^ zipBinds vbs e locs e' (ts++[t])++guardErr :: Int+guardErr = (error "empty guard sequence")+  ++zipGuards :: Int -> [CondExpr Pos] -> FC.Expr -> [Tree] -> ZipResult+zipGuards i [] e []+     | e==FC.Comb FC.FuncCall (prelude,"failed") [] = zir [Tree [i] []]+     | otherwise = error "guard mismatch"+zipGuards _ (CondExpr _ g' r':xs) e (Tree (Just i) [tg,tr]:txs) =+      case e of +        FC.Comb FC.FuncCall (m,n) [g,r] -> +         if   m==prelude && n=="cond" && null xs+         then (:[]) $^ Tree [i] $^ zipExp g g' tg +++ zipExp r r' tr+         else error "wrong construction of predicate guard"+        FC.Case _ g [FC.Branch (FC.Pattern pt []) r,+                     FC.Branch (FC.Pattern pf []) e'] -> +          if   pt==(prelude,"True") && pf==(prelude,"False")+          then (:[]) $^ Tree [i]+                     $^ (zipExp g g' tg +++)+                     $  (Tree [i] []:)+                     $^ (zipExp r r' tr +++)+                     $  (Tree [i] []:)+                     $^ zipGuards i xs e' txs+          else error "wrong construction of Boolean guard"+        _ -> error "unexpected guarded right hand side"+      +++type ZipResult = ZR [Tree']+type ZR a = Options -> (a,Collected)+type Collected = [(String,(Lifted,Tree))]++data Lifted = LiftedExp (Expression Pos)+            | LiftedComplexPat (ConstrTerm Pos) Int+            | LiftedBind (ConstrTerm Pos) (Expression Pos)++type Options = [(Ident,(Expression Pos,Tree))]++defOpts :: Options+defOpts = []++infixr 5 ++++infixr 0 $^++($^) :: (a -> b) -> ZR a -> ZR b+f $^ g = \ opts -> case g opts of+                     (ts,x) -> (f ts,x)++zir :: a -> ZR a+zir x _ = (x,[])++concats :: [ZR [a]] -> ZR [a]+concats xs = \ opts -> case unzip (map ($opts) xs) of +  (as,bs) -> (concat as,concat bs)++(+++) :: ZR [a] -> ZR [a] -> ZR [a]+(f +++ g) opts = let (xs,xs') = f opts +                     (ys,ys') = g opts +                  in (xs++ys,xs'++ys')++unzip' :: [ZR a] -> ZR [a]+unzip' []      _    = ([],[])+unzip' (f:xys) opts = let (x,ys) = f opts in case unzip' xys opts of (as,bs) -> (x:as,ys++bs)+++zipExp :: FC.Expr -> Expression Pos -> Tree -> ZipResult+zipExp (FC.Var _) (Variable _) t opts = zir [tot t] opts+zipExp (FC.Lit _) (Literal _)  t opts = zir [tot t] opts+zipExp e@(FC.Lit _) (Let ds exp) (Tree _ ts) opts +  = addBinds (zipExp e exp) ds ts opts+zipExp e@(FC.Lit _) (Variable (UnqualIdent v)) (Tree _ []) opts +  = case lookup v opts of+      Just (exp,t) -> zipExp e exp t opts+zipExp e'@(FC.Comb _ (m,n) args) e t opts+  | isLet e = case e of+     Let ds exp -> case t of+       Tree _ trees -> addBinds (zipExp e' exp) ds trees opts++  | isStatement e = case decompStatement e of+      (sts,end) -> zipSts e' sts end t opts++  | isTupleName n && not (isApply e) = case e of +      Tuple args' -> case t of+        Tree (Just i) trees -> +          ((:[]) $^ Tree [i] $^ concats (zipWith3 zipExp args args' trees)) opts+      _ -> error $ "tuple expected instead of " ++ show e++  | n=="[]" = case e of List [] -> case t of+                          Tree (Just i) [] -> zir [Tree [i] []] opts+                        Literal (String "") -> case t of+                          Tree (Just i) [] -> zir [Tree [i] []] opts++  | n==":" && not (isApply e) = case e of +     List (x:xs) -> case t of+       Tree (Just i) [tx,txs] -> case args of+         [ex,exs] ->    ((:[]) +                     $^ Tree [i] +                     $^ (zipExp ex x tx ++++                         zipExp exs (List xs) txs)) opts+     Literal (String (_:xs)) -> case t of+       Tree (Just i) [tx,txs] -> case args of+         [_,exs] -> ((:[]) $^ Tree [i] $^ (tot tx:) +                           $^ zipExp exs (Literal (String xs)) txs) opts+     InfixApply _ _ _ -> case te of +       Tree (Just i) [] -> ((:[]) $^ Tree [i] $^ const targs) opts+     _ -> error $ "unexpected expression for (:): "++show e+  +  | m==prelude && n=="apply" +  = case e of +     Apply e1 e2 -> case t of+      Tree (Just i) [te1,te2] -> case args of+         [e1',e2'] -> ((:[]) $^ Tree [i] $^ zipExp e1' e1 te1 +                                        +++ zipExp e2' e2 te2) opts +         +  | isVariable e = case e of+      Variable (UnqualIdent v) -> case lookup v opts of+        Just (exp,tree) -> zipExp e' exp tree opts+        _ -> varFunCall +      _ -> varFunCall++  | otherwise = case te of +     Tree (Just i) [] -> ((:[]) $^ Tree [i] $^ const targs) opts+     Tree (Just i) _ -> case fun of+       Lambda _ _ -> +        ((:[]) $^ Tree [i] $^ +          const (targs',(n,(LiftedExp fun,te)):funs)) opts+       _ -> error $ "unexpected source in zipExp: "++show (fun,e',e,t,te)+     _ -> error $ "unexpected tree in zipExp: " ++ show (e',e,t,te)+  where+    (res,rts) = decompApp e t +    fun:es = reverse res+    te:ts = reverse rts+    targs@(targs',funs) = concats (zipWith3 zipExp args es ts) opts+    varFunCall = case te of Tree (Just i) [] -> +                              ((:[]) $^ Tree [i] $^ const targs) opts++zipExp (FC.Let vbs e') e t opts = case e of+  Let ds body -> case t of+    Tree (Just i) ts -> ((:[]) $^ Tree [i] $^ zipBinds vbs e' ds body ts) opts++zipExp e@(FC.Case FC.Rigid _ _) e' t opts +  = case decompStatement e' of+      (sts,end) -> zipSts e sts end t opts+      {-case e' of+      ListCompr res gs -> case t of+        Tree (Just r) [tres,tgs] -> ((:[]) $^ zir (Tree [r] [])) opts+      _ -> error $ "rigid case: " ++ show e'-}++zipBinds' :: ([(FC.VarIndex,FC.Expr)] -> FC.Expr -> [Tree] -> ZipResult) +         -> [(FC.VarIndex,FC.Expr)] -> FC.Expr+         -> [Decl Pos] -> [Tree] -> ZipResult+zipBinds' cont vbs e []    ts = cont vbs e ts+zipBinds' _    []  _ (_:_) _  = error "bind mismatch"+zipBinds' cont bvbs@((_,b):vbs) e +         (PatternDecl _ p (SimpleRhs _ b' []):ds) +         (Tree _ [tp,tr]:ts)+  | isVarPat p || null (conArgs p)+  = zipBindBody b b' tr vbs+  | otherwise +  = case span isSelCall bvbs of+      (sels,(_,e2):vbs') -> makeSels sels p tp ++++                            zipBindBody e2 b' tr vbs'+      res -> error $ "wrong span: " ++ show res++  where+    isSelCall (_,exp) = FG.isComb exp && isSelName (snd $ FG.combName exp)+    zipBindBody e1 e2 t0 xs = case t0 of+      Tree _ [t] -> +        zipExp e1 e2 t +++ zipBinds' cont xs e ds ts+      _ -> error $ "unexpected tree in zipBind: " ++ show t0++makeSels :: [(FC.VarIndex,FC.Expr)] -> ConstrTerm Pos -> Tree +         -> ZipResult+makeSels vbs pattern tp@(Tree _ argTrees) _ = +  (map (\i -> Tree [i] []) varRefs,+   map (\ (t,n) -> (n,(LiftedComplexPat pattern t,tp)))+       (zip varRefs varNames))+ where+   varRefs = match (map varNameFromSel varNames) (conArgs pattern) argTrees++   varNames = map (snd . FG.combName . snd) vbs++   match :: [String] -> [ConstrTerm Pos] -> [Tree] -> [Int]+   match [] _ _ = []+   match vvs@(v:vs) (p:ps) (Tree (Just i) tps:ts)+     = case p of +         VariablePattern (Ident pv _) -> if pv==v then i:match vs ps ts  +                                                  else match vvs ps ts+         _ -> match vvs (conArgs p ++ ps) (tps ++ ts)+   match (v:_) [] (_:_) = error $ "no patterns left to match " ++ v+   match (v:_) (_:_) [] = error $ "no trees left to match " ++ v+   match (v:_) []    [] = error $ "nothing left to match " ++ v++++zipBinds :: [(FC.VarIndex,FC.Expr)] -> FC.Expr+         -> [Decl Pos] -> Expression Pos -> [Tree] -> ZipResult+zipBinds vbs e ds e' = zipBinds' moreLets vbs e ds+  where+    moreLets []         exp [t] = zipExp exp e' t+    moreLets vbs'@(_:_) exp [Tree _ ts] = case e' of+      Let ds' e'' -> zipBinds vbs' exp ds' e'' ts+      _ -> error $ "unexpected expression when looking for let: " ++  show e'++addBinds :: (Tree -> ZipResult) -> [Decl Pos] -> [Tree] -> ZipResult+addBinds cont [] [t] = cont t+addBinds cont (PatternDecl _ (VariablePattern v) (SimpleRhs _ b []):ds) +              (Tree _        [_,                 Tree _      [t]]  :ts)+  = \opts -> addBinds cont ds ts ((v,(b,t)):opts)++isTupleName :: String -> Bool+isTupleName s = case s of+  '(':cs -> dropWhile (','==) cs == ")"+  _ -> False+++isApply :: Expression _ -> Bool+isApply e = case e of+  Apply _ _        -> True+  _             -> False++isLet :: Expression _ -> Bool+isLet e = case e of+  Let _ _       -> True+  _             -> False++isVariable :: Expression _ -> Bool+isVariable e = case e of+  Variable _    -> True+  _             -> False++isStatement :: Expression _ -> Bool+isStatement e = case e of+  Do _ _        -> True+  ListCompr _ _ -> True+  _             -> False+++decompStatement :: Expression p -> ([Statement p],Expression p)+decompStatement (Do xs x)        = (xs,x)+decompStatement (ListCompr x xs) = (xs,x)++decompApp :: Expression p -> Tree -> ([Expression p],[Tree])+decompApp e t = case e of +  Paren e' -> decompApp e' t+  Apply e1 e2 -> case t of+   Tree _ [te1,te2] -> let (es,ts) =  decompApp e1 te1+                        in (e2:es,te2:ts) +   _ -> error $ "wrong tree for apply: " ++ show t+  InfixApply e1 qi e2 -> case t of+   Tree i [te1,te2] -> ([e2,e1,Variable (opIdent qi)],[te2,te1,Tree i []])+  _           -> ([e],[t])+++zipSts :: FC.Expr -> [Statement Pos] -> Expression Pos -> Tree +       -> ZipResult+zipSts e  [] e' t = case e of+  (FC.Comb FC.ConsCall (_,":") [e'',_]) -> +    case t of+     Tree (Just r) [t'] -> (\ [te'] -> [Tree [r] [te',Tree [r] []]]) $^ +                           zipExp e'' e' t'+  _ ->  zipExp e e' t+zipSts e (StmtExpr g':gs) e' (Tree (Just r) [tg,te]) +  = zipMBind e g' r tg (zipStsRest gs e' (error "do not touch") te)+zipSts e (StmtBind p g':gs) e' (Tree (Just r) [(Tree _ [tp,tg]),te])+  = zipMBind e g' r tg (zipStsRest gs e' (p,r) (Tree (Just r) [tp,te]))++zipMBind (FC.Comb _ (m,n) [g,e]) g' r tg f opts +  | m==prelude && elem n [">>",">>="]+  = ((:[]) $^ Tree [r] $^ zipExp g g' tg +++ f e True) opts+  | n=="++" +  = case zipMBind g g' r tg f opts of+      (t,ls) -> ([Tree [r] (t++[Tree [r] []])],ls)+++{-trace (show (g,e,g',r,tg)) $ case f g False opts of+      ([te'],ls) -> ([Tree [r] [te',Tree [r] []]],ls)-}+zipMBind (FC.Comb FC.FuncCall (m,n) [e,_,g]) g' r tg f opts +  | m==prelude && n=="foldr" +  = case zipExp g g' tg opts of +      ([tg'],ls) -> case f e False opts of+         ([te'],ls') -> +           ([Tree [r] [te',Tree [r] [],tg']],ls++ls')+zipMBind (FC.Case FC.Rigid g [FC.Branch _ e,_]) g' r tg f opts+  = case zipExp g g' tg opts of +      ([tg'],ls) -> case f e False opts of+         ([te'],ls') -> +           ([Tree [r] [tg',Tree [r] [],te',Tree [r] [],Tree [r] []]],ls++ls')++zipStsRest :: [Statement Pos] -> Expression Pos -> (ConstrTerm Pos,Int)+           -> Tree -> FC.Expr -> Bool -> ZipResult+zipStsRest gs e' (p,r) te exp@(FC.Comb _ (_,n) _) b+  | isLambdaName n +  = const ([Tree [r] []], [(n,(LiftedBind p e,te))])+  | otherwise +  = zipSts exp gs e' te+  where+    e = (if b then flip Do else ListCompr) e' gs +zipStsRest gs e' _ te e@(FC.Case _ _ _) _+  = zipSts e gs e' te++++{-+case genExp exp of+     Left (g,e) -> case e of+      FC.Comb (FC.FuncPartCall 1) (_,n) [] -> +        if isLambdaName n  -- condition may be deleted later+        then +          +                               --zipSts e gs e' {-(Lambda (error "nopos") p e')-} te+        else error $ "lambda name expected: " ++ n+      _ -> error $ "empty lambda expected: " ++ show e+  +-}+{-+--Tree _ [tp,tg]+genExp :: FC.Expr -> Either (FC.Expr,FC.Expr)(FC.Expr,FC.Expr)+genExp  = Left (g,e)+genExp (FC.Comb FC.FuncCall (_,">>=") [g,e]) = Left (g,e)+genExp  = Right (e',e) +-}+++zipLiftFuncs :: Collected -> [FC.FuncDecl] -> [Maybe Tree'] -> [Tree']+zipLiftFuncs _ [] [] = []+zipLiftFuncs lifts (_:fs) (Just t:zippedFuncs) +  = t:zipLiftFuncs lifts fs zippedFuncs+zipLiftFuncs lifts (f:fs) (Nothing:zippedFuncs) +  = case lookup (snd $ FG.funcName f) lifts of+      Just (LiftedExp e,t) -> case zipLiftFunc f e t defOpts of+        (t',ls) -> t':zipLiftFuncs (ls++lifts) fs zippedFuncs+      Just (LiftedComplexPat p i,t) -> fst (zipSelector f p i t defOpts):+        zipLiftFuncs lifts fs zippedFuncs+      Just (LiftedBind p e,t) -> +        case zipLiftedBind f p e t defOpts of+          (t',ls) -> t':zipLiftFuncs (ls++lifts) fs zippedFuncs+      Nothing -> error $ "no source for function " ++ (snd $ FG.funcName f)+++zipLiftFunc :: FC.FuncDecl -> Expression Pos -> Tree -> ZR Tree'+zipLiftFunc f (Lambda ps e) (Tree (Just i) [l,r]) =  +  Tree [i] $^ caseCascade (FG.funcArgs f) (FG.funcBody f) +                [((ps,l),+                  (SimpleRhs (error "look at position") e [],r))]+  --zipExp (FG.funcBody f) e t++zipSelector :: FC.FuncDecl -> ConstrTerm Pos -> Int -> Tree -> ZR Tree'+zipSelector f pat i tpat --(Tree (Just tp) ts)+  = Tree [i] $^ caseCascade (FG.funcArgs f) (FG.funcBody f) +                  [(([pat],Tree Nothing [tpat]),+                   (SimpleRhs (error "look at position") e [],+                    Tree Nothing [Tree (Just i) []]))]++  -- = zir (Tree [i] [Tree [tp] [Tree [tv] []]])+  where+    e = Variable (UnqualIdent (Ident (varNameFromSel $ snd $ FG.funcName f) 0))+    --Tree (Just tv) _ = error $ "zipSel" ++ show (ts,i) --ts!!i+++zipLiftedBind :: FC.FuncDecl -> ConstrTerm Pos -> Expression Pos +              -> Tree -> ZR Tree'+zipLiftedBind f p e (Tree (Just r) [tp,tg]) +  = Tree [r] $^ caseCascade' r False (FG.funcArgs f) (FG.funcBody f) +                [(([p],Tree Nothing [tp]),+                  (SimpleRhs (error "look at position") e [],Tree Nothing [tg]))]++isLambdaName :: String -> Bool+isLambdaName s = case break (=='.') s of+   (_,_:s') -> take 8 s' == "_#lambda" || isLambdaName s'+   _        -> False++fpSelExt :: String+fpSelExt = "_#selFP"++isSelName :: String -> Bool+isSelName s = case break (=='.') s of+   (_,_:s') -> isPrefixOf fpSelExt s' || isSelName s'+   _        -> False++varNameFromSel :: String -> String+varNameFromSel s = case break (=='.') s of+   (_,_:s') -> if isPrefixOf fpSelExt s' +               then tail $ dropWhile (/='#') $ drop (length fpSelExt) s'+               else varNameFromSel s'+   _        -> error "no var name in selector"++prelude :: String+prelude = "Prelude"+++---------------------------------------------------+-- getting the parameter from SrcEntity for tests+---------------------------------------------------+{-+param :: SrcEntity a -> Maybe a+param (SrcDecl d) = paramDecl d+param (SrcCon  _ c) = paramConDecl c+param (SrcConTerm _ _ t) = paramConTerm t+param (SrcNew _ n) = paramNewDecl n+param (SrcId _ _) = Nothing+param (SrcExpr _ _ e) = paramExp e+param (SrcAlt _ _ a) = paramAlt a++paramDecl :: Decl a -> Maybe a+paramDecl (InfixDecl x _ _ _)      = Just x+paramDecl (DataDecl x _ _ _)       = Just x+paramDecl (NewtypeDecl x _ _ _)    = Just x+paramDecl (TypeDecl x _ _ _)       = Just x+paramDecl (FunctionDecl x _ _ )    = Just x+paramDecl (ExternalDecl x _ _ _ _) = Just x+paramDecl (PatternDecl x _ _)      = Just x+paramDecl (ExtraVariables x _)     = Just x++paramConDecl :: ConstrDecl a -> Maybe a+paramConDecl (ConstrDecl x _ _ _)  = Just x+paramConDecl (ConOpDecl x _ _ _ _) = Just x++paramConTerm :: ConstrTerm a -> Maybe a+paramConTerm _ = Nothing++paramNewDecl :: NewConstrDecl a -> Maybe a+paramNewDecl (NewConstrDecl x _ _ _) = Just x++paramEq :: Equation a -> Maybe a+paramEq (Equation x _ _) = Just x++paramExp :: Expression a -> Maybe a+paramExp (Variable _) = Nothing+paramExp (Literal _)  = Nothing+paramExp (Constructor _) = Nothing+paramExp (Typed _ _) = Nothing+paramExp (Tuple _) = Nothing++paramAlt :: Alt a -> Maybe a+paramAlt (Alt x _ _) = Just x+-}+-----------------------------------------------------+-- testing+-----------------------------------------------------++mainTest :: (FC.Prog -> Module Pos -> a) -> String -> IO ()+mainTest f fn = do+    p <- FC.readFlatCurry fn+    m <- readCurry fn+    print (f p m)+{-+testWithRef :: IO ()+testWithRef = do+    [fn] <- getArgs+    m <- readCurry fn+    let test (d,r) = srcAt m r==Just (SrcDecl d)+    print $ and $ map test (zipWithRef m)+-}    ++testAt :: Int -> String -> IO ()+testAt n = mainTest (\ _ m -> maybe "Nothing" mainInfo $ srcAt m n)++testZip :: String -> IO ()+testZip = mainTest zipFlatCy++{-+testWithRef2 :: String -> IO ()+testWithRef2 = mainTest (\ _ -> take 10 . zipWithRef)+-}++maxRef :: Tree -> SrcRef +maxRef = last . refs+  where+    refs (Tree (Just i) ts) = i:concatMap refs ts+    refs (Tree Nothing  ts) = concatMap refs ts+     +    last []  = error "empty module"+    last [x] = x+    last (_:xs@(_:_)) = last xs++++testAdd :: String -> IO ()+testAdd = mainTest t+  where+    t _ m = r `seq` maybe False+                  (\_-> maybe True bad (srcAt m (r+1))) +                  (srcAt m r)+      where r = maxRef (Tree Nothing $ run (moduleAdd m))+    bad _ = False++testAddTree :: String -> IO ()+testAddTree = mainTest (\_ m -> run (moduleAdd m))++testMaxRef :: String -> IO ()+testMaxRef = mainTest (\_ m -> maxRef $ Tree Nothing $ run (moduleAdd m))++testSrcRef :: FC.Prog -> Module Pos -> Bool+testSrcRef p@(FC.Prog _ _ ts fs _) m = +  case splitAt (length ts) trees of+    (tts,fts) -> and (zipWith' testType ts tts++zipWith' testFunc fs fts)+  where+    trees = zipFlatCy p m++    testType t (Tree [i] xs) =  case srcAt m i of+      Just (SrcDecl d) -> case d of +        DataDecl _ (Ident s _) _ _ -> +          snd (FG.typeName t)===s  && +          and (zipWith' testCons (FG.typeConsDecls t) xs)+        TypeDecl _ (Ident s _) _ _ -> snd (FG.typeName t)===s  +      _ -> error "test type"++    testCons c (Tree [i] []) = case srcAt m i of+      Just (SrcCon _ c') -> consDeclName c' === snd (FG.consName c)++    testFunc f (Tree [i] xs) = case srcAt m i of+      Just (SrcDecl (FunctionDecl _ (Ident s _) _)) -> +        s===snd (FG.funcName f) && testExp (FG.funcBody f) xs+      Just (SrcExpr _ _ (Lambda _ _)) -> +        is "no Lambda name" isLambdaName (snd $ FG.funcName f) && +        testExp (FG.funcBody f) xs+      Just (SrcConTerm (PatternDecl _ _ _) Nothing (VariablePattern (Ident s _))) -> +        is "no selector name" isSelName (snd $ FG.funcName f) &&+        s===varNameFromSel (snd $ FG.funcName f) &&+        testExp (FG.funcBody f) xs+      Just (SrcExpr _ _ (Do _ _)) ->+        is "no Lambda name" isLambdaName (snd $ FG.funcName f) && +        testExp (FG.funcBody f) xs+      Just (SrcExpr _ _ (ListCompr _ _)) ->+        is "no Lambda name" isLambdaName (snd $ FG.funcName f) && +        testExp (FG.funcBody f) xs+      se -> error $ "wrong source for func decl: " ++ show' se+    --testFunc f (Tree [] xs)  = error $ show f+  +    testExp (FC.Var _) xs = case xs of+        [Tree [i] []] -> case srcAt m i of+         Just (SrcExpr _ _ (Variable _)) -> True+         Just (SrcConTerm _ _ (VariablePattern _)) -> True+         Just (SrcExpr _ _ (ListCompr _ _)) -> True+         se -> error $ "wrong source for var: " ++ show' se+        _ -> error $ "wrong tree for var: " ++ show xs+    testExp (FC.Case FC.Flex e bs) xs = case e of+      FC.Var _ -> and (zipWith' testPats bs xs)+      _ -> error "unexpected flexible case"+    testExp (FC.Case FC.Rigid e bs) xs = case xs of+     (Tree [i] (te:tbs):_) ->+      case srcAt m i of+        Just (SrcCond  _ _ _ _) -> case bs of+          [FC.Branch pt r,FC.Branch pf grs] -> case tbs of +            Tree [i'] []:tr:Tree [i''] []:tgrs -> +              snd (FG.patCons pt)==="True"  &&+              snd (FG.patCons pf)==="False" && +              i===i' && i===i'' && +              testExp e [te] && testExp r [tr] && testExp grs tgrs+            _ -> error "0"+          _ -> error "1"+        Just (SrcExpr _ _ (ListCompr _ _)) -> case bs of+          [FC.Branch pt r,FC.Branch pf nil] -> +            case tbs of +             [Tree [i'] [],tr,Tree [i''] [],Tree [i'''] []] -> +              snd (FG.patCons pt)==="True"  &&+              snd (FG.patCons pf)==="False" && +              snd (FG.combName nil)==="[]" && +              i===i' && i===i'' && i===i''' &&+              testExp e [te] && testExp r [tr] +             _ -> error "2"+          _ -> error "3"+        Just (SrcConTerm _ _ (ConstructorPattern _ _)) ->+          case e of+            FC.Var _ -> and (zipWith' testPats bs xs)+            _ -> error "unexpected rigid case"+        se -> error $ "unexpected source for rigid case: " ++ show' se+     _ -> error $ "wrong trees for rigid case: " ++ show xs++      {-FC.Var _ -> if   length xs === length bs+                  then and (zipWith' testPats bs xs)+                  else case xs of +            (te:tbs) -> testExp e [te] && and (zipWith' testPats bs tbs)++      _ -> case xs of +            (te:tbs) -> testExp e [te] && and (zipWith' testPats bs tbs)-}++    testExp (FC.Comb FC.FuncCall (_,n) args) xs = case xs of+      [Tree [i] tas] ->+        case srcAt m i of+          Just (SrcExpr _ _ (Variable qi)) -> +            identName qi===n && +            and (zipWith' testExp args (map (:[]) tas))+          Just (SrcExpr _ _ (InfixApply _ qi _)) -> +            opName qi===n && +            and (zipWith' testExp args (map (:[]) tas))+          Just (SrcExpr _ _ (Do (StmtBind _ _:_) _)) -> +            is "no bind func nor lambda" +               (\n' -> elem n' [">>",">>="] || isLambdaName n') n && +            and (zipWith' testExp args (map (:[]) tas))+          Just (SrcExpr _ _ (Do _ _)) -> +            is "no bind func" (flip elem [">>",">>="]) n && +            and (zipWith' testExp args (map (:[]) tas))+          Just (SrcExpr _ _ (ListCompr _ (StmtBind _ _:_))) -> +            case args of +             [e,nil,g] -> case tas of+               [Tree [i'] [],Tree [i''] [],tg] ->+                 i===i' && i===i'' &&+                 n==="foldr" &&+                 (snd (FG.combName nil) === "[]") &&+                 is "no lambda name" isLambdaName (snd (FG.combName e)) && +                 testExp g [tg]+               _ -> error $ "wrong tree: " ++ show (tas,args)+             [fold,g] -> case tas of+               [tg, Tree [i'] []] ->+                 i===i' &&+                 n==="++" &&+                 testExp fold [Tree [i'] []] &&+                 testExp g [tg]+               _ -> error $ "mist: " ++ show tas+             _ -> error $ "wrong args for desugared statement bind: " ++ show args+          Just (SrcExpr _ _ (Lambda _ _)) -> +            is "no lambda name" isLambdaName n && +            and (zipWith' testExp args (map (:[]) tas))++          Just (SrcCond _ _ _ _) -> +            (n=="cond" && and (zipWith' testExp args (map (:[]) tas))) ||+            (n=="failed" && +             is "has arguments" null args && +             is "tree not empty" null tas) || +            (error $ "guard mismatch: "++n)+          Just (SrcConTerm (PatternDecl _ _ _) Nothing _) +            | null tas -> True+          Just (SrcExpr _ _ (Apply _ _)) ->+            n==="apply" && and (zipWith' testExp args (map (:[]) tas))+          Just src -> error $ +            "wrong source for call of func "++n++": "++show src ++ " at " ++ show i+          Nothing -> error $ "Nothing for func " ++ n ++ " at " ++ show i+      _ -> error $ "wrong tree for fun comb: " ++ n+    testExp (FC.Comb FC.ConsCall (_,n) args) xs +     | isTupleName n = case xs of+         [Tree [i] tas] -> case srcAt m i of+            Just (SrcExpr _ _ e) -> case e of+              Tuple _ -> and (zipWith' testExp args (map (:[]) tas))+              Constructor qi -> identName qi===n && +                and (zipWith' testExp args (map (:[]) tas))+              _ -> error "6"+            _ -> error "test tuple"+         _ -> error $ "wrong tree for tuple"+     | otherwise = +       case xs of+      [Tree [i] tas] ->+        case srcAt m i of+          Just (SrcExpr _ _ (Constructor qi)) -> +            identName qi===n && +            and (zipWith' testExp args (map (:[]) tas))+          Just (SrcExpr _ _ (List l)) -> case l of+            [] -> n==="[]"+            _  -> n===":" && and (zipWith' testExp args (map (:[]) tas))+          Just (SrcExpr _ _ (Literal (String l))) -> case l of+            [] -> n==="[]"+            _  -> n===":" && case args of+               [FC.Lit (FC.Charc _),exs] -> case tas of+                 [_,txs] -> testExp exs [txs]+                 _ -> error $ "wrong tree for string: " ++ show tas+               _ -> error "wrong string expr for source"+          Just (SrcExpr _ _ (InfixApply _ iop _)) -> +            opName iop===n && +            and (zipWith' testExp args (map (:[]) tas))+          Just (SrcExpr _ _ (ListCompr _ [])) -> case tas of+            [te,Tree [i'] []] ->+              n===":" && +              i===i' &&+              testExp (head args) [te]+            _ -> error $ "wrong trees for list compr: " ++ show tas+          se -> error $ "wrong source for call of constructor "++n+                      ++": "++show' se ++ " at " ++ show i+      _ -> error $ "wrong trees for call of constructor "++n+                      ++": "++ show xs++    testExp (FC.Comb (FC.FuncPartCall _) mn args) xs +      = testExp (FC.Comb FC.FuncCall mn args) xs ++    testExp (FC.Comb (FC.ConsPartCall _) mn args) xs +      = testExp (FC.Comb FC.ConsCall mn args) xs ++    testExp (FC.Lit l) xs = case xs of+      [Tree [i] []] -> case srcAt m i of+        Just (SrcExpr _ _ (Literal l')) -> testLit 1 l l'+        _ -> error $ "wrong source for literal" +      _ -> error $ "wrong tree for literal: " ++ show xs++    testExp (FC.Let vbs e) xs = case xs of+      [Tree [i] xs'] -> case srcAt m i of+        Just (SrcExpr _ _ (Let _ _)) -> testBinds vbs e xs'+        Just (SrcRhs  _ _ (SimpleRhs _ _ (_:_))) -> testBinds vbs e xs'+        Just (SrcRhs  _ _ (GuardedRhs _ (_:_)))  -> testBinds vbs e xs'+        _ -> error "17"+      _ -> error $ "unexpected tree for test let: " ++ show xs++    ++    testBinds [] e t = testExp e t+    testBinds ((_,b):vbs) e (t:xs) = testExp b [t] && testBinds vbs e xs+ +    testPats b (Tree rs xs) = +      and (testExp (FG.branchExpr b) xs:map (testPat b) rs)++    testPat b i = case srcAt m i of+      Just (SrcConTerm _ _ ct) -> case FG.branchPattern b of+        FC.Pattern (_,n) _ -> n===flatConsName ct+        FC.LPattern l -> case ct of+                        LiteralPattern l'    -> testLit 1    l l'+                        NegativePattern _ l' -> testLit (-1) l l'+      Just (SrcExpr _ _ (ListCompr _ _)) -> True+      se -> error $ "wrong source for pattern: " ++ show' se ++    testLit _ (FC.Charc x)  (Char x')  = x===x'+    testLit i (FC.Intc x)   (Int _ x') = x===(i*x')+    testLit i (FC.Floatc x) (Float x') = if i<0 then x===((0.0-.1.0) *. x') else x===x'++    zipWith' _ [] [] = []+    zipWith' _ xs@(_:_) [] = error $ "zipWith' left list not empty: " ++ show xs+    zipWith' _ [] (_:_) = error "zipWith' right"+    zipWith' f (x:xs) (y:ys) = f x y : zipWith' f xs ys++    x===y = if x==y then True +            else error $ "mismatch: " ++show x ++ " | " ++ show y++    is msg pred s = if pred s then True+                    else error $ msg ++ " |  " ++ show s++    ++show' :: Maybe (SrcEntity Pos) -> String+show' = maybe "Nothing" mainInfo --show +++  +consDeclName :: ConstrDecl _ -> String+consDeclName (ConstrDecl _ _ (Ident s _) _)  = s+consDeclName (ConOpDecl _ _ _ (Ident s _) _) = s++bigTest :: String -> IO ()+bigTest = mainTest testSrcRef++mainInfo :: SrcEntity _ -> String+mainInfo (SrcDecl x) = show x+mainInfo (SrcCon _ x) = show x+mainInfo (SrcConTerm _ _ x) = show x+mainInfo (SrcNew _ x) = show x+mainInfo (SrcRhs _ _ x) = show x+mainInfo (SrcId _ x) = show x+mainInfo (SrcCond _ _ x y) = "Cond"++show (x,y)+mainInfo (SrcExpr _ _ x) = show x+mainInfo (SrcAlt _ _ x) = show x++init :: [a] -> [a]+init [_] = []+init (x:xs@(_:_)) = x:init xs++
+ biosphere/src/Curry/Module/Transformation.lcurry view
@@ -0,0 +1,503 @@+Debug Transformation+====================++This module provides a transformation from Curry via FlatCurry and+AbstractCurry to a strict Haskell program.++Imports+-------++> import System+> import IO+> import IOExts+> import Directory+> import List+> import Assertion++> import FlatCurry as FC+> import FlatCurryGoodies++> import AbstractCurry as AC+> import AbstractHaskell++> import SrcRef++> import LiftCases+> import Make(unless)++Import the converters from flat to abstract curry without any debug+transformation:++> import FlatToAbstractCurry++Import the transformation monad `TM`:++> import TransformationMonad++Import utily and constants for Debug Infos:++> import TransformationDebugInfo++Import connector to pretty printer++> import TransformationPrint++> import TransformationSignatures++2nd is deprecated++> import TransformationInstances++	> import TransformationGenTerm+++> import TransformationExpr+> import TransformationPartCalls+> import ExternalStubs++Interface+=========++main = do+  args <- getArgs+  let mWorld = if length args == 2 then Just (last args) else Nothing+  transformFlatCurry (head args) mWorld++transformFCY mod = error "a" --transformFlatCurry mod Nothing++Transforms Flat Curry file with given file name without suffix ".curry" or+".lcurry" and writes it to a Haskell file with prefix "S". Takes maybe a 2nd+String containing the name of the root function to apply to the "world".++> transformFlatCurry quiet out dir prog mWorld =+>   do++  Read the source references tree for the program:++>      let infoTree = treeN 4++      getInfoTree prog++	>      infoTree <- getInfoTree prog+	>      print infoTree++  Transform and pretty print program:++>      let HaskellProg name f a _ b c d e = transformProg prog mWorld infoTree higherOrderTypes++>      externals <- handleExternals quiet dir out prog ++>      let fileName = outputFile dir out (progName prog) +>      prettyacy fileName (HaskellProg name f a externals b c d e)++>      putStrLn (fileName ++ " written.")++Implementation+==============++Transforms the given flat curry program.+All QNames are renamed by adding the prefix, imports renamed and extended,+types and functions are transformed in the transformation monad `TM` and+instance declarations created for the types.++> transformProg :: Prog -> Maybe String -> InfoTree -> [FC.QName] -> HaskellProg+> transformProg prog@(Prog name _ _ _ _) mWorld infoTree hoTypes =+>   trProg transProg . updQNamesInProg renameModule $ liftCases False prog+>   where+>     transProg _ imports types funcs _ =+>       let+>           (typeRefs,funcRefs) = splitAt (length types)+>                                         (infoChildren infoTree)++TODO: handle renaming after genTerms++  Transform type declarations into transformed types and a collection of constructor source reference generators for part calls.++>           (types',pcConsTerms) = transformTypeDecls types typeRefs hoTypes+>           instsGenTerm    = instancesGenTerm types typeRefs hoTypes+>           (instsGenerics,+>            funcsGenerics) = instancesGenerics types hoTypes++  Add a set of generated part call helpers, if there part calls with more missing arity than the arity threshold in `TransformationPartCalls`:++>           funcs'   = (transformFuncs funcs funcRefs mWorld hoTypes)+>                       ++ pcConsTerms+>                       ++ (createPCHelpers modName funcs)+>           modName  = modulePrefix++name in+>         HaskellProg modName+>                     "{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables #-}"+>                     (delete modName $ transformImports imports)+>                     ""+>                     types'+>                     (instsGenerics ++ instsGenTerm)+>                     (funcsGenerics ++ funcs')++  All operators are transformed to regular functions. For that reason no precedences are required:++>                     []++Adds the debugger modules to the imports and prefix "Strict" to each regular+import.++> transformImports :: [String] -> [String]+> transformImports = (prelude:) .+>                    (debugMonadImport:) .+>                    (debugInfoImport:) .+>                    (partCallsImport:) .+>                    (dataGenericsImport:) .+>                    (map (\name -> modulePrefix++name))+++Data Types+----------++Transforms the list of type declarations.+Type synonyms are skipped since they are not used by Flat Curry programs.+External types without constructors are not taken to the transformed list and+need to be transformed manually.+The second list contains source reference generators for constructor part calls, created for constructors with an arity > 0.++> transformTypeDecls :: [TypeDecl] -> [InfoTree] -> [FC.QName] -> ([HTypeDecl],[HFuncDecl])+> transformTypeDecls [] _ _ = ([],[])++Convert type synonyms:++> transformTypeDecls ((TypeSyn _ _ _ _):tds) (_:ts) hoTypes =+>   transformTypeDecls tds ts hoTypes++Skip external data types without constructors:++> transformTypeDecls ((Type _ _ _ []):tds) (_:ts) hoTypes =+>   transformTypeDecls tds ts hoTypes++Transform data types with constructors:++> transformTypeDecls (td@(Type _ _ _ conss@(_:_)):tds) (tree:trees) hoTypes =+>   let (ttds,pcs) = transformTypeDecls tds trees hoTypes+>       consTrees  = infoChildren $ snd $ nextStaticInfo tree+>       ttds'      = transformTypeDecl td hoTypes : ttds+>       pcs'       = createPCConsTerms conss consTrees ++ pcs in+>     (ttds',pcs')+++Creates source reference generators for constructors with arity > 0 in given list.++> createPCConsTerms [] _ = []+> createPCConsTerms (cons:conss) (tree:trees) =+>   let conss' = createPCConsTerms conss trees in+>     if   consArity cons > 0+>     then createPCConsTerm cons tree : conss'+>     else conss'++  Ingore the source ref of the type, but extract the info trees of the+  constructors.+++Data Type+---------++Transforms a declared data type by transforming it's constructors, adding an additional type variable for the debug monad and it's constraint. This tvar is added to every data type for the case of functional arguments, represented as a monadic `FuncRep`.+The data type is extended by a new constructor to represent not evaluated expressions of the type.++> transformTypeDecl :: TypeDecl -> [FC.QName] -> HTypeDecl+> transformTypeDecl (Type qn vis tvars conss) hoTypes =++  Add `DM` constraint for additional tvar:++>   (HTypeDecl (if elem qn hoTypes then [constraint debugMonadClass tvar] else [] ){-[constraint debugMonadClass tvar]-}+>              (CType qn'+>                     (convertVisibility vis)++  Add debug monad type var `dm` as 1st tvar:++>                     tvars'++  Add new constructors and transform existing ones:++>                     (fail:or:underscore:(map (\c -> transformCons c hoTypes) conss)))++  If all constructors have got less than 8 arguments, `Typeable` and `Data` can be derived:++>              (if maxArgs conss < 8 then [typeableClass,dataClass] else []))+>   where+>     tvar = (-1,debugTVarName)+>     tvars' = if elem qn hoTypes then tvar:tvars'' else tvars''+>     tvars'' = map convertTypeVariable tvars -- (tvar:(map convertTypeVariable tvars))+>     underscore = CCons (mod,name++underscoreSuffix) 0 AC.Public []+>     fail = CCons (mod,name++failSuffix) 0 AC.Public []+>     or = CCons (mod,name++orSuffix) 0 AC.Public [orRef,orList]+>     orRef = CTCons (debugMonadAs,"OrRef") []+>     orList = CTCons (prelude,"[]") [CTCons qn' (map CTVar tvars')]+>     qn'@(mod,name) = renameType qn+>     maxArgs = foldr max 0 . map numArgs+>     numArgs (Cons _ arity _ _) = arity++Transforms a constructor declaration.++> transformCons (Cons name arity vis types) hoTypes =+>   CCons name' arity (convertVisibility vis) (map transformType' types)+>   where+>     name' = renameCons name+>     transformType' te = case te of ++    A single type variable is just converted:++>                           (TVar _) -> convertType te++    Functional types are transformed like higher order function declarations+    with already handled arity, data types require transformation for additional+    debug monad type variable:+ +>                           _        -> transformType (-1) te hoTypes++Function Declarations+---------------------++Transforms the list of function declarations.+Functions with an external rule are not transformed but cause the creation of a helper function to call the function declaration hook in a manually coded+implementation.++> transformFuncs :: [FuncDecl] -> [InfoTree] -> Maybe String -> [FC.QName] -> [HFuncDecl]+> transformFuncs [] _ _ _ = []++TODO: refactor to a single rule and handle the difference between external and regular rules in another function.++  Add hook and part call term helper for functions with an external rule:++> transformFuncs (fd@(Func _ _ _ _ (External _)):fds) (it:its) mWorld hoTypes =+>  let hook   = createHookHelper fd it+>      tfuncs = transformFuncs fds its mWorld hoTypes in+>    hook : (createPCTermGen fd it) : tfuncs++  Transform functions with a regular rule in the transformation monad and add a generator for part call terms if arity > 1:++> transformFuncs (fd@(Func (_,fname) arity _ _ (Rule _ _)):fds) (it:its) mWorld hoTypes =+>  let applyWorld = case mWorld of+>                     Nothing     -> False+>                     Just fname' -> fname == fname'+>      tfunc      = run (transformFunc fd applyWorld it hoTypes)+>      tfuncs     = transformFuncs fds its mWorld hoTypes in+>    if   arity > 0+>    then tfunc : (createPCTermGen fd it) : tfuncs+>    else tfunc : tfuncs++Part Call helper+----------------++Generates non-default part call helpers for this module, if required (see module `TransformationPartCalls`).++> createPCHelpers :: String -> [FuncDecl] -> [HFuncDecl]+> createPCHelpers mod = map (mkPartCallHelper mod)+>                       . (filter (> arityThreshold)) . nub . calcMissings++Extracts numbers of missing arguments of all part calls in given function.++> calcMissings :: [FuncDecl] -> [Int]+> calcMissings = concat . map calcMissings' where+>   calcMissings' :: FuncDecl -> [Int]+>   calcMissings' (Func _ _ _ _ (Rule _ expr)) = tr expr+>   calcMissings' (Func _ _ _ _ (External _)) = []+>   tr    = trExpr var lit comb leT freE oR casE bran+>   var _ = []+>   lit _ = []+>   comb ct _ args = missingArgs ct : concat args+>   leT a b = (concat . map snd) a ++ b+>   oR = (++)+>   freE _ = id+>   casE _ a b = a ++ concat b+>   bran _ = id++Hook helper+-----------++The hook helper is created for functions with external rules which have to be+transformed manually. The helper function can be used to call the function declaration hook with the right source reference.+Takes the arguments of the original function to create terms for dynamic info and the result value to call the hook.++> createHookHelper :: FuncDecl -> InfoTree -> HFuncDecl+> createHookHelper (Func name@(mod,fn) arity _ _ _) infoTree =+>   untypedFunc name' [rule] where+>     name' = hookHelperName name++  Variables to match the functions arguments and the result value:++>     vars  = [1..arity]+>     value = (arity+1,"value")++  The rule matches the given arguments and result value and wraps it with the+  call of the hook:++>     rule = simpleRule ((map px vars)++[CPVar value])+>                       (wrapEval $ insertHook (CVar value))+++  Create the debug information with static reference to the function+  declaration and generated terms of the arguments:++>     info = debugInfo (createStaticInfo mod srcRefs)+>                      (simpleDynInfo (list (map genTermCallVar vars)))+>     insertHook val = comb (debugMonadAs,"funcDeclHook")+>                           [acyStr fn,info,val]++  Extract source reference of function from info tree:++>     srcRefs  = fst $ nextStaticInfo infoTree+++Part Call Source Reference+--------------------------++Functions which perform are partial call to another function have to return a function representation including the partly applied function and a source reference.+Though the calling function could be defined in another module than the called one.+For that reason a helper function creating a function term inluding the correct source reference is generated for each function: `term_strict_f` (with `f` as name of the function)++> createPCTermGen :: FuncDecl -> InfoTree -> HFuncDecl+> createPCTermGen (Func name@(mn,fn) _ _ _ _) infoTree =++  The Part Call Term generator takes a lists of arguments (1st variable) applied to a function and creates a term with name of the partly applied function and the source reference of it's declaration.++>   untypedFunc (pcTermName name) [simpleRule [px 1] genTermExpr]+>   where+>     srcRefs     = fst $ nextStaticInfo infoTree+>     statInfo    = (createStaticInfo mn srcRefs)+>     genTermExpr = comb staticInfoCons [acyStr fn, statInfo, (xx 1)]+++Partial constructor calls are handled similar.++> createPCConsTerm :: ConsDecl -> InfoTree -> HFuncDecl+> createPCConsTerm (Cons name@(mn,cn) _ _ _) infoTree =++>   untypedFunc (pcConsName name) [simpleRule [px 1] genTermExpr]+>   where+>     srcRefs     = fst $ nextStaticInfo infoTree+>     statInfo    = (createStaticInfo mn srcRefs)+>     genTermExpr = comb staticInfoCons [acyStr cn, statInfo, (xx 1)]+++Function Declaration+--------------------++Transforms a declared function using given info tree containing the source+reference for the function.++> transformFunc :: FuncDecl -> Bool -> InfoTree -> [FC.QName] -> TM HFuncDecl+> transformFunc (Func qn arity visibility typeexpr rule) applyWorld infoTree hoTypes =++>   ret (HFunc (renameFunc qn)+>              arity+>              (convertVisibility visibility)++  The function requires a type constraint for the debug monad type variable and `GenTerm` for all other type variables.++>              (debugMonadConstraint : createConstraints typeexpr)++>              (if applyWorld then untyped else (transformType arity typeexpr hoTypes))+>              (transformRule rule qn applyWorld infoTree))++Creates a list of `GenTerm` constraints for type variables in given type+expression.++> createConstraints :: TypeExpr -> [TypeClass]+> createConstraints typ = map createConstraint (extractTVars typ) where++  Creates a `GenTerm` constraint for a type var with given index.++>   createConstraint var = TypeClass staticInfoClass [tx var]+++Transforms a regular flat curry rule to a single flexible `CRule` (without+guard and local declarations) of a `CRules`:++> transformRule (Rule vars expr) (mn,fn) applyWorld infoTree =+>   rules [simpleRule pattern cexpr]+>     where pattern = (map px vars)+>           cexpr   = wrapEval $ insertHook $ insertWorld $++  Transform the function's expression in the transformation monad starting with a fresh variable (not used in the expression).++>                     (runVar (freshVariable expr))+>                     (transformExpr expr (mn,fn) vars exprInfoTree)++  Extract source reference of function declaration and info tree of the+  expression from the current info tree. The debug information includes static+  info containing the source reference and dynamic info about the arguments.++>           (srcRefs,exprInfoTree) = nextStaticInfo infoTree+>           info = debugInfo (createStaticInfo mn srcRefs)+>                            (simpleDynInfo (list (map genTermCallVar vars)))+>           insertHook value = comb (debugMonadAs,"funcDeclHook")+>                                   [acyStr fn,info,value]+>           insertWorld      = if   applyWorld+>                              then x+>                              else id++> x = \expr -> expr $$ (CSymbol $ renameModule (prelude,"Unit"))++Manual transfomration of externals+----------------------------------++Checks if program contains external functions or data types and wether a file with manual transformation already exists.+If not exists but should, generates stubs and warns user.+If exists or generated, append. User is warned, if manual file contains an auto generated comment (=> stubs file has not been modified).++> handleExternals quiet dir out prog@(Prog mod _ _ _ _) = do+>   let exts = containsExt prog+>   if not exts +>    then do put "no external contents"+>            return "" +>    else test (map manualName (dir:(dir++"../"):maybe [] (:[]) out))+>+>  where+>   put = unless quiet . putStrLn +>   +>   manualName d = d ++ mod ++ ".hs.include"+>+>+>   warning = "Warning: using generated external module."+>   stubs filename = writeStubs filename prog >> +>                    putStrLn warning >>+>                    return filename+>+>   test xs@(x:_)   = test' x xs+>   test' mn []     = stubs mn+>   test' _  (n:ns) = do put $ "testing existence of " ++ n+>                        ex <- doesFileExist n+>                        if ex then found n else test' n ns+> +>   found name = do+>                 put ("found external definition file "++name)+>                 return name ++++Tests (don't work since prettyacy)+----------------------------------++	Function Types:++	> test1 = AssertEqual "'lower order' type"+	>                     (showTypeExpr False $ transformType 3 (FuncType (TVar 0) (FuncType (TCons (prelude,"Bool") []) (TVar 1))))+	>                     "a -> Bool -> DM b"+	>+	> test2 = AssertEqual "higher order type"+	>                     (showTypeExpr False $ transformType 1 (FuncType (TVar 0) (FuncType (TVar 1) (TCons (prelude,"Bool") []))))+	>                     "a -> DM (b -> DM Bool)"+	>+	> test3 = AssertEqual "higher type SE"+	>                     (showTypeExpr False $ transformType 0 (FuncType (TCons (prelude,"Bool") []) (FuncType (TVar 0) (TVar 1))))+	>                     "DM (Bool -> DM (a -> DM b))"+	>+	> test4 = AssertEqual "just False"+	>                     (showTypeExpr False $ transformType 0 (TCons (prelude,"Bool") []))+	>                     "DM Bool"+	>+	> test5 = AssertEqual "functional parameter"+	>                     (showTypeExpr False $ transformType 2 (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (TVar 0) (TVar 1))))+	>                     "(a -> DM b) -> a -> DM b"+	>+	> test6 = AssertEqual "functional parameter SE"+	>                     (showTypeExpr False $ transformType 3 (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (TVar 2))) (FuncType (TVar 0) (FuncType (TVar 1) (TVar 2)))))+	>                     "(a -> b -> DM c) -> a -> b -> DM c"+	>+
+ biosphere/src/Curry/Module/TransformationComb.lcurry view
@@ -0,0 +1,142 @@+Transformation of Combs+=======================++Imports+-------++> import FlatCurry as FC+> import AbstractCurry as AC+> import AbstractHaskell++> import SrcRef++Import the converters from flat to abstract curry without any debug+transformation:++> import FlatToAbstractCurry++Import the transformation monad `TM`:++> import TransformationMonad++Import utily and constants for debug information and hooks:++> import TransformationDebugInfo++Import the support for higher order.++> import TransformationPartCalls++Transformation+--------------++Transforms a comb call in the Transformation Monad to get fresh variables.++> transformComb :: CombType -> FC.QName -> [CExpr] -> String -> [SrcRef] -> TM CExpr+> transformComb ct name args mod srcRefs =+>   freshVars (length args) >>=. \vars ->+>   let++  Debug info for the hook, contains current source reference as static info+  and terms of the arguments as dynamic info.++>     info = debugInfo (createStaticInfo mod srcRefs)+>                      (dynamicInfo (presym "[]")+>                                   (list (map genTermCallVar vars)))+>   in++  Delegate to method for comb type taking fresh vars and debug info, too:++>     ret $ transformComb' ct name args vars info++Transformation of specific `CombType`+-------------------------------------++> transformComb' :: CombType -> FC.QName -> [CExpr] -> [VarIndex] -> CExpr -> CExpr++Transform regular function calls with a func call hook and an `eval`.++> transformComb' FuncCall name@(_,fn) args vars info =+>   call (renameFunc name) args vars insertHook+>   where+>     insertHook value = comb (debugMonadAs,"funcCallHook")+>                             [acyStr fn,info,value]++Transforms partly applied functions with a part call hook, wrapped with a+returned `FuncRep`.++> transformComb' (FuncPartCall n) name@(mn,_) args vars _ =++  Use the part call helper for number of missing arguments.+  The helper takes the term representation and the function applied to the+  available arguments (`call`). Uses `id` as wrapper to have the helper call+  the hooks:++>   (call (renameFunc name) args vars pcWrap) +>     where+>       pcWrap = wrapReturn . helper n funcTerm+>       helper = if n <= arityThreshold+>                then combDefaultPC+>                else combPC mn++  Create the function represention term by calling+  `<module>.term_<function>`+  with generated argument terms:++>       funcTerm     = comb (pcTermName name) [argsTerms]+>       argsTerms    = list (map genTermCallVar vars)++Transform constructor calls with a constructor hook and an wrapped `return`:++> transformComb' ConsCall name args vars info =+>   call (renameCons name) args vars $+>        (insHook "constructor" info) . wrapReturn++A part call of a constructor is transformed similar to `FuncPartCall` using the  corresponding part call helper to return a monadic function.+But a constructor is not monadic, for that reason a lambda term is inserted to handle all arguments and `return` the constructed data.++> transformComb' (ConsPartCall n) name@(mn,_) args vars _ =+>   (callExpr lambda args vars pcWrap) +>     where+>       lambda    = CLambda lamdaVars combCall+>       missing   = map (+length vars) [0..(n-1)]+>       lamdaVars = map px missing+>       combCall  = wrapReturn $ comb (renameCons name) $ map xx (vars++missing)+>       pcWrap    = wrapReturn . helper n consTerm+>       helper    = if n <= arityThreshold+>                   then combDefaultPC+>                   else combPC mn++  Create the function represention term by calling+  `<module>.term_<Constructor>`+  with generated argument terms:++>       consTerm  = comb (pcConsName name) [argsTerms]+>       argsTerms = list (map genTermCallVar vars)+++Creates the comb call for given name, argument expressions and fresh variables.++> call :: FC.QName -> [CExpr] -> [VarIndex] -> (CExpr -> CExpr) -> CExpr+> call name args vars wrapper = callExpr combCall args vars wrapper+>   where combCall = (comb name (map xx vars))+++Creates the call for given call expression, argument expressions and fresh variables.+Constants are called directly, a `do` expression is returned for functions and constructors with arguments, evaluating the arguments first.++> callExpr :: CExpr -> [CExpr] -> [VarIndex] -> (CExpr -> CExpr) -> CExpr+> callExpr expr args vars wrapper =+>   if null args++  No arguments, a `do` expression is not required:++>    then wrapper $ expr++  Evaluate all arguments in a `do` with the expression as last expression:++>    else CDoExpr ((zipWith (CSPat . px) vars args) ++ [CSExpr $ wrapper expr])+++> funcRep x y = comb funcRepCons [x,y]+
+ biosphere/src/Curry/Module/TransformationDebugInfo.lcurry view
@@ -0,0 +1,316 @@+Debug Info utility and constants+================================++This module provides constants, wrappers and other functions for creating debug+information and hooks.++Imports+-------++> import FlatCurry as FC+> import AbstractCurry as AC+> import AbstractHaskell++Import the converters from flat to abstract curry without any debug+transformation:++> import FlatToAbstractCurry++> import SrcRef++> import Char++Constants+---------++Modules containing the debugger monad and the debug info++> debugPackage     = "Curry.Debugger."+> debugMonadModule = debugPackage++"DebugMonad"+> debugMonadAs     = "DM"+> debugMonadImport = debugMonadModule ++ " as " ++ debugMonadAs+> debugInfoModule  = debugPackage++"DebugInfo"+> debugInfoAs      = "DI"+> debugInfoImport  = debugInfoModule ++ " as " ++ debugInfoAs+> dataGenericsImport = "Data.Generics"+> dataTypeableImport = "Data.Typeable"+> typeableClass    = (dataGenericsImport,"Typeable")+> dataClass        = (dataGenericsImport,"Data")++> higherOrderTypes = map renameModule [(prelude,"IO")]++Debug monad's type and eval++> debugMonadClass = (debugMonadAs,"DM")+> debugMonadEval = (debugMonadAs,"eval")++Debug info class, method and constructors++> debugInfoCons      = (debugInfoAs,"DebugInfo")+> staticInfoClass    = (debugInfoAs,"GenTerm")+> staticInfoFunc     = (debugInfoAs,"genTerm")+> genericInfoFunc    = (debugMonadAs,"genericTerm")+> genStaticInfoClass = (debugInfoAs,"GenStaticInfo")+> genStaticInfoFunc  = (debugInfoAs,"genStaticInfo")+> underscoreMethod   = (debugInfoAs,"underscore")+> staticInfoCons     = (debugInfoAs,"Term")+> underscoreCons     = (debugInfoAs,"TermUnderscore")+> staticInfoSrcCons  = (debugInfoAs,"SrcID")+> dynamicInfoCons    = (debugInfoAs,"DynamicInfo")++Type and constructor for function representation++> funcRepType = (debugMonadAs,"Func")+> funcRepCons = (debugMonadAs,"FuncRep")++prefix for the transformed module ++> modulePrefix = "Curry.DebugModule."++prefix for manually transformed module parts++> manualPrefix = "M"++prefix for functions++> funcPrefix = "strict_"++prefix for operators++> opPrefix = "op_"++prefix for function declaration source references++> pcTermPrefix = "term_"++prefix for hook helpers++> hookHelperPrefix = "hook_"++data type name suffix for constructor of representation of not evaluated expressions++> underscoreSuffix = "Underscore"+> failSuffix       = "Fail"+> orSuffix         = "Or"++> debugTVarName = "dm"+> debugTVar = ("",debugTVarName)++Debug monad class constraint++> debugMonadConstraint = TypeClass debugMonadClass [CTVar (-1,debugTVarName)]++Wrappers+--------++Wraps the given abstract curry type with the debug monad type variable `m`.++> wrapDebugTVar :: CTypeExpr -> CTypeExpr+> wrapDebugTVar = (CTCons debugTVar) . (:[])++Wraps the given abstract curry expression with `return`.++> wrapReturn :: CExpr -> CExpr+> wrapReturn = comb (prename "return") . (:[])++Wraps the given abstract curry expression with `eval` of the debug monad.++> wrapEval :: CExpr -> CExpr+> wrapEval = comb debugMonadEval . (:[])++The initial wrapper for func reps (for `higherOrder`)++> funcRepWrap :: CExpr -> CExpr+> funcRepWrap term = point $$ (comb funcRepCons [term])++Hooks+-----++Inserts a hook with given name prefix for given debug info expression and value expression.++> insHook :: String -> CExpr -> CExpr -> CExpr+> insHook prefix info value =+>   comb (debugMonadAs,prefix ++ "Hook") [info,value]++Inserts a exception hook with given name prefix for given debug info expression.++> exceptionHook :: String -> CExpr -> CExpr+> exceptionHook prefix info =+>   comb (debugMonadAs,prefix ++ "Hook") [info]++Skip External Types+-------------------++Set the flag to skip the following list of external data types of the Prelude and functions using them:++> skipExternalTypes = False++> externalTypes = map (renameModule . prename) ["Char","Float","IO"]++> skippedFunc (Func _ _ _ typeExpr _) =+>   skipExternalTypes && skippedSignature typeExpr++> skippedSignature (TVar _) = False+> skippedSignature (FuncType t0 t1) = skippedSignature t0 ||+>                                     skippedSignature t1+> skippedSignature (TCons name ts)  = elem name externalTypes ||+>                                     any skippedSignature ts++> skippedType (Type name _ _ conss) =+>   skipExternalTypes && (elem name externalTypes || any skippedCons conss)+>   where+>     skippedCons (Cons _ _ _ ts)  = any skippedSignature ts+++Debug Info+----------++Creates a debug information for given static and dynamic infos expressions.++> debugInfo :: CExpr -> CExpr -> CExpr+> debugInfo stat dyn = comb debugInfoCons [stat,dyn]++Creates a dynamic information for given context and arguments expressions.++> dynamicInfo :: CExpr -> CExpr -> CExpr+> dynamicInfo context args = comb dynamicInfoCons [context,args]++Creates a dynamic information without context for given arguments expressions.++> simpleDynInfo :: CExpr -> CExpr+> simpleDynInfo args = comb dynamicInfoCons [presym "[]",args]++Creates a static info for given module name and source references. First source reference is used, further references are ignored.+The module prefix is removed from the name.+Source reference `-1` in case of no available refs.++> createStaticInfo :: String -> [SrcRef] -> CExpr+> createStaticInfo mod []      = comb staticInfoSrcCons+>                                     [acyStr (drop (length modulePrefix) mod),+>                                      CLit (CIntc (-1))]+> createStaticInfo mod (ref:_) = comb staticInfoSrcCons+>                                     [acyStr (drop (length modulePrefix) mod),+>                                      CLit (CIntc ref)]++> dummyDebugInfo :: CExpr+> dummyDebugInfo = comb debugInfoCons [dummyStatInfo,dyn]+>   where+>     dyn = simpleDynInfo (presym "[]")++> dummyStatInfo :: CExpr+> dummyStatInfo = comb staticInfoSrcCons+>                      [(acyStr "DummyModule"),(CLit (CIntc 42))]++Term generation+---------------++Wraps a given acy expression with a call of `genTerm`.++> genTermCall :: CExpr -> CExpr+> genTermCall = (comb staticInfoFunc) . (:[])++Creates a `genTerm` call with variable of given index as argument.++> genTermCallVar :: VarIndex -> CExpr+> genTermCallVar = genTermCall . xx++Hook Helper+-----------++> hookHelperName name =+>   let (mod,fn) = renameFunc name+>   in  (mod,hookHelperPrefix++fn)++Part Call SrcRef+----------------++> pcTermName name = +>   let (mod,fn) = renameFunc name+>   in  (mod,pcTermPrefix++fn)++Constructor Part Call SrcRef+----------------------------++> pcConsName name = +>   let (mod,cn) = renameCons name+>   in  (mod,pcTermPrefix++cn)++Renaming+--------++> renameModule,renameType,renameCons,renameFunc :: FC.QName -> FC.QName++Adds module prefix to module of given qualified name.++> renameModule (mod,name) = (modulePrefix++mod,name)++Renames a type (same renaming as constructors).++> renameType name@(m,n) = case n of+>   "[]" -> (m,"List")+>   _    -> renameCons name++Renames a constructor, cons, nil and tuples are renamed, infix constructors are renamed like operators and all other constructors are left as they are.++> renameCons (mod,n@(c:_)) = case n of+>   ":"  -> (mod,"Cons")+>   "[]" -> (mod,"Nil")+>   _    -> (case c of+>              '(' -> (mod,renameTuple n)+>              _   -> (mod,if isInfix n then renameTuple n else n))++Renames a tuple from `(,^n)` to `Tuplen`++> renameTuple name = let l = length name in+>   case l of+>     2 -> "Unit"+>     _ -> "Tuple" ++ show (l-1)++Adds function or operator prefix to given qualified name and converts to a+string in case of an operator.++> renameFunc (mod,func) = (mod,renameFunc' func)++> renameFunc' :: String -> String+> renameFunc' func+>   | isInfix func = opPrefix ++ renameInfix func+>   | otherwise    = funcPrefix ++ func++> isInfix = all $ flip elem (map fst infixNames)++Performs the renaming of operators, infix symbols are converted in+human-readable strings.++> renameInfix :: String -> String+> renameInfix name = concat (map (convert infixNames) name) where+>   convert [] c = error ("Unknown infix symbol: " ++ show c ++ " in " ++ name)+>   convert ((c',name'):names) c | c == c'   = name'+>                                | otherwise = convert names c++> infixNames :: [(Char,String)]+> infixNames = [('~',"Tilde"),+>               ('!',"EMark"),+>               ('@',"At"),+>               ('#',"Rhomb"),+>               ('$',"Dollar"),+>               ('%',"Percent"),+>               ('^',"Accent"),+>               ('&',"And"),+>               ('*',"Asterisk"),+>               ('+',"Plus"),+>               ('-',"Minus"),+>               ('=',"Eq"),+>               ('<',"Lt"),+>               ('>',"Gt"),+>               ('?',"QMark"),+>               ('.',"Point"),+>               ('/',"Slash"),+>               ('|',"Or"),+>               ('\\',"BSlash"),+>               (':',"Colon")]++++> outputFile :: String -> Maybe String -> String -> String+> outputFile path targetdir modulename = +>   maybe path id targetdir ++ "Curry/DebugModule/" ++ modulename ++ ".hs"
+ biosphere/src/Curry/Module/TransformationDependencies.lcurry view
@@ -0,0 +1,56 @@+Debug Transformation of Dependencies+====================================++This module provides the transformation of all dependencies of a Curry module.++Imports+-------++> import Make+> import System+> import Directory+> import FlatCurryGoodies+> import FileGoodies+> import List+> import Maybe+> import Distribution (getStdLibDir)++> import Transformation+> import TransformationDebugInfo (outputFile)++Interface+=========++> main = do+>   params <- parseArgs +>   libdir <- getStdLibDir +>   maybe done mayCreateDirectory (output params)+>   transformProgs libdir params++> mayCreateDirectory :: String -> IO ()+> mayCreateDirectory dir = do +>   ex <- doesDirectoryExist dir+>   unless ex (createDirectory dir)++Transforms all dependencies of Flat Curry file with given file name without suffix ".curry" or ".lcurry".++> transformProgs libdir p = +>   make (quiet p) (modulename p)+>        (testTransformNecessary libdir (quiet p) (output p))+>        (\ dir _ prog -> transformFlatCurry (quiet p) (output p) dir prog Nothing)++Implementation+==============++> testTransformNecessary libdir qu out path modu = do+>   ob <- obsolete qu+>           (\ dir m -> outputFile dir out m)+>           (map renameFile [\n -> "../" ++ n ++ ".hs.include", (++".fcy")])+>           (\_ -> return ()) path modu+>   if isJust ob || isJust out || not (isPrefixOf libdir path)+>     then return ob+>     else do unless qu (putStrLn $ modu ++ " is a standard library")+>             return (Just ())+++> renameFile = replaceFileName
+ biosphere/src/Curry/Module/TransformationExpr.lcurry view
@@ -0,0 +1,203 @@+Transformation of Expressions+=============================++Imports+-------++> import FlatCurry as FC+> import FlatCurryGoodies+> import AbstractCurry as AC+> import AbstractHaskell++> import SrcRef++Import the converters from flat to abstract curry without any debug+transformation:++> import FlatToAbstractCurry++Import the transformation monad `TM`:++> import TransformationMonad++Import utily and constants for debug information and hooks:++> import TransformationDebugInfo++> import TransformationComb++Transformation+--------------++Transforms a flat curry expression to abstract curry using given module name+and info tree containing the expressions source reference.++> transformExpr :: Expr -> (String, String) -> [VarIndex] -> InfoTree -> TM CExpr+> transformExpr expr (mod,fn) vars infoTree = ++  Set initial info tree for this expression tree and extract the source+  reference for expr:++>   setInfoTree infoTree >>.++>     trExpr var lit comb leT freE or casE br expr where++    Wrap variables with the debugger monads' `return`:++>     var  x        = ignoreVarRefs >>. ret (wrapReturn (xx x))++>     lit l        = nextSrcRefs >>=. \srcRefs ->+>                    ret $ transformLiteral l mod srcRefs+>     comb ct n es = nextSrcRefs >>=. \srcRefs -> +>                    sequence es >>=. \ es' ->+>                    (transformComb ct n es' mod srcRefs)+>     leT vsbs e = nextSrcRefs >>=. \_ ->+>                  case unzip vsbs of+>                   (vs,bs) -> sequence bs >>=. \ bs' ->+>                              e >>=. \ e' ->+>                              ret $ (insHook "let" dummyDebugInfo)+>                                    (transformLet (zip vs bs') e')+> +>     freE is e = nextSrcRefs >>=. \_ ->+>                 e >>=. ret . (insHook "free" dummyDebugInfo) . (transformFree is)+>     or e1 e2  = nextSrcRefs >>=. \_ ->+>                 sequence [e1,e2] >>=. \ [e1',e2'] -> +>                 freshVar >>=. \var' ->+>                 ret $ (insHook "or" dummyDebugInfo) $+>                       transformOr var' e1' e2'+>     casE Flex e bs = skipNextVar >>.+>                    e >>=. \ e' ->+>                    sequence bs >>=. \ bs' ->+>                    (transformCase Flex e' bs' (mod,fn) vars [])++>     casE Rigid e bs = nextSrcRefs >>=. \srcRefs -> +>                    e >>=. \ e' ->+>                    sequence bs >>=. \ bs' ->+>                    (transformCase Rigid e' bs' (mod,fn) vars srcRefs)++   Set up branches with already folded subexpression:++>     br p e = nextSrcRefs >>=. \srcRefs ->+>              e >>=. \e' -> ret $+>                            CBranch (transformPattern p)+>                                    ((insHook "branch" (brInfo srcRefs))+>                                              (wrapEval e'))++  Debug info for the branch hook (current src ref, no dynamic infos yet): TODO pattern variables as dynamic info++>     brInfo srcRefs = debugInfo (createStaticInfo mod srcRefs)+>                                (simpleDynInfo (presym "[]"))++Literal+-------++> cpresym s = CSymbol (renameModule (prelude,s))++> transformLiteral :: Literal -> String -> [SrcRef] -> CExpr+> transformLiteral l mod srcRefs = let++  Debug info for the literal hook (current src ref, no dynamic infos):++>     litInfo = debugInfo (createStaticInfo mod srcRefs)+>                         (simpleDynInfo (presym "[]"))+>     wrap = (insHook "lit" litInfo) . wrapReturn in+>   case l of+>   (Intc i)   -> wrap $ createInt i+>   (Charc _)  -> wrap $ cpresym "Char"  $$ CLit (convertLiteral l)+>   (Floatc _) -> wrap $ cpresym "Float" $$ CLit (convertLiteral l)++Converts an integer into the transformed integer type.++> createInt :: Int -> CExpr+> createInt i | i == 0 = cpresym "Zero"+>             | i  > 0 = cpresym "Pos" $$ createNat i+>             | i  < 0 = cpresym "Neg" $$ createNat (-i)++Converts a natural number into the transformed natural number type.++> createNat :: Int -> CExpr+> createNat i | i == 1         = cpresym "IHi"+>             | i `mod` 2 == 1 = cpresym "I" $$+>                                createNat ((i-1) `div` 2)+>             | i `mod` 2 == 0 = cpresym "O" $$+>                                createNat (i `div` 2)++Free+----++> transformFree :: [VarIndex] -> CExpr -> CExpr+> transformFree _ _ = presym "error" $$ acyStr "free not implemented yet"++A let is transformed in a corresponding sequence of statements in a `do`:+Each variable defined in the let is assigned to it's evaluated expression as in+the original code. The result expression is evaluated as last statement.++Let+---++> transformLet :: [(VarIndex,CExpr)] -> CExpr -> CExpr+> transformLet varExprs expr = CDoExpr $ pats ++ [CSExpr $ wrapEval expr]+>   where+>     pats = map (\(var,expr') -> (CSPat (px var) expr')) varExprs++Or+--++Evaluates both arguments first, wraps the `or` with an eval.+Calls the operator `?` in `SPrelude`. Needs to be implemented manually in the `MPrelude.hs`.++> transformOr :: Int -> CExpr -> CExpr -> CExpr+> transformOr var expr0 expr1 = CDoExpr $ pats ++ [(CSExpr expr)]+>   where+>     expr = comb (renameModule (prelude,"?")) [xx var,xx (var+1)]+>     pats = [CSPat (px var) expr0, CSPat (px (var+1)) expr1]+++Case+----++A case construct is transformed using the `do` notation.+The expression is evaluated first, the result (stored in a fresh variable, why+the transformation is required here) is the parameter for the new case.++> transformCase :: CaseType -> CExpr -> [CBranchExpr] -> (String,String) -> [VarIndex] -> [SrcRef] -> TM CExpr+> transformCase ct expr exprs qn@(mod,_) vars srcRefs = freshVar >>=. \var ->+>   ret $ +>     CDoExpr [+>              (CSPat (px var) expr),+>              (CSExpr (insHook "case" (info var) (CCase (xx var) (branches var))))+>             ]++>   where++  Debug info for the hook, contains current source reference as static info+  and term of the argument as dynamic info.++>     info var    = debugInfo (createStaticInfo mod srcRefs)+>                             (simpleDynInfo (list [genTermCallVar var]))++  Add an additional branch to catch non exhaustive patterns:++>     branches var    = exprs ++ [errorBranch var]+>     errorBranch var = CBranch (CPVar (0,"_"))+>                               (CSymbol ("DM","treatCase") $$$+>                                [(exceptionHook nepType (info var)),CSymbol (renameFunc qn) $$$ map xx (init vars),xx var])+>     nepType         = if ct == Flex then "nepRules" else "nepCase"++> init = reverse . tail . reverse++Pattern+-------++Patterns need to be transformed to have constructors renamed.++> transformPattern (Pattern name is) =+>   CPComb (renameCons name) $ map (CPVar . convertVariable) is+> transformPattern (LPattern l) = +>   case l of++TODO: int matching (SNat)++>     (Intc _) -> CPLit $ convertLiteral l+>     _        -> CPLit $ convertLiteral l+
+ biosphere/src/Curry/Module/TransformationInstances.lcurry view
@@ -0,0 +1,470 @@+GenTerm Instances+=================++This module contains the transformation code to generate instance declarations+for `GenStaticInfo`, `DebugType` and `Typeable`.++Imports+-------++> import List+> import Maybe++> import FlatCurry as FC+> import AbstractCurry as AC+> import AbstractHaskell++> import SrcRef++Import the converters from flat to abstract curry without any debug+transformation:++> import FlatToAbstractCurry++Import utily and constants for Debug Infos:++> import TransformationDebugInfo+++Short cuts+----------++> genName s = (dataGenericsImport,s)+> genSym = CSymbol . genName+++Instance Declarations for `GenTerm`+-----------------------------------++> instancesGenTerm :: [TypeDecl] -> [InfoTree] -> [FC.QName] -> [InstanceDecl]+> instancesGenTerm [] _ _  = []++Skip type synonyms and external types without constructors:++> instancesGenTerm ((FC.TypeSyn _ _ _ _):tds) (_:its) hoTypes =+>   instancesGenTerm tds its hoTypes+> instancesGenTerm ((FC.Type _ _ _ []):tds) (_:its) hoTypes =+>   instancesGenTerm tds its hoTypes++Create instance for regular types:++> instancesGenTerm (td@(FC.Type _ _ _ cs@(_:_)):tds) (it:its) hoTypes =+>   instanceGenTerm td it hoTypes : instancesGenTerm tds its hoTypes+++Creates the `GenTerm` instance for given type declaration, it's static info tree and the list of higher order types.++> instanceGenTerm :: TypeDecl -> InfoTree -> [FC.QName] -> InstanceDecl+> instanceGenTerm (FC.Type qn@(mod,_) _ tvars conss) infoTree hoTypes =+>   (Instance constraints'+>             (TypeClass staticInfoClass [CTCons qn' (map CTVar tvars'')]) +>             [func])+>   where+>     tvar = (-1,debugTVarName)+>     tvars' = if elem qn hoTypes then tvar:tvars'' else tvars''+>     tvars'' = map convertTypeVariable tvars+>     qn' = renameType qn++If type variables are used in the data type, a class constraint ensuring `GenTerm` is required for each type variable.++>     constraints = map gtConstraint tvars''+>     constraints' = if elem qn hoTypes+>                    then (dmConstraint tvar):constraints+>                    else constraints+>     dmConstraint = constraint debugMonadClass+>     gtConstraint = constraint staticInfoClass++  The term generating function of the instance contains a rule for each regular constructor and an additional rule to handle all constructors added by the transformation with a call to `genericTerm`:++>     func = (HFunc staticInfoFunc 1 AC.Public [] untyped+>            (rules (consRules++[defaultRule])))++  The last default rule calls `genericTerm` to handle constructors added by the transformation:++>     defaultRule = simpleRule [px 1] (comb genericInfoFunc+>                                           [createStaticInfo mod srcRef,xx 1])+>     srcRef      = fst (nextStaticInfo infoTree)+>     consRules   = zipWith createConsRule conss consTrees+>     consTrees   = infoChildren $ snd $ nextStaticInfo infoTree++Creates a function rule that matches given constructor left-side in patterns and constructs a `Term` containing the term representation of those arguments.+The term includes a source reference extracted from the `InfoTree`.++> createConsRule :: ConsDecl -> InfoTree -> CRule+> createConsRule (Cons qn@(mod,name) arity _ _) infoTree =+>    simpleRule [pat] $ comb staticInfoCons+>                            [acyStr name,+>                             createStaticInfo mod srcRef,+>                             args]+>     where++  Pattern to match the constructor, `genTerm` calls to arguments and the constructor's source reference:++>       pat    = (CPComb qn' (map px [1..arity]))+>       args   = list $ (map genTermCallVar [1..arity])+>       srcRef = fst (nextStaticInfo infoTree)+>       qn'    = renameCons qn+++Instance Declarations for `Data` and `Typeable`+-----------------------------------------------++Generates instances for generics if not derivable (all constructors less than 8 arguments).+The generic instances require also additional functions.++> instancesGenerics :: [TypeDecl] -> [FC.QName] -> ([InstanceDecl],[HFuncDecl])+> instancesGenerics [] _  = ([],[])++Skip type synonyms and external types without constructors:++> instancesGenerics ((FC.TypeSyn _ _ _ _):tds) hoTypes =+>   instancesGenerics tds hoTypes+> instancesGenerics ((FC.Type _ _ _ []):tds) hoTypes =+>   instancesGenerics tds hoTypes++Create instances for regular types:++> instancesGenerics (td@(FC.Type _ _ _ cs@(_:_)):tds) hoTypes =+>   if maxArgs cs < 8 then rec else rec'+>     where+>       (iT,fsT)    = instanceTypeable td hoTypes+>       (iD,fsD)    = instanceData     td hoTypes+>       rec@(is,fs) = instancesGenerics tds hoTypes+>       rec' = (iT:iD:is,fsT++fsD++fs)+>       maxArgs = foldr max 0 . map numArgs+>       numArgs (Cons _ arity _ _) = arity++Typeable+========++Creates a `Typeable` instance for given type.++> instanceTypeable :: TypeDecl -> [FC.QName] -> (InstanceDecl,[HFuncDecl])+> instanceTypeable td@(FC.Type qn _ tvars _) hoTypes =+>   (inst,[])+>   where+>     inst    = (Instance (map (constraint typeableClass) tvars'')+>                         (TypeClass typeableClass [CTCons qn' (map CTVar tvars')])+>                         [instFunc])+>     tvar     = (-1,debugTVarName)+>     tvars'   = if elem qn hoTypes then tvar:tvars'' else tvars''+>     tvars''  = map convertTypeVariable tvars+>     qn'      = renameType qn+>     instFunc = mkTypeOf td++typeOf _ = mkTyConApp (mkTyCon "Module.Type") [typeOf ta, ..., typeOf tz]+  where+    ta :: a+    ta = undefined+    ...+    tz :: z+    tz = undefined++> mkTypeOf (FC.Type qn _ tvars _) = untypedFunc ("","typeOf") [rule]+>   where+>     rule   = noGuardRule [pat] tyExpr decls+>     pat    = CPVar (-1,"_")+>     tyCon  = mkTyConExpr qn+>     tyExpr = genSym "mkTyConApp" $$$ [tyCon, list (map mkTVarTypeOf tvars)]+>     decls  = map mkTVarUndef tvars++> mkTVarType i = CVar (i,mkTVarTypeName i)++> mkTVarTypeName i = "t" ++ mkTVarName i++> mkTVarName i = snd $ convertTypeVariable i++(...) where+  ta :: a+  ta = undefined++> mkTVarUndef i = CLocalFunc (CFunc name 0 AC.Public typ (rules [rule]))+>   where+>     name = ("",mkTVarTypeName i)+>     typ  = CTVar (i,mkTVarName i)+>     rule = constantRule $ CSymbol (prelude,"undefined")++typeOf ta++> mkTVarTypeOf i = CSymbol (dataGenericsImport,"typeOf") $$ mkTVarType i+++mkTyCon "Module.Type"++> mkTyConExpr qn = genSym "mkTyCon" $$ acyStr (mod++"."++name)+>   where (mod,name) = renameType qn++Data+====++Creates a `Data` instance for given type.++> instanceData :: TypeDecl -> [FC.QName] -> (InstanceDecl,[HFuncDecl])+> instanceData td@(FC.Type qn _ tvars conss) hoTypes =+>   (inst,funcs)+>   where++  Instance:++>     inst    = (Instance (map (constraint dataClass) tvars')+>                         (TypeClass dataClass [CTCons qn' (map CTVar tvars')]) +>                          instFuncs)+>     tvar    = (-1,debugTVarName)+>     tvars'  = if elem qn hoTypes then tvar:tvars'' else tvars''+>     tvars'' = map convertTypeVariable tvars+>     qn'@(mod,name) = renameType qn+>     instFuncs = [mkGfoldl conss,+>                  mkGunfold conss,+>                  mkToConstr conss,+>                  mkDataTypeOf tyName]++  Additional functions ty_<Type> and con_<Cons> (for each constructor):++>     funcs     = mkDataTypeFunc qn' tyName consFuncs : consFuncs+>     consFuncs = map (mkDataConsFunc tyName) conss+>     tyName    = (mod,"ty_"++name)++Helpers for class functions++gfoldl k z (C1 a b) = z C1 `k` a `k` b  == k (k (z C1) a ) b+gfoldl k z C2       = z C2              == z C2++> mkGfoldl conss = HFunc ("","gfoldl") 1 AC.Public []+>                          untyped (rules consRules)+>   where+>     consRules = map mkGfoldlRule conss++> mkGfoldlRule (Cons qn arity _ _) =+>   simpleRule [patK,patZ,patCons] (mkGfoldlExpr qn' arity)+>     where++  Patterns to match two functions and the constructor:++>       patK = CPVar (-1,"k")+>       patZ = CPVar (0,"z")+>       patCons = (CPComb qn' (map px [1..arity]))+>       qn'@(mod,name) = renameCons qn++> mkGfoldlExpr qn n = case n of+>   0 -> CSymbol ("","z") $$ CSymbol qn+>   _ -> CSymbol ("","k") $$ mkGfoldlExpr qn (n-1) $$ xx n++gunfold k z c = case constrIndex c of+                         1 -> k (k (z C1))+                         2 -> z C2++> mkGunfold conss = untypedFunc ("","gunfold") [rule]+>   where+>     rule = simpleRule [patK,patZ,patC] caseExpr++  Patterns to match two functions and the constructor:++>     patK = CPVar (-1,"k")+>     patZ = CPVar (0,"z")+>     patC = CPVar (1,"c")++  Case to match all constructor indexes:++>     caseExpr = CCase (comb (dataGenericsImport,"constrIndex") [CVar (1,"c")])+>                      branches+>     branches = zipWith mkGunfoldBranch [1..(length conss)] conss++> mkGunfoldBranch i (Cons qn arity _ _) =+>   CBranch (CPLit (CIntc i)) (mkGunfoldExpr (renameCons qn) arity)++> mkGunfoldExpr qn n = case n of+>   0 -> CSymbol ("","z") $$ CSymbol qn+>   _ -> CSymbol ("","k") $$ mkGunfoldExpr qn (n-1)+++toConstr (C1 _ _) = con_C1+toConstr C2       = con_C2++> mkToConstr conss = untypedFunc ("","toConstr") consRules+>   where+>     consRules = map mkToConstrRule conss++> mkToConstrRule (Cons qn arity _ _) =+>    simpleRule [pat] (CSymbol (mod,"con_"++name))+>     where++  Pattern to match the constructor:++>       pat = CPComb qn' (take arity (repeat (CPVar (-1,"_"))))+>       qn'@(mod,name) = renameCons qn++dataTypeOf _ = ty_T++> mkDataTypeOf tyName = untypedFunc ("","dataTypeOf") [rule]+>   where rule = simpleRule [CPVar (-1,"_")] expr+>         expr = CSymbol tyName++++Helpers for additional functions++ty_T   = mkDataType "Module.T" [con_C1, con_C2]++> mkDataTypeFunc (mod,name) tyName conss = constantFunc tyName expr+>   where expr  = comb (dataGenericsImport,"mkDataType") args+>         args  = [acyStr (mod++"."++name), calls]+>         calls = list (map call conss)+>         call (HFunc name _ _ _ _ _) = CSymbol name++con_C1 = mkConstr ty_T "C1" [] Prefix+con_C2 = mkConstr ty_T "C2" [] Prefix++> mkDataConsFunc tyName (Cons qn _ _ _) = constantFunc (mod,"con_"++name) expr+>   where (mod,name) = renameCons qn+>         expr       = comb (dataGenericsImport,"mkConstr") args+>         args       = [CSymbol tyName,+>                       acyStr name,+>                       list [],+>                       CSymbol (dataGenericsImport,"Prefix")]+++	Instance Declarations for `GenTerm` and +	---------------------------------------------++	Creates `GenTerm` instance declarations for data types with constructors.+	Type synonyms and data types without constructors (external types) are skipped.+	The instance declarations requires source references given by the 2nd argument.++	> createInstanceDecls :: [HTypeDecl] -> [InfoTree] -> [InstanceDecl]+	> createInstanceDecls [] _                           = []++	Skip type synonyms:++	> createInstanceDecls ((HTypeDecl _ (CTypeSyn _ _ _ _) _):cs) (_:ts) =+	>   createInstanceDecls cs ts++	Skip data types without constructors:++	> createInstanceDecls ((HTypeDecl _ (CType _ _ _ []) _):cs) (_:ts)   =+	>   createInstanceDecls cs ts++	Add instance for data type with constructors.++	> createInstanceDecls ((HTypeDecl _ typ@(CType _ _ _ cs@(_:_)) _):ts) (tree:trees) =+	>   if maxArgs cs < 8 then l else createTypeableInstance typ :+	>                                 createDataInstance typ : l+	>     where+	>       l = (createInstanceDecl typ tree) : (createInstanceDecls ts trees)+	>       maxArgs = foldr max 0 . map numArgs+	>       numArgs (CCons _ arity _ _) = arity+++	Creates an `GenTerm` instance declaration for given data type.+	Takes also an `InfoTree` containing the source reference for the type. The+	reference is ignored, but the children are source references for the+	constructors of the type.+	The created declaration provides a function per constructor of the type.++	> createInstanceDecl :: CTypeDecl -> InfoTree -> InstanceDecl+	> createInstanceDecl (CType name _ tvars {- (tvar:tvars) -} conss) infoTree = ++	The 1st type variable is `m` for the debug monad in functional representations+	and requires a constraint for `DM`.+	If furhter type vars are used in the data type, a class constraint ensuring+	`GenTerm` is required for each type variable.+	  +	>   (Instance (map gtConstraint tvars {- ((dmConstraint tvar):(map gtConstraint tvars)) -})+	>             (TypeClass staticInfoClass [CTCons name (map CTVar tvars {- (tvar:tvars) -})]) +	>             funcs)+	>   where+	>     dmConstraint = constraint debugMonadClass+	>     gtConstraint = constraint staticInfoClass++	  The list of declared functions contains a generator for not evaluated expressions, `genTerm` for the additional constructor (<Type>Underscore) and all declared constructors:++	>     funcs = (createUnderscore name):+	>             (createGenTermUnderscore name infoTree):+	>             (zipWith createGenTerm filteredConss consTrees) +++	>             [createCallToGenericTerm name infoTree]++	>     filteredConss = filterUnderscore conss++	  Extract the info trees of the constructors:++	>     consTrees = infoChildren $ snd $ nextStaticInfo infoTree++	WORKAROUND++	> filterUnderscore [] = []+	> filterUnderscore (c@(CCons (_,name) _ _ _):cs) =+	>   if isSuffixOf underscoreSuffix name ||+	>      isSuffixOf orSuffix name ||+	>      isSuffixOf failSuffix name then cs' else c:cs'+	>     where cs' = filterUnderscore cs+	>           isSuffixOf xs ys = isPrefixOf (reverse xs) (reverse ys)++	Creates an instance function for `GenTerm` for the given constructor.+	The created function matches left-side the constructor's arguments in patterns+	and constructs a `Term` containing the term representation of those arguments.+	The term includes a source reference extracted from the `InfoTree`.+++	What is this? One function declaration for each constructor? +	This should be one rule per, rather.++	> createGenTerm :: CConsDecl -> InfoTree -> HFuncDecl+	> createGenTerm (CCons qn@(mod,name) arity _ _) infoTree =+	>   (HFunc staticInfoFunc 1 AC.Public [] untyped (rules [rule])) where+	>     rule   = simpleRule [pat] $ comb staticInfoCons+	>                                      [acyStr name,+	>                                       createStaticInfo mod srcRef,+	>                                       args]+	>     args   = list $ (map genTermCallVar [1..arity])+	>     srcRef = fst (nextStaticInfo infoTree)++	  Pattern to match the constructor:++	>     pat    = (CPComb qn (map px [1..arity]))++	Creates the generator for not evaluated expressions of data type with given name.++	> createUnderscore :: AC.QName -> HFuncDecl+	> createUnderscore qn =+	>   (HFunc underscoreMethod 1 AC.Public [] untyped (rules [rule])) where+	>     rule = constantRule $ CSymbol (mod,name++underscoreSuffix)+	>     (mod,name) = renameType qn++	> createCallToGenericTerm :: AC.QName -> InfoTree -> HFuncDecl+	> createCallToGenericTerm qn infoTree =+	>   (HFunc staticInfoFunc 1 AC.Public [] untyped (rules [rule])) where+	>     rule   = simpleRule [pat] $ comb genericInfoFunc+	>                                      [createStaticInfo mod srcRef,xx 1]+	>     srcRef = fst (nextStaticInfo infoTree)+	>     pat    = px 1+	>     (mod,name) = renameType qn+++	> createGenTermUnderscore :: AC.QName -> InfoTree -> HFuncDecl+	> createGenTermUnderscore qn infoTree =+	>   (HFunc staticInfoFunc 1 AC.Public [] untyped (rules [rule])) where+	>     rule   = simpleRule [pat] $ comb underscoreCons+	>                                      [createStaticInfo mod srcRef]+	>     srcRef = fst (nextStaticInfo infoTree)++	  Pattern to match the constructor for not evaluated expressions:++	>     pat    = (CPComb (mod,name++underscoreSuffix) [])+	>     (mod,name) = renameType qn+++	Creates instance for Typeable.++	> createTypeableInstance :: CTypeDecl -> InstanceDecl+	> createTypeableInstance (CType name _ tvars _) = +	>   (Instance (map (constraint dataClass) tvars)+	>             (TypeClass typeableClass [CTCons name (map CTVar tvars)]) +	>             [])++	Creates instance for Data.++	> createDataInstance :: CTypeDecl -> InstanceDecl+	> createDataInstance (CType name _ tvars _) = +	>   (Instance (map (constraint dataClass) tvars)+	>             (TypeClass dataClass [CTCons name (map CTVar tvars)]) +	>             [])+
+ biosphere/src/Curry/Module/TransformationMonad.lcurry view
@@ -0,0 +1,115 @@+Monad for Flat/Abstract Curry Transformation+============================================++This module defines a monad for Flat/Abstract Curry transformation, especially+for transforming expressions, because the monad state holds information about+the expression depth and breadth.++Required imports for an abstract monadic expression transformation:++> import Maybe+> import SrcRef++Bind operators+--------------++> infixl 1 >>=.+> infixl 2 >>.++Monad+-----++Monad state contains the index of the next fresh variable and maybe an info+tree (plus a flag if the next `ignoreSrcRef` should be performed, see further+info about this flag below at `ignoreSrcRef`):++> type TMState = (Int,Maybe (InfoTree,Bool))+> type TM a = TMState -> (TMState,a)++`return` of the transform monad:++> ret :: a -> TM a+> ret x td = (td,x)++`bind` of the transform monad:++> (>>=.) :: TM a -> (a -> TM b) -> TM b+> (f >>=. g) td = case f td of+>                      (td',x) -> g x td'+>+> (>>.) :: TM a -> TM b -> TM b+> f >>. g = f >>=. \_ -> g++Runs the monad with the given index of a fresh variable and no info tree.++> runVar :: Int -> TM a -> a+> runVar var m = snd (m (var,Nothing))++Runs the monad with and an initial state of fresh var 0 and no info tree.++> run :: TM a -> a+> run = runVar 0+++Actions+-------++Extracts the monad state.++> state :: TM TMState+> state tms = (tms,tms)++Returns a fresh variable.++> freshVar :: TM Int+> freshVar (var,mInfoTree) = ((var+1,mInfoTree),var)++Returns `n` fresh variables.++> freshVars :: Int -> TM [Int]+> freshVars n (var,mInfoTree) = ((var+n,mInfoTree),(take n (from var)))+>   where from i = i:(from $ i+1)++Set the current info tree.++> setInfoTree :: InfoTree -> TM ()+> setInfoTree infoTree (var,_) = ((var,Just (infoTree,True)),())++Returns the current info tree.++> currentInfoTree :: TM InfoTree+> currentInfoTree state@(_,Just (infoTree,_)) = (state,infoTree)++Extracts the current source reference and sets the info tree to the next static+info (flag is set to `True`, the regular state).++> nextSrcRefs :: TM [SrcRef]+> nextSrcRefs (var,Just (infoTree,_)) =+>   let (srcRefs,nextInfoTree) = nextStaticInfo infoTree in+>     ((var,Just (nextInfoTree,True)),srcRefs)++Ingores (extracts it, but does not return) the next source reference (of a+variable). Does not extract (leave current info tree as it is) if the+`performFlag` is not set.+This is required to handle variable expressions which are arguments of flexible+`case` expressions, because they do not have a source reference as they are in+fact rule patterns.++> ignoreVarRefs :: TM ()+> ignoreVarRefs (var,Just (infoTree,performFlag)) =+>   let nextInfoTree = if performFlag+>                         then snd $ nextStaticInfo infoTree+>                         else infoTree in+>     ((var,Just (nextInfoTree,True)),())++Enables the `performFlag` according to `ignoreVarRefs`.++> skipNextVar :: TM ()+> skipNextVar (var,Just (infoTree,_)) = ((var,Just (infoTree,False)),())++Sequence for this monad, which includes increasing depth before and decreasing+after the sequence and increasing breadth before each sequenced action.++> sequence :: [TM a] -> TM [a]+> sequence = foldr mcons (ret [])+>   where mcons p q = p >>=. \x -> q >>=. \ys -> ret (x:ys)
+ biosphere/src/Curry/Module/TransformationPartCalls.lcurry view
@@ -0,0 +1,231 @@+Generating Part Call Helpers+============================++This module provides support for part calls, especially the generation of part+call helpers.+These generated functions are able to create the correct `FuncRep` term for+higher order applications. The helper to use depends on the left arity of a+part call.++Usage+-----++For a FlatCurry `(FuncPartCall n)` one can use in Haskell:++ 1. missing <= arityThreshold:++    Call `<partCallsModule>.<partCallPrefix><n>` (`PartCalls.partCall<n>`).++    Shortcut for transformation (Curry) is `combDefaultPC <n> <cexprs>`.++ 2. missing > arityThreshold:++    Create Yourself a helper using `mkPartCallHelper <yourModName> <n>`+    and call it in your module with `<yourModName>.<partCallPrefix><n>`.++    Shortcut for transformation (Curry) is `combPC <yourModName> <n> <cexprs>`.++> module TransformationPartCalls (+>   arityThreshold,+>   partCallsModule,+>   partCallsAs,+>   partCallsImport,+>   partCallPrefix,+>   main,+>   mkPartCallsModule,+>   mkPartCallHelper,+>   combDefaultPC,+>   combPC) +>    where++Imports+-------++> import System++> import AbstractCurry+> import AbstractHaskell++> import FlatToAbstractCurry++> import TransformationDebugInfo+> import TransformationPrint++Interface+=========++Default Helpers+---------------++The framework is distributed with a module which contains part call helpers until the following threshold in a Haskell Module with the following name. Further part call helpers can be created by requiring modules.++> arityThreshold  = 10+> partCallPrefix  = "partCall"+> partCallsFile   = "PartCalls"+> partCallsModule = debugPackage ++ partCallsFile+> partCallsAs     = "PC"+> partCallsImport = partCallsModule ++ " as " ++ partCallsAs++Pretty prints and writes the module containing the default helpers.+Takes 1st argument as output folder for the module.++> main :: IO ()+> main = do+>   args <- getArgs+>   let filename = (head args ++ "/" ++ partCallsFile ++ ".hs")+>   putStr   "Creating default part call helpers until `"+>   putStrLn $ partCallPrefix ++ show arityThreshold ++ "` in " ++ filename ++ "."+>   prettyacy filename (mkPartCallsModule arityThreshold)++Creates the module containing a number of default helpers.++> mkPartCallsModule :: Int -> HaskellProg+> mkPartCallsModule num =+>   HaskellProg partCallsModule+>               "" -- no header++  Requires the debug monad for `FuncRep` and debug info for terms:++>               [debugMonadImport,debugInfoImport]+>               "" -- no externals+>               [] -- no types+>               [] -- no instance declarations++  Provide helpers until defined threshold:++>               (map (mkPartCallHelper partCallsAs) [1..num])+>               [] -- no operators++Part Call Helper+----------------++Creates a specific helper for given module name and arity.++> mkPartCallHelper :: String -> Int -> HFuncDecl+> mkPartCallHelper mod arity = HFunc name arity' Public constraints typE rules+>   where+>     name        = (mod,partCallPrefix ++ show arity)+>     arity'      = arity+>     constraints = debugMonadConstraint:termConstraints arity+>     typE        = mkType arity+>     rules       = CRules CFlex [rule]+>     rule        = createRule arity++Comb Shortcut+-------------++Creates the call for a specific default helper (by given missing arity) with term expression and function expression.++> combDefaultPC :: Int -> CExpr -> CExpr -> CExpr+> combDefaultPC arity termExpr funcExpr+>   | arity > arityThreshold = error "part call helper not available"+>   | otherwise              = combPC partCallsAs arity termExpr funcExpr++Creates the call for a specific helper (in given module) and arguments.++> combPC :: String -> Int -> CExpr -> CExpr -> CExpr+> combPC modName arity termExpr funcExpr =+>   comb (modName,partCallPrefix ++ show arity) [termExpr,funcExpr]++Implementation+==============++> termConstraints :: Int -> [TypeClass]+> termConstraints arity = map termConstraint [0..arity]+>   where+>     termConstraint = (constraint staticInfoClass) . convertTypeVariable++> createRule :: Int -> CRule+> createRule arity = noGuardRule [patTerm,patFunc] (mkBody arity) [localDecl]+>   where++  Match left side the given term (with name info and terms of already+  applied arguments) and the wrapped function:+  `partCallArity (Term name info args) f = ...`++>     patTerm   = CPComb staticInfoCons [patName,patInfo,patArgs]+>     patName   = CPVar (0,"name")+>     patInfo   = CPVar (1,"info")+>     patArgs   = CPVar (2,"args")+>     patFunc   = CPVar (3,"f")++  Declare a local function `term` to create a `Term` with name, static info and+  already applied terms of the handled function for given additional argument+  terms:+  `term = Term name info . (args++)`++>     localDecl = CLocalFunc termFunc+>     termFunc  = CFunc ("","term") 0 Public untyped+>                       (rules [constantRule termExpr])+>     termExpr  = point $$ (CSymbol staticInfoCons $$ CVar (0,"name")+>                                                  $$ CVar (1,"info"))+>                       $$ (presym "++" $$ CVar (2,"args"))++> mkBody :: Int -> CExpr+> mkBody arity = mkLambdas arity 1++Handles current argument `var` in a part call with given left arity.+Creates a function representation containing generated terms of the already applied arguments.+`FuncRep (term [t1 ... tVar-1]) (\...)`++> mkLambdas :: Int -> Int -> CExpr+> mkLambdas arity var++  Last argument, create func rep that does the call:+  `\xArity -> f x1 ... xArity`++>   | arity == var = funcRep $ lambda $ mkCall arity++  Further arguments left, open a `do` to create term of the current argument+  and reate func rep with recursive lambda which handles the other arguments:+  `\xVar -> do let tVar = genTerm xVar ...`++>   | otherwise    = funcRep $ lambda $ mkDo arity var++  Function representation containing terms of all applied arguments:++>   where funcRep func = CSymbol funcRepCons $$ allTerms $$ func+>         allTerms = CSymbol ("","term") $$ newTerms+>         newTerms = list (map termVar [1..(var-1)])+>         termVar  = \v -> CVar (arity+v,'t':show v)++  Lambda matching left-side the current argument:++>         lambda   = CLambda [px var]++Constructs the `do` expression which scopes the term for the current var for all sub-lambdas in a `let` and returns the recursive func rep with a part call hook.++> mkDo :: Int -> Int -> CExpr+> mkDo arity var = CDoExpr [stLet,stRet]+>   where+>     stLet    = CSLet [CLocalPat termVar termExpr []]+>     termVar  = CPVar (arity+var,'t':show var)+>     termExpr = (genTermCallVar var)+>     stRet    = hook $ CSExpr $ presym "return" $$ mkLambdas arity (var+1)+>     hook     = id -- TODO: partCall++Constructs the final call to `f` with all applied arguments and wraps it with a func call hook.+`f x1 ... xArity`++> mkCall :: Int -> CExpr+> mkCall arity = hook $ CSymbol ("","f") $$$ map xx [1..arity]+>   where hook = id -- TODO: funcCall++Type signature+--------------++Following code is taken from B.I.O. to create signature for part call helper. (mapped from FlatCurry to AbstractCurry, `TypeExpr` ~> `CTypeExpr` etc.).++> infixr 7 ~>++> (~~>), (~>) :: CTypeExpr -> CTypeExpr -> CTypeExpr+> x ~~> y = CTCons funcRepType [CTVar (-1,debugTVarName),x,y]+> (~>)    = CFuncType++> mkType :: Int -> CTypeExpr+> mkType n = termType ~> +>            foldr (\ v -> (tx v ~>)) resultType [0..(n-1)] ~>+>            foldr (\ v t -> tx v ~~> t) (tx $ n) [0..(n-1)]+>   where termType   = (CTCons staticInfoCons [])+>         resultType = CTCons debugTVar [tx n]+
+ biosphere/src/Curry/Module/TransformationPrint.hs.include view
@@ -0,0 +1,431 @@+[ForFunction "prettyahs"]++import Language.Haskell.Syntax+import Language.Haskell.Pretty+import Language.Haskell.Parser++import System.IO+import System.Directory (createDirectoryIfMissing)+import System.FilePath (takeDirectory)++import Data.Char +import Data.List (nub)++import Prelude as P++import Curry.AbstractCurry++prettyahs :: C_String -> C_String -> Result (C_IO T0)+prettyahs = ioFunc2 writeahs++writeahs :: String -> String -> IO ()+writeahs filename shownProg = do+  (prog,header) <- toHaskell (read shownProg)+  createDirectoryIfMissing True (takeDirectory filename)+  writeFile filename (header ++ "\n" ++ prettyPrint prog)++newtype QualInfo = QualInfo (QName -> Bool)++mkQualInfo :: HaskellProg -> QualInfo+mkQualInfo (HaskellProg name _ _ _ _ _ _ _) = QualInfo (\ (m,_) -> m P.==name)++toHaskell :: HaskellProg -> IO (HsModule,String)+toHaskell p@(HaskellProg name header imps externalFileName ts insts fs os) = +  if null externalFileName +    then do+      p' <- hsmod [] []+      P.return (p',header)+    else do+      putStrLn $ "reading " ++ externalFileName+      progStr <- readFile externalFileName+      case parseModule progStr of+        err@(ParseFailed _ _) -> error (show err)+        ParseOk (HsModule _ _ _ extImps extDecls) ->  do+          p' <- hsmod  extImps extDecls+          P.return (p',header)++  where hsmod extImps extDecls = P.return $ +         HsModule src (Module name) +                 Nothing+                   -- (exports qi (map (\ (HTypeDecl _ td) -> td) ts) fs) +                 (nub $ extImps ++ map imports imps)+                 (extDecls +++                  map (instDecl qi) insts +++                  map (htypes qi) ts ++ +                  concatMap (hfuncs qi) fs ++ +                  map ops os)++        qi = mkQualInfo p+++src :: SrcLoc+src = SrcLoc {srcFilename = "", srcLine = 0, srcColumn = 0}++qual :: QualInfo -> QName -> HsQName+qual (QualInfo qi) mn@(m,n)+  | n P.=="[]"       = Special HsListCon+  | n P.=="()"       = Special HsUnitCon+  | n P.==":"        = Special HsCons+  | isTupleName n = Special (HsTupleCon (length n - 1))+  | otherwise     = (if qi mn || null (fst mn) +                       then UnQual  +                       else Qual (Module m)) (ident n)++ident :: String -> HsName+ident n | isInfixName n   = HsSymbol n +        | take 3 n  P.== "x'x" && isRegularName n = HsIdent ('x':n)+        | isRegularName n = HsIdent n+        | null n          = error "empty identifier"+        | otherwise       = HsIdent ("x'x"++normalize n)+  where+    normalize "" = ""+    normalize (c:cs) | isIdentChar c = c:normalize cs+                     | otherwise     = show (ord c)++normalize cs++isInfixName :: String -> Bool+isInfixName = all (`elem` "~!@#$%^&*+-=<>?./|\\:")++isRegularName :: String -> Bool+isRegularName "" = False+isRegularName (c:cs) = isAlpha c && all isIdentChar cs++isIdentChar :: Char -> Bool +isIdentChar c = isAlphaNum c || elem c "'_"++exports :: QualInfo -> [CTypeDecl] -> [HFuncDecl] -> Maybe [HsExportSpec]+exports qi ts fs = if null specs || allExported then Nothing else Just specs+                +  where+    (allExported,specs) = conc (map exportType ts ++ map exportFunc fs)++    conc = foldr (\ (b,xs) (c,ys) -> (b&&c,xs++ys)) (True,[])+  +    exportType (CType _  Private _ _) = (False,[])+    exportType (CType mn Public  _ cs) +      | all private cs = (null cs,[HsEAbs $ qual qi mn])+      | any private cs = (False,[HsEThingWith (qual qi mn) +                                              (concatMap conName cs)])+      | otherwise      = (True,[HsEThingAll $ qual qi mn])+        ++    exportType (CTypeSyn _  Private _ _) = (False,[])+    exportType (CTypeSyn mn Public  _ _) = (True,[HsEAbs $ qual qi mn])++    private (CCons _ _ Private _) = True+    private (CCons _ _ Public  _) = False++    conName (CCons _     _ Private _) = []+    conName (CCons (_,n) _ Public  _) = [HsConName (ident n)]+    +    exportFunc (HFunc mn _ vis _ _ _)     = expF mn vis++    expF _  Private = (False,[])+    expF mn Public  = (True,[HsEVar (qual qi mn)])+++   +imports :: String -> HsImportDecl+imports s = HsImportDecl src (Module s) True Nothing Nothing++htypes :: QualInfo -> HTypeDecl -> HsDecl+htypes qi (HTypeDecl tcs td ds) = types qi tcs ds td++types :: QualInfo -> [TypeClass] -> [QName] -> CTypeDecl -> HsDecl+types qi _ _ (CTypeSyn (_,n) _ vs te) = +  HsTypeDecl src (ident n) (map (varOrUnderscore True) vs) (typeExp qi te)+types qi tcs ds (CType (_,n) _ vs cs) = +  HsDataDecl src (map (typeConstr qi) tcs)+             (ident n) (map (varOrUnderscore True) vs) +                              (map (consDecl qi) cs) +                       (map (qual qi) ds)++typeExp :: QualInfo -> CTypeExpr -> HsType+typeExp _ (CTVar v)         = HsTyVar (varOrUnderscore True v)+typeExp m (CFuncType t1 t2) = HsTyFun (typeExp m t1) (typeExp m t2)+typeExp m (CTCons mn tes)+ | isTupleName (snd mn) = HsTyTuple (map (typeExp m) tes)+ | otherwise = foldl HsTyApp (HsTyCon (qual m mn)) (map (typeExp m) tes)++typeConstr :: QualInfo -> TypeClass -> HsAsst+typeConstr qi (TypeClass mn ts) = +  (qual qi mn,map (typeExp qi) ts)++var :: (Int,String) -> HsName+var = varOrUnderscore False++varOrUnderscore :: Bool -> (Int,String) -> HsName+varOrUnderscore True (i,"_") = HsIdent "_"+varOrUnderscore _    (i,"")  = ident ('x':show i)+varOrUnderscore _    (i,v)   = ident v++isTupleName :: String -> Bool+isTupleName ('(':xs) = dropWhile ( P.==',') xs  P.== ")"+isTupleName _ = False++consDecl :: QualInfo -> CConsDecl -> HsConDecl+consDecl m (CCons (_,n) _ _ ts) = +  HsConDecl src (ident n) (map (HsUnBangedTy . typeExp m) ts)++instDecl :: QualInfo -> InstanceDecl -> HsDecl+instDecl qi (Instance tcs tc@(TypeClass _ ts) fs) = +  HsInstDecl src (map (typeConstr qi) tcs) +                 (fst $ typeConstr qi tc)  +                 (map (typeExp qi) ts)+                 (filter (not . isTypeSig) $ concatMap (hfuncs qi) fs)+  where+    isTypeSig (HsTypeSig _ _ _) = True+    isTypeSig _ = False+++hfuncs :: QualInfo -> HFuncDecl -> [HsDecl]+hfuncs qi (HFunc mn i _ tc t r)     = func qi mn i tc t r++funcs :: QualInfo -> CFuncDecl -> [HsDecl]+funcs qi (CFunc mn i _ t r)     = func qi mn i [] t r++func :: QualInfo -> QName -> Int -> [TypeClass] -> CTypeExpr -> CRules +     -> [HsDecl]+func qi (_,n) _ _ (CTCons ("Prelude","untyped") []) r = funcRules qi n r+func qi (_,n) _ _ t r | isCaseAuxFuncType t = funcRules qi n r+func qi (_,n) _ tc typ r = +  HsTypeSig src [ident n] +    (HsQualType (map (typeConstr qi) tc) (typeExp qi typ)):funcRules qi n r++funcRules :: QualInfo -> String -> CRules -> [HsDecl]+funcRules _  _ (CExternal _) = []+funcRules qi n (CRules _ rs) = map (rule qi (ident n)) rs++-- all rules for a functions could be put together in one HsFunBind+rule :: QualInfo -> HsName -> CRule -> HsDecl+rule qi fun (CRule [] ges locs) = +  HsPatBind src (HsPVar fun) (rhs qi ges) (concatMap (loc qi) locs)+rule qi fun (CRule ps ges locs) = +  HsFunBind [HsMatch src fun (map (mp fun . pattern False qi) ps) +                             (rhs qi ges) +                             (concatMap (loc qi) locs)]+  where+    mp (HsSymbol _) = addPParToInfix+    mp (HsIdent  _) = id+  +rhs :: QualInfo -> [(CExpr,CExpr)] -> HsRhs+rhs qi [(CSymbol ("Prelude","success"),e)] = HsUnGuardedRhs (expr False qi e)+rhs qi ges = HsGuardedRhss (map guardedExpr ges)+  where+    guardedExpr (g,e) = HsGuardedRhs src (expr False qi g) (expr False qi e)++expr :: Bool -> QualInfo -> CExpr -> HsExp+expr _ _  (CVar v) = HsVar (UnQual (var v))+expr b _  (CLit (CIntc i)) | i <0 = maybePar b (HsNegApp (HsLit (HsInt (-i))))+expr _ _  (CLit l) = HsLit (lit l)+expr _ qi (CSymbol mn@(_,n))  +  | isConsName n  = HsCon (qual qi mn)+  | otherwise     = HsVar (qual qi mn)+expr b qi e@(CApply _ _) = application b qi (args e)+expr _ qi (CLambda [CPVar v] (CApply (CApply (CSymbol (m,s)) (CVar v')) e)) +  | v P.==v' && isInfixName s = HsRightSection (qop qi m s) (expr True qi e)  +expr _ qi (CLambda [CPVar v] (CApply (CApply (CSymbol (m,s)) e) (CVar v')))+  | v P.==v' && isInfixName s = HsLeftSection (expr True qi e) (qop qi m s)  +expr b qi (CLambda ps e)    = +  maybePar b (HsLambda src (map (pattern True qi) ps) (expr False qi e))+expr b qi (CLetDecl locs e) = +  maybePar b (HsLet (concatMap (loc qi) locs) (expr False qi e))+expr b qi (CDoExpr xs)      = maybePar b (HsDo (map (statement qi) xs))+expr _ qi (CListComp e xs)  = +  HsListComp (expr False qi e) (map (statement qi) xs)+expr b qi (CCase e bs)      = +  maybePar b (HsCase (expr False qi e) (map (branch qi) bs))++application :: Bool -> QualInfo -> [CExpr] -> HsExp+application _ _  [] = error "nothing to apply"+application _ _  (CApply _ _:_) = error "application assertion violated" +application _ qi [CSymbol ("Prelude","flip"),CSymbol (m,s),e]+  | isInfixName s = HsRightSection (qop qi m s) (expr True qi e)+application _ qi [CSymbol ("Prelude","enumFrom"),e] = +  HsEnumFrom (expr False qi e)+application _ qi [CSymbol ("Prelude","enumFromTo"),e1,e2] = +  HsEnumFromTo (expr False qi e1) (expr False qi e2)+application _ qi [CSymbol ("Prelude","enumFromThen"),e1,e2] = +  HsEnumFromThen (expr False qi e1) (expr False qi e2)+application _ qi [CSymbol ("Prelude","enumFromThenTo"),e1,e2,e3] = +  HsEnumFromThenTo (expr False qi e1) (expr False qi e2) (expr False qi e3)+application b qi xs@(sym@(CSymbol ("Prelude",s)):es)+  | s P.=="negate"       = maybePar b (negApp qi e es)+  | s P.=="if_then_else" = maybePar b (ite qi e es)+  | isTupleName s     = tuple qi (length s - 1) e es+  | isClosedList xs   = let ys=listElems xs+                         in if   not (null ys) && all isChar ys +                            then HsLit (HsString (map char ys))+                            else HsList (map (expr False qi) ys)+  where+    e = expr b qi sym+application b qi (sym@(CSymbol (m,s)):es)+  | isInfixName s       = maybePar b $ +                          infi qi m s (expr True qi sym) (map (expr True qi) es)+application b qi (x:xs) = maybePar b $+                          foldl HsApp (expr True qi x) (map (expr True qi) xs)++negApp :: QualInfo -> HsExp -> [CExpr] -> HsExp+negApp _  s []     = s+negApp qi _ (e:es) = +  foldl HsApp (HsNegApp (expr True qi e)) (map (expr True qi) es)++ite :: QualInfo -> HsExp -> [CExpr] -> HsExp+ite qi _ (e:true:false:es) = +  foldl HsApp (maybePar (not (null es)) $ HsIf (ex e) (ex true) (ex false))+              (map (expr True qi) es)+  where+    ex = expr False qi+ite qi s es = foldl HsApp s (map (expr True qi) es)++tuple :: QualInfo -> Int -> HsExp -> [CExpr] -> HsExp+tuple qi i s es +  | length es  P.== i = HsTuple (map (expr False qi) es)+  | otherwise      = foldl HsApp s (map (expr True qi) es)++isClosedList :: [CExpr] -> Bool+isClosedList [CSymbol (_,"[]")]     = True+isClosedList [CSymbol (_,":"),_,xs] = isClosedList (args xs)+isClosedList _                      = False++listElems :: [CExpr] -> [CExpr]+listElems [_]      = []+listElems [_,x,xs] = x:listElems (args xs)+listElems _        = error "unexpected call to listElems"++isChar :: CExpr -> Bool+isChar (CLit (CCharc _)) = True+isChar _                 = False++char :: CExpr -> Char+char (CLit (CCharc c)) = c+char _ = error "unexpected call to char"++infi :: QualInfo -> String -> String -> HsExp -> [HsExp] -> HsExp+infi _   _ _ e []        = e+infi qi m s _ [e']       = HsLeftSection e' (qop qi m s) +infi qi m s _ (e1:e2:es) = +  foldl HsApp (maybePar (not (null es)) (HsInfixApp e1 (qop qi m s) e2)) es++qop :: QualInfo -> String -> String -> HsQOp+qop qi m s +  | isConsName s = HsQConOp (qual qi (m,s))+  | otherwise    = HsQVarOp (qual qi (m,s))+                            ++args :: CExpr -> [CExpr]+args (CApply e1 e2) = args e1 ++ [e2]+args e              = [e]++maybePar :: Bool -> HsExp -> HsExp+maybePar True  = HsParen+maybePar False = id++statement :: QualInfo -> CStatement -> HsStmt+statement qi (CSExpr e)   = HsQualifier (expr False qi e)+statement qi (CSPat p e)  = HsGenerator src (pattern False qi p) +                                            (expr False qi e)+statement qi (CSLet locs) = HsLetStmt (concatMap (loc qi) locs)++branch :: QualInfo -> CBranchExpr -> HsAlt+branch qi (CBranch p e) = +  HsAlt src (pattern False qi p) (HsUnGuardedAlt (expr False qi e)) []++isConsName :: String -> Bool+isConsName "[]"    = True+isConsName (':':_) = True+isConsName n       = isTupleName n || isUpper (head n) ++loc :: QualInfo -> CLocalDecl -> [HsDecl]+loc qi (CLocalFunc f) = funcs qi f+loc qi (CLocalPat p e locs) = +  [HsPatBind src (pattern False qi p) +                 (HsUnGuardedRhs (expr False qi e)) +                 (concatMap (loc qi) locs)]+loc qi (CLocalVar v) = loc qi (CLocalPat (CPVar v) unknown [])++unknown :: CExpr+unknown = CSymbol ("Prelude","unknown")++pattern :: Bool -> QualInfo -> CPattern -> HsPat+pattern _ _   (CPVar (_,"_")) = HsPWildCard+pattern _ _   (CPVar v) = HsPVar (var v)+pattern _ _   (CPLit l) = HsPLit (lit l)+pattern par qi p@(CPComb mn@(_,n) ps) +  | isTupleName n   = HsPTuple (map (pattern False qi) ps)+  | isListPattern p = HsPList  (map (pattern False qi) (plistElems p))+  | isInfixName n &&+    length ps  P.== 2  = let [p1,p2] = ps+                       in maybePPar par $+                          HsPInfixApp (addPParToInfix (pattern False qi p1))+                                      (qual qi mn) +                                      (addPParToInfix (pattern False qi p2))+  | null ps   = HsPApp (qual qi mn) []+  | otherwise = maybePPar par (HsPApp (qual qi mn) (map (pattern True qi) ps))+pattern par qi (CPAs v p) = +  HsPAsPat (var v) $ +           (pattern True qi p)+pattern par qi (CPFuncComb mn ps) = pattern par qi (CPComb mn ps)+++maybePPar :: Bool -> HsPat -> HsPat+maybePPar True p@(HsPApp _ _) = HsPParen p+maybePPar True p@(HsPInfixApp _ _ _) = HsPParen p+maybePPar _    p = p++addPParToInfix :: HsPat -> HsPat+addPParToInfix p@(HsPInfixApp _ _ _) = HsPParen p+addPParToInfix p                     = p+++lit :: CLiteral -> HsLiteral+lit (CIntc i)   = HsInt i+lit (CFloatc f) = HsDoublePrim (toRational f)+lit (CCharc c)  = HsChar c++isListPattern :: CPattern -> Bool+isListPattern (CPComb (_,"[]") [])    = True+isListPattern (CPComb (_,":") [_,xs]) = isListPattern xs+isListPattern _                       = False++plistElems :: CPattern -> [CPattern]+plistElems (CPComb _ [])     = []+plistElems (CPComb _ [x,xs]) = x : plistElems xs+plistElems _ = error "unexpected call to plistElems"++isComplexPat :: CPattern -> Bool+isComplexPat (CPVar _)       = False+isComplexPat (CPLit _)       = False+isComplexPat (CPComb _ args) = not (null args)++ops :: COpDecl -> HsDecl+ops (COp (_,n) fix prec) = HsInfixDecl src (fixity fix) prec [op (ident n)]+  where+    fixity CInfixOp  = HsAssocNone+    fixity CInfixlOp = HsAssocLeft+    fixity CInfixrOp = HsAssocRight++    op = if isConsName n then HsConOp else HsVarOp++isCaseAuxFuncType :: CTypeExpr -> Bool+isCaseAuxFuncType (CTVar (-42,"y42")) = True+isCaseAuxFuncType _ = False++-- --------------------------------------------------------------------+-- Definition of data types for representing abstract Haskell programs:+-- ====================================================================++data TypeClass = TypeClass QName [CTypeExpr]+  deriving (Read,Show)++data InstanceDecl = Instance [TypeClass] TypeClass [HFuncDecl]+  deriving (Read,Show)++data HFuncDecl = HFunc QName Int CVisibility [TypeClass] CTypeExpr CRules+  deriving (Read,Show)++data HaskellProg = +  HaskellProg String String [String] String [HTypeDecl] [InstanceDecl] [HFuncDecl] [COpDecl]+  deriving (Read,Show)++data HTypeDecl = HTypeDecl [TypeClass] CTypeDecl [QName] deriving (Read,Show)+
+ biosphere/src/Curry/Module/TransformationPrint.lcurry view
@@ -0,0 +1,25 @@+Pretty Printer+==============++> module TransformationPrint ( prettyacy ) where++This module provides the connection to an external pretty printer for+AbstractHaskell.++Imports+-------++> import System+> import AbstractHaskell++Interface+=========++Writes given Haskell Prog to given filename using prettyacy.++> prettyacy :: String -> HaskellProg -> IO ()+> prettyacy fileName prog = (prettyahs $## fileName) $## show prog++> prettyahs :: String -> String -> IO ()+> prettyahs external+
+ biosphere/src/Curry/Module/TransformationSignatures.lcurry view
@@ -0,0 +1,76 @@+Signature Transformation+========================++This module provides a transformation of signatures (FlatCurry type expressions to AbstractCurry/Haskell type expressions).++Imports+-------++> import System++> import FlatCurry as FC+> import AbstractCurry as AC++Import the converters from flat to abstract curry without any debug+transformation:++> import FlatToAbstractCurry++Import utily and constants for Debug Infos:++> import TransformationDebugInfo++Transformation+--------------++arity == number of func types:+`a`                   ~>  `m a`+`a -> b`              ~>  `a -> m b`+`a -> ... -> b -> c`  ~>  `a -> ... -> b -> m c`++arity < number of func types:++`a` -> `b` -> `c`     ~>  `a` -> m (FuncRepr m b c)++`a1 -> a2 -> ... an` with arity i ~> `a1 -> a2 -> ... ai -> m (FuncRepr m ai+1 (FuncRepr m ... an)...))`++`DM m =>` is added.++Wrap debug type around each returned type.+`n` is the left arity (arity in initial call).++> transformType :: Int -> TypeExpr -> [FC.QName] -> CTypeExpr+> transformType n te@(TVar _) _            = (debugTVarWrapper n) $ convertType te++  Higher order data types require additional tvar for debug monad:++> transformType n (TCons name tes) hoTypes =+>   debugTVarWrapper n $ CTCons (renameType name)+>                               tes'+>   where+>     tes' = if elem name hoTypes then CTVar (-1,debugTVarName):tts else tts+>     tts = map (\t -> transformType (-1) t hoTypes) tes++> transformType n (FuncType te1 te2) hoTypes+>   | n >  0 = CFuncType (transformParamType te1 hoTypes) +>                        (transformType (n-1) te2 hoTypes)+>   | n <= 0  = debugTVarWrapper n $ funcRepr+>                                    (transformParamType te1 hoTypes)+>                                    (transformType (-1) te2 hoTypes)+>   where+>     funcRepr x y = (CTCons funcRepType [CTCons debugTVar [],x,y])++  Handles parameters. TVars are just converted, functional parameters and data+  types are transformed:++>     transformParamType te hoTypes = case te of+>       (TVar _) -> convertType te+>       _        -> transformType (-1) te hoTypes++  Returns for either `id` or a wrapper for a type to add the debug type+  depending on given left arity. The wrapper is returned for the 1st not+  applied type: left arity == 0.++> debugTVarWrapper n = if   n == 0+>                      then wrapDebugTVar+>                      else id
+ dist/build/mkstrict/mkstrict-tmp/Curry/Module/AbstractHaskell.hs view
@@ -0,0 +1,390 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.AbstractHaskell (module Curry.Module.AbstractHaskell) where++import Curry.RunTimeSystem+import Curry.Module.AbstractCurry+import Curry.Module.Prelude+import Curry.Module.AbstractCurryPrinter++++-- begin included++++-- end included++data C_TypeClass = C_TypeClass (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_TypeClassFail Curry.RunTimeSystem.C_Exceptions+  | C_TypeClassOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.AbstractHaskell.C_TypeClass)++data C_InstanceDecl = C_Instance (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_TypeClass) Curry.Module.AbstractHaskell.C_TypeClass (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl)+  | C_InstanceDeclFail Curry.RunTimeSystem.C_Exceptions+  | C_InstanceDeclOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.AbstractHaskell.C_InstanceDecl)++data C_HFuncDecl = C_HFunc (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.AbstractHaskell.C_TypeClass) Curry.Module.AbstractCurry.C_CTypeExpr Curry.Module.AbstractCurry.C_CRules+  | C_HFuncDeclFail Curry.RunTimeSystem.C_Exceptions+  | C_HFuncDeclOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.AbstractHaskell.C_HFuncDecl)++data C_HaskellProg = C_HaskellProg (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.C_Char) (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HTypeDecl) (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_InstanceDecl) (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl) (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_COpDecl)+  | C_HaskellProgFail Curry.RunTimeSystem.C_Exceptions+  | C_HaskellProgOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.AbstractHaskell.C_HaskellProg)++data C_HTypeDecl = C_HTypeDecl (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_TypeClass) Curry.Module.AbstractCurry.C_CTypeDecl (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_HTypeDeclFail Curry.RunTimeSystem.C_Exceptions+  | C_HTypeDeclOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.AbstractHaskell.C_HTypeDecl)++instance BaseCurry Curry.Module.AbstractHaskell.C_TypeClass where+  nf f (Curry.Module.AbstractHaskell.C_TypeClass x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.AbstractHaskell.C_TypeClass(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.AbstractHaskell.C_TypeClass x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.AbstractHaskell.C_TypeClass(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.AbstractHaskell.C_TypeClassOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.AbstractHaskell.C_TypeClass(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.AbstractHaskell.C_TypeClassFail++  branching  = Curry.Module.AbstractHaskell.C_TypeClassOr++  consKind (Curry.Module.AbstractHaskell.C_TypeClassOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.AbstractHaskell.C_TypeClassFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.AbstractHaskell.C_TypeClassFail x) = x++  orRef (Curry.Module.AbstractHaskell.C_TypeClassOr x _) = x++  branches (Curry.Module.AbstractHaskell.C_TypeClassOr _ x) = x++++++instance BaseCurry Curry.Module.AbstractHaskell.C_InstanceDecl where+  nf f (Curry.Module.AbstractHaskell.C_Instance x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.AbstractHaskell.C_Instance(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.AbstractHaskell.C_Instance x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.AbstractHaskell.C_Instance(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.AbstractHaskell.C_InstanceDeclOr(Curry.RunTimeSystem.mkRef(r)(3)(i))([Curry.Module.AbstractHaskell.C_Instance(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.AbstractHaskell.C_InstanceDeclFail++  branching  = Curry.Module.AbstractHaskell.C_InstanceDeclOr++  consKind (Curry.Module.AbstractHaskell.C_InstanceDeclOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.AbstractHaskell.C_InstanceDeclFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.AbstractHaskell.C_InstanceDeclFail x) = x++  orRef (Curry.Module.AbstractHaskell.C_InstanceDeclOr x _) = x++  branches (Curry.Module.AbstractHaskell.C_InstanceDeclOr _ x) = x++++++instance BaseCurry Curry.Module.AbstractHaskell.C_HFuncDecl where+  nf f (Curry.Module.AbstractHaskell.C_HFunc 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.AbstractHaskell.C_HFunc(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.AbstractHaskell.C_HFunc 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.AbstractHaskell.C_HFunc(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.AbstractHaskell.C_HFuncDeclOr(Curry.RunTimeSystem.mkRef(r)(6)(i))([Curry.Module.AbstractHaskell.C_HFunc(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.AbstractHaskell.C_HFuncDeclFail++  branching  = Curry.Module.AbstractHaskell.C_HFuncDeclOr++  consKind (Curry.Module.AbstractHaskell.C_HFuncDeclOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.AbstractHaskell.C_HFuncDeclFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.AbstractHaskell.C_HFuncDeclFail x) = x++  orRef (Curry.Module.AbstractHaskell.C_HFuncDeclOr x _) = x++  branches (Curry.Module.AbstractHaskell.C_HFuncDeclOr _ x) = x++++++instance BaseCurry Curry.Module.AbstractHaskell.C_HaskellProg where+  nf f (Curry.Module.AbstractHaskell.C_HaskellProg x1 x2 x3 x4 x5 x6 x7 x8) 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 -> Curry.RunTimeSystem.nfCTC(\ v7 state7 -> Curry.RunTimeSystem.nfCTC(\ v8 state8 -> f(Curry.Module.AbstractHaskell.C_HaskellProg(v1)(v2)(v3)(v4)(v5)(v6)(v7)(v8))(state8))(x8)(state7))(x7)(state6))(x6)(state5))(x5)(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.AbstractHaskell.C_HaskellProg x1 x2 x3 x4 x5 x6 x7 x8) 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 -> Curry.RunTimeSystem.gnfCTC(\ v7 state7 -> Curry.RunTimeSystem.gnfCTC(\ v8 state8 -> f(Curry.Module.AbstractHaskell.C_HaskellProg(v1)(v2)(v3)(v4)(v5)(v6)(v7)(v8))(state8))(x8)(state7))(x7)(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.AbstractHaskell.C_HaskellProgOr(Curry.RunTimeSystem.mkRef(r)(8)(i))([Curry.Module.AbstractHaskell.C_HaskellProg(Curry.RunTimeSystem.generator((Prelude.+)(r)((7::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((6::Int))))(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))))]))(8)++  failed  = Curry.Module.AbstractHaskell.C_HaskellProgFail++  branching  = Curry.Module.AbstractHaskell.C_HaskellProgOr++  consKind (Curry.Module.AbstractHaskell.C_HaskellProgOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.AbstractHaskell.C_HaskellProgFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.AbstractHaskell.C_HaskellProgFail x) = x++  orRef (Curry.Module.AbstractHaskell.C_HaskellProgOr x _) = x++  branches (Curry.Module.AbstractHaskell.C_HaskellProgOr _ x) = x++++++instance BaseCurry Curry.Module.AbstractHaskell.C_HTypeDecl where+  nf f (Curry.Module.AbstractHaskell.C_HTypeDecl x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.AbstractHaskell.C_HTypeDecl(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.AbstractHaskell.C_HTypeDecl x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.AbstractHaskell.C_HTypeDecl(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.AbstractHaskell.C_HTypeDeclOr(Curry.RunTimeSystem.mkRef(r)(3)(i))([Curry.Module.AbstractHaskell.C_HTypeDecl(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.AbstractHaskell.C_HTypeDeclFail++  branching  = Curry.Module.AbstractHaskell.C_HTypeDeclOr++  consKind (Curry.Module.AbstractHaskell.C_HTypeDeclOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.AbstractHaskell.C_HTypeDeclFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.AbstractHaskell.C_HTypeDeclFail x) = x++  orRef (Curry.Module.AbstractHaskell.C_HTypeDeclOr x _) = x++  branches (Curry.Module.AbstractHaskell.C_HTypeDeclOr _ x) = x++++++instance Curry Curry.Module.AbstractHaskell.C_TypeClass where+  strEq (Curry.Module.AbstractHaskell.C_TypeClass x1 x2) (Curry.Module.AbstractHaskell.C_TypeClass 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.AbstractHaskell.C_TypeClass x1 x2) (Curry.Module.AbstractHaskell.C_TypeClass 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.AbstractHaskell.C_TypeClass x1 x2) st = Curry.Module.AbstractHaskell.C_TypeClass(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))++  foldCurry f c (Curry.Module.AbstractHaskell.C_TypeClass x1 x2) st = f(x1)(f(x2)(c)(st))(st)++  typeName _ = "TypeClass"++  showQ d (Curry.Module.AbstractHaskell.C_TypeClass x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractHaskell.TypeClass "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ _ (Curry.Module.AbstractHaskell.C_TypeClassOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.AbstractHaskell.C_InstanceDecl where+  strEq (Curry.Module.AbstractHaskell.C_Instance x1 x2 x3) (Curry.Module.AbstractHaskell.C_Instance 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.AbstractHaskell.C_Instance x1 x2 x3) (Curry.Module.AbstractHaskell.C_Instance 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.AbstractHaskell.C_Instance x1 x2 x3) st = Curry.Module.AbstractHaskell.C_Instance(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))++  foldCurry f c (Curry.Module.AbstractHaskell.C_Instance x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)++  typeName _ = "InstanceDecl"++  showQ d (Curry.Module.AbstractHaskell.C_Instance x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractHaskell.Instance "))((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.AbstractHaskell.C_InstanceDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.AbstractHaskell.C_HFuncDecl where+  strEq (Curry.Module.AbstractHaskell.C_HFunc x1 x2 x3 x4 x5 x6) (Curry.Module.AbstractHaskell.C_HFunc 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.AbstractHaskell.C_HFunc x1 x2 x3 x4 x5 x6) (Curry.Module.AbstractHaskell.C_HFunc 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.AbstractHaskell.C_HFunc x1 x2 x3 x4 x5 x6) st = Curry.Module.AbstractHaskell.C_HFunc(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.AbstractHaskell.C_HFunc 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 _ = "HFuncDecl"++  showQ d (Curry.Module.AbstractHaskell.C_HFunc x1 x2 x3 x4 x5 x6) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractHaskell.HFunc "))((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.AbstractHaskell.C_HFuncDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.AbstractHaskell.C_HaskellProg where+  strEq (Curry.Module.AbstractHaskell.C_HaskellProg x1 x2 x3 x4 x5 x6 x7 x8) (Curry.Module.AbstractHaskell.C_HaskellProg y1 y2 y3 y4 y5 y6 y7 y8) 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.concAnd(Curry.Module.Prelude.genStrEq(x6)(y6)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x7)(y7)(st))(Curry.Module.Prelude.genStrEq(x8)(y8)(st))(st))(st))(st))(st))(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.AbstractHaskell.C_HaskellProg x1 x2 x3 x4 x5 x6 x7 x8) (Curry.Module.AbstractHaskell.C_HaskellProg y1 y2 y3 y4 y5 y6 y7 y8) 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.op_38_38(Curry.Module.Prelude.genEq(x6)(y6)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x7)(y7)(st))(Curry.Module.Prelude.genEq(x8)(y8)(st))(st))(st))(st))(st))(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.AbstractHaskell.C_HaskellProg x1 x2 x3 x4 x5 x6 x7 x8) st = Curry.Module.AbstractHaskell.C_HaskellProg(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))(f((6::Int))(x7)(st))(f((7::Int))(x8)(st))++  foldCurry f c (Curry.Module.AbstractHaskell.C_HaskellProg x1 x2 x3 x4 x5 x6 x7 x8) st = f(x1)(f(x2)(f(x3)(f(x4)(f(x5)(f(x6)(f(x7)(f(x8)(c)(st))(st))(st))(st))(st))(st))(st))(st)++  typeName _ = "HaskellProg"++  showQ d (Curry.Module.AbstractHaskell.C_HaskellProg x1 x2 x3 x4 x5 x6 x7 x8) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractHaskell.HaskellProg "))((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(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x6))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x7))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x8))))))))))))))))+++  showQ _ (Curry.Module.AbstractHaskell.C_HaskellProgOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.AbstractHaskell.C_HTypeDecl where+  strEq (Curry.Module.AbstractHaskell.C_HTypeDecl x1 x2 x3) (Curry.Module.AbstractHaskell.C_HTypeDecl 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.AbstractHaskell.C_HTypeDecl x1 x2 x3) (Curry.Module.AbstractHaskell.C_HTypeDecl 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.AbstractHaskell.C_HTypeDecl x1 x2 x3) st = Curry.Module.AbstractHaskell.C_HTypeDecl(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))++  foldCurry f c (Curry.Module.AbstractHaskell.C_HTypeDecl x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)++  typeName _ = "HTypeDecl"++  showQ d (Curry.Module.AbstractHaskell.C_HTypeDecl x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AbstractHaskell.HTypeDecl "))((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.AbstractHaskell.C_HTypeDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.AbstractHaskell.C_TypeClass where+  showsPrec d (Curry.Module.AbstractHaskell.C_TypeClass x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("TypeClass "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec _ (Curry.Module.AbstractHaskell.C_TypeClassOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.AbstractHaskell.C_InstanceDecl where+  showsPrec d (Curry.Module.AbstractHaskell.C_Instance x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Instance "))((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.AbstractHaskell.C_InstanceDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.AbstractHaskell.C_HFuncDecl where+  showsPrec d (Curry.Module.AbstractHaskell.C_HFunc x1 x2 x3 x4 x5 x6) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("HFunc "))((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.AbstractHaskell.C_HFuncDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.AbstractHaskell.C_HaskellProg where+  showsPrec d (Curry.Module.AbstractHaskell.C_HaskellProg x1 x2 x3 x4 x5 x6 x7 x8) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("HaskellProg "))((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..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x6))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x7))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x8))))))))))))))))+++  showsPrec _ (Curry.Module.AbstractHaskell.C_HaskellProgOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.AbstractHaskell.C_HTypeDecl where+  showsPrec d (Curry.Module.AbstractHaskell.C_HTypeDecl x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("HTypeDecl "))((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.AbstractHaskell.C_HTypeDeclOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Read Curry.Module.AbstractHaskell.C_TypeClass where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractHaskell.C_TypeClass(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractHaskell")("TypeClass")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r)++++++instance Read Curry.Module.AbstractHaskell.C_InstanceDecl where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractHaskell.C_Instance(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractHaskell")("Instance")(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.AbstractHaskell.C_HFuncDecl where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractHaskell.C_HFunc(x1)(x2)(x3)(x4)(x5)(x6))(r6) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractHaskell")("HFunc")(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.AbstractHaskell.C_HaskellProg where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractHaskell.C_HaskellProg(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8))(r8) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractHaskell")("HaskellProg")(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), ((,) x7 r7) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r6), ((,) x8 r8) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r7)])(r)++++++instance Read Curry.Module.AbstractHaskell.C_HTypeDecl where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.AbstractHaskell.C_HTypeDecl(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("AbstractHaskell")("HTypeDecl")(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)++++++
+ dist/build/mkstrict/mkstrict-tmp/Curry/Module/DebuggerPath.hs view
@@ -0,0 +1,63 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.DebuggerPath (module Curry.Module.DebuggerPath) where++import Curry.RunTimeSystem+import Curry.Module.Distribution+import Curry.Module.FileGoodies+import Curry.Module.Prelude++++-- begin included++++import Curry.Files.KiCSDebugPath++debuggerLibPath :: Result (C_IO C_String)+debuggerLibPath = ioFunc0 getOracleLibDir++-- end included++c_getDebugLibPath :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_getDebugLibPath st = Curry.Module.Prelude.op_62_62_61(Curry.Module.DebuggerPath.c_debuggerLibPath(st))(Curry.Module.Prelude.pf(Curry.Module.DebuggerPath.c_getDebugLibPath'46_'35lambda2))(st)++++c_getDebugLibPath'46_'35lambda2 :: (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_getDebugLibPath'46_'35lambda2 x1 st = Curry.Module.Prelude.c_return(Curry.Module.Prelude.op_43_43(x1)((Curry.Module.Prelude.:<)(Curry.Module.FileGoodies.c_separatorChar(st))(Curry.Module.Prelude.List))(st))(st)++++c_getDebugLoadPath :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_getDebugLoadPath st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Distribution.c_getLoadPath(st))(Curry.Module.Prelude.pf(Curry.Module.DebuggerPath.c_getDebugLoadPath'46_'35lambda3))(st)++++c_getDebugLoadPath'46_'35lambda3 :: (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_getDebugLoadPath'46_'35lambda3 x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.DebuggerPath.c_getDebugLibPath(st))(Curry.Module.Prelude.pf(Curry.Module.DebuggerPath.c_getDebugLoadPath'46_'35lambda3'46_'35lambda4(x1)))(st)++++c_getDebugLoadPath'46_'35lambda3'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.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_getDebugLoadPath'46_'35lambda3'46_'35lambda4 x1 x2 st = Curry.Module.Prelude.c_return(Curry.Module.Prelude.op_43_43(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(st))(st)++++c_getDebugFrontendParams :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Distribution.C_FrontendParams+c_getDebugFrontendParams st = Curry.Module.Prelude.op_62_62_61(Curry.Module.DebuggerPath.c_getDebugLoadPath(st))(Curry.Module.Prelude.pf(Curry.Module.DebuggerPath.c_getDebugFrontendParams'46_'35lambda5))(st)++++c_getDebugFrontendParams'46_'35lambda5 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Distribution.C_FrontendParams+c_getDebugFrontendParams'46_'35lambda5 x1 st = Curry.Module.Prelude.c_return(Curry.Module.Distribution.c_setFullPath(x1)(Curry.Module.Distribution.c_defaultParams(st))(st))(st)++++c_debuggerLibPath :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_debuggerLibPath st = Curry.Module.DebuggerPath.debuggerLibPath(st)++
+ dist/build/mkstrict/mkstrict-tmp/Curry/Module/ExternalStubs.hs view
@@ -0,0 +1,157 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.ExternalStubs (module Curry.Module.ExternalStubs) where++import Curry.RunTimeSystem+import Curry.Module.AbstractCurry+import Curry.Module.AbstractHaskell+import Curry.Module.FlatCurry+import Curry.Module.FlatCurryGoodies+import Curry.Module.FlatToAbstractCurry+import Curry.Module.IO+import Curry.Module.Prelude+import Curry.Module.TransformationDebugInfo+import Curry.Module.TransformationPrint+import Curry.Module.TransformationSignatures+import Curry.Module.System++++-- begin included++++-- end included++c_stubsInfo :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_stubsInfo 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('A'))((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(' '))((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('n'))((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('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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((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('s'))((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('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.:<)(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('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('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('\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('R'))((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('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(' '))((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('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('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.:<)(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('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('r'))((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.:<)(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('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('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.:<)(Curry.Module.Prelude.C_Char('}'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))++++c_containsExt :: Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_containsExt x1@(Curry.Module.FlatCurry.C_Prog x2 x3 x4 x5 x6) st = Curry.Module.Prelude.op_124_124(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_any(Curry.Module.FlatCurryGoodies.c_isExternal(st))(st))(x5)(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_any(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_null))(Curry.Module.FlatCurryGoodies.c_typeConsDecls(st))(st))(st))(x4)(st))(st)+c_containsExt (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.ExternalStubs.c_containsExt(x)(st))(i)(xs)(st)+c_containsExt x st = Curry.RunTimeSystem.patternFail("ExternalStubs.containsExt")(x)++++c_mkStubs :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.AbstractHaskell.C_HaskellProg)+c_mkStubs st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(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.ExternalStubs.c_mkStubs'39))))(Curry.Module.TransformationDebugInfo.c_higherOrderTypes(st))(st)++++c_writeStubs :: (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_writeStubs x1 x2 st = Curry.Module.Prelude.op_62_62(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.TransformationPrint.c_prettyacy(x1)))(Curry.Module.Prelude.op_36(Curry.Module.ExternalStubs.c_mkStubs(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_updQNamesInProg(Curry.Module.Prelude.pf(Curry.Module.TransformationDebugInfo.c_renameModule))(st))(x2)(st))(st))(st))(Curry.Module.ExternalStubs.c_clean(x1)(st))(st)++++c_mkStubs'39 :: Curry.Module.FlatCurry.C_Prog -> (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.AbstractHaskell.C_HaskellProg+c_mkStubs'39 x1@(Curry.Module.FlatCurry.C_Prog x3 x4 x5 x6 x7) x2 st = let {x10 = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_unzip))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.ExternalStubs.c_handleType))(st))(x5)(st))(st)} in Curry.Module.AbstractHaskell.C_HaskellProg(Curry.Module.Prelude.op_43_43(Curry.Module.TransformationDebugInfo.c_modulePrefix(st))(x3)(st))(Curry.Module.Prelude.List)(Curry.Module.Prelude.List)(Curry.Module.Prelude.List)(Curry.Module.ExternalStubs.c_mkStubs'39'46_'35selFP3'35types'39(x10)(st))(Curry.Module.ExternalStubs.c_mkStubs'39'46_'35selFP4'35insts(x10)(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.ExternalStubs.c_mkStubs'39'46_'35lambda2(x2)))(st))(x6)(st))(Curry.Module.Prelude.List)+c_mkStubs'39 (Curry.Module.FlatCurry.C_ProgOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.ExternalStubs.c_mkStubs'39(x)(x2)(st))(i)(xs)(st)+c_mkStubs'39 x x2 st = Curry.RunTimeSystem.patternFail("ExternalStubs.mkStubs'")(x)++++c_mkStubs'39'46_'35lambda2 :: (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_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl+c_mkStubs'39'46_'35lambda2 x1 x2 st = Curry.Module.ExternalStubs.c_mkStub(x2)(x1)(st)++++c_mkStubs'39'46_'35selFP3'35types'39 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HTypeDecl) (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_InstanceDecl)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HTypeDecl+c_mkStubs'39'46_'35selFP3'35types'39 x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_mkStubs'39'46_'35selFP3'35types'39 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.ExternalStubs.c_mkStubs'39'46_'35selFP3'35types'39(x)(st))(i)(xs)(st)+c_mkStubs'39'46_'35selFP3'35types'39 x st = Curry.RunTimeSystem.patternFail("ExternalStubs.mkStubs'._#selFP3#types'")(x)++++c_mkStubs'39'46_'35selFP4'35insts :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HTypeDecl) (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_InstanceDecl)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_InstanceDecl+c_mkStubs'39'46_'35selFP4'35insts x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_mkStubs'39'46_'35selFP4'35insts (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.ExternalStubs.c_mkStubs'39'46_'35selFP4'35insts(x)(st))(i)(xs)(st)+c_mkStubs'39'46_'35selFP4'35insts x st = Curry.RunTimeSystem.patternFail("ExternalStubs.mkStubs'._#selFP4#insts")(x)++++c_mkStub :: Curry.Module.FlatCurry.C_FuncDecl -> (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.AbstractHaskell.C_HFuncDecl+c_mkStub x1@(Curry.Module.FlatCurry.C_Func x3 x4 x5 x6 x7) x2 st = Curry.Module.ExternalStubs.c_mkStub_case_4(x1)(x2)(x3)(x4)(x6)(x7)(st)+c_mkStub (Curry.Module.FlatCurry.C_FuncDeclOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.ExternalStubs.c_mkStub(x)(x2)(st))(i)(xs)(st)+c_mkStub x x2 st = Curry.RunTimeSystem.patternFail("ExternalStubs.mkStub")(x)++++c_handleType :: Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.AbstractHaskell.C_HTypeDecl Curry.Module.AbstractHaskell.C_InstanceDecl)+c_handleType x1@(Curry.Module.FlatCurry.C_TypeSyn x2 x3 x4 x5) st = Curry.Module.Prelude.List+c_handleType x1@(Curry.Module.FlatCurry.C_Type x6 x7 x8 x9) st = Curry.Module.ExternalStubs.c_handleType_case_2(x1)(x9)(st)+c_handleType (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.ExternalStubs.c_handleType(x)(st))(i)(xs)(st)+c_handleType x st = Curry.RunTimeSystem.patternFail("ExternalStubs.handleType")(x)++++c_mkType :: Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.AbstractHaskell.C_HTypeDecl+c_mkType x1@(Curry.Module.FlatCurry.C_Type x2 x3 x4 x5) st = let {x6 = Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_convertTypeVariable))(x4)(st)} in let {x7 = Curry.Module.Prelude.T2(Curry.Module.Prelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(Curry.Module.TransformationDebugInfo.c_debugTVarName(st))} in let {x9 = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.TransformationDebugInfo.c_renameType))(x2)(st)} in Curry.Module.AbstractHaskell.C_HTypeDecl((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_constraint(Curry.Module.TransformationDebugInfo.c_debugMonadClass(st))(x7)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_constraint(Curry.Module.TransformationDebugInfo.c_staticInfoClass(st))))(x6)(st)))(Curry.Module.AbstractCurry.C_CType(x9)(Curry.Module.AbstractCurry.C_Private)((Curry.Module.Prelude.:<)(x7)(x6))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CCons(x9)(Curry.Module.Prelude.c_length(x4)(st))(Curry.Module.AbstractCurry.C_Private)(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CTVar))(x6)(st)))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.List)+c_mkType (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.ExternalStubs.c_mkType(x)(st))(i)(xs)(st)+c_mkType x st = Curry.RunTimeSystem.patternFail("ExternalStubs.mkType")(x)++++c_mkInst :: Curry.Module.AbstractHaskell.C_HTypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.AbstractHaskell.C_InstanceDecl+c_mkInst x1@(Curry.Module.AbstractHaskell.C_HTypeDecl x2 x3 x4) st = Curry.Module.ExternalStubs.c_mkInst_case_0(x3)(st)+c_mkInst (Curry.Module.AbstractHaskell.C_HTypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.ExternalStubs.c_mkInst(x)(st))(i)(xs)(st)+c_mkInst x st = Curry.RunTimeSystem.patternFail("ExternalStubs.mkInst")(x)++++c_noImpl :: Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_noImpl st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.FlatToAbstractCurry.c_presym((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.List))))))(st))(st))(Curry.Module.FlatToAbstractCurry.c_acyStr((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('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.List))))))))))))))))(st))(st)++++c_clean :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_clean x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.IO.c_openFile(x1)(Curry.Module.IO.C_ReadMode)(st))(Curry.Module.Prelude.pf(Curry.Module.ExternalStubs.c_clean'46_'35lambda3(x1)))(st)++++c_clean'46_'35lambda3 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.IO.C_Handle -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_clean'46_'35lambda3 x1 x2 st = Curry.Module.Prelude.op_62_62(Curry.Module.IO.c_hGetLine(x2)(st))(Curry.Module.Prelude.op_62_62_61(Curry.Module.IO.c_hGetContents(x2)(st))(Curry.Module.Prelude.pf(Curry.Module.ExternalStubs.c_clean'46_'35lambda3'46_'35lambda4(x1)(x2)))(st))(st)++++c_clean'46_'35lambda3'46_'35lambda4 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.IO.C_Handle -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_clean'46_'35lambda3'46_'35lambda4 x1 x2 x3 st = Curry.Module.Prelude.op_62_62(Curry.Module.IO.c_hClose(x2)(st))(Curry.Module.Prelude.c_writeFile(x1)(Curry.Module.Prelude.op_43_43(Curry.Module.ExternalStubs.c_stubsInfo(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x3)(st))(st))(st))(st)++++c_mkInst_case_0 x3@(Curry.Module.AbstractCurry.C_CType x5 x6 x7 x8) st = Curry.Module.AbstractHaskell.C_Instance(Curry.Module.Prelude.List)(Curry.Module.AbstractHaskell.C_TypeClass(Curry.Module.TransformationDebugInfo.c_staticInfoClass(st))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CTCons(x5)(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CTVar))(x7)(st)))(Curry.Module.Prelude.List)))((Curry.Module.Prelude.:<)(Curry.Module.AbstractHaskell.C_HFunc(Curry.Module.TransformationDebugInfo.c_staticInfoFunc(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(Curry.Module.AbstractCurry.C_Private)(Curry.Module.Prelude.List)(Curry.Module.FlatToAbstractCurry.c_untyped(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_rules(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_simpleRule((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_px(st))(Curry.Module.Prelude.C_Zero)(st))(Curry.Module.Prelude.List))(Curry.Module.ExternalStubs.c_noImpl(st))(st))(Curry.Module.Prelude.List))(st)))(Curry.Module.Prelude.List))+c_mkInst_case_0 (Curry.Module.AbstractCurry.C_CTypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.ExternalStubs.c_mkInst_case_0(x)(st))(i)(xs)(st)+c_mkInst_case_0 x st = Curry.RunTimeSystem.patternFail("ExternalStubs.mkInst_case_0")(x)++++c_handleType_case_2 x1 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.Prelude.List+c_handleType_case_2 x1 x9@Curry.Module.Prelude.List st = let {x12 = Curry.Module.ExternalStubs.c_mkType(x1)(st)} in Curry.Module.ExternalStubs.c_handleType_case_1(x1)(x12)(Curry.Module.TransformationDebugInfo.c_skippedType(x1)(st))(st)+c_handleType_case_2 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.ExternalStubs.c_handleType_case_2(x1)(x)(st))(i)(xs)(st)+c_handleType_case_2 x1 x st = Curry.RunTimeSystem.patternFail("ExternalStubs.handleType_case_2")(x)++++c_handleType_case_1 x1 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.List+c_handleType_case_1 x1 x12 x13@Curry.Module.Prelude.C_False st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(x12)(Curry.Module.ExternalStubs.c_mkInst(x12)(st)))(Curry.Module.Prelude.List)+c_handleType_case_1 x1 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.ExternalStubs.c_handleType_case_1(x1)(x12)(x)(st))(i)(xs)(st)+c_handleType_case_1 x1 x12 x st = Curry.RunTimeSystem.patternFail("ExternalStubs.handleType_case_1")(x)++++c_mkStub_case_4 x1 x2 x3 x4 x6 x7@(Curry.Module.FlatCurry.C_Rule x8 x9) st = Curry.Module.Prelude.List+c_mkStub_case_4 x1 x2 x3 x4 x6 x7@(Curry.Module.FlatCurry.C_External x10) st = Curry.Module.ExternalStubs.c_mkStub_case_3(x1)(x2)(x3)(x4)(x6)(Curry.Module.TransformationDebugInfo.c_skippedFunc(x1)(st))(st)+c_mkStub_case_4 x1 x2 x3 x4 x6 (Curry.Module.FlatCurry.C_RuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.ExternalStubs.c_mkStub_case_4(x1)(x2)(x3)(x4)(x6)(x)(st))(i)(xs)(st)+c_mkStub_case_4 x1 x2 x3 x4 x6 x st = Curry.RunTimeSystem.patternFail("ExternalStubs.mkStub_case_4")(x)++++c_mkStub_case_3 x1 x2 x3 x4 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.List+c_mkStub_case_3 x1 x2 x3 x4 x6 x7@Curry.Module.Prelude.C_False st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pc(Curry.Module.AbstractHaskell.C_HFunc(Curry.Module.TransformationDebugInfo.c_renameFunc(x3)(st))(x4)(Curry.Module.AbstractCurry.C_Private)((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_constraint(Curry.Module.TransformationDebugInfo.c_debugMonadClass(st))(Curry.Module.Prelude.T2(Curry.Module.Prelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(Curry.Module.TransformationDebugInfo.c_debugTVarName(st)))(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_constraint(Curry.Module.TransformationDebugInfo.c_staticInfoClass(st))))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_convertTypeVariable))(Curry.Module.FlatToAbstractCurry.c_extractTVars(x6)(st))(st))(st)))(Curry.Module.TransformationSignatures.c_transformType(x4)(x6)(x2)(st))))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_rules(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_simpleRule(Curry.Module.Prelude.c_map(Curry.Module.FlatToAbstractCurry.c_px(st))(Curry.Module.Prelude.c_enumFromTo(Curry.Module.Prelude.C_Zero)(Curry.Module.Prelude.op_45(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.TransformationDebugInfo.c_hookHelperName(x3)(st))(st))(Curry.Module.Prelude.c_map(Curry.Module.FlatToAbstractCurry.c_xx(st))(Curry.Module.Prelude.c_enumFromTo(Curry.Module.Prelude.C_Zero)(Curry.Module.Prelude.op_45(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(st))(st))(st))(Curry.Module.ExternalStubs.c_noImpl(st))(st))(st))(Curry.Module.Prelude.List))(st))(st))(Curry.Module.Prelude.List)+c_mkStub_case_3 x1 x2 x3 x4 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.ExternalStubs.c_mkStub_case_3(x1)(x2)(x3)(x4)(x6)(x)(st))(i)(xs)(st)+c_mkStub_case_3 x1 x2 x3 x4 x6 x st = Curry.RunTimeSystem.patternFail("ExternalStubs.mkStub_case_3")(x)++
+ dist/build/mkstrict/mkstrict-tmp/Curry/Module/FlatToAbstractCurry.hs view
@@ -0,0 +1,391 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.FlatToAbstractCurry (module Curry.Module.FlatToAbstractCurry) where++import Curry.RunTimeSystem+import Curry.Module.AbstractCurry+import Curry.Module.AbstractCurryPrinter+import Curry.Module.AbstractHaskell+import Curry.Module.Assertion+import Curry.Module.FlatCurry+import Curry.Module.FlatCurryGoodies+import Curry.Module.List+import Curry.Module.Prelude++++-- begin included++++-- end included++c_convertVariable :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_convertVariable x1 st = Curry.Module.FlatToAbstractCurry.c_convertVariable_case_10(x1)(Curry.Module.Prelude.op_60(x1)(Curry.Module.Prelude.C_Zero)(st))(st)++++c_convertTypeVariable :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_convertTypeVariable x1 st = Curry.Module.FlatToAbstractCurry.c_convertTypeVariable_case_8(x1)(Curry.Module.Prelude.op_60(x1)(Curry.Module.Prelude.C_Zero)(st))(st)++++c_xx :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr)+c_xx st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CVar))(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_convertVariable))(st)++++c_px :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CPattern)+c_px st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CPVar))(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_convertVariable))(st)++++c_tx :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CTypeExpr)+c_tx st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CTVar))(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_convertTypeVariable))(st)++++c_freshVariable :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int)+c_freshVariable st = 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))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_freshVariable'46maximum'4615))(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_allVars))(st))(st)++++c_freshVariable'46maximum'4615 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_freshVariable'46maximum'4615 x1@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st)+c_freshVariable'46maximum'4615 x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.FlatToAbstractCurry.c_freshVariable'46maximum'4615_case_5(x2)(x3)(st)+c_freshVariable'46maximum'4615 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_freshVariable'46maximum'4615(x)(st))(i)(xs)(st)+c_freshVariable'46maximum'4615 x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.freshVariable.maximum.15")(x)++++c_extractTVars :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_extractTVars x1@(Curry.Module.FlatCurry.C_TVar x2) st = (Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List)+c_extractTVars x1@(Curry.Module.FlatCurry.C_TCons x3 x4) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.List.c_nub))(Curry.Module.Prelude.c_concat(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_extractTVars))(x4)(st))(st))(st)+c_extractTVars x1@(Curry.Module.FlatCurry.C_FuncType x5 x6) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.List.c_nub))(Curry.Module.Prelude.op_43_43(Curry.Module.FlatToAbstractCurry.c_extractTVars(x5)(st))(Curry.Module.FlatToAbstractCurry.c_extractTVars(x6)(st))(st))(st)+c_extractTVars (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_extractTVars(x)(st))(i)(xs)(st)+c_extractTVars x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.extractTVars")(x)++++c_convertVisibility :: Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CVisibility+c_convertVisibility x1@Curry.Module.FlatCurry.C_Public st = Curry.Module.AbstractCurry.C_Public+c_convertVisibility x1@Curry.Module.FlatCurry.C_Private st = Curry.Module.AbstractCurry.C_Private+c_convertVisibility (Curry.Module.FlatCurry.C_VisibilityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_convertVisibility(x)(st))(i)(xs)(st)+c_convertVisibility x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.convertVisibility")(x)++++c_convertOperator :: Curry.Module.FlatCurry.C_OpDecl -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_COpDecl+c_convertOperator x1@(Curry.Module.FlatCurry.C_Op x2 x3 x4) st = Curry.Module.AbstractCurry.C_COp(x2)(Curry.Module.FlatToAbstractCurry.c_convertFixity(x3)(st))(x4)+c_convertOperator (Curry.Module.FlatCurry.C_OpDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_convertOperator(x)(st))(i)(xs)(st)+c_convertOperator x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.convertOperator")(x)++++c_convertFixity :: Curry.Module.FlatCurry.C_Fixity -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CFixity+c_convertFixity x1@Curry.Module.FlatCurry.C_InfixOp st = Curry.Module.AbstractCurry.C_CInfixOp+c_convertFixity x1@Curry.Module.FlatCurry.C_InfixlOp st = Curry.Module.AbstractCurry.C_CInfixlOp+c_convertFixity x1@Curry.Module.FlatCurry.C_InfixrOp st = Curry.Module.AbstractCurry.C_CInfixrOp+c_convertFixity (Curry.Module.FlatCurry.C_FixityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_convertFixity(x)(st))(i)(xs)(st)+c_convertFixity x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.convertFixity")(x)++++c_convertTypeDecl :: Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CTypeDecl+c_convertTypeDecl x1@(Curry.Module.FlatCurry.C_Type x2 x3 x4 x5) st = Curry.Module.AbstractCurry.C_CType(x2)(Curry.Module.FlatToAbstractCurry.c_convertVisibility(x3)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_convertVariable))(x4)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_convertConsDecl))(x5)(st))+c_convertTypeDecl x1@(Curry.Module.FlatCurry.C_TypeSyn x6 x7 x8 x9) st = Curry.Module.AbstractCurry.C_CTypeSyn(x6)(Curry.Module.FlatToAbstractCurry.c_convertVisibility(x7)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_convertVariable))(x8)(st))(Curry.Module.FlatToAbstractCurry.c_convertType(x9)(st))+c_convertTypeDecl (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_convertTypeDecl(x)(st))(i)(xs)(st)+c_convertTypeDecl x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.convertTypeDecl")(x)++++c_convertType :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CTypeExpr+c_convertType x1@(Curry.Module.FlatCurry.C_TVar x2) st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_tx(st))(x2)(st)+c_convertType x1@(Curry.Module.FlatCurry.C_FuncType x3 x4) st = Curry.Module.AbstractCurry.C_CFuncType(Curry.Module.FlatToAbstractCurry.c_convertType(x3)(st))(Curry.Module.FlatToAbstractCurry.c_convertType(x4)(st))+c_convertType x1@(Curry.Module.FlatCurry.C_TCons x5 x6) st = Curry.Module.AbstractCurry.C_CTCons(x5)(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_convertType))(x6)(st))+c_convertType (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_convertType(x)(st))(i)(xs)(st)+c_convertType x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.convertType")(x)++++c_convertConsDecl :: Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CConsDecl+c_convertConsDecl x1@(Curry.Module.FlatCurry.C_Cons x2 x3 x4 x5) st = Curry.Module.AbstractCurry.C_CCons(x2)(x3)(Curry.Module.FlatToAbstractCurry.c_convertVisibility(x4)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_convertType))(x5)(st))+c_convertConsDecl (Curry.Module.FlatCurry.C_ConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_convertConsDecl(x)(st))(i)(xs)(st)+c_convertConsDecl x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.convertConsDecl")(x)++++c_convertLiteral :: Curry.Module.FlatCurry.C_Literal -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CLiteral+c_convertLiteral x1@(Curry.Module.FlatCurry.C_Intc x2) st = Curry.Module.AbstractCurry.C_CIntc(x2)+c_convertLiteral x1@(Curry.Module.FlatCurry.C_Floatc x3) st = Curry.Module.AbstractCurry.C_CFloatc(x3)+c_convertLiteral x1@(Curry.Module.FlatCurry.C_Charc x4) st = Curry.Module.AbstractCurry.C_CCharc(x4)+c_convertLiteral (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_convertLiteral(x)(st))(i)(xs)(st)+c_convertLiteral x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.convertLiteral")(x)++++c_convertPattern :: Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CPattern+c_convertPattern x1@(Curry.Module.FlatCurry.C_Pattern x2 x3) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CPComb(x2)))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CPVar))(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_convertVariable))(st))(x3)(st))(st)+c_convertPattern x1@(Curry.Module.FlatCurry.C_LPattern x4) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CPLit))(Curry.Module.FlatToAbstractCurry.c_convertLiteral(x4)(st))(st)+c_convertPattern (Curry.Module.FlatCurry.C_PatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_convertPattern(x)(st))(i)(xs)(st)+c_convertPattern x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.convertPattern")(x)++++c_csuccess :: Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_csuccess st = Curry.Module.FlatToAbstractCurry.c_presym((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)++++c_noGuardRule :: (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CPattern) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CLocalDecl) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CRule)+c_noGuardRule x1 x2 st = Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CRule(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.FlatToAbstractCurry.c_csuccess(st))(x2))(Curry.Module.Prelude.List)))++++c_simpleRule :: (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CPattern) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CRule+c_simpleRule x1 x2 st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_noGuardRule(x1)(x2)(st))(Curry.Module.Prelude.List)(st)++++c_constantRule :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CRule)+c_constantRule st = Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_simpleRule(Curry.Module.Prelude.List))++++c_rules :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CRule) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CRules)+c_rules st = Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CRules(Curry.Module.AbstractCurry.C_CFlex))++++c_funcDecl :: (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.AbstractCurry.C_CTypeExpr -> (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CRule) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractHaskell.C_HFuncDecl+c_funcDecl x1 x2 x3 x4@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((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('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('s'))((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('c'))((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('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('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.List))))))))))))))))))))))))))))(st)+c_funcDecl x1 x2 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.FlatToAbstractCurry.c_funcDecl_case_4(x1)(x2)(x3)(x4)(x5)(x6)(Curry.Module.Prelude.c_not(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_all(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.FlatToAbstractCurry.c_funcDecl'46arity'4683(x5)(st))))(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_funcDecl'46arity'4683))(x6)(st))(st))(st))(st)+c_funcDecl x1 x2 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_funcDecl(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c_funcDecl x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.funcDecl")(x)++++c_funcDecl'46arity'4683 :: Curry.Module.AbstractCurry.C_CRule -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_funcDecl'46arity'4683 x1@(Curry.Module.AbstractCurry.C_CRule x2 x3 x4) st = Curry.Module.Prelude.c_length(x2)(st)+c_funcDecl'46arity'4683 (Curry.Module.AbstractCurry.C_CRuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_funcDecl'46arity'4683(x)(st))(i)(xs)(st)+c_funcDecl'46arity'4683 x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.funcDecl.arity.83")(x)++++c_pubFunc :: (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.AbstractCurry.C_CTypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CRule) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractHaskell.C_HFuncDecl))+c_pubFunc x1 st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FlatToAbstractCurry.c_funcDecl(x1)(Curry.Module.AbstractCurry.C_Public))++++c_untypedFunc :: (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.AbstractCurry.C_CRule) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractHaskell.C_HFuncDecl)+c_untypedFunc x1 st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_pubFunc(x1)(st))(Curry.Module.FlatToAbstractCurry.c_untyped(st))(st)++++c_constantFunc :: (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.AbstractHaskell.C_HFuncDecl+c_constantFunc x1 x2 st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_untypedFunc(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_constantRule(st))(x2)(st))(Curry.Module.Prelude.List))(st)++++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_prename :: (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_prename x1 st = Curry.Module.Prelude.T2(Curry.Module.FlatToAbstractCurry.c_prelude(st))(x1)++++c_presym :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_presym x1 st = Curry.Module.AbstractCurry.C_CSymbol(Curry.Module.FlatToAbstractCurry.c_prename(x1)(st))++++op_36_36 :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr))+op_36_36 st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.AbstractCurry.C_CApply)++++op_36_36_36 :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CExpr) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr))+op_36_36_36 st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Prelude.c_foldl(Curry.Module.FlatToAbstractCurry.op_36_36(st)))++++c_comb :: (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.AbstractCurry.C_CExpr) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr)+c_comb x1 st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36_36(st))(Curry.Module.AbstractCurry.C_CSymbol(x1))(st)++++op_58_33_58 :: Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+op_58_33_58 x1 x2 st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36_36(st))(Curry.Module.FlatToAbstractCurry.c_presym((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(st))(st))((Curry.Module.Prelude.:<)(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List)))(st)++++c_list :: (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CExpr) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_list x1@Curry.Module.Prelude.List st = Curry.Module.FlatToAbstractCurry.c_presym((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(st)+c_list x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.FlatToAbstractCurry.op_58_33_58(x2)(Curry.Module.FlatToAbstractCurry.c_list(x3)(st))(st)+c_list (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_list(x)(st))(i)(xs)(st)+c_list x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.list")(x)++++c_acyStr :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_acyStr x1@Curry.Module.Prelude.List st = Curry.Module.FlatToAbstractCurry.c_presym((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(st)+c_acyStr x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36_36(st))(Curry.Module.FlatToAbstractCurry.c_presym((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CLit(Curry.Module.AbstractCurry.C_CCharc(x2)))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_acyStr(x3)(st))(Curry.Module.Prelude.List)))(st)+c_acyStr (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_acyStr(x)(st))(i)(xs)(st)+c_acyStr x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.acyStr")(x)++++op_45_62_62 :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CPattern) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr))+op_45_62_62 st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.AbstractCurry.C_CLambda)++++op_45_62_45 :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CPattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr))+op_45_62_45 st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.AbstractCurry.C_CLambda))(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)++++c_higherOrder :: Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_higherOrder x1 x2 st = Curry.Module.FlatToAbstractCurry.c_higherOrder'46construct'46121(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_higherOrder'46wrap'46121(x1)))(Curry.Module.Prelude.c_enumFromTo(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x2)(st))(st))(st)++++c_higherOrder'46construct'46121 :: (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CExpr) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_higherOrder'46construct'46121 x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.FlatToAbstractCurry.c_higherOrder'46construct'46121_case_2(x2)(x3)(st)+c_higherOrder'46construct'46121 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_higherOrder'46construct'46121(x)(st))(i)(xs)(st)+c_higherOrder'46construct'46121 x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.higherOrder.construct.121")(x)++++c_higherOrder'46wrap'46121 :: Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_higherOrder'46wrap'46121 x1 x2 st = Curry.Module.FlatToAbstractCurry.c_higherOrder'46wrap'46121_case_1(x1)(x2)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st)++++c_monadWrap :: Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_monadWrap st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.FlatToAbstractCurry.c_point(st))(st))(Curry.Module.FlatToAbstractCurry.c_presym((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('t'))((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('n'))(Curry.Module.Prelude.List)))))))(st))(st)++++c_point :: Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_point st = Curry.Module.FlatToAbstractCurry.c_presym((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))(Curry.Module.Prelude.List))(st)++++c_untyped :: Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CTypeExpr+c_untyped st = Curry.Module.AbstractCurry.C_CTCons(Curry.Module.FlatToAbstractCurry.c_prename((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))(Curry.Module.Prelude.List)++++c_constraint :: (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.C_Int (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractHaskell.C_TypeClass+c_constraint x1 x2 st = Curry.Module.AbstractHaskell.C_TypeClass(x1)((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CTVar(x2))(Curry.Module.Prelude.List))++++c_test1 :: Curry.RunTimeSystem.State -> Curry.Module.Assertion.C_Assertion Curry.Module.AbstractCurry.C_CRule+c_test1 st = Curry.Module.Assertion.C_AssertEqual((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('s'))((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(' '))((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('g'))((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('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))(Curry.Module.Prelude.List))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_noGuardRule(Curry.Module.Prelude.List)(Curry.Module.FlatToAbstractCurry.c_csuccess(st))(st))(Curry.Module.Prelude.List)(st))(Curry.Module.FlatToAbstractCurry.c_simpleRule(Curry.Module.Prelude.List)(Curry.Module.FlatToAbstractCurry.c_csuccess(st))(st))++++c_test3 :: Curry.RunTimeSystem.State -> Curry.Module.Assertion.C_Assertion (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_test3 st = Curry.Module.Assertion.C_AssertEqual((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.:<)(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('o'))((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('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.List)))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_showExpr(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36_36(st))(Curry.Module.FlatToAbstractCurry.c_presym((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))(Curry.Module.Prelude.List))(st))(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CVar))(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_convertVariable))(st))(Curry.Module.Prelude.c_enumFromTo(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))(st))(st))(st))(st))((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('x'))((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('x'))((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('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('3'))(Curry.Module.Prelude.List)))))))))))++++c_test4 :: Curry.RunTimeSystem.State -> Curry.Module.Assertion.C_Assertion (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_test4 st = Curry.Module.Assertion.C_AssertEqual((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((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('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(' '))((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('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))(Curry.Module.Prelude.List))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.AbstractCurryPrinter.c_showExpr(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_45_62_45(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_px(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_xx(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(st))((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('1'))((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('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))(Curry.Module.Prelude.List))))))))))++++c_test5 :: Curry.RunTimeSystem.State -> Curry.Module.Assertion.C_Assertion (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_test5 st = Curry.Module.Assertion.C_AssertEqual((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('1'))(Curry.Module.Prelude.List)))))))))))))))(Curry.Module.Prelude.op_36(Curry.Module.AbstractCurryPrinter.c_showExpr(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.FlatToAbstractCurry.c_higherOrder(Curry.Module.FlatToAbstractCurry.c_monadWrap(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_45_62_45(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_px(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_xx(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(st))(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('r'))((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('u'))((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('x'))((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.:<)(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('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List)))))))))))))))))))))))))++++c_test6 :: Curry.RunTimeSystem.State -> Curry.Module.Assertion.C_Assertion (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_test6 st = Curry.Module.Assertion.C_AssertEqual((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('2'))(Curry.Module.Prelude.List)))))))))))))))(Curry.Module.Prelude.op_36(Curry.Module.AbstractCurryPrinter.c_showExpr(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.FlatToAbstractCurry.c_higherOrder(Curry.Module.FlatToAbstractCurry.c_monadWrap(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_45_62_62(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_px(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_px(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(st))(Curry.Module.Prelude.List)))(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_xx(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(st))(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('r'))((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('u'))((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('('))((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('r'))((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('u'))((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('('))((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('1'))((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('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('>'))((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('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))++++c_test7 :: Curry.RunTimeSystem.State -> Curry.Module.Assertion.C_Assertion (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_test7 st = Curry.Module.Assertion.C_AssertEqual((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('3'))(Curry.Module.Prelude.List)))))))))))))))(Curry.Module.Prelude.op_36(Curry.Module.AbstractCurryPrinter.c_showExpr(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.FlatToAbstractCurry.c_higherOrder(Curry.Module.FlatToAbstractCurry.c_monadWrap(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_45_62_62(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_px(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_px(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_px(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))(st))(Curry.Module.Prelude.List))))(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_xx(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(st))(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('r'))((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('u'))((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('('))((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('r'))((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('u'))((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('('))((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.:<)(Curry.Module.Prelude.C_Char('r'))((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('u'))((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(')'))((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('x'))((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('x'))((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('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('3'))((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('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))++++c_higherOrder'46wrap'46121_case_1 x1 x2 x3@Curry.Module.Prelude.C_True st = x1+c_higherOrder'46wrap'46121_case_1 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.FlatToAbstractCurry.c_higherOrder'46wrap'46121_case_0(x1)(x2)(Curry.Module.Prelude.c_otherwise(st))(st)+c_higherOrder'46wrap'46121_case_1 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_higherOrder'46wrap'46121_case_1(x1)(x2)(x)(st))(i)(xs)(st)+c_higherOrder'46wrap'46121_case_1 x1 x2 x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.higherOrder.wrap.121_case_1")(x)++++c_higherOrder'46wrap'46121_case_0 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.FlatToAbstractCurry.c_point(st))(st))(Curry.Module.FlatToAbstractCurry.c_higherOrder'46wrap'46121(x1)(Curry.Module.Prelude.op_45(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(st)+c_higherOrder'46wrap'46121_case_0 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_higherOrder'46wrap'46121_case_0(x1)(x2)(x)(st))(i)(xs)(st)+c_higherOrder'46wrap'46121_case_0 x1 x2 x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.higherOrder.wrap.121_case_0")(x)++++c_higherOrder'46construct'46121_case_2 x2 x3@Curry.Module.Prelude.List st = x2+c_higherOrder'46construct'46121_case_2 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36_36(st))(Curry.Module.FlatToAbstractCurry.c_point(st))(st))((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_higherOrder'46construct'46121(x3)(st))(Curry.Module.Prelude.List)))(st)+c_higherOrder'46construct'46121_case_2 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_higherOrder'46construct'46121_case_2(x2)(x)(st))(i)(xs)(st)+c_higherOrder'46construct'46121_case_2 x2 x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.higherOrder.construct.121_case_2")(x)++++c_funcDecl_case_4 x1 x2 x3 x4 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_error((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('s'))((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('a'))((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(' '))((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('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((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('t'))((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('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)))))))))))))))))))))))))))(st)+c_funcDecl_case_4 x1 x2 x3 x4 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.FlatToAbstractCurry.c_funcDecl_case_3(x1)(x2)(x3)(x4)(x5)(Curry.Module.Prelude.c_otherwise(st))(st)+c_funcDecl_case_4 x1 x2 x3 x4 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_funcDecl_case_4(x1)(x2)(x3)(x4)(x5)(x6)(x)(st))(i)(xs)(st)+c_funcDecl_case_4 x1 x2 x3 x4 x5 x6 x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.funcDecl_case_4")(x)++++c_funcDecl_case_3 x1 x2 x3 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.AbstractHaskell.C_HFunc(x1)(Curry.Module.FlatToAbstractCurry.c_funcDecl'46arity'4683(x5)(st))(x2)(Curry.Module.Prelude.List)(x3)(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_rules(st))(x4)(st))+c_funcDecl_case_3 x1 x2 x3 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_funcDecl_case_3(x1)(x2)(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c_funcDecl_case_3 x1 x2 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.funcDecl_case_3")(x)++++c_freshVariable'46maximum'4615_case_5 x2 x3@Curry.Module.Prelude.List st = x2+c_freshVariable'46maximum'4615_case_5 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.Prelude.c_max(x2)(Curry.Module.FlatToAbstractCurry.c_freshVariable'46maximum'4615(x3)(st))(st)+c_freshVariable'46maximum'4615_case_5 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_freshVariable'46maximum'4615_case_5(x2)(x)(st))(i)(xs)(st)+c_freshVariable'46maximum'4615_case_5 x2 x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.freshVariable.maximum.15_case_5")(x)++++c_convertTypeVariable_case_8 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.T2(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.c_negate(x1)(st))(st)))+c_convertTypeVariable_case_8 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.FlatToAbstractCurry.c_convertTypeVariable_case_7(x1)(Curry.Module.Prelude.op_60_61(x1)(Curry.Module.Prelude.op_45(Curry.Module.Prelude.c_ord(Curry.Module.Prelude.C_Char('z'))(st))(Curry.Module.Prelude.c_ord(Curry.Module.Prelude.C_Char('a'))(st))(st))(st))(st)+c_convertTypeVariable_case_8 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_convertTypeVariable_case_8(x1)(x)(st))(i)(xs)(st)+c_convertTypeVariable_case_8 x1 x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.convertTypeVariable_case_8")(x)++++c_convertTypeVariable_case_7 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.T2(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_chr(Curry.Module.Prelude.op_43(x1)(Curry.Module.Prelude.c_ord(Curry.Module.Prelude.C_Char('a'))(st))(st))(st))(Curry.Module.Prelude.List))+c_convertTypeVariable_case_7 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.FlatToAbstractCurry.c_convertTypeVariable_case_6(x1)(Curry.Module.Prelude.c_otherwise(st))(st)+c_convertTypeVariable_case_7 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_convertTypeVariable_case_7(x1)(x)(st))(i)(xs)(st)+c_convertTypeVariable_case_7 x1 x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.convertTypeVariable_case_7")(x)++++c_convertTypeVariable_case_6 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.T2(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))(Curry.Module.Prelude.c_show(x1)(st)))+c_convertTypeVariable_case_6 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_convertTypeVariable_case_6(x1)(x)(st))(i)(xs)(st)+c_convertTypeVariable_case_6 x1 x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.convertTypeVariable_case_6")(x)++++c_convertVariable_case_10 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.T2(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.c_negate(x1)(st))(st)))+c_convertVariable_case_10 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.FlatToAbstractCurry.c_convertVariable_case_9(x1)(Curry.Module.Prelude.c_otherwise(st))(st)+c_convertVariable_case_10 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_convertVariable_case_10(x1)(x)(st))(i)(xs)(st)+c_convertVariable_case_10 x1 x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.convertVariable_case_10")(x)++++c_convertVariable_case_9 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.T2(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))(Curry.Module.Prelude.c_show(x1)(st)))+c_convertVariable_case_9 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.FlatToAbstractCurry.c_convertVariable_case_9(x1)(x)(st))(i)(xs)(st)+c_convertVariable_case_9 x1 x st = Curry.RunTimeSystem.patternFail("FlatToAbstractCurry.convertVariable_case_9")(x)++
+ dist/build/mkstrict/mkstrict-tmp/Curry/Module/SrcRef.hs view
@@ -0,0 +1,6593 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.SrcRef (module Curry.Module.SrcRef) where++import Curry.RunTimeSystem+import Curry.Module.CurrySyntax+import Curry.Module.FiniteMap+import Curry.Module.FlatCurry+import Curry.Module.FlatCurryGoodies+import Curry.Module.Float+import Curry.Module.List+import Curry.Module.Prelude+import Curry.Module.Sort+import Curry.Module.ReadShowTerm+import Curry.Module.System+import Curry.Module.Unsafe++++-- begin included++++-- end included++type C_SrcRef = Curry.Module.Prelude.C_Int++type C_Eq t0 = Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_Equation t0)++type C_InfoTree = Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))++type C_Action t0 t1 t2 = (Curry.Module.SrcRef.C_SrcEntity t2) -> t0 -> Curry.Module.Prelude.C_Either t1 t0++type C_Selector t0 t1 t2 = t0 -> (Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t2) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t1 t0))) -> Curry.Module.Prelude.C_Either t1 t0++type C_EqContext t0 = Curry.Module.CurrySyntax.C_Decl t0++type C_ExpContext t0 = Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Decl t0) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_Equation t0))++type C_Tree = Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)++type C_State = Curry.Module.Prelude.C_Int++type C_Add t0 = Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t0++type C_QN = Curry.Module.Prelude.C_Either (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))++type C_Tree'39 = Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)++type C_TopMap = Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.C_Either (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.T2 (Curry.Module.CurrySyntax.C_Decl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))++type C_ZipResult = (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))++type C_ZR t0 = (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.Module.Prelude.T2 t0 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))++type C_Collected = Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))++type C_Options = Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))++data C_SrcEntity t0 = C_SrcDecl (Curry.Module.CurrySyntax.C_Decl t0)+  | C_SrcCon (Curry.Module.CurrySyntax.C_Decl t0) (Curry.Module.CurrySyntax.C_ConstrDecl t0)+  | C_SrcConTerm (Curry.Module.CurrySyntax.C_Decl t0) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_Equation t0)) (Curry.Module.CurrySyntax.C_ConstrTerm t0)+  | C_SrcNew (Curry.Module.CurrySyntax.C_Decl t0) (Curry.Module.CurrySyntax.C_NewConstrDecl t0)+  | C_SrcRhs (Curry.Module.CurrySyntax.C_Decl t0) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_Equation t0)) (Curry.Module.CurrySyntax.C_Rhs t0)+  | C_SrcId (Curry.Module.CurrySyntax.C_Decl t0) Curry.Module.CurrySyntax.C_Ident+  | C_SrcCond (Curry.Module.CurrySyntax.C_Decl t0) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_Equation t0)) (Curry.Module.CurrySyntax.C_Expression t0) (Curry.Module.CurrySyntax.C_Expression t0)+  | C_SrcExpr (Curry.Module.CurrySyntax.C_Decl t0) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_Equation t0)) (Curry.Module.CurrySyntax.C_Expression t0)+  | C_SrcAlt (Curry.Module.CurrySyntax.C_Decl t0) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_Equation t0)) (Curry.Module.CurrySyntax.C_Alt t0)+  | C_SrcEntityFail Curry.RunTimeSystem.C_Exceptions+  | C_SrcEntityOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches (Curry.Module.SrcRef.C_SrcEntity t0))++data C_AdrTree t0 = C_Tree t0 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree t0))+  | C_AdrTreeFail Curry.RunTimeSystem.C_Exceptions+  | C_AdrTreeOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches (Curry.Module.SrcRef.C_AdrTree t0))++data C_Lifted = C_LiftedExp (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))+  | C_LiftedComplexPat (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int+  | C_LiftedBind (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))+  | C_LiftedFail Curry.RunTimeSystem.C_Exceptions+  | C_LiftedOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.SrcRef.C_Lifted)++instance (BaseCurry t0) => BaseCurry (Curry.Module.SrcRef.C_SrcEntity t0) where+  nf f (Curry.Module.SrcRef.C_SrcDecl x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.SrcRef.C_SrcDecl(v1))(state1))(x1)(state0)+  nf f (Curry.Module.SrcRef.C_SrcCon x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.SrcRef.C_SrcCon(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.SrcRef.C_SrcConTerm x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.SrcRef.C_SrcConTerm(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.SrcRef.C_SrcNew x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.SrcRef.C_SrcNew(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.SrcRef.C_SrcRhs x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.SrcRef.C_SrcRhs(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.SrcRef.C_SrcId x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.SrcRef.C_SrcId(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.SrcRef.C_SrcCond 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.SrcRef.C_SrcCond(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.SrcRef.C_SrcExpr x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.SrcRef.C_SrcExpr(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.SrcRef.C_SrcAlt x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.SrcRef.C_SrcAlt(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.SrcRef.C_SrcDecl x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.SrcRef.C_SrcDecl(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.SrcRef.C_SrcCon x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.SrcRef.C_SrcCon(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.SrcRef.C_SrcConTerm x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.SrcRef.C_SrcConTerm(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.SrcRef.C_SrcNew x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.SrcRef.C_SrcNew(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.SrcRef.C_SrcRhs x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.SrcRef.C_SrcRhs(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.SrcRef.C_SrcId x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.SrcRef.C_SrcId(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.SrcRef.C_SrcCond 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.SrcRef.C_SrcCond(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.SrcRef.C_SrcExpr x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.SrcRef.C_SrcExpr(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.SrcRef.C_SrcAlt x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.SrcRef.C_SrcAlt(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.SrcRef.C_SrcEntityOr(Curry.RunTimeSystem.mkRef(r)(4)(i))([Curry.Module.SrcRef.C_SrcDecl(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.SrcRef.C_SrcCon(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.SrcRef.C_SrcConTerm(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.SrcRef.C_SrcNew(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.SrcRef.C_SrcRhs(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.SrcRef.C_SrcId(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.SrcRef.C_SrcCond(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.SrcRef.C_SrcExpr(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.SrcRef.C_SrcAlt(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.SrcRef.C_SrcEntityFail++  branching  = Curry.Module.SrcRef.C_SrcEntityOr++  consKind (Curry.Module.SrcRef.C_SrcEntityOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.SrcRef.C_SrcEntityFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.SrcRef.C_SrcEntityFail x) = x++  orRef (Curry.Module.SrcRef.C_SrcEntityOr x _) = x++  branches (Curry.Module.SrcRef.C_SrcEntityOr _ x) = x++++++instance (BaseCurry t0) => BaseCurry (Curry.Module.SrcRef.C_AdrTree t0) where+  nf f (Curry.Module.SrcRef.C_Tree x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.SrcRef.C_Tree(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.SrcRef.C_Tree x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.SrcRef.C_Tree(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.SrcRef.C_AdrTreeOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.SrcRef.C_Tree(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.SrcRef.C_AdrTreeFail++  branching  = Curry.Module.SrcRef.C_AdrTreeOr++  consKind (Curry.Module.SrcRef.C_AdrTreeOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.SrcRef.C_AdrTreeFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.SrcRef.C_AdrTreeFail x) = x++  orRef (Curry.Module.SrcRef.C_AdrTreeOr x _) = x++  branches (Curry.Module.SrcRef.C_AdrTreeOr _ x) = x++++++instance BaseCurry Curry.Module.SrcRef.C_Lifted where+  nf f (Curry.Module.SrcRef.C_LiftedExp x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.SrcRef.C_LiftedExp(v1))(state1))(x1)(state0)+  nf f (Curry.Module.SrcRef.C_LiftedComplexPat x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.SrcRef.C_LiftedComplexPat(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.SrcRef.C_LiftedBind x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.SrcRef.C_LiftedBind(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.SrcRef.C_LiftedExp x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.SrcRef.C_LiftedExp(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.SrcRef.C_LiftedComplexPat x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.SrcRef.C_LiftedComplexPat(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.SrcRef.C_LiftedBind x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.SrcRef.C_LiftedBind(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.SrcRef.C_LiftedOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.SrcRef.C_LiftedExp(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.SrcRef.C_LiftedComplexPat(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.SrcRef.C_LiftedBind(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.SrcRef.C_LiftedFail++  branching  = Curry.Module.SrcRef.C_LiftedOr++  consKind (Curry.Module.SrcRef.C_LiftedOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.SrcRef.C_LiftedFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.SrcRef.C_LiftedFail x) = x++  orRef (Curry.Module.SrcRef.C_LiftedOr x _) = x++  branches (Curry.Module.SrcRef.C_LiftedOr _ x) = x++++++instance (Curry t0) => Curry (Curry.Module.SrcRef.C_SrcEntity t0) where+  strEq (Curry.Module.SrcRef.C_SrcDecl x1) (Curry.Module.SrcRef.C_SrcDecl y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.SrcRef.C_SrcCon x1 x2) (Curry.Module.SrcRef.C_SrcCon 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.SrcRef.C_SrcConTerm x1 x2 x3) (Curry.Module.SrcRef.C_SrcConTerm 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.SrcRef.C_SrcNew x1 x2) (Curry.Module.SrcRef.C_SrcNew 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.SrcRef.C_SrcRhs x1 x2 x3) (Curry.Module.SrcRef.C_SrcRhs 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.SrcRef.C_SrcId x1 x2) (Curry.Module.SrcRef.C_SrcId 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.SrcRef.C_SrcCond x1 x2 x3 x4) (Curry.Module.SrcRef.C_SrcCond 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.SrcRef.C_SrcExpr x1 x2 x3) (Curry.Module.SrcRef.C_SrcExpr 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.SrcRef.C_SrcAlt x1 x2 x3) (Curry.Module.SrcRef.C_SrcAlt 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.SrcRef.C_SrcDecl x1) (Curry.Module.SrcRef.C_SrcDecl y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.SrcRef.C_SrcCon x1 x2) (Curry.Module.SrcRef.C_SrcCon 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.SrcRef.C_SrcConTerm x1 x2 x3) (Curry.Module.SrcRef.C_SrcConTerm 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.SrcRef.C_SrcNew x1 x2) (Curry.Module.SrcRef.C_SrcNew 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.SrcRef.C_SrcRhs x1 x2 x3) (Curry.Module.SrcRef.C_SrcRhs 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.SrcRef.C_SrcId x1 x2) (Curry.Module.SrcRef.C_SrcId 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.SrcRef.C_SrcCond x1 x2 x3 x4) (Curry.Module.SrcRef.C_SrcCond 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.SrcRef.C_SrcExpr x1 x2 x3) (Curry.Module.SrcRef.C_SrcExpr 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.SrcRef.C_SrcAlt x1 x2 x3) (Curry.Module.SrcRef.C_SrcAlt 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.SrcRef.C_SrcDecl x1) st = Curry.Module.SrcRef.C_SrcDecl(f((0::Int))(x1)(st))+  propagate f (Curry.Module.SrcRef.C_SrcCon x1 x2) st = Curry.Module.SrcRef.C_SrcCon(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.SrcRef.C_SrcConTerm x1 x2 x3) st = Curry.Module.SrcRef.C_SrcConTerm(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))+  propagate f (Curry.Module.SrcRef.C_SrcNew x1 x2) st = Curry.Module.SrcRef.C_SrcNew(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.SrcRef.C_SrcRhs x1 x2 x3) st = Curry.Module.SrcRef.C_SrcRhs(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))+  propagate f (Curry.Module.SrcRef.C_SrcId x1 x2) st = Curry.Module.SrcRef.C_SrcId(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.SrcRef.C_SrcCond x1 x2 x3 x4) st = Curry.Module.SrcRef.C_SrcCond(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))(f((3::Int))(x4)(st))+  propagate f (Curry.Module.SrcRef.C_SrcExpr x1 x2 x3) st = Curry.Module.SrcRef.C_SrcExpr(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))+  propagate f (Curry.Module.SrcRef.C_SrcAlt x1 x2 x3) st = Curry.Module.SrcRef.C_SrcAlt(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))++  foldCurry f c (Curry.Module.SrcRef.C_SrcDecl x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.SrcRef.C_SrcCon x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.SrcRef.C_SrcConTerm x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)+  foldCurry f c (Curry.Module.SrcRef.C_SrcNew x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.SrcRef.C_SrcRhs x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)+  foldCurry f c (Curry.Module.SrcRef.C_SrcId x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.SrcRef.C_SrcCond x1 x2 x3 x4) st = f(x1)(f(x2)(f(x3)(f(x4)(c)(st))(st))(st))(st)+  foldCurry f c (Curry.Module.SrcRef.C_SrcExpr x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)+  foldCurry f c (Curry.Module.SrcRef.C_SrcAlt x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)++  typeName _ = "SrcEntity"++  showQ d (Curry.Module.SrcRef.C_SrcDecl x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SrcRef.SrcDecl "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.SrcRef.C_SrcCon x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SrcRef.SrcCon "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.SrcRef.C_SrcConTerm x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SrcRef.SrcConTerm "))((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.SrcRef.C_SrcNew x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SrcRef.SrcNew "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.SrcRef.C_SrcRhs x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SrcRef.SrcRhs "))((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.SrcRef.C_SrcId x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SrcRef.SrcId "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.SrcRef.C_SrcCond x1 x2 x3 x4) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SrcRef.SrcCond "))((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.SrcRef.C_SrcExpr x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SrcRef.SrcExpr "))((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.SrcRef.C_SrcAlt x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SrcRef.SrcAlt "))((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.SrcRef.C_SrcEntityOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Curry t0) => Curry (Curry.Module.SrcRef.C_AdrTree t0) where+  strEq (Curry.Module.SrcRef.C_Tree x1 x2) (Curry.Module.SrcRef.C_Tree 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.SrcRef.C_Tree x1 x2) (Curry.Module.SrcRef.C_Tree 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.SrcRef.C_Tree x1 x2) st = Curry.Module.SrcRef.C_Tree(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))++  foldCurry f c (Curry.Module.SrcRef.C_Tree x1 x2) st = f(x1)(f(x2)(c)(st))(st)++  typeName _ = "AdrTree"++  showQ d (Curry.Module.SrcRef.C_Tree x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SrcRef.Tree "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ _ (Curry.Module.SrcRef.C_AdrTreeOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.SrcRef.C_Lifted where+  strEq (Curry.Module.SrcRef.C_LiftedExp x1) (Curry.Module.SrcRef.C_LiftedExp y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.SrcRef.C_LiftedComplexPat x1 x2) (Curry.Module.SrcRef.C_LiftedComplexPat 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.SrcRef.C_LiftedBind x1 x2) (Curry.Module.SrcRef.C_LiftedBind 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.SrcRef.C_LiftedExp x1) (Curry.Module.SrcRef.C_LiftedExp y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.SrcRef.C_LiftedComplexPat x1 x2) (Curry.Module.SrcRef.C_LiftedComplexPat 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.SrcRef.C_LiftedBind x1 x2) (Curry.Module.SrcRef.C_LiftedBind 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.SrcRef.C_LiftedExp x1) st = Curry.Module.SrcRef.C_LiftedExp(f((0::Int))(x1)(st))+  propagate f (Curry.Module.SrcRef.C_LiftedComplexPat x1 x2) st = Curry.Module.SrcRef.C_LiftedComplexPat(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.SrcRef.C_LiftedBind x1 x2) st = Curry.Module.SrcRef.C_LiftedBind(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))++  foldCurry f c (Curry.Module.SrcRef.C_LiftedExp x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.SrcRef.C_LiftedComplexPat x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.SrcRef.C_LiftedBind x1 x2) st = f(x1)(f(x2)(c)(st))(st)++  typeName _ = "Lifted"++  showQ d (Curry.Module.SrcRef.C_LiftedExp x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SrcRef.LiftedExp "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.SrcRef.C_LiftedComplexPat x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SrcRef.LiftedComplexPat "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.SrcRef.C_LiftedBind x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SrcRef.LiftedBind "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ _ (Curry.Module.SrcRef.C_LiftedOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Show t0) => Show (Curry.Module.SrcRef.C_SrcEntity t0) where+  showsPrec d (Curry.Module.SrcRef.C_SrcDecl x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SrcDecl "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.SrcRef.C_SrcCon x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SrcCon "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.SrcRef.C_SrcConTerm x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SrcConTerm "))((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.SrcRef.C_SrcNew x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SrcNew "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.SrcRef.C_SrcRhs x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SrcRhs "))((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.SrcRef.C_SrcId x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SrcId "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.SrcRef.C_SrcCond x1 x2 x3 x4) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SrcCond "))((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.SrcRef.C_SrcExpr x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SrcExpr "))((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.SrcRef.C_SrcAlt x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("SrcAlt "))((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.SrcRef.C_SrcEntityOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Show t0) => Show (Curry.Module.SrcRef.C_AdrTree t0) where+  showsPrec d (Curry.Module.SrcRef.C_Tree x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Tree "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec _ (Curry.Module.SrcRef.C_AdrTreeOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.SrcRef.C_Lifted where+  showsPrec d (Curry.Module.SrcRef.C_LiftedExp x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("LiftedExp "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.SrcRef.C_LiftedComplexPat x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("LiftedComplexPat "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.SrcRef.C_LiftedBind x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("LiftedBind "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec _ (Curry.Module.SrcRef.C_LiftedOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Read t0) => Read (Curry.Module.SrcRef.C_SrcEntity t0) where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.SrcRef.C_SrcDecl(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("SrcRef")("SrcDecl")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.SrcRef.C_SrcCon(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("SrcRef")("SrcCon")(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.SrcRef.C_SrcConTerm(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("SrcRef")("SrcConTerm")(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.SrcRef.C_SrcNew(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("SrcRef")("SrcNew")(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.SrcRef.C_SrcRhs(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("SrcRef")("SrcRhs")(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.SrcRef.C_SrcId(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("SrcRef")("SrcId")(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.SrcRef.C_SrcCond(x1)(x2)(x3)(x4))(r4) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("SrcRef")("SrcCond")(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.SrcRef.C_SrcExpr(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("SrcRef")("SrcExpr")(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.SrcRef.C_SrcAlt(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("SrcRef")("SrcAlt")(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.SrcRef.C_AdrTree t0) where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.SrcRef.C_Tree(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("SrcRef")("Tree")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r)++++++instance Read Curry.Module.SrcRef.C_Lifted where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.SrcRef.C_LiftedExp(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("SrcRef")("LiftedExp")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.SrcRef.C_LiftedComplexPat(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("SrcRef")("LiftedComplexPat")(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.SrcRef.C_LiftedBind(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("SrcRef")("LiftedBind")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r)))++++++c_nextStaticInfo :: (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)))+c_nextStaticInfo x1@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((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('p'))((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(' '))((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('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('e'))(Curry.Module.Prelude.List)))))))))))))))(st)+c_nextStaticInfo x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.SrcRef.c_nextStaticInfo_case_547(x3)(x2)(st)+c_nextStaticInfo (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_nextStaticInfo(x)(st))(i)(xs)(st)+c_nextStaticInfo x st = Curry.RunTimeSystem.patternFail("SrcRef.nextStaticInfo")(x)++++c_infoChildren :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))))+c_infoChildren st = Curry.Module.Prelude.pf(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.pc))((Curry.Module.Prelude.:<)))(Curry.Module.Prelude.List))))++++c_getInfoTree :: Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)))+c_getInfoTree x1@(Curry.Module.FlatCurry.C_Prog x2 x3 x4 x5 x6) st = Curry.Module.Prelude.op_62_62_61(Curry.Module.CurrySyntax.c_readCurry(x2)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_return))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipFlatCy(x1)))(st))(st)+c_getInfoTree (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_getInfoTree(x)(st))(i)(xs)(st)+c_getInfoTree x st = Curry.RunTimeSystem.patternFail("SrcRef.getInfoTree")(x)++++c_treeN :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))+c_treeN x1 st = let {x2 = (Curry.Module.Prelude.:<)(x3)(x2); x3 = Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Zero)(Curry.Module.Prelude.List))(x2)} in x2++++c_srcAt :: (Curry t0) => (Curry.Module.CurrySyntax.C_Module t0) -> Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.SrcRef.C_SrcEntity t0)+c_srcAt x1 x2 st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_either(Curry.Module.Prelude.pc(Curry.Module.Prelude.C_Just))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_const(Curry.Module.Prelude.C_Nothing)))))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_moduleAt(x1)(st))(x2)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_srcAt'46_'35lambda2))(st))(st)++++c_srcAt'46_'35lambda2 :: (Curry t3942) => (Curry.Module.SrcRef.C_SrcEntity t3942) -> Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either (Curry.Module.SrcRef.C_SrcEntity t3942) Curry.Module.Prelude.C_Int+c_srcAt'46_'35lambda2 x1 x2 st = Curry.Module.SrcRef.c_srcAt'46_'35lambda2_case_546(x1)(x2)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Zero)(st))(st)++++c_here :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.SrcRef.C_SrcEntity t0) -> t1 -> (Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1+c_here x1 x2 x3 st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x3)(x1)(st))(x2)(st)++++c_notHere :: (Curry t0,Curry t1,Curry t2) => t0 -> (Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t0))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t0+c_notHere x1 x2 st = Curry.Module.Prelude.C_Right(x1)++++op_46_42 :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t0))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t0))) -> (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t0))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t0))) -> t0 -> (Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t0))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t0+op_46_42 x1 x2 x3 x4 st = Curry.Module.Prelude.c_either(Curry.Module.Prelude.pc(Curry.Module.Prelude.C_Left))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_flip(x2)(x4)))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x1)(x3)(st))(x4)(st))(st)++++c_inListAt :: (Curry t0,Curry t1,Curry t2,Curry t3) => (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t2) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t3 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t3 t1)))) -> (Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t2) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t3 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t3 t1))+c_inListAt x1 x2@Curry.Module.Prelude.List st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_inListAt x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.c_apply(x1)(x3)(st))(Curry.Module.SrcRef.c_inListAt(x1)(x4)(st)))+c_inListAt x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_inListAt(x1)(x)(st))(i)(xs)(st)+c_inListAt x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.inListAt")(x)++++c_moduleAt :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.CurrySyntax.C_Module t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))+c_moduleAt x1@(Curry.Module.CurrySyntax.C_Module x2 x3 x4) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_declsAt(st))(x4)(st)+c_moduleAt (Curry.Module.CurrySyntax.C_ModuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_moduleAt(x)(st))(i)(xs)(st)+c_moduleAt x st = Curry.RunTimeSystem.patternFail("SrcRef.moduleAt")(x)++++c_declsAt :: (Curry t0,Curry t1,Curry t2) => Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Decl t0)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1)))+c_declsAt st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_inListAt(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_declAt)))++++c_declAt :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.CurrySyntax.C_Decl t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))+c_declAt x1@(Curry.Module.CurrySyntax.C_ImportDecl x2 x3 x4 x5 x6) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_declAt x1@(Curry.Module.CurrySyntax.C_InfixDecl x7 x8 x9 x10) st = Curry.Module.SrcRef.c_inListAt(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.SrcRef.c_here))(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_SrcId(x1)))(st))(x10)(st)+c_declAt x1@(Curry.Module.CurrySyntax.C_DataDecl x11 x12 x13 x14) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcDecl(x1))))(Curry.Module.SrcRef.c_inListAt(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.SrcRef.c_here))(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_SrcCon(x1)))(st))(x14)(st)))+c_declAt x1@(Curry.Module.CurrySyntax.C_NewtypeDecl x15 x16 x17 x18) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcDecl(x1))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcNew(x1)(x18)))))+c_declAt x1@(Curry.Module.CurrySyntax.C_TypeDecl x19 x20 x21 x22) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcDecl(x1)))+c_declAt x1@(Curry.Module.CurrySyntax.C_TypeSig x23 x24 x25) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_declAt x1@(Curry.Module.CurrySyntax.C_EvalAnnot x26 x27 x28) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_declAt x1@(Curry.Module.CurrySyntax.C_FunctionDecl x29 x30 x31) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcDecl(x1))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_eqsAt(x1)(st))(x31)(st)))+c_declAt x1@(Curry.Module.CurrySyntax.C_ExternalDecl x32 x33 x34 x35 x36) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcId(x1)(x35)))+c_declAt x1@(Curry.Module.CurrySyntax.C_FlatExternalDecl x37 x38) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_declAt x1@(Curry.Module.CurrySyntax.C_PatternDecl x39 x40 x41) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcDecl(x1))))(Curry.Module.SrcRef.c_conTermAt(Curry.Module.Prelude.T2(x1)(Curry.Module.Prelude.C_Nothing))(x40)(st))))(Curry.Module.SrcRef.c_rhsAt(Curry.Module.Prelude.T2(x1)(Curry.Module.Prelude.C_Nothing))(x41)(st)))+c_declAt x1@(Curry.Module.CurrySyntax.C_ExtraVariables x42 x43) st = Curry.Module.SrcRef.c_inListAt(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.SrcRef.c_here))(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_SrcId(x1)))(st))(x43)(st)+c_declAt (Curry.Module.CurrySyntax.C_DeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_declAt(x)(st))(i)(xs)(st)+c_declAt x st = Curry.RunTimeSystem.patternFail("SrcRef.declAt")(x)++++c_locsAt :: (Curry t0,Curry t1,Curry t2) => Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Decl t0)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1)))+c_locsAt st = Curry.Module.SrcRef.c_declsAt(st)++++c_eqsAt :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.CurrySyntax.C_Decl t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Equation t0)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1)))+c_eqsAt x1 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_inListAt(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_eqAt(x1))))++++c_eqAt :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.CurrySyntax.C_Decl t0) -> (Curry.Module.CurrySyntax.C_Equation t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))+c_eqAt x1 x2@(Curry.Module.CurrySyntax.C_Equation x3 x4 x5) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_lhsAt(Curry.Module.Prelude.T2(x1)(Curry.Module.Prelude.C_Just(x2)))(x4)(st))(Curry.Module.SrcRef.c_rhsAt(Curry.Module.Prelude.T2(x1)(Curry.Module.Prelude.C_Just(x2)))(x5)(st)))+c_eqAt x1 (Curry.Module.CurrySyntax.C_EquationOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_eqAt(x1)(x)(st))(i)(xs)(st)+c_eqAt x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.eqAt")(x)++++c_lhsAt :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Decl t0) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_Equation t0))) -> (Curry.Module.CurrySyntax.C_Lhs t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))+c_lhsAt x1 x2@(Curry.Module.CurrySyntax.C_FunLhs x3 x4) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x4)(st)+c_lhsAt x1 x2@(Curry.Module.CurrySyntax.C_OpLhs x5 x6 x7) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x5)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x7)(st)))+c_lhsAt x1 x2@(Curry.Module.CurrySyntax.C_ApLhs x8 x9) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_lhsAt(x1)(x8)(st))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x9)(st)))+c_lhsAt x1 (Curry.Module.CurrySyntax.C_LhsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_lhsAt(x1)(x)(st))(i)(xs)(st)+c_lhsAt x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.lhsAt")(x)++++c_conTermsAt :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Decl t0) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_Equation t0))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm t0)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1)))+c_conTermsAt x1 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_inListAt(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_conTermAt(x1))))++++c_conTermAt :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Decl t0) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_Equation t0))) -> (Curry.Module.CurrySyntax.C_ConstrTerm t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))+c_conTermAt x1@(Curry.Module.Prelude.T2 x3 x4) x2 st = Curry.Module.SrcRef.c_conTermAt_case_545(x1)(x3)(x4)(x2)(st)+c_conTermAt (Curry.Module.Prelude.T2Or i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_conTermAt(x)(x2)(st))(i)(xs)(st)+c_conTermAt x x2 st = Curry.RunTimeSystem.patternFail("SrcRef.conTermAt")(x)++++c_stringAt :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.Prim (Curry.Module.CurrySyntax.C_Literal -> Curry.RunTimeSystem.State -> Curry.Module.SrcRef.C_SrcEntity t0)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1)))+c_stringAt x1 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_listExpAt(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_litAt(x1)))(Curry.Module.Prelude.pc(Curry.Module.CurrySyntax.C_Char))(st))(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.SrcRef.c_here))(Curry.Module.Prelude.op_46(x1)(Curry.Module.Prelude.pc(Curry.Module.CurrySyntax.C_String))(st))(st)))++++c_listExpAt :: (Curry t0,Curry t1,Curry t2,Curry t3) => (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t2) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t3 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t3 t1)))) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t2) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t3 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t3 t1)))) -> (Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t2) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t3 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t3 t1))+c_listExpAt x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_apply(x2)(Curry.Module.Prelude.List)(st)+c_listExpAt x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.c_apply(x2)(x3)(st))(Curry.Module.Prelude.c_apply(x1)(x4)(st))))(Curry.Module.SrcRef.c_listExpAt(x1)(x2)(x5)(st)))+c_listExpAt x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_listExpAt(x1)(x2)(x)(st))(i)(xs)(st)+c_listExpAt x1 x2 x st = Curry.RunTimeSystem.patternFail("SrcRef.listExpAt")(x)++++c_litAt :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.Prim (Curry.Module.CurrySyntax.C_Literal -> Curry.RunTimeSystem.State -> Curry.Module.SrcRef.C_SrcEntity t0)) -> Curry.Module.CurrySyntax.C_Literal -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))+c_litAt x1 x2@(Curry.Module.CurrySyntax.C_String x3) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_stringAt(x1)(st))(x3)(st)+c_litAt x1 x2@(Curry.Module.CurrySyntax.C_Char x4) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.Prelude.c_apply(x1)(x2)(st)))+c_litAt x1 x2@(Curry.Module.CurrySyntax.C_Int x5 x6) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.Prelude.c_apply(x1)(x2)(st)))+c_litAt x1 x2@(Curry.Module.CurrySyntax.C_Float x7) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.Prelude.c_apply(x1)(x2)(st)))+c_litAt x1 (Curry.Module.CurrySyntax.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_litAt(x1)(x)(st))(i)(xs)(st)+c_litAt x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.litAt")(x)++++c_rhsAt :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Decl t0) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_Equation t0))) -> (Curry.Module.CurrySyntax.C_Rhs t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))+c_rhsAt x1@(Curry.Module.Prelude.T2 x3 x4) x2 st = Curry.Module.SrcRef.c_rhsAt_case_530(x1)(x3)(x4)(x2)(st)+c_rhsAt (Curry.Module.Prelude.T2Or i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_rhsAt(x)(x2)(st))(i)(xs)(st)+c_rhsAt x x2 st = Curry.RunTimeSystem.patternFail("SrcRef.rhsAt")(x)++++c_condsAt :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Decl t0) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_Equation t0))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_CondExpr t0)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1)))+c_condsAt x1 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_inListAt(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_condAt(x1))))++++c_condAt :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Decl t0) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_Equation t0))) -> (Curry.Module.CurrySyntax.C_CondExpr t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))+c_condAt x1@(Curry.Module.Prelude.T2 x3 x4) x2 st = Curry.Module.SrcRef.c_condAt_case_529(x1)(x3)(x4)(x2)(st)+c_condAt (Curry.Module.Prelude.T2Or i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_condAt(x)(x2)(st))(i)(xs)(st)+c_condAt x x2 st = Curry.RunTimeSystem.patternFail("SrcRef.condAt")(x)++++c_srcExpr :: (Curry t0) => (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Decl t0) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_Equation t0))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.CurrySyntax.C_Expression t0) -> Curry.RunTimeSystem.State -> Curry.Module.SrcRef.C_SrcEntity t0)+c_srcExpr x1@(Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_SrcExpr(x2)(x3))+c_srcExpr (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_srcExpr(x)(st))(i)(xs)(st)+c_srcExpr x st = Curry.RunTimeSystem.patternFail("SrcRef.srcExpr")(x)++++c_expsAt :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Decl t0) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_Equation t0))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Expression t0)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1)))+c_expsAt x1 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_inListAt(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAt(x1))))++++c_expAt :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Decl t0) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_Equation t0))) -> (Curry.Module.CurrySyntax.C_Expression t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_Variable x3) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_srcExpr(x1)(st))(x2)(st)))+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_Literal x4) st = Curry.Module.SrcRef.c_litAt(Curry.Module.Prelude.op_46(Curry.Module.SrcRef.c_srcExpr(x1)(st))(Curry.Module.Prelude.pc(Curry.Module.CurrySyntax.C_Literal))(st))(x4)(st)+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_Constructor x5) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_srcExpr(x1)(st))(x2)(st)))+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_Paren x6) st = Curry.Module.SrcRef.c_expAt(x1)(x6)(st)+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_Typed x7 x8) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_srcExpr(x1)(st))(x2)(st))))(Curry.Module.SrcRef.c_expAt(x1)(x7)(st)))+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_Tuple x9) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_srcExpr(x1)(st))(x2)(st))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_expsAt(x1)(st))(x9)(st)))+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_List x10) st = Curry.Module.SrcRef.c_listExpAt(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAt(x1)))(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.SrcRef.c_here))(Curry.Module.Prelude.op_46(Curry.Module.SrcRef.c_srcExpr(x1)(st))(Curry.Module.Prelude.pc(Curry.Module.CurrySyntax.C_List))(st))(st))(x10)(st)+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_EnumFrom x11) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_srcExpr(x1)(st))(x2)(st))))(Curry.Module.SrcRef.c_expAt(x1)(x11)(st)))+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_EnumFromThen x12 x13) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_srcExpr(x1)(st))(x2)(st))))(Curry.Module.SrcRef.c_expAt(x1)(x12)(st))))(Curry.Module.SrcRef.c_expAt(x1)(x13)(st)))+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_EnumFromTo x14 x15) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_srcExpr(x1)(st))(x2)(st))))(Curry.Module.SrcRef.c_expAt(x1)(x14)(st))))(Curry.Module.SrcRef.c_expAt(x1)(x15)(st)))+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_EnumFromThenTo x16 x17 x18) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_srcExpr(x1)(st))(x2)(st))))(Curry.Module.SrcRef.c_expAt(x1)(x16)(st))))(Curry.Module.SrcRef.c_expAt(x1)(x17)(st))))(Curry.Module.SrcRef.c_expAt(x1)(x18)(st)))+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_UnaryMinus x19 x20) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_srcExpr(x1)(st))(x2)(st))))(Curry.Module.SrcRef.c_expAt(x1)(x20)(st)))+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_Apply x21 x22) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_srcExpr(x1)(st))(x2)(st))))(Curry.Module.SrcRef.c_expAt(x1)(x21)(st))))(Curry.Module.SrcRef.c_expAt(x1)(x22)(st)))+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_InfixApply x23 x24 x25) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_srcExpr(x1)(st))(x2)(st))))(Curry.Module.SrcRef.c_expAt(x1)(x23)(st))))(Curry.Module.SrcRef.c_expAt(x1)(x25)(st)))+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_LeftSection x26 x27) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_srcExpr(x1)(st))(x2)(st))))(Curry.Module.SrcRef.c_expAt(x1)(x26)(st)))+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_RightSection x28 x29) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_srcExpr(x1)(st))(x2)(st))))(Curry.Module.SrcRef.c_expAt(x1)(x29)(st)))+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_Lambda x30 x31) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_srcExpr(x1)(st))(x2)(st))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x30)(st))))(Curry.Module.SrcRef.c_expAt(x1)(x31)(st)))+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_IfThenElse x32 x33 x34) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_srcExpr(x1)(st))(x2)(st))))(Curry.Module.SrcRef.c_expAt(x1)(x32)(st))))(Curry.Module.SrcRef.c_expAt(x1)(x33)(st))))(Curry.Module.SrcRef.c_expAt(x1)(x34)(st)))+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_ListCompr x35 x36) st = Curry.Module.SrcRef.c_listExpAt(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_stmtAt(x1)))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAt'46final'46223(x1)(x35)))(Curry.Module.Prelude.op_43_43(x36)((Curry.Module.Prelude.:<)(Curry.Module.CurrySyntax.C_StmtExpr(x35))(Curry.Module.Prelude.List))(st))(st)+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_Do x37 x38) st = Curry.Module.SrcRef.c_doAt(x1)(x38)(x37)(st)+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_Case x39 x40) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_srcExpr(x1)(st))(x2)(st))))(Curry.Module.SrcRef.c_expAt(x1)(x39)(st))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_altsAt(x1)(st))(x40)(st)))+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_Let x41 x42) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_srcExpr(x1)(st))(x2)(st))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_declsAt(st))(x41)(st))))(Curry.Module.SrcRef.c_expAt(x1)(x42)(st)))+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_RecordConstr x43) 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('c'))((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('1'))(Curry.Module.Prelude.List))))))))(st)+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_RecordSelection x44 x45) 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('c'))((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('2'))(Curry.Module.Prelude.List))))))))(st)+c_expAt x1 x2@(Curry.Module.CurrySyntax.C_RecordUpdate x46 x47) 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('c'))((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('3'))(Curry.Module.Prelude.List))))))))(st)+c_expAt x1 (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_expAt(x1)(x)(st))(i)(xs)(st)+c_expAt x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.expAt")(x)++++c_expAt'46final'46223 :: (Curry t3554,Curry t0,Curry t1) => (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Decl t3554) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_Equation t3554))) -> (Curry.Module.CurrySyntax.C_Expression t3554) -> (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Statement t3554)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t3554) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t1 t0))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t1 t0))+c_expAt'46final'46223 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_expAt'46final'46223 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.Prelude.op_36(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.SrcRef.c_here))(Curry.Module.Prelude.op_36(Curry.Module.SrcRef.c_srcExpr(x1)(st))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pc(Curry.Module.CurrySyntax.C_ListCompr(x2)))(Curry.Module.SrcRef.c_init(x3)(st))(st))(st))(st)+c_expAt'46final'46223 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_expAt'46final'46223(x1)(x2)(x)(st))(i)(xs)(st)+c_expAt'46final'46223 x1 x2 x st = Curry.RunTimeSystem.patternFail("SrcRef.expAt.final.223")(x)++++c_doAt :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Decl t0) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_Equation t0))) -> (Curry.Module.CurrySyntax.C_Expression t0) -> (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Statement t0)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))+c_doAt x1 x2 x3 st = Curry.Module.SrcRef.c_listExpAt(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_stmtAt(x1)))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_doAt'46maybeFinalGenerator'46251(x1)(x2)))(x3)(st)++++c_doAt'46maybeFinalGenerator'46251 :: (Curry t3596,Curry t0,Curry t1) => (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Decl t3596) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_Equation t3596))) -> (Curry.Module.CurrySyntax.C_Expression t3596) -> (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Statement t3596)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t3596) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t1 t0))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t1 t0))+c_doAt'46maybeFinalGenerator'46251 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_expAt(x1)(x2)(st)+c_doAt'46maybeFinalGenerator'46251 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_srcExpr(x1)(st))(Curry.Module.CurrySyntax.C_Do(x3)(x2))(st)))+c_doAt'46maybeFinalGenerator'46251 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_doAt'46maybeFinalGenerator'46251(x1)(x2)(x)(st))(i)(xs)(st)+c_doAt'46maybeFinalGenerator'46251 x1 x2 x st = Curry.RunTimeSystem.patternFail("SrcRef.doAt.maybeFinalGenerator.251")(x)++++c_stmtAt :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Decl t0) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_Equation t0))) -> (Curry.Module.CurrySyntax.C_Statement t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))+c_stmtAt x1 x2@(Curry.Module.CurrySyntax.C_StmtExpr x3) st = Curry.Module.SrcRef.c_expAt(x1)(x3)(st)+c_stmtAt x1 x2@(Curry.Module.CurrySyntax.C_StmtDecl x4) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_declsAt(st))(x4)(st)+c_stmtAt x1 x2@(Curry.Module.CurrySyntax.C_StmtBind x5 x6) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x5)(st))(Curry.Module.SrcRef.c_expAt(x1)(x6)(st)))+c_stmtAt x1 (Curry.Module.CurrySyntax.C_StatementOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_stmtAt(x1)(x)(st))(i)(xs)(st)+c_stmtAt x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.stmtAt")(x)++++c_altsAt :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Decl t0) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_Equation t0))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Alt t0)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1)))+c_altsAt x1 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_inListAt(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_altAt(x1))))++++c_altAt :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Decl t0) (Curry.Module.Prelude.C_Maybe (Curry.Module.CurrySyntax.C_Equation t0))) -> (Curry.Module.CurrySyntax.C_Alt t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_SrcEntity t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t2 t1))+c_altAt x1 x2@(Curry.Module.CurrySyntax.C_Alt x3 x4 x5) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcAlt(Curry.Module.SrcRef.c_altAt'46err'46269((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('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))(st))(Curry.Module.SrcRef.c_altAt'46err'46269((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('q'))(Curry.Module.Prelude.List)))(st))(x2))))(Curry.Module.SrcRef.c_conTermAt(x1)(x4)(st))))(Curry.Module.SrcRef.c_rhsAt(x1)(x5)(st)))+c_altAt x1 (Curry.Module.CurrySyntax.C_AltOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_altAt(x1)(x)(st))(i)(xs)(st)+c_altAt x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.altAt")(x)++++c_altAt'46err'46269 :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> t0+c_altAt'46err'46269 x1 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('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('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('x'))((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('r'))((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('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('a'))((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('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('t'))((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('e'))(Curry.Module.Prelude.List)))))))))))))))(st))(st))(st)++++c_ret :: (Curry t0) => t0 -> Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t0+c_ret x1 x2 st = Curry.Module.Prelude.T2(x2)(x1)++++op_46_62_62_61 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t0)) -> (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t1))) -> Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t1+op_46_62_62_61 x1 x2 x3 st = Curry.Module.SrcRef.c_'46'62'62'61_case_528(x1)(x2)(x3)(Curry.Module.Prelude.c_apply(x1)(x3)(st))(st)++++op_46_62_62 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t0)) -> (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t1)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t1)+op_46_62_62 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_const(x2))))++++c_nope :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_nope st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(Curry.Module.Prelude.C_Nothing)(Curry.Module.Prelude.List)))++++c_add :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> t0)) -> Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t0+c_add x1 x2 st = Curry.Module.Prelude.T2(Curry.Module.Prelude.op_43(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(Curry.Module.Prelude.c_apply(x1)(x2)(st))++++c_inc :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.T0+c_inc x1 x2 st = Curry.Module.Prelude.T2(Curry.Module.Prelude.op_43(x2)(x1)(st))(Curry.Module.Prelude.T0)++++c_next :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)+c_next x1 st = Curry.Module.Prelude.T2(Curry.Module.Prelude.op_43(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(Curry.Module.Prelude.C_Just(x1))++++c_this :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int+c_this x1 st = Curry.Module.Prelude.T2(x1)(x1)++++c_run :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t0)) -> Curry.RunTimeSystem.State -> t0+c_run x1 st = Curry.Module.Prelude.c_snd(Curry.Module.Prelude.c_apply(x1)(Curry.Module.Prelude.C_Zero)(st))(st)++++c_moduleAdd :: (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.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))+c_moduleAdd x1@(Curry.Module.CurrySyntax.C_Module x2 x3 x4) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_declsAdd(st))(x4)(st)+c_moduleAdd (Curry.Module.CurrySyntax.C_ModuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_moduleAdd(x)(st))(i)(xs)(st)+c_moduleAdd x st = Curry.RunTimeSystem.patternFail("SrcRef.moduleAdd")(x)++++c_declsAdd :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Decl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))+c_declsAdd st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_inListAdd(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_declAdd)))++++c_declAdd :: (Curry.Module.CurrySyntax.C_Decl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_declAdd x1@(Curry.Module.CurrySyntax.C_ImportDecl x2 x3 x4 x5 x6) st = Curry.Module.SrcRef.c_nope(st)+c_declAdd x1@(Curry.Module.CurrySyntax.C_InfixDecl x7 x8 x9 x10) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_inListAdd(Curry.Module.Prelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Prelude.c_const))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(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.SrcRef.C_Tree))(Curry.Module.Prelude.List)))(st))))(st))(x10)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree(Curry.Module.Prelude.C_Nothing)))(st)))+c_declAdd x1@(Curry.Module.CurrySyntax.C_DataDecl x11 x12 x13 x14) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_declAdd'46_'35lambda7(x14))))+c_declAdd x1@(Curry.Module.CurrySyntax.C_NewtypeDecl x15 x16 x17 x18) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_declAdd'46_'35lambda8(x18))))+c_declAdd x1@(Curry.Module.CurrySyntax.C_TypeDecl x19 x20 x21 x22) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(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.SrcRef.C_Tree))(Curry.Module.Prelude.List)))(st)))+c_declAdd x1@(Curry.Module.CurrySyntax.C_TypeSig x23 x24 x25) st = Curry.Module.SrcRef.c_nope(st)+c_declAdd x1@(Curry.Module.CurrySyntax.C_EvalAnnot x26 x27 x28) st = Curry.Module.SrcRef.c_nope(st)+c_declAdd x1@(Curry.Module.CurrySyntax.C_FunctionDecl x29 x30 x31) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_declAdd'46_'35lambda9(x31))))+c_declAdd x1@(Curry.Module.CurrySyntax.C_ExternalDecl x32 x33 x34 x35 x36) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(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.SrcRef.C_Tree))(Curry.Module.Prelude.List)))(st)))+c_declAdd x1@(Curry.Module.CurrySyntax.C_FlatExternalDecl x37 x38) st = Curry.Module.SrcRef.c_nope(st)+c_declAdd x1@(Curry.Module.CurrySyntax.C_PatternDecl x39 x40 x41) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_declAdd'46_'35lambda10(x41)(x40))))+c_declAdd x1@(Curry.Module.CurrySyntax.C_ExtraVariables x42 x43) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_inListAdd(Curry.Module.Prelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Prelude.c_const))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(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.SrcRef.C_Tree))(Curry.Module.Prelude.List)))(st))))(st))(x43)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree(Curry.Module.Prelude.C_Nothing)))(st)))+c_declAdd (Curry.Module.CurrySyntax.C_DeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_declAdd(x)(st))(i)(xs)(st)+c_declAdd x st = Curry.RunTimeSystem.patternFail("SrcRef.declAdd")(x)++++c_declAdd'46_'35lambda7 :: (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrDecl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_declAdd'46_'35lambda7 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_inListAdd(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_constrDeclAdd))(x1)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree(x2)))(st)))++++c_declAdd'46_'35lambda8 :: (Curry.Module.CurrySyntax.C_NewConstrDecl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_declAdd'46_'35lambda8 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_newConstrDeclAdd(st))(x1)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree(x2)))(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_declAdd'46_'35lambda9 :: (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Equation (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_declAdd'46_'35lambda9 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_eqsAdd(st))(x1)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree(x2)))(st)))++++c_declAdd'46_'35lambda10 :: (Curry.Module.CurrySyntax.C_Rhs (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_declAdd'46_'35lambda10 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_conTermAdd(x2)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_declAdd'46_'35lambda10'46_'35lambda11(x3)(x1))))++++c_declAdd'46_'35lambda10'46_'35lambda11 :: (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.CurrySyntax.C_Rhs (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_declAdd'46_'35lambda10'46_'35lambda11 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_rhsAdd(x2)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_declAdd'46_'35lambda10'46_'35lambda11'46_'35lambda12(x1)(x3))))++++c_declAdd'46_'35lambda10'46_'35lambda11'46_'35lambda12 :: (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_declAdd'46_'35lambda10'46_'35lambda11'46_'35lambda12 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))))++++c_constrDeclAdd :: (Curry.Module.CurrySyntax.C_ConstrDecl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_constrDeclAdd x1@(Curry.Module.CurrySyntax.C_ConstrDecl x2 x3 x4 x5) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(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.SrcRef.C_Tree))(Curry.Module.Prelude.List)))(st)))+c_constrDeclAdd x1@(Curry.Module.CurrySyntax.C_ConOpDecl x6 x7 x8 x9 x10) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(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.SrcRef.C_Tree))(Curry.Module.Prelude.List)))(st)))+c_constrDeclAdd (Curry.Module.CurrySyntax.C_ConstrDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_constrDeclAdd(x)(st))(i)(xs)(st)+c_constrDeclAdd x st = Curry.RunTimeSystem.patternFail("SrcRef.constrDeclAdd")(x)++++c_newConstrDeclAdd :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.CurrySyntax.C_NewConstrDecl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))+c_newConstrDeclAdd st = Curry.Module.Prelude.c_error((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('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('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('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('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((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('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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))(Curry.Module.Prelude.List))))))))))))))))))))))))))(st)++++c_locsAdd :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Decl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))+c_locsAdd st = Curry.Module.SrcRef.c_declsAdd(st)++++c_eqsAdd :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Equation (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))+c_eqsAdd st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_inListAdd(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_eqAdd)))++++c_eqAdd :: (Curry.Module.CurrySyntax.C_Equation (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_eqAdd x1@(Curry.Module.CurrySyntax.C_Equation x2 x3 x4) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_lhsAdd(x3)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_eqAdd'46_'35lambda13(x4))))+c_eqAdd (Curry.Module.CurrySyntax.C_EquationOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_eqAdd(x)(st))(i)(xs)(st)+c_eqAdd x st = Curry.RunTimeSystem.patternFail("SrcRef.eqAdd")(x)++++c_eqAdd'46_'35lambda13 :: (Curry.Module.CurrySyntax.C_Rhs (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_eqAdd'46_'35lambda13 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_rhsAdd(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_eqAdd'46_'35lambda13'46_'35lambda14(x2))))++++c_eqAdd'46_'35lambda13'46_'35lambda14 :: (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_eqAdd'46_'35lambda13'46_'35lambda14 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(Curry.Module.Prelude.C_Nothing)((Curry.Module.Prelude.:<)(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List)))))++++c_lhsAdd :: (Curry.Module.CurrySyntax.C_Lhs (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_lhsAdd x1@(Curry.Module.CurrySyntax.C_FunLhs x2 x3) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAdd(st))(x3)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree(Curry.Module.Prelude.C_Nothing)))(st)))+c_lhsAdd x1@(Curry.Module.CurrySyntax.C_OpLhs x4 x5 x6) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_conTermAdd(x4)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_lhsAdd'46_'35lambda15(x6))))+c_lhsAdd x1@(Curry.Module.CurrySyntax.C_ApLhs x7 x8) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_lhsAdd(x7)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_lhsAdd'46_'35lambda17(x8))))+c_lhsAdd (Curry.Module.CurrySyntax.C_LhsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_lhsAdd(x)(st))(i)(xs)(st)+c_lhsAdd x st = Curry.RunTimeSystem.patternFail("SrcRef.lhsAdd")(x)++++c_lhsAdd'46_'35lambda15 :: (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_lhsAdd'46_'35lambda15 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_conTermAdd(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_lhsAdd'46_'35lambda15'46_'35lambda16(x2))))++++c_lhsAdd'46_'35lambda15'46_'35lambda16 :: (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_lhsAdd'46_'35lambda15'46_'35lambda16 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(Curry.Module.Prelude.C_Nothing)((Curry.Module.Prelude.:<)(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List)))))++++c_lhsAdd'46_'35lambda17 :: (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_lhsAdd'46_'35lambda17 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAdd(st))(x1)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree(Curry.Module.Prelude.C_Nothing)))(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(x2)))(st))(st)))++++c_conTermAdd :: (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_conTermAdd x1@(Curry.Module.CurrySyntax.C_ParenPattern x2) st = Curry.Module.SrcRef.c_conTermAdd(x2)(st)+c_conTermAdd x1@(Curry.Module.CurrySyntax.C_LiteralPattern x3) st = Curry.Module.SrcRef.c_litAdd(x3)(st)+c_conTermAdd x1@(Curry.Module.CurrySyntax.C_NegativePattern x4 x5) st = Curry.Module.SrcRef.c_litAdd(x5)(st)+c_conTermAdd x1@(Curry.Module.CurrySyntax.C_ListPattern x6) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_listExpAdd(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_conTermAdd))(st))(x6)(st)+c_conTermAdd x1@(Curry.Module.CurrySyntax.C_VariablePattern x7) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_conTermAdd'46_'35lambda19(x1))))+c_conTermAdd x1@(Curry.Module.CurrySyntax.C_ConstructorPattern x8 x9) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_conTermAdd'46_'35lambda19(x1))))+c_conTermAdd x1@(Curry.Module.CurrySyntax.C_InfixPattern x10 x11 x12) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_conTermAdd'46_'35lambda19(x1))))+c_conTermAdd x1@(Curry.Module.CurrySyntax.C_TuplePattern x13) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_conTermAdd'46_'35lambda19(x1))))+c_conTermAdd x1@(Curry.Module.CurrySyntax.C_AsPattern x14 x15) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_conTermAdd'46_'35lambda19(x1))))+c_conTermAdd x1@(Curry.Module.CurrySyntax.C_LazyPattern x16) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_conTermAdd'46_'35lambda19(x1))))+c_conTermAdd x1@(Curry.Module.CurrySyntax.C_FunctionPattern x17 x18) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_conTermAdd'46_'35lambda19(x1))))+c_conTermAdd x1@(Curry.Module.CurrySyntax.C_InfixFuncPattern x19 x20 x21) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_conTermAdd'46_'35lambda19(x1))))+c_conTermAdd x1@(Curry.Module.CurrySyntax.C_RecordPattern x22 x23) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_conTermAdd'46_'35lambda19(x1))))+c_conTermAdd (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_conTermAdd(x)(st))(i)(xs)(st)+c_conTermAdd x st = Curry.RunTimeSystem.patternFail("SrcRef.conTermAdd")(x)++++c_conTermAdd'46_'35lambda19 :: (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_conTermAdd'46_'35lambda19 x1@(Curry.Module.CurrySyntax.C_ConstructorPattern x3 x4) x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAdd(st))(x4)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree(x2)))(st)))+c_conTermAdd'46_'35lambda19 x1@(Curry.Module.CurrySyntax.C_InfixPattern x5 x6 x7) x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_conTermAdd(x5)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_conTermAdd'46_'35lambda19'46_'35lambda21(x2)(x7))))+c_conTermAdd'46_'35lambda19 x1@(Curry.Module.CurrySyntax.C_TuplePattern x8) x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAdd(st))(x8)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree(x2)))(st)))+c_conTermAdd'46_'35lambda19 x1@(Curry.Module.CurrySyntax.C_AsPattern x9 x10) x2 st = Curry.Module.SrcRef.c_conTermAdd(x10)(st)+c_conTermAdd'46_'35lambda19 x1@(Curry.Module.CurrySyntax.C_LazyPattern x11) x2 st = Curry.Module.SrcRef.c_conTermAdd(x11)(st)+c_conTermAdd'46_'35lambda19 x1@(Curry.Module.CurrySyntax.C_FunctionPattern x12 x13) x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAdd(st))(x13)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree(x2)))(st)))+c_conTermAdd'46_'35lambda19 x1@(Curry.Module.CurrySyntax.C_InfixFuncPattern x14 x15 x16) x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_conTermAdd(x14)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_conTermAdd'46_'35lambda19'46_'35lambda23(x2)(x16))))+c_conTermAdd'46_'35lambda19 x1@(Curry.Module.CurrySyntax.C_VariablePattern x17) x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(x2)(Curry.Module.Prelude.List)))+c_conTermAdd'46_'35lambda19 x1@(Curry.Module.CurrySyntax.C_LiteralPattern x18) x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(x2)(Curry.Module.Prelude.List)))+c_conTermAdd'46_'35lambda19 x1@(Curry.Module.CurrySyntax.C_NegativePattern x19 x20) x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(x2)(Curry.Module.Prelude.List)))+c_conTermAdd'46_'35lambda19 x1@(Curry.Module.CurrySyntax.C_ParenPattern x21) x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(x2)(Curry.Module.Prelude.List)))+c_conTermAdd'46_'35lambda19 x1@(Curry.Module.CurrySyntax.C_ListPattern x22) x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(x2)(Curry.Module.Prelude.List)))+c_conTermAdd'46_'35lambda19 x1@(Curry.Module.CurrySyntax.C_RecordPattern x23 x24) x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(x2)(Curry.Module.Prelude.List)))+c_conTermAdd'46_'35lambda19 (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_conTermAdd'46_'35lambda19(x)(x2)(st))(i)(xs)(st)+c_conTermAdd'46_'35lambda19 x x2 st = Curry.RunTimeSystem.patternFail("SrcRef.conTermAdd._#lambda19")(x)++++c_conTermAdd'46_'35lambda19'46_'35lambda21 :: (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_conTermAdd'46_'35lambda19'46_'35lambda21 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_conTermAdd(x2)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_conTermAdd'46_'35lambda19'46_'35lambda21'46_'35lambda22(x1)(x3))))++++c_conTermAdd'46_'35lambda19'46_'35lambda21'46_'35lambda22 :: (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_conTermAdd'46_'35lambda19'46_'35lambda21'46_'35lambda22 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))))++++c_conTermAdd'46_'35lambda19'46_'35lambda23 :: (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_conTermAdd'46_'35lambda19'46_'35lambda23 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_conTermAdd(x2)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_conTermAdd'46_'35lambda19'46_'35lambda23'46_'35lambda24(x1)(x3))))++++c_conTermAdd'46_'35lambda19'46_'35lambda23'46_'35lambda24 :: (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_conTermAdd'46_'35lambda19'46_'35lambda23'46_'35lambda24 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))))++++c_conTermsAdd :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))+c_conTermsAdd st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_inListAdd(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_conTermAdd)))++++c_stringAdd :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((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.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))+c_stringAdd st = Curry.Module.SrcRef.c_listExpAdd(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_stringAdd'46_'35lambda25))(st)++++c_stringAdd'46_'35lambda25 :: Curry.Module.Prelude.C_Char -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_stringAdd'46_'35lambda25 x1 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(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.SrcRef.C_Tree))(Curry.Module.Prelude.List)))(st)))++++c_listExpAdd :: (Curry t0) => (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))+c_listExpAdd x1 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_listExpAdd'39(x1)(Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(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.SrcRef.C_Tree))(Curry.Module.Prelude.List)))(st)))))++++c_listExpAdd'39 :: (Curry t0) => (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))) -> (Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_listExpAdd'39 x1 x2 x3@Curry.Module.Prelude.List st = x2+c_listExpAdd'39 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_listExpAdd'39'46_'35lambda26(x2)(x1)(x4)(x5))))+c_listExpAdd'39 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_listExpAdd'39(x1)(x2)(x)(st))(i)(xs)(st)+c_listExpAdd'39 x1 x2 x st = Curry.RunTimeSystem.patternFail("SrcRef.listExpAdd'")(x)++++c_listExpAdd'39'46_'35lambda26 :: (Curry t110) => (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))) -> (Curry.Module.Prelude.Prim (t110 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> t110 -> (Curry.Module.Prelude.List t110) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_listExpAdd'39'46_'35lambda26 x1 x2 x3 x4 x5 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.c_apply(x2)(x3)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_listExpAdd'39'46_'35lambda26'46_'35lambda27(x1)(x2)(x5)(x4))))++++c_listExpAdd'39'46_'35lambda26'46_'35lambda27 :: (Curry t110) => (Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))) -> (Curry.Module.Prelude.Prim (t110 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List t110) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_listExpAdd'39'46_'35lambda26'46_'35lambda27 x1 x2 x3 x4 x5 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_listExpAdd'39(x2)(x1)(x4)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_listExpAdd'39'46_'35lambda26'46_'35lambda27'46_'35lambda28(x3)(x5))))++++c_listExpAdd'39'46_'35lambda26'46_'35lambda27'46_'35lambda28 :: (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_listExpAdd'39'46_'35lambda26'46_'35lambda27'46_'35lambda28 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))))++++c_litAdd :: Curry.Module.CurrySyntax.C_Literal -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_litAdd x1@(Curry.Module.CurrySyntax.C_String x2) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_stringAdd(st))(x2)(st)+c_litAdd x1@(Curry.Module.CurrySyntax.C_Char x3) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(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.SrcRef.C_Tree))(Curry.Module.Prelude.List)))(st)))+c_litAdd x1@(Curry.Module.CurrySyntax.C_Int x4 x5) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(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.SrcRef.C_Tree))(Curry.Module.Prelude.List)))(st)))+c_litAdd x1@(Curry.Module.CurrySyntax.C_Float x6) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(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.SrcRef.C_Tree))(Curry.Module.Prelude.List)))(st)))+c_litAdd (Curry.Module.CurrySyntax.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_litAdd(x)(st))(i)(xs)(st)+c_litAdd x st = Curry.RunTimeSystem.patternFail("SrcRef.litAdd")(x)++++c_rhsAdd :: (Curry.Module.CurrySyntax.C_Rhs (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_rhsAdd x1@(Curry.Module.CurrySyntax.C_SimpleRhs x2 x3 x4) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_rhsAdd'46_'35lambda30(x3)(x4))))+c_rhsAdd x1@(Curry.Module.CurrySyntax.C_GuardedRhs x5 x6) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_rhsAdd'46_'35lambda32(x5)(x6))))+c_rhsAdd (Curry.Module.CurrySyntax.C_RhsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_rhsAdd(x)(st))(i)(xs)(st)+c_rhsAdd x st = Curry.RunTimeSystem.patternFail("SrcRef.rhsAdd")(x)++++c_rhsAdd'46_'35lambda30 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Decl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_rhsAdd'46_'35lambda30 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_rhsAdd'46_'35lambda30'46_'35lambda31(x2)(x3))))++++c_rhsAdd'46_'35lambda30'46_'35lambda31 :: (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Decl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_rhsAdd'46_'35lambda30'46_'35lambda31 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_locsAdd(st))(x1)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree(x2)))(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(x3)))(st))(st)))++++c_rhsAdd'46_'35lambda32 :: (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_CondExpr (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Decl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_rhsAdd'46_'35lambda32 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_condsAdd(st))(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_rhsAdd'46_'35lambda32'46_'35lambda33(x2)(x3))))++++c_rhsAdd'46_'35lambda32'46_'35lambda33 :: (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Decl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_rhsAdd'46_'35lambda32'46_'35lambda33 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_locsAdd(st))(x1)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree(x2)))(Curry.Module.Prelude.pf(Curry.Module.Prelude.op_43_43(x3)))(st))(st)))++++c_condsAdd :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_CondExpr (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))+c_condsAdd st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_inListAdd(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_condAdd)))++++c_condAdd :: (Curry.Module.CurrySyntax.C_CondExpr (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_condAdd x1@(Curry.Module.CurrySyntax.C_CondExpr x2 x3 x4) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_condAdd'46_'35lambda34(x3)(x4))))+c_condAdd (Curry.Module.CurrySyntax.C_CondExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_condAdd(x)(st))(i)(xs)(st)+c_condAdd x st = Curry.RunTimeSystem.patternFail("SrcRef.condAdd")(x)++++c_condAdd'46_'35lambda34 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_condAdd'46_'35lambda34 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_condAdd'46_'35lambda34'46_'35lambda35(x2)(x3))))++++c_condAdd'46_'35lambda34'46_'35lambda35 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_condAdd'46_'35lambda34'46_'35lambda35 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_condAdd'46_'35lambda34'46_'35lambda35'46_'35lambda36(x3)(x2))))++++c_condAdd'46_'35lambda34'46_'35lambda35'46_'35lambda36 :: (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_condAdd'46_'35lambda34'46_'35lambda35'46_'35lambda36 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(x2)((Curry.Module.Prelude.:<)(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))))++++c_expsAdd :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))+c_expsAdd st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_inListAdd(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd)))++++c_expAdd :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd x1@(Curry.Module.CurrySyntax.C_Variable x2) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(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.SrcRef.C_Tree))(Curry.Module.Prelude.List)))(st)))+c_expAdd x1@(Curry.Module.CurrySyntax.C_Literal x3) st = Curry.Module.SrcRef.c_litAdd(x3)(st)+c_expAdd x1@(Curry.Module.CurrySyntax.C_Constructor x4) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(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.SrcRef.C_Tree))(Curry.Module.Prelude.List)))(st)))+c_expAdd x1@(Curry.Module.CurrySyntax.C_Paren x5) st = Curry.Module.SrcRef.c_expAdd(x5)(st)+c_expAdd x1@(Curry.Module.CurrySyntax.C_Typed x6 x7) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda37(x6))))+c_expAdd x1@(Curry.Module.CurrySyntax.C_Tuple x8) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda38(x8))))+c_expAdd x1@(Curry.Module.CurrySyntax.C_List x9) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_listExpAdd(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd))(st))(x9)(st)+c_expAdd x1@(Curry.Module.CurrySyntax.C_EnumFrom x10) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda39(x10))))+c_expAdd x1@(Curry.Module.CurrySyntax.C_EnumFromThen x11 x12) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda40(x11)(x12))))+c_expAdd x1@(Curry.Module.CurrySyntax.C_EnumFromTo x13 x14) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda43(x13)(x14))))+c_expAdd x1@(Curry.Module.CurrySyntax.C_EnumFromThenTo x15 x16 x17) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda46(x15)(x16)(x17))))+c_expAdd x1@(Curry.Module.CurrySyntax.C_UnaryMinus x18 x19) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda50(x19))))+c_expAdd x1@(Curry.Module.CurrySyntax.C_Apply x20 x21) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda51(x20)(x21))))+c_expAdd x1@(Curry.Module.CurrySyntax.C_InfixApply x22 x23 x24) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda54(x22)(x24))))+c_expAdd x1@(Curry.Module.CurrySyntax.C_LeftSection x25 x26) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda57(x25))))+c_expAdd x1@(Curry.Module.CurrySyntax.C_RightSection x27 x28) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda58(x28))))+c_expAdd x1@(Curry.Module.CurrySyntax.C_Lambda x29 x30) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda59(x29)(x30))))+c_expAdd x1@(Curry.Module.CurrySyntax.C_IfThenElse x31 x32 x33) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda62(x31)(x32)(x33))))+c_expAdd x1@(Curry.Module.CurrySyntax.C_ListCompr x34 x35) st = Curry.Module.SrcRef.c_listExpAdd'39(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_stmtAdd))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda66(x34)))))(x35)(st)+c_expAdd x1@(Curry.Module.CurrySyntax.C_Do x37 x38) st = Curry.Module.SrcRef.c_stmtsAdd(x37)(x38)(st)+c_expAdd x1@(Curry.Module.CurrySyntax.C_Case x39 x40) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda68(x40)(x39))))+c_expAdd x1@(Curry.Module.CurrySyntax.C_Let x41 x42) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda70(x41)(x42))))+c_expAdd x1@(Curry.Module.CurrySyntax.C_RecordConstr x43) st = Curry.Module.Prelude.c_error((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('d'))((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('c'))((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('1'))(Curry.Module.Prelude.List))))))))))))(st)+c_expAdd x1@(Curry.Module.CurrySyntax.C_RecordSelection x44 x45) st = Curry.Module.Prelude.c_error((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('d'))((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('c'))((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('2'))(Curry.Module.Prelude.List))))))))))))(st)+c_expAdd x1@(Curry.Module.CurrySyntax.C_RecordUpdate x46 x47) st = Curry.Module.Prelude.c_error((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('d'))((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('c'))((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('3'))(Curry.Module.Prelude.List))))))))))))(st)+c_expAdd (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_expAdd(x)(st))(i)(xs)(st)+c_expAdd x st = Curry.RunTimeSystem.patternFail("SrcRef.expAdd")(x)++++c_expAdd'46_'35lambda37 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda37 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree(x2)))(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_expAdd'46_'35lambda38 :: (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda38 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_expsAdd(st))(x1)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree(x2)))(st)))++++c_expAdd'46_'35lambda39 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda39 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree(x2)))(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_expAdd'46_'35lambda40 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda40 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda40'46_'35lambda41(x2)(x3))))++++c_expAdd'46_'35lambda40'46_'35lambda41 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda40'46_'35lambda41 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda40'46_'35lambda41'46_'35lambda42(x3)(x2))))++++c_expAdd'46_'35lambda40'46_'35lambda41'46_'35lambda42 :: (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda40'46_'35lambda41'46_'35lambda42 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(x2)((Curry.Module.Prelude.:<)(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))))++++c_expAdd'46_'35lambda43 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda43 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda43'46_'35lambda44(x2)(x3))))++++c_expAdd'46_'35lambda43'46_'35lambda44 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda43'46_'35lambda44 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda43'46_'35lambda44'46_'35lambda45(x3)(x2))))++++c_expAdd'46_'35lambda43'46_'35lambda44'46_'35lambda45 :: (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda43'46_'35lambda44'46_'35lambda45 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(x2)((Curry.Module.Prelude.:<)(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))))++++c_expAdd'46_'35lambda46 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda46 x1 x2 x3 x4 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda46'46_'35lambda47(x2)(x3)(x4))))++++c_expAdd'46_'35lambda46'46_'35lambda47 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda46'46_'35lambda47 x1 x2 x3 x4 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda46'46_'35lambda47'46_'35lambda48(x4)(x2)(x3))))++++c_expAdd'46_'35lambda46'46_'35lambda47'46_'35lambda48 :: (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda46'46_'35lambda47'46_'35lambda48 x1 x2 x3 x4 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x2)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda46'46_'35lambda47'46_'35lambda48'46_'35lambda49(x1)(x4)(x3))))++++c_expAdd'46_'35lambda46'46_'35lambda47'46_'35lambda48'46_'35lambda49 :: (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda46'46_'35lambda47'46_'35lambda48'46_'35lambda49 x1 x2 x3 x4 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(x3)((Curry.Module.Prelude.:<)(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))))))++++c_expAdd'46_'35lambda50 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda50 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree(x2)))(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_expAdd'46_'35lambda51 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda51 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda51'46_'35lambda52(x2)(x3))))++++c_expAdd'46_'35lambda51'46_'35lambda52 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda51'46_'35lambda52 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda51'46_'35lambda52'46_'35lambda53(x3)(x2))))++++c_expAdd'46_'35lambda51'46_'35lambda52'46_'35lambda53 :: (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda51'46_'35lambda52'46_'35lambda53 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(x2)((Curry.Module.Prelude.:<)(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))))++++c_expAdd'46_'35lambda54 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda54 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda54'46_'35lambda55(x2)(x3))))++++c_expAdd'46_'35lambda54'46_'35lambda55 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda54'46_'35lambda55 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda54'46_'35lambda55'46_'35lambda56(x3)(x2))))++++c_expAdd'46_'35lambda54'46_'35lambda55'46_'35lambda56 :: (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda54'46_'35lambda55'46_'35lambda56 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(x2)((Curry.Module.Prelude.:<)(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))))++++c_expAdd'46_'35lambda57 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda57 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree(x2)))(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_expAdd'46_'35lambda58 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda58 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree(x2)))(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_expAdd'46_'35lambda59 :: (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda59 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAdd(st))(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda59'46_'35lambda60(x2)(x3))))++++c_expAdd'46_'35lambda59'46_'35lambda60 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda59'46_'35lambda60 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda59'46_'35lambda60'46_'35lambda61(x3)(x2))))++++c_expAdd'46_'35lambda59'46_'35lambda60'46_'35lambda61 :: (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda59'46_'35lambda60'46_'35lambda61 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(x2)((Curry.Module.Prelude.:<)(Curry.Module.SrcRef.C_Tree(Curry.Module.Prelude.C_Nothing)(x1))((Curry.Module.Prelude.:<)(Curry.Module.SrcRef.C_Tree(Curry.Module.Prelude.C_Nothing)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(Curry.Module.Prelude.List)))))++++c_expAdd'46_'35lambda62 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda62 x1 x2 x3 x4 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda62'46_'35lambda63(x2)(x3)(x4))))++++c_expAdd'46_'35lambda62'46_'35lambda63 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda62'46_'35lambda63 x1 x2 x3 x4 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda62'46_'35lambda63'46_'35lambda64(x4)(x2)(x3))))++++c_expAdd'46_'35lambda62'46_'35lambda63'46_'35lambda64 :: (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda62'46_'35lambda63'46_'35lambda64 x1 x2 x3 x4 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x2)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda62'46_'35lambda63'46_'35lambda64'46_'35lambda65(x1)(x4)(x3))))++++c_expAdd'46_'35lambda62'46_'35lambda63'46_'35lambda64'46_'35lambda65 :: (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda62'46_'35lambda63'46_'35lambda64'46_'35lambda65 x1 x2 x3 x4 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(x3)((Curry.Module.Prelude.:<)(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))))))++++c_expAdd'46_'35lambda66 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda66 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda66'46_'35lambda67(x2))))++++c_expAdd'46_'35lambda66'46_'35lambda67 :: (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda66'46_'35lambda67 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))))++++c_expAdd'46_'35lambda68 :: (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Alt (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda68 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x2)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda68'46_'35lambda69(x1)(x3))))++++c_expAdd'46_'35lambda68'46_'35lambda69 :: (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Alt (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda68'46_'35lambda69 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_altsAdd(st))(x1)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree(x2)))(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(x3)))(st))(st)))++++c_expAdd'46_'35lambda70 :: (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Decl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda70 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_declsAdd(st))(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda70'46_'35lambda71(x2)(x3))))++++c_expAdd'46_'35lambda70'46_'35lambda71 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda70'46_'35lambda71 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_expAdd'46_'35lambda70'46_'35lambda71'46_'35lambda72(x3)(x2))))++++c_expAdd'46_'35lambda70'46_'35lambda71'46_'35lambda72 :: (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_expAdd'46_'35lambda70'46_'35lambda71'46_'35lambda72 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(x2)(Curry.Module.Prelude.op_43_43(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(st))))++++c_stmtsAdd :: (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Statement (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_stmtsAdd x1 x2 st = Curry.Module.SrcRef.c_listExpAdd'39(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_stmtAdd))(Curry.Module.SrcRef.c_expAdd(x2)(st))(x1)(st)++++c_stmtAdd :: (Curry.Module.CurrySyntax.C_Statement (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_stmtAdd x1@(Curry.Module.CurrySyntax.C_StmtExpr x2) st = Curry.Module.SrcRef.c_expAdd(x2)(st)+c_stmtAdd x1@(Curry.Module.CurrySyntax.C_StmtDecl x3) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_declsAdd(st))(x3)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree(Curry.Module.Prelude.C_Nothing)))(st)))+c_stmtAdd x1@(Curry.Module.CurrySyntax.C_StmtBind x4 x5) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_conTermAdd(x4)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_stmtAdd'46_'35lambda73(x5))))+c_stmtAdd (Curry.Module.CurrySyntax.C_StatementOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_stmtAdd(x)(st))(i)(xs)(st)+c_stmtAdd x st = Curry.RunTimeSystem.patternFail("SrcRef.stmtAdd")(x)++++c_stmtAdd'46_'35lambda73 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_stmtAdd'46_'35lambda73 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_expAdd(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_stmtAdd'46_'35lambda73'46_'35lambda74(x2))))++++c_stmtAdd'46_'35lambda73'46_'35lambda74 :: (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_stmtAdd'46_'35lambda73'46_'35lambda74 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(Curry.Module.Prelude.C_Nothing)((Curry.Module.Prelude.:<)(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List)))))++++c_altsAdd :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Alt (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))+c_altsAdd st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_inListAdd(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_altAdd)))++++c_altAdd :: (Curry.Module.CurrySyntax.C_Alt (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_altAdd x1@(Curry.Module.CurrySyntax.C_Alt x2 x3 x4) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_next))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_altAdd'46_'35lambda75(x3)(x4))))+c_altAdd (Curry.Module.CurrySyntax.C_AltOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_altAdd(x)(st))(i)(xs)(st)+c_altAdd x st = Curry.RunTimeSystem.patternFail("SrcRef.altAdd")(x)++++c_altAdd'46_'35lambda75 :: (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.CurrySyntax.C_Rhs (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_altAdd'46_'35lambda75 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_conTermAdd(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_altAdd'46_'35lambda75'46_'35lambda76(x3)(x2))))++++c_altAdd'46_'35lambda75'46_'35lambda76 :: (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.CurrySyntax.C_Rhs (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_altAdd'46_'35lambda75'46_'35lambda76 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_rhsAdd(x2)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_altAdd'46_'35lambda75'46_'35lambda76'46_'35lambda77(x3)(x1))))++++c_altAdd'46_'35lambda75'46_'35lambda76'46_'35lambda77 :: (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_altAdd'46_'35lambda75'46_'35lambda76'46_'35lambda77 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.SrcRef.C_Tree(x2)((Curry.Module.Prelude.:<)(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))))++++c_inListAdd :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t1))) -> (Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.List t1))+c_inListAdd x1 x2@Curry.Module.Prelude.List st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_ret(Curry.Module.Prelude.List))+c_inListAdd x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.Prelude.c_apply(x1)(x3)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_inListAdd'46_'35lambda78(x1)(x4))))+c_inListAdd x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_inListAdd(x1)(x)(st))(i)(xs)(st)+c_inListAdd x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.inListAdd")(x)++++c_inListAdd'46_'35lambda78 :: (Curry t87,Curry t93) => (Curry.Module.Prelude.Prim (t87 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t93))) -> (Curry.Module.Prelude.List t87) -> t93 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.List t93))+c_inListAdd'46_'35lambda78 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_46_62_62_61(Curry.Module.SrcRef.c_inListAdd(x1)(x2)(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ret))(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(x3)))(st)))++++c_adrMap :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t1)) -> (Curry.Module.SrcRef.C_AdrTree t0) -> Curry.RunTimeSystem.State -> Curry.Module.SrcRef.C_AdrTree t1+c_adrMap x1 x2@(Curry.Module.SrcRef.C_Tree x3 x4) st = Curry.Module.SrcRef.C_Tree(Curry.Module.Prelude.c_apply(x1)(x3)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_adrMap(x1)))(x4)(st))+c_adrMap x1 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_adrMap(x1)(x)(st))(i)(xs)(st)+c_adrMap x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.adrMap")(x)++++c_ltQN :: (Curry.Module.Prelude.C_Either (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_Either (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_ltQN x1@(Curry.Module.Prelude.C_Left x3) x2 st = Curry.Module.SrcRef.c_ltQN_case_527(x3)(x2)(st)+c_ltQN x1@(Curry.Module.Prelude.C_Right x6) x2 st = Curry.Module.SrcRef.c_ltQN_case_526(x6)(x2)(st)+c_ltQN (Curry.Module.Prelude.C_EitherOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_ltQN(x)(x2)(st))(i)(xs)(st)+c_ltQN x x2 st = Curry.RunTimeSystem.patternFail("SrcRef.ltQN")(x)++++c_mkMap :: (Curry.Module.CurrySyntax.C_Module (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.C_Either (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.T2 (Curry.Module.CurrySyntax.C_Decl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_mkMap x1@(Curry.Module.CurrySyntax.C_Module x2 x3 x4) st = Curry.Module.Prelude.c_foldr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_mkMap'46addDecl'46634))(Curry.Module.FiniteMap.c_emptyFM(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_ltQN))(st))(Curry.Module.Prelude.c_zip(x4)(Curry.Module.SrcRef.c_run(Curry.Module.SrcRef.c_moduleAdd(x1)(st))(st))(st))(st)+c_mkMap (Curry.Module.CurrySyntax.C_ModuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_mkMap(x)(st))(i)(xs)(st)+c_mkMap x st = Curry.RunTimeSystem.patternFail("SrcRef.mkMap")(x)++++c_mkMap'46addDecl'46634 :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Decl t0) t1) -> (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.C_Either (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) t2) (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Decl t0) t1)) -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.C_Either (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) t2) (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Decl t0) t1)+c_mkMap'46addDecl'46634 x1 x2 st = Curry.Module.SrcRef.c_mkMap'46addDecl'46634_case_524(x1)(x2)(Curry.Module.Prelude.c_fst(x1)(st))(st)++++c_lookupTM :: (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.FiniteMap.C_FM (Curry.Module.Prelude.C_Either (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.T2 (Curry.Module.CurrySyntax.C_Decl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Decl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_lookupTM x1 x2 x3 st = Curry.Module.FiniteMap.c_lookupFM(x3)(Curry.Module.SrcRef.c_lookupTM_case_520(x1)(x2)(Curry.Module.Prelude.op_61_61(x1)(Curry.Module.Prelude.c_fst(x2)(st))(st))(st))(st)++++c_zipFlatCy :: Curry.Module.FlatCurry.C_Prog -> (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.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))+c_zipFlatCy x1@(Curry.Module.FlatCurry.C_Prog x3 x4 x5 x6 x7) x2 st = let {x8 = Curry.Module.SrcRef.c_mkMap(x2)(st)} in let {x10 = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_unzip'39))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_zipFunc(x8)(x3)))(x6)(st))(st))(Curry.Module.Prelude.List)(st)} in Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_map(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipType(x8)(x3)))(Curry.Module.FlatCurryGoodies.c_typeName(st))(st))(x5)(st))(Curry.Module.SrcRef.c_zipLiftFuncs(Curry.Module.SrcRef.c_zipFlatCy'46_'35selFP4'35lifts(x10)(st))(x6)(Curry.Module.SrcRef.c_zipFlatCy'46_'35selFP3'35zippedFuncs(x10)(st))(st))(st)+c_zipFlatCy (Curry.Module.FlatCurry.C_ProgOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipFlatCy(x)(x2)(st))(i)(xs)(st)+c_zipFlatCy x x2 st = Curry.RunTimeSystem.patternFail("SrcRef.zipFlatCy")(x)++++c_zipFlatCy'46_'35selFP3'35zippedFuncs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.C_Maybe (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.C_Maybe (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)))+c_zipFlatCy'46_'35selFP3'35zippedFuncs x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_zipFlatCy'46_'35selFP3'35zippedFuncs (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipFlatCy'46_'35selFP3'35zippedFuncs(x)(st))(i)(xs)(st)+c_zipFlatCy'46_'35selFP3'35zippedFuncs x st = Curry.RunTimeSystem.patternFail("SrcRef.zipFlatCy._#selFP3#zippedFuncs")(x)++++c_zipFlatCy'46_'35selFP4'35lifts :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.C_Maybe (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))+c_zipFlatCy'46_'35selFP4'35lifts x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_zipFlatCy'46_'35selFP4'35lifts (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipFlatCy'46_'35selFP4'35lifts(x)(st))(i)(xs)(st)+c_zipFlatCy'46_'35selFP4'35lifts x st = Curry.RunTimeSystem.patternFail("SrcRef.zipFlatCy._#selFP4#lifts")(x)++++c_tot :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))+c_tot st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_adrMap(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_maybe(Curry.Module.Prelude.List)(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))))))++++c_zipType :: (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.C_Either (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.T2 (Curry.Module.CurrySyntax.C_Decl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe 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.RunTimeSystem.State -> Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)+c_zipType x1 x2 x3 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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((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('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(x3)(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('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.SrcRef.c_tot(st))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_snd))(st))(Curry.Module.SrcRef.c_lookupTM(x2)(x3)(x1)(st))(st)++++c_zipFunc :: (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.C_Either (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.T2 (Curry.Module.CurrySyntax.C_Decl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_FuncDecl -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.C_Maybe (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))+c_zipFunc x1 x2 x3 x4 st = Curry.Module.Prelude.c_maybe(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Nothing)(Curry.Module.Prelude.List))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipFunc'46_'35lambda81(x3)(x4)))(Curry.Module.SrcRef.c_lookupTM(x2)(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcName(st))(x3)(st))(x1)(st))(st)++++c_zipFunc'46_'35lambda81 :: Curry.Module.FlatCurry.C_FuncDecl -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Decl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.C_Maybe (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))+c_zipFunc'46_'35lambda81 x1 x2 x3 st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.op_36_94(Curry.Module.Prelude.pc(Curry.Module.Prelude.C_Just))(Curry.Module.SrcRef.c_zipBody(x1)(x3)(st))(st))(x2)(st)++++c_zipBody :: Curry.Module.FlatCurry.C_FuncDecl -> (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Decl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))+c_zipBody x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.SrcRef.c_zipBody_case_519(x1)(x4)(x3)(st)+c_zipBody x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBody(x1)(x)(st))(i)(xs)(st)+c_zipBody x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBody")(x)++++c_zipBody'46cterms'46679 :: (Curry.Module.CurrySyntax.C_Lhs (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))+c_zipBody'46cterms'46679 x1@(Curry.Module.CurrySyntax.C_FunLhs x2 x3) st = x3+c_zipBody'46cterms'46679 x1@(Curry.Module.CurrySyntax.C_OpLhs x4 x5 x6) st = (Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))+c_zipBody'46cterms'46679 x1@(Curry.Module.CurrySyntax.C_ApLhs x7 x8) st = Curry.Module.Prelude.op_43_43(Curry.Module.SrcRef.c_zipBody'46cterms'46679(x7)(st))(x8)(st)+c_zipBody'46cterms'46679 (Curry.Module.CurrySyntax.C_LhsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBody'46cterms'46679(x)(st))(i)(xs)(st)+c_zipBody'46cterms'46679 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBody.cterms.679")(x)++++c_zipBody'46patRhsTree'46679 :: (Curry.Module.CurrySyntax.C_Equation (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Rhs (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_zipBody'46patRhsTree'46679 x1@(Curry.Module.CurrySyntax.C_Equation x3 x4 x5) x2 st = Curry.Module.SrcRef.c_zipBody'46patRhsTree'46679_case_516(x4)(x5)(x2)(st)+c_zipBody'46patRhsTree'46679 (Curry.Module.CurrySyntax.C_EquationOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBody'46patRhsTree'46679(x)(x2)(st))(i)(xs)(st)+c_zipBody'46patRhsTree'46679 x x2 st = Curry.RunTimeSystem.patternFail("SrcRef.zipBody.patRhsTree.679")(x)++++c_caseCascade :: 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_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Rhs (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))))))+c_caseCascade 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.pf))))(Curry.Module.SrcRef.c_caseCascade'39(Curry.Module.Prelude.C_Zero)(Curry.Module.Prelude.C_True))++++c_caseCascade'39 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_Expr -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Rhs (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))+c_caseCascade'39 x1 x2 x3 x4 x5 st = let {x6 = Curry.Module.SrcRef.c_caseCascade'39_case_505(x4)(x5)(st)} in Curry.Module.SrcRef.c_caseCascade'39_case_512(x1)(x2)(x3)(x5)(x6)(x4)(st)++++c_caseCascade'39'46fidx'46697 :: (Curry t0) => (Curry.Module.CurrySyntax.C_ConstrTerm t0) -> 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.C_Int)+c_caseCascade'39'46fidx'46697 x1 st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_maybe(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('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))(Curry.Module.Prelude.List)))))(st))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))))(Curry.Module.List.c_findIndex(Curry.Module.Prelude.pf(Curry.Module.Prelude.op_61_61(Curry.Module.SrcRef.c_flatConsName(x1)(st))))(st))(st)++++c_caseCascade'39'46srt'46697 :: (Curry t0,Curry t1,Curry t2,Curry t3,Curry t4,Curry t5,Curry t6,Curry t7) => Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_BranchExpr) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm t0)) t1) (Curry.Module.Prelude.T2 t2 t3)) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm t4)) t5) (Curry.Module.Prelude.T2 t6 t7)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_caseCascade'39'46srt'46697 x1 x2 x3@(Curry.Module.Prelude.T2 x5 x6) x4 st = Curry.Module.SrcRef.c_caseCascade'39'46srt'46697_case_496(x1)(x2)(x4)(x6)(x5)(st)+c_caseCascade'39'46srt'46697 x1 x2 (Curry.Module.Prelude.T2Or i xs) x4 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39'46srt'46697(x1)(x2)(x)(x4)(st))(i)(xs)(st)+c_caseCascade'39'46srt'46697 x1 x2 x x4 st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'.srt.697")(x)++++c_caseCascade'39'46grp'46697 :: (Curry t0,Curry t1,Curry t2,Curry t3,Curry t4,Curry t5,Curry t6,Curry t7) => Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm t0)) t1) (Curry.Module.Prelude.T2 t2 t3)) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm t4)) t5) (Curry.Module.Prelude.T2 t6 t7)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_caseCascade'39'46grp'46697 x1 x2@(Curry.Module.Prelude.T2 x4 x5) x3 st = Curry.Module.SrcRef.c_caseCascade'39'46grp'46697_case_491(x1)(x3)(x5)(x4)(st)+c_caseCascade'39'46grp'46697 x1 (Curry.Module.Prelude.T2Or i xs) x3 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39'46grp'46697(x1)(x)(x3)(st))(i)(xs)(st)+c_caseCascade'39'46grp'46697 x1 x x3 st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'.grp.697")(x)++++c_flatConsName :: (Curry t0) => (Curry.Module.CurrySyntax.C_ConstrTerm t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_flatConsName x1@(Curry.Module.CurrySyntax.C_LiteralPattern x2) st = Curry.Module.SrcRef.c_flatConsName_case_486(x2)(st)+c_flatConsName x1@(Curry.Module.CurrySyntax.C_ConstructorPattern x10 x11) st = Curry.Module.SrcRef.c_identName(x10)(st)+c_flatConsName x1@(Curry.Module.CurrySyntax.C_TuplePattern x12) st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_replicate(Curry.Module.Prelude.op_45(Curry.Module.Prelude.c_length(x12)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(Curry.Module.Prelude.C_Char(','))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st))+c_flatConsName x1@(Curry.Module.CurrySyntax.C_ListPattern x13) st = Curry.Module.SrcRef.c_flatConsName_case_484(x13)(st)+c_flatConsName x1@(Curry.Module.CurrySyntax.C_InfixPattern x16 x17 x18) st = Curry.Module.SrcRef.c_identName(x17)(st)+c_flatConsName x1@(Curry.Module.CurrySyntax.C_ParenPattern x19) st = Curry.Module.SrcRef.c_flatConsName(x19)(st)+c_flatConsName (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_flatConsName(x)(st))(i)(xs)(st)+c_flatConsName x st = Curry.RunTimeSystem.patternFail("SrcRef.flatConsName")(x)++++c_identName :: Curry.Module.CurrySyntax.C_QualIdent -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_identName x1@(Curry.Module.CurrySyntax.C_UnqualIdent x2) st = Curry.Module.SrcRef.c_identName_case_483(x2)(st)+c_identName x1@(Curry.Module.CurrySyntax.C_QualIdent x5 x6) st = Curry.Module.SrcRef.c_identName_case_482(x6)(st)+c_identName (Curry.Module.CurrySyntax.C_QualIdentOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_identName(x)(st))(i)(xs)(st)+c_identName x st = Curry.RunTimeSystem.patternFail("SrcRef.identName")(x)++++c_opName :: Curry.Module.CurrySyntax.C_InfixOp -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_opName x1 st = Curry.Module.SrcRef.c_identName(Curry.Module.SrcRef.c_opIdent(x1)(st))(st)++++c_opIdent :: Curry.Module.CurrySyntax.C_InfixOp -> Curry.RunTimeSystem.State -> Curry.Module.CurrySyntax.C_QualIdent+c_opIdent x1@(Curry.Module.CurrySyntax.C_InfixOp x2) st = x2+c_opIdent x1@(Curry.Module.CurrySyntax.C_InfixConstr x3) st = x3+c_opIdent (Curry.Module.CurrySyntax.C_InfixOpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_opIdent(x)(st))(i)(xs)(st)+c_opIdent x st = Curry.RunTimeSystem.patternFail("SrcRef.opIdent")(x)++++c_conArgs :: (Curry t0) => (Curry.Module.CurrySyntax.C_ConstrTerm t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm t0)+c_conArgs x1@(Curry.Module.CurrySyntax.C_ConstructorPattern x2 x3) st = x3+c_conArgs x1@(Curry.Module.CurrySyntax.C_TuplePattern x4) st = x4+c_conArgs x1@(Curry.Module.CurrySyntax.C_VariablePattern x5) st = Curry.Module.Prelude.c_error((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('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('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('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.:<)(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('i'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))(st)+c_conArgs x1@(Curry.Module.CurrySyntax.C_ParenPattern x6) st = Curry.Module.SrcRef.c_conArgs(x6)(st)+c_conArgs x1@(Curry.Module.CurrySyntax.C_LiteralPattern x7) st = Curry.Module.SrcRef.c_conArgs_case_481(x7)(st)+c_conArgs x1@(Curry.Module.CurrySyntax.C_NegativePattern x15 x16) st = Curry.Module.Prelude.List+c_conArgs x1@(Curry.Module.CurrySyntax.C_ListPattern x17) st = Curry.Module.SrcRef.c_conArgs_case_479(x17)(st)+c_conArgs x1@(Curry.Module.CurrySyntax.C_InfixPattern x20 x21 x22) st = (Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))+c_conArgs x1@(Curry.Module.CurrySyntax.C_AsPattern x23 x24) st = Curry.Module.SrcRef.c_conArgs(x24)(st)+c_conArgs (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_conArgs(x)(st))(i)(xs)(st)+c_conArgs x st = Curry.RunTimeSystem.patternFail("SrcRef.conArgs")(x)++++c_isVarPat :: (Curry t0) => (Curry.Module.CurrySyntax.C_ConstrTerm t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isVarPat x1@(Curry.Module.CurrySyntax.C_VariablePattern x2) st = Curry.Module.Prelude.C_True+c_isVarPat x1@(Curry.Module.CurrySyntax.C_LiteralPattern x3) st = Curry.Module.Prelude.C_False+c_isVarPat x1@(Curry.Module.CurrySyntax.C_NegativePattern x4 x5) st = Curry.Module.Prelude.C_False+c_isVarPat x1@(Curry.Module.CurrySyntax.C_ConstructorPattern x6 x7) st = Curry.Module.Prelude.C_False+c_isVarPat x1@(Curry.Module.CurrySyntax.C_InfixPattern x8 x9 x10) st = Curry.Module.Prelude.C_False+c_isVarPat x1@(Curry.Module.CurrySyntax.C_ParenPattern x11) st = Curry.Module.Prelude.C_False+c_isVarPat x1@(Curry.Module.CurrySyntax.C_TuplePattern x12) st = Curry.Module.Prelude.C_False+c_isVarPat x1@(Curry.Module.CurrySyntax.C_ListPattern x13) st = Curry.Module.Prelude.C_False+c_isVarPat x1@(Curry.Module.CurrySyntax.C_AsPattern x14 x15) st = Curry.Module.Prelude.C_False+c_isVarPat x1@(Curry.Module.CurrySyntax.C_LazyPattern x16) st = Curry.Module.Prelude.C_False+c_isVarPat x1@(Curry.Module.CurrySyntax.C_FunctionPattern x17 x18) st = Curry.Module.Prelude.C_False+c_isVarPat x1@(Curry.Module.CurrySyntax.C_InfixFuncPattern x19 x20 x21) st = Curry.Module.Prelude.C_False+c_isVarPat x1@(Curry.Module.CurrySyntax.C_RecordPattern x22 x23) st = Curry.Module.Prelude.C_False+c_isVarPat (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_isVarPat(x)(st))(i)(xs)(st)+c_isVarPat x st = Curry.RunTimeSystem.patternFail("SrcRef.isVarPat")(x)++++c_zipBranches :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_BranchExpr) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Rhs (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))+c_zipBranches x1 x2 x3 x4 x5 x6 st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_unzip'39))(Curry.Module.SrcRef.c_zipBranches'46zipWith'39'46829(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_zipBranches'46zipper'46829(x2)(x3)(x4)))(x5)(x6)(st))(st)++++c_zipBranches'46allRef'46829 :: Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_BranchExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))+c_zipBranches'46allRef'46829 x1 x2@(Curry.Module.FlatCurry.C_Branch x3 x4) st = let {x5 = Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List)))} in Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zir(Curry.Module.Prelude.c_apply(x5)((Curry.Module.Prelude.:<)(Curry.Module.FlatCurryGoodies.c_trExpr(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipBranches'46allRef'46829'46v'46866(x5)))(Curry.Module.Prelude.c_error((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('R'))((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(':'))((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('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('l'))(Curry.Module.Prelude.List))))))))))))))))(st))(Curry.Module.Prelude.c_error((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('R'))((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(':'))((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.List)))))))))))))(st))(Curry.Module.Prelude.c_error((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('R'))((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(':'))((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.List))))))))))))(st))(Curry.Module.Prelude.c_error((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('R'))((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(':'))((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))(Curry.Module.Prelude.c_error((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('R'))((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(':'))((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.List)))))))))))(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.pf))))(Curry.Module.SrcRef.c_zipBranches'46allRef'46829'46ca'46866(x5)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_zipBranches'46allRef'46829'46br'46866))(x4)(st))(Curry.Module.Prelude.List))(st)))+c_zipBranches'46allRef'46829 x1 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBranches'46allRef'46829(x1)(x)(st))(i)(xs)(st)+c_zipBranches'46allRef'46829 x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBranches.allRef.829")(x)++++c_zipBranches'46allRef'46829'46v'46866 :: (Curry t0) => (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> t0 -> Curry.RunTimeSystem.State -> Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)+c_zipBranches'46allRef'46829'46v'46866 x1 x2 st = Curry.Module.Prelude.c_apply(x1)(Curry.Module.Prelude.List)(st)++++c_zipBranches'46allRef'46829'46ca'46866 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> t0 -> t1 -> (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)+c_zipBranches'46allRef'46829'46ca'46866 x1 x2 x3 x4 st = Curry.Module.Prelude.c_apply(x1)(x4)(st)++++c_zipBranches'46allRef'46829'46br'46866 :: (Curry t0,Curry t1) => t0 -> t1 -> Curry.RunTimeSystem.State -> t1+c_zipBranches'46allRef'46829'46br'46866 x1 x2 st = x2++++c_zipBranches'46zipWith'39'46829 :: (Curry t0) => Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_BranchExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))))) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_BranchExpr) -> (Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))))+c_zipBranches'46zipWith'39'46829 x1 x2 x3@Curry.Module.Prelude.List x4 st = Curry.Module.SrcRef.c_zipBranches'46zipWith'39'46829_case_478(x4)(st)+c_zipBranches'46zipWith'39'46829 x1 x2 x3@((Curry.Module.Prelude.:<) x5 x6) x4 st = Curry.Module.SrcRef.c_zipBranches'46zipWith'39'46829_case_477(x1)(x2)(x3)(x5)(x6)(x4)(st)+c_zipBranches'46zipWith'39'46829 x1 x2 (Curry.Module.Prelude.ListOr i xs) x4 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBranches'46zipWith'39'46829(x1)(x2)(x)(x4)(st))(i)(xs)(st)+c_zipBranches'46zipWith'39'46829 x1 x2 x x4 st = Curry.RunTimeSystem.patternFail("SrcRef.zipBranches.zipWith'.829")(x)++++c_zipBranches'46zipper'46829 :: Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_BranchExpr -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Rhs (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))+c_zipBranches'46zipper'46829 x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Branch x6 x7) x5 st = let {x8 = Curry.Module.Prelude.c_unzip(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46modPrt'46841(x1)))(x5)(st))(st)} in Curry.Module.SrcRef.op_36_94(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree(Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46_'35selFP6'35is(x8)(st))))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_caseCascade(st))(Curry.Module.Prelude.op_43_43(x2)(Curry.Module.Prelude.op_43_43(Curry.Module.SrcRef.c_zipBranches'46zipper'46829_case_476(x6)(st))(x3)(st))(st))(st))(x7)(st))(Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46_'35selFP7'35prts'39(x8)(st))(st))(st)+c_zipBranches'46zipper'46829 x1 x2 x3 (Curry.Module.FlatCurry.C_BranchExprOr i xs) x5 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBranches'46zipper'46829(x1)(x2)(x3)(x)(x5)(st))(i)(xs)(st)+c_zipBranches'46zipper'46829 x1 x2 x3 x x5 st = Curry.RunTimeSystem.patternFail("SrcRef.zipBranches.zipper.829")(x)++++c_zipBranches'46zipper'46829'46modPrt'46841 :: (Curry t0,Curry t1,Curry t2,Curry t3) => Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm t0)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe t1))) (Curry.Module.Prelude.T2 t2 t3)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 t1 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm t0)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe t1))) (Curry.Module.Prelude.T2 t2 t3))+c_zipBranches'46zipper'46829'46modPrt'46841 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46modPrt'46841_case_475(x1)(x4)(x3)(st)+c_zipBranches'46zipper'46829'46modPrt'46841 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46modPrt'46841(x1)(x)(st))(i)(xs)(st)+c_zipBranches'46zipper'46829'46modPrt'46841 x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBranches.zipper.829.modPrt.841")(x)++++c_zipBranches'46zipper'46829'46_'35selFP6'35is :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Rhs (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_zipBranches'46zipper'46829'46_'35selFP6'35is x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_zipBranches'46zipper'46829'46_'35selFP6'35is (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46_'35selFP6'35is(x)(st))(i)(xs)(st)+c_zipBranches'46zipper'46829'46_'35selFP6'35is x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBranches.zipper.829._#selFP6#is")(x)++++c_zipBranches'46zipper'46829'46_'35selFP7'35prts'39 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Rhs (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Rhs (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))+c_zipBranches'46zipper'46829'46_'35selFP7'35prts'39 x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_zipBranches'46zipper'46829'46_'35selFP7'35prts'39 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46_'35selFP7'35prts'39(x)(st))(i)(xs)(st)+c_zipBranches'46zipper'46829'46_'35selFP7'35prts'39 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBranches.zipper.829._#selFP7#prts'")(x)++++c_zipRhs :: Curry.Module.FlatCurry.C_Expr -> (Curry.Module.CurrySyntax.C_Rhs (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))+c_zipRhs x1 x2@(Curry.Module.CurrySyntax.C_SimpleRhs x4 x5 x6) x3 st = Curry.Module.SrcRef.c_zipRhs_case_466(x1)(x3)(x5)(x6)(st)+c_zipRhs x1 x2@(Curry.Module.CurrySyntax.C_GuardedRhs x22 x23) x3 st = Curry.Module.SrcRef.c_zipRhs_case_458(x1)(x3)(x22)(x23)(st)+c_zipRhs x1 (Curry.Module.CurrySyntax.C_RhsOr i xs) x3 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipRhs(x1)(x)(x3)(st))(i)(xs)(st)+c_zipRhs x1 x x3 st = Curry.RunTimeSystem.patternFail("SrcRef.zipRhs")(x)++++c_zipRhs'46_'35selFP9'35tgrs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))+c_zipRhs'46_'35selFP9'35tgrs x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_zipRhs'46_'35selFP9'35tgrs (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipRhs'46_'35selFP9'35tgrs(x)(st))(i)(xs)(st)+c_zipRhs'46_'35selFP9'35tgrs x st = Curry.RunTimeSystem.patternFail("SrcRef.zipRhs._#selFP9#tgrs")(x)++++c_zipRhs'46_'35selFP10'35tlocs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))+c_zipRhs'46_'35selFP10'35tlocs x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_zipRhs'46_'35selFP10'35tlocs (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipRhs'46_'35selFP10'35tlocs(x)(st))(i)(xs)(st)+c_zipRhs'46_'35selFP10'35tlocs x st = Curry.RunTimeSystem.patternFail("SrcRef.zipRhs._#selFP10#tlocs")(x)++++c_guardErr :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_guardErr st = Curry.Module.Prelude.c_error((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('p'))((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(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((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('r'))((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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((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('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.List)))))))))))))))))))))(st)++++c_zipGuards :: Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_CondExpr (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> Curry.Module.FlatCurry.C_Expr -> (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))+c_zipGuards x1 x2@Curry.Module.Prelude.List x3 x4 st = Curry.Module.SrcRef.c_zipGuards_case_453(x1)(x3)(x4)(st)+c_zipGuards x1 x2@((Curry.Module.Prelude.:<) x5 x6) x3 x4 st = Curry.Module.SrcRef.c_zipGuards_case_450(x3)(x4)(x6)(x5)(st)+c_zipGuards x1 (Curry.Module.Prelude.ListOr i xs) x3 x4 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards(x1)(x)(x3)(x4)(st))(i)(xs)(st)+c_zipGuards x1 x x3 x4 st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards")(x)++++c_defOpts :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))+c_defOpts st = Curry.Module.Prelude.List++++op_36_94 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t1)) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 t0 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 t1 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))+op_36_94 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_'36'94'46_'35lambda93(x1)(x2))++++c_'36'94'46_'35lambda93 :: (Curry t1158,Curry t1161) => (Curry.Module.Prelude.Prim (t1158 -> Curry.RunTimeSystem.State -> t1161)) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 t1158 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 t1161 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))+c_'36'94'46_'35lambda93 x1 x2 x3 st = Curry.Module.SrcRef.c_'36'94'46_'35lambda93_case_426(x1)(x2)(x3)(Curry.Module.Prelude.c_apply(x2)(x3)(st))(st)++++c_zir :: (Curry t0) => t0 -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 t0 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))+c_zir x1 x2 st = Curry.Module.Prelude.T2(x1)(Curry.Module.Prelude.List)++++c_concats :: (Curry t0) => (Curry.Module.Prelude.List (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))+c_concats x1 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_concats'46_'35lambda95(x1))++++c_concats'46_'35lambda95 :: (Curry t1212) => (Curry.Module.Prelude.List (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1212) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))))) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1212) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))+c_concats'46_'35lambda95 x1 x2 st = Curry.Module.SrcRef.c_concats'46_'35lambda95_case_425(x1)(x2)(Curry.Module.Prelude.c_unzip(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.op_36))(x2)))(x1)(st))(st))(st)++++op_43_43_43 :: (Curry t0) => (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))+op_43_43_43 x1 x2 x3 st = let {x4 = Curry.Module.Prelude.c_apply(x1)(x3)(st)} in let {x7 = Curry.Module.Prelude.c_apply(x2)(x3)(st)} in Curry.Module.Prelude.T2(Curry.Module.Prelude.op_43_43(Curry.Module.SrcRef.c_'43'43'43'46_'35selFP15'35xs(x4)(st))(Curry.Module.SrcRef.c_'43'43'43'46_'35selFP13'35ys(x7)(st))(st))(Curry.Module.Prelude.op_43_43(Curry.Module.SrcRef.c_'43'43'43'46_'35selFP16'35xs'39(x4)(st))(Curry.Module.SrcRef.c_'43'43'43'46_'35selFP14'35ys'39(x7)(st))(st))++++c_'43'43'43'46_'35selFP15'35xs :: (Curry t1198) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1198) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1198+c_'43'43'43'46_'35selFP15'35xs x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_'43'43'43'46_'35selFP15'35xs (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_'43'43'43'46_'35selFP15'35xs(x)(st))(i)(xs)(st)+c_'43'43'43'46_'35selFP15'35xs x st = Curry.RunTimeSystem.patternFail("SrcRef.+++._#selFP15#xs")(x)++++c_'43'43'43'46_'35selFP16'35xs'39 :: (Curry t1198) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1198) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))+c_'43'43'43'46_'35selFP16'35xs'39 x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_'43'43'43'46_'35selFP16'35xs'39 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_'43'43'43'46_'35selFP16'35xs'39(x)(st))(i)(xs)(st)+c_'43'43'43'46_'35selFP16'35xs'39 x st = Curry.RunTimeSystem.patternFail("SrcRef.+++._#selFP16#xs'")(x)++++c_'43'43'43'46_'35selFP13'35ys :: (Curry t1198) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1198) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1198+c_'43'43'43'46_'35selFP13'35ys x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_'43'43'43'46_'35selFP13'35ys (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_'43'43'43'46_'35selFP13'35ys(x)(st))(i)(xs)(st)+c_'43'43'43'46_'35selFP13'35ys x st = Curry.RunTimeSystem.patternFail("SrcRef.+++._#selFP13#ys")(x)++++c_'43'43'43'46_'35selFP14'35ys'39 :: (Curry t1198) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1198) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))+c_'43'43'43'46_'35selFP14'35ys'39 x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_'43'43'43'46_'35selFP14'35ys'39 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_'43'43'43'46_'35selFP14'35ys'39(x)(st))(i)(xs)(st)+c_'43'43'43'46_'35selFP14'35ys'39 x st = Curry.RunTimeSystem.patternFail("SrcRef.+++._#selFP14#ys'")(x)++++c_unzip'39 :: (Curry t0) => (Curry.Module.Prelude.List (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 t0 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))))) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))+c_unzip'39 x1@Curry.Module.Prelude.List x2 st = Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.List)+c_unzip'39 x1@((Curry.Module.Prelude.:<) x3 x4) x2 st = let {x5 = Curry.Module.Prelude.c_apply(x3)(x2)(st)} in Curry.Module.SrcRef.c_unzip'39_case_424(x2)(x4)(x5)(Curry.Module.SrcRef.c_unzip'39(x4)(x2)(st))(st)+c_unzip'39 (Curry.Module.Prelude.ListOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_unzip'39(x)(x2)(st))(i)(xs)(st)+c_unzip'39 x x2 st = Curry.RunTimeSystem.patternFail("SrcRef.unzip'")(x)++++c_unzip'39'46_'35selFP18'35x :: (Curry t1175) => (Curry.Module.Prelude.T2 t1175 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))) -> Curry.RunTimeSystem.State -> t1175+c_unzip'39'46_'35selFP18'35x x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_unzip'39'46_'35selFP18'35x (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_unzip'39'46_'35selFP18'35x(x)(st))(i)(xs)(st)+c_unzip'39'46_'35selFP18'35x x st = Curry.RunTimeSystem.patternFail("SrcRef.unzip'._#selFP18#x")(x)++++c_unzip'39'46_'35selFP19'35ys :: (Curry t1175) => (Curry.Module.Prelude.T2 t1175 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))+c_unzip'39'46_'35selFP19'35ys x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_unzip'39'46_'35selFP19'35ys (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_unzip'39'46_'35selFP19'35ys(x)(st))(i)(xs)(st)+c_unzip'39'46_'35selFP19'35ys x st = Curry.RunTimeSystem.patternFail("SrcRef.unzip'._#selFP19#ys")(x)++++c_zipExp :: Curry.Module.FlatCurry.C_Expr -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))+c_zipExp x1@(Curry.Module.FlatCurry.C_Var x5) x2 x3 x4 st = Curry.Module.SrcRef.c_zipExp_case_423(x3)(x4)(x2)(st)+c_zipExp x1@(Curry.Module.FlatCurry.C_Lit x7) x2 x3 x4 st = Curry.Module.SrcRef.c_zipExp_case_422(x1)(x3)(x4)(x2)(st)+c_zipExp x1@(Curry.Module.FlatCurry.C_Comb x20 x21 x22) x2 x3 x4 st = Curry.Module.SrcRef.c_zipExp_case_415(x1)(x2)(x3)(x4)(x22)(x21)(st)+c_zipExp x1@(Curry.Module.FlatCurry.C_Let x455 x456) x2 x3 x4 st = Curry.Module.SrcRef.c_zipExp_case_347(x3)(x4)(x455)(x456)(x2)(st)+c_zipExp x1@(Curry.Module.FlatCurry.C_Case x505 x506 x507) x2 x3 x4 st = Curry.Module.SrcRef.c_zipExp_case_344(x1)(x2)(x3)(x4)(x505)(st)+c_zipExp (Curry.Module.FlatCurry.C_ExprOr i xs) x2 x3 x4 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp(x)(x2)(x3)(x4)(st))(i)(xs)(st)+c_zipExp x x2 x3 x4 st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp")(x)++++c_zipExp'46_'35selFP31'35res :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))+c_zipExp'46_'35selFP31'35res x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_zipExp'46_'35selFP31'35res (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp'46_'35selFP31'35res(x)(st))(i)(xs)(st)+c_zipExp'46_'35selFP31'35res x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp._#selFP31#res")(x)++++c_zipExp'46_'35selFP32'35rts :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))+c_zipExp'46_'35selFP32'35rts x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_zipExp'46_'35selFP32'35rts (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp'46_'35selFP32'35rts(x)(st))(i)(xs)(st)+c_zipExp'46_'35selFP32'35rts x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp._#selFP32#rts")(x)++++c_zipExp'46_'35selFP29'35fun :: (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)+c_zipExp'46_'35selFP29'35fun x1@((Curry.Module.Prelude.:<) x2 x3) st = x2+c_zipExp'46_'35selFP29'35fun (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp'46_'35selFP29'35fun(x)(st))(i)(xs)(st)+c_zipExp'46_'35selFP29'35fun x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp._#selFP29#fun")(x)++++c_zipExp'46_'35selFP30'35es :: (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))+c_zipExp'46_'35selFP30'35es x1@((Curry.Module.Prelude.:<) x2 x3) st = x3+c_zipExp'46_'35selFP30'35es (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp'46_'35selFP30'35es(x)(st))(i)(xs)(st)+c_zipExp'46_'35selFP30'35es x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp._#selFP30#es")(x)++++c_zipExp'46_'35selFP27'35te :: (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)+c_zipExp'46_'35selFP27'35te x1@((Curry.Module.Prelude.:<) x2 x3) st = x2+c_zipExp'46_'35selFP27'35te (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp'46_'35selFP27'35te(x)(st))(i)(xs)(st)+c_zipExp'46_'35selFP27'35te x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp._#selFP27#te")(x)++++c_zipExp'46_'35selFP28'35ts :: (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))+c_zipExp'46_'35selFP28'35ts x1@((Curry.Module.Prelude.:<) x2 x3) st = x3+c_zipExp'46_'35selFP28'35ts (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp'46_'35selFP28'35ts(x)(st))(i)(xs)(st)+c_zipExp'46_'35selFP28'35ts x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp._#selFP28#ts")(x)++++c_zipExp'46_'35selFP24'35targs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))+c_zipExp'46_'35selFP24'35targs x1@(Curry.Module.Prelude.T2 x2 x3) st = x1+c_zipExp'46_'35selFP24'35targs (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp'46_'35selFP24'35targs(x)(st))(i)(xs)(st)+c_zipExp'46_'35selFP24'35targs x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp._#selFP24#targs")(x)++++c_zipExp'46_'35selFP25'35targs'39 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))+c_zipExp'46_'35selFP25'35targs'39 x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_zipExp'46_'35selFP25'35targs'39 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp'46_'35selFP25'35targs'39(x)(st))(i)(xs)(st)+c_zipExp'46_'35selFP25'35targs'39 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp._#selFP25#targs'")(x)++++c_zipExp'46_'35selFP26'35funs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))+c_zipExp'46_'35selFP26'35funs x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_zipExp'46_'35selFP26'35funs (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp'46_'35selFP26'35funs(x)(st))(i)(xs)(st)+c_zipExp'46_'35selFP26'35funs x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp._#selFP26#funs")(x)++++c_zipBinds'39 :: (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.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))))))) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) -> Curry.Module.FlatCurry.C_Expr -> (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Decl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))+c_zipBinds'39 x1 x2 x3 x4@Curry.Module.Prelude.List x5 st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x1)(x2)(st))(x3)(st))(x5)(st)+c_zipBinds'39 x1 x2 x3 x4@((Curry.Module.Prelude.:<) x6 x7) x5 st = Curry.Module.SrcRef.c_zipBinds'39_case_342(x1)(x3)(x5)(x6)(x7)(x2)(st)+c_zipBinds'39 x1 x2 x3 (Curry.Module.Prelude.ListOr i xs) x5 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'39(x1)(x2)(x3)(x)(x5)(st))(i)(xs)(st)+c_zipBinds'39 x1 x2 x3 x x5 st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds'")(x)++++c_zipBinds'39'46isSelCall'461081 :: (Curry t0) => (Curry.Module.Prelude.T2 t0 Curry.Module.FlatCurry.C_Expr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_zipBinds'39'46isSelCall'461081 x1@(Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.Prelude.op_38_38(Curry.Module.FlatCurryGoodies.c_isComb(x3)(st))(Curry.Module.SrcRef.c_isSelName(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_snd))(Curry.Module.FlatCurryGoodies.c_combName(x3)(st))(st))(st))(st)+c_zipBinds'39'46isSelCall'461081 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'39'46isSelCall'461081(x)(st))(i)(xs)(st)+c_zipBinds'39'46isSelCall'461081 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds'.isSelCall.1081")(x)++++c_zipBinds'39'46zipBindBody'461081 :: (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.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))))))) -> (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Decl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> Curry.Module.FlatCurry.C_Expr -> (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) -> Curry.Module.FlatCurry.C_Expr -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (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.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))+c_zipBinds'39'46zipBindBody'461081 x1 x2 x3 x4 x5 x6 x7@(Curry.Module.SrcRef.C_Tree x9 x10) x8 st = Curry.Module.SrcRef.c_zipBinds'39'46zipBindBody'461081_case_327(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x10)(st)+c_zipBinds'39'46zipBindBody'461081 x1 x2 x3 x4 x5 x6 (Curry.Module.SrcRef.C_AdrTreeOr i xs) x8 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'39'46zipBindBody'461081(x1)(x2)(x3)(x4)(x5)(x6)(x)(x8)(st))(i)(xs)(st)+c_zipBinds'39'46zipBindBody'461081 x1 x2 x3 x4 x5 x6 x x8 st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds'.zipBindBody.1081")(x)++++c_makeSels :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) -> (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))+c_makeSels x1 x2 x3@(Curry.Module.SrcRef.C_Tree x5 x6) x4 st = let {x7 = Curry.Module.Prelude.c_map(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_snd))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_combName))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_snd))(st))(st))(x1)(st)} in let {x8 = Curry.Module.SrcRef.c_makeSels'46match'461101(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_varNameFromSel))(x7)(st))(Curry.Module.SrcRef.c_conArgs(x2)(st))(x6)(st)} in Curry.Module.Prelude.T2(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_makeSels'46_'35lambda127))(x8)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_makeSels'46_'35lambda128(x2)(x3)))(Curry.Module.Prelude.c_zip(x8)(x7)(st))(st))+c_makeSels x1 x2 (Curry.Module.SrcRef.C_AdrTreeOr i xs) x4 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_makeSels(x1)(x2)(x)(x4)(st))(i)(xs)(st)+c_makeSels x1 x2 x x4 st = Curry.RunTimeSystem.patternFail("SrcRef.makeSels")(x)++++c_makeSels'46match'461101 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_makeSels'46match'461101 x1@Curry.Module.Prelude.List x2 x3 st = Curry.Module.Prelude.List+c_makeSels'46match'461101 x1@((Curry.Module.Prelude.:<) x4 x5) x2 x3 st = Curry.Module.SrcRef.c_makeSels'46match'461101_case_325(x1)(x3)(x4)(x5)(x2)(st)+c_makeSels'46match'461101 (Curry.Module.Prelude.ListOr i xs) x2 x3 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_makeSels'46match'461101(x)(x2)(x3)(st))(i)(xs)(st)+c_makeSels'46match'461101 x x2 x3 st = Curry.RunTimeSystem.patternFail("SrcRef.makeSels.match.1101")(x)++++c_makeSels'46_'35lambda127 :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)+c_makeSels'46_'35lambda127 x1 st = Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))(Curry.Module.Prelude.List)++++c_makeSels'46_'35lambda128 :: (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (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.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_makeSels'46_'35lambda128 x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.Prelude.T2(x5)(Curry.Module.Prelude.T2(Curry.Module.SrcRef.C_LiftedComplexPat(x1)(x4))(x2))+c_makeSels'46_'35lambda128 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_makeSels'46_'35lambda128(x1)(x2)(x)(st))(i)(xs)(st)+c_makeSels'46_'35lambda128 x1 x2 x st = Curry.RunTimeSystem.patternFail("SrcRef.makeSels._#lambda128")(x)++++c_zipBinds :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) -> Curry.Module.FlatCurry.C_Expr -> (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Decl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))))+c_zipBinds x1 x2 x3 x4 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipBinds'39(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.SrcRef.c_zipBinds'46moreLets'461132(x4)))(x1)(x2)(x3))++++c_zipBinds'46moreLets'461132 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) -> Curry.Module.FlatCurry.C_Expr -> (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))+c_zipBinds'46moreLets'461132 x1 x2@Curry.Module.Prelude.List x3 x4 st = Curry.Module.SrcRef.c_zipBinds'46moreLets'461132_case_317(x1)(x3)(x4)(st)+c_zipBinds'46moreLets'461132 x1 x2@((Curry.Module.Prelude.:<) x7 x8) x3 x4 st = Curry.Module.SrcRef.c_zipBinds'46moreLets'461132_case_315(x1)(x2)(x3)(x4)(st)+c_zipBinds'46moreLets'461132 x1 (Curry.Module.Prelude.ListOr i xs) x3 x4 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'46moreLets'461132(x1)(x)(x3)(x4)(st))(i)(xs)(st)+c_zipBinds'46moreLets'461132 x1 x x3 x4 st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds.moreLets.1132")(x)++++c_addBinds :: (Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))))) -> (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Decl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))+c_addBinds x1 x2@Curry.Module.Prelude.List x3 st = Curry.Module.SrcRef.c_addBinds_case_311(x1)(x3)(st)+c_addBinds x1 x2@((Curry.Module.Prelude.:<) x6 x7) x3 st = Curry.Module.SrcRef.c_addBinds_case_309(x1)(x3)(x7)(x6)(st)+c_addBinds x1 (Curry.Module.Prelude.ListOr i xs) x3 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_addBinds(x1)(x)(x3)(st))(i)(xs)(st)+c_addBinds x1 x x3 st = Curry.RunTimeSystem.patternFail("SrcRef.addBinds")(x)++++c_addBinds'46_'35lambda130 :: (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))))) -> (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Decl (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))) -> Curry.Module.CurrySyntax.C_Ident -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))+c_addBinds'46_'35lambda130 x1 x2 x3 x4 x5 x6 x7 st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_addBinds(x2)(x3)(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(x6)(Curry.Module.Prelude.T2(x1)(x4)))(x7))(st)++++c_isTupleName :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isTupleName x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.SrcRef.c_isTupleName_case_297(x2)(x3)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('('))(st))(st)+c_isTupleName x1@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_False+c_isTupleName (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_isTupleName(x)(st))(i)(xs)(st)+c_isTupleName x st = Curry.RunTimeSystem.patternFail("SrcRef.isTupleName")(x)++++c_isApply :: (Curry t0) => (Curry.Module.CurrySyntax.C_Expression t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isApply x1@(Curry.Module.CurrySyntax.C_Apply x2 x3) st = Curry.Module.Prelude.C_True+c_isApply x1@(Curry.Module.CurrySyntax.C_Literal x4) st = Curry.Module.Prelude.C_False+c_isApply x1@(Curry.Module.CurrySyntax.C_Variable x5) st = Curry.Module.Prelude.C_False+c_isApply x1@(Curry.Module.CurrySyntax.C_Constructor x6) st = Curry.Module.Prelude.C_False+c_isApply x1@(Curry.Module.CurrySyntax.C_Paren x7) st = Curry.Module.Prelude.C_False+c_isApply x1@(Curry.Module.CurrySyntax.C_Typed x8 x9) st = Curry.Module.Prelude.C_False+c_isApply x1@(Curry.Module.CurrySyntax.C_Tuple x10) st = Curry.Module.Prelude.C_False+c_isApply x1@(Curry.Module.CurrySyntax.C_List x11) st = Curry.Module.Prelude.C_False+c_isApply x1@(Curry.Module.CurrySyntax.C_ListCompr x12 x13) st = Curry.Module.Prelude.C_False+c_isApply x1@(Curry.Module.CurrySyntax.C_EnumFrom x14) st = Curry.Module.Prelude.C_False+c_isApply x1@(Curry.Module.CurrySyntax.C_EnumFromThen x15 x16) st = Curry.Module.Prelude.C_False+c_isApply x1@(Curry.Module.CurrySyntax.C_EnumFromTo x17 x18) st = Curry.Module.Prelude.C_False+c_isApply x1@(Curry.Module.CurrySyntax.C_EnumFromThenTo x19 x20 x21) st = Curry.Module.Prelude.C_False+c_isApply x1@(Curry.Module.CurrySyntax.C_UnaryMinus x22 x23) st = Curry.Module.Prelude.C_False+c_isApply x1@(Curry.Module.CurrySyntax.C_InfixApply x24 x25 x26) st = Curry.Module.Prelude.C_False+c_isApply x1@(Curry.Module.CurrySyntax.C_LeftSection x27 x28) st = Curry.Module.Prelude.C_False+c_isApply x1@(Curry.Module.CurrySyntax.C_RightSection x29 x30) st = Curry.Module.Prelude.C_False+c_isApply x1@(Curry.Module.CurrySyntax.C_Lambda x31 x32) st = Curry.Module.Prelude.C_False+c_isApply x1@(Curry.Module.CurrySyntax.C_Let x33 x34) st = Curry.Module.Prelude.C_False+c_isApply x1@(Curry.Module.CurrySyntax.C_Do x35 x36) st = Curry.Module.Prelude.C_False+c_isApply x1@(Curry.Module.CurrySyntax.C_IfThenElse x37 x38 x39) st = Curry.Module.Prelude.C_False+c_isApply x1@(Curry.Module.CurrySyntax.C_Case x40 x41) st = Curry.Module.Prelude.C_False+c_isApply x1@(Curry.Module.CurrySyntax.C_RecordConstr x42) st = Curry.Module.Prelude.C_False+c_isApply x1@(Curry.Module.CurrySyntax.C_RecordSelection x43 x44) st = Curry.Module.Prelude.C_False+c_isApply x1@(Curry.Module.CurrySyntax.C_RecordUpdate x45 x46) st = Curry.Module.Prelude.C_False+c_isApply (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_isApply(x)(st))(i)(xs)(st)+c_isApply x st = Curry.RunTimeSystem.patternFail("SrcRef.isApply")(x)++++c_isLet :: (Curry t0) => (Curry.Module.CurrySyntax.C_Expression t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isLet x1@(Curry.Module.CurrySyntax.C_Let x2 x3) st = Curry.Module.Prelude.C_True+c_isLet x1@(Curry.Module.CurrySyntax.C_Literal x4) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.CurrySyntax.C_Variable x5) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.CurrySyntax.C_Constructor x6) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.CurrySyntax.C_Paren x7) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.CurrySyntax.C_Typed x8 x9) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.CurrySyntax.C_Tuple x10) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.CurrySyntax.C_List x11) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.CurrySyntax.C_ListCompr x12 x13) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.CurrySyntax.C_EnumFrom x14) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.CurrySyntax.C_EnumFromThen x15 x16) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.CurrySyntax.C_EnumFromTo x17 x18) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.CurrySyntax.C_EnumFromThenTo x19 x20 x21) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.CurrySyntax.C_UnaryMinus x22 x23) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.CurrySyntax.C_Apply x24 x25) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.CurrySyntax.C_InfixApply x26 x27 x28) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.CurrySyntax.C_LeftSection x29 x30) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.CurrySyntax.C_RightSection x31 x32) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.CurrySyntax.C_Lambda x33 x34) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.CurrySyntax.C_Do x35 x36) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.CurrySyntax.C_IfThenElse x37 x38 x39) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.CurrySyntax.C_Case x40 x41) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.CurrySyntax.C_RecordConstr x42) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.CurrySyntax.C_RecordSelection x43 x44) st = Curry.Module.Prelude.C_False+c_isLet x1@(Curry.Module.CurrySyntax.C_RecordUpdate x45 x46) st = Curry.Module.Prelude.C_False+c_isLet (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_isLet(x)(st))(i)(xs)(st)+c_isLet x st = Curry.RunTimeSystem.patternFail("SrcRef.isLet")(x)++++c_isVariable :: (Curry t0) => (Curry.Module.CurrySyntax.C_Expression t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isVariable x1@(Curry.Module.CurrySyntax.C_Variable x2) st = Curry.Module.Prelude.C_True+c_isVariable x1@(Curry.Module.CurrySyntax.C_Literal x3) st = Curry.Module.Prelude.C_False+c_isVariable x1@(Curry.Module.CurrySyntax.C_Constructor x4) st = Curry.Module.Prelude.C_False+c_isVariable x1@(Curry.Module.CurrySyntax.C_Paren x5) st = Curry.Module.Prelude.C_False+c_isVariable x1@(Curry.Module.CurrySyntax.C_Typed x6 x7) st = Curry.Module.Prelude.C_False+c_isVariable x1@(Curry.Module.CurrySyntax.C_Tuple x8) st = Curry.Module.Prelude.C_False+c_isVariable x1@(Curry.Module.CurrySyntax.C_List x9) st = Curry.Module.Prelude.C_False+c_isVariable x1@(Curry.Module.CurrySyntax.C_ListCompr x10 x11) st = Curry.Module.Prelude.C_False+c_isVariable x1@(Curry.Module.CurrySyntax.C_EnumFrom x12) st = Curry.Module.Prelude.C_False+c_isVariable x1@(Curry.Module.CurrySyntax.C_EnumFromThen x13 x14) st = Curry.Module.Prelude.C_False+c_isVariable x1@(Curry.Module.CurrySyntax.C_EnumFromTo x15 x16) st = Curry.Module.Prelude.C_False+c_isVariable x1@(Curry.Module.CurrySyntax.C_EnumFromThenTo x17 x18 x19) st = Curry.Module.Prelude.C_False+c_isVariable x1@(Curry.Module.CurrySyntax.C_UnaryMinus x20 x21) st = Curry.Module.Prelude.C_False+c_isVariable x1@(Curry.Module.CurrySyntax.C_Apply x22 x23) st = Curry.Module.Prelude.C_False+c_isVariable x1@(Curry.Module.CurrySyntax.C_InfixApply x24 x25 x26) st = Curry.Module.Prelude.C_False+c_isVariable x1@(Curry.Module.CurrySyntax.C_LeftSection x27 x28) st = Curry.Module.Prelude.C_False+c_isVariable x1@(Curry.Module.CurrySyntax.C_RightSection x29 x30) st = Curry.Module.Prelude.C_False+c_isVariable x1@(Curry.Module.CurrySyntax.C_Lambda x31 x32) st = Curry.Module.Prelude.C_False+c_isVariable x1@(Curry.Module.CurrySyntax.C_Let x33 x34) st = Curry.Module.Prelude.C_False+c_isVariable x1@(Curry.Module.CurrySyntax.C_Do x35 x36) st = Curry.Module.Prelude.C_False+c_isVariable x1@(Curry.Module.CurrySyntax.C_IfThenElse x37 x38 x39) st = Curry.Module.Prelude.C_False+c_isVariable x1@(Curry.Module.CurrySyntax.C_Case x40 x41) st = Curry.Module.Prelude.C_False+c_isVariable x1@(Curry.Module.CurrySyntax.C_RecordConstr x42) st = Curry.Module.Prelude.C_False+c_isVariable x1@(Curry.Module.CurrySyntax.C_RecordSelection x43 x44) st = Curry.Module.Prelude.C_False+c_isVariable x1@(Curry.Module.CurrySyntax.C_RecordUpdate x45 x46) st = Curry.Module.Prelude.C_False+c_isVariable (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_isVariable(x)(st))(i)(xs)(st)+c_isVariable x st = Curry.RunTimeSystem.patternFail("SrcRef.isVariable")(x)++++c_isStatement :: (Curry t0) => (Curry.Module.CurrySyntax.C_Expression t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isStatement x1@(Curry.Module.CurrySyntax.C_Do x2 x3) st = Curry.Module.Prelude.C_True+c_isStatement x1@(Curry.Module.CurrySyntax.C_ListCompr x4 x5) st = Curry.Module.Prelude.C_True+c_isStatement x1@(Curry.Module.CurrySyntax.C_Literal x6) st = Curry.Module.Prelude.C_False+c_isStatement x1@(Curry.Module.CurrySyntax.C_Variable x7) st = Curry.Module.Prelude.C_False+c_isStatement x1@(Curry.Module.CurrySyntax.C_Constructor x8) st = Curry.Module.Prelude.C_False+c_isStatement x1@(Curry.Module.CurrySyntax.C_Paren x9) st = Curry.Module.Prelude.C_False+c_isStatement x1@(Curry.Module.CurrySyntax.C_Typed x10 x11) st = Curry.Module.Prelude.C_False+c_isStatement x1@(Curry.Module.CurrySyntax.C_Tuple x12) st = Curry.Module.Prelude.C_False+c_isStatement x1@(Curry.Module.CurrySyntax.C_List x13) st = Curry.Module.Prelude.C_False+c_isStatement x1@(Curry.Module.CurrySyntax.C_EnumFrom x14) st = Curry.Module.Prelude.C_False+c_isStatement x1@(Curry.Module.CurrySyntax.C_EnumFromThen x15 x16) st = Curry.Module.Prelude.C_False+c_isStatement x1@(Curry.Module.CurrySyntax.C_EnumFromTo x17 x18) st = Curry.Module.Prelude.C_False+c_isStatement x1@(Curry.Module.CurrySyntax.C_EnumFromThenTo x19 x20 x21) st = Curry.Module.Prelude.C_False+c_isStatement x1@(Curry.Module.CurrySyntax.C_UnaryMinus x22 x23) st = Curry.Module.Prelude.C_False+c_isStatement x1@(Curry.Module.CurrySyntax.C_Apply x24 x25) st = Curry.Module.Prelude.C_False+c_isStatement x1@(Curry.Module.CurrySyntax.C_InfixApply x26 x27 x28) st = Curry.Module.Prelude.C_False+c_isStatement x1@(Curry.Module.CurrySyntax.C_LeftSection x29 x30) st = Curry.Module.Prelude.C_False+c_isStatement x1@(Curry.Module.CurrySyntax.C_RightSection x31 x32) st = Curry.Module.Prelude.C_False+c_isStatement x1@(Curry.Module.CurrySyntax.C_Lambda x33 x34) st = Curry.Module.Prelude.C_False+c_isStatement x1@(Curry.Module.CurrySyntax.C_Let x35 x36) st = Curry.Module.Prelude.C_False+c_isStatement x1@(Curry.Module.CurrySyntax.C_IfThenElse x37 x38 x39) st = Curry.Module.Prelude.C_False+c_isStatement x1@(Curry.Module.CurrySyntax.C_Case x40 x41) st = Curry.Module.Prelude.C_False+c_isStatement x1@(Curry.Module.CurrySyntax.C_RecordConstr x42) st = Curry.Module.Prelude.C_False+c_isStatement x1@(Curry.Module.CurrySyntax.C_RecordSelection x43 x44) st = Curry.Module.Prelude.C_False+c_isStatement x1@(Curry.Module.CurrySyntax.C_RecordUpdate x45 x46) st = Curry.Module.Prelude.C_False+c_isStatement (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_isStatement(x)(st))(i)(xs)(st)+c_isStatement x st = Curry.RunTimeSystem.patternFail("SrcRef.isStatement")(x)++++c_decompStatement :: (Curry t0) => (Curry.Module.CurrySyntax.C_Expression t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Statement t0)) (Curry.Module.CurrySyntax.C_Expression t0)+c_decompStatement x1@(Curry.Module.CurrySyntax.C_Do x2 x3) st = Curry.Module.Prelude.T2(x2)(x3)+c_decompStatement x1@(Curry.Module.CurrySyntax.C_ListCompr x4 x5) st = Curry.Module.Prelude.T2(x5)(x4)+c_decompStatement (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_decompStatement(x)(st))(i)(xs)(st)+c_decompStatement x st = Curry.RunTimeSystem.patternFail("SrcRef.decompStatement")(x)++++c_decompApp :: (Curry t0) => (Curry.Module.CurrySyntax.C_Expression t0) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Expression t0)) (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))+c_decompApp x1@(Curry.Module.CurrySyntax.C_Paren x3) x2 st = Curry.Module.SrcRef.c_decompApp(x3)(x2)(st)+c_decompApp x1@(Curry.Module.CurrySyntax.C_Apply x4 x5) x2 st = Curry.Module.SrcRef.c_decompApp_case_296(x4)(x5)(x2)(st)+c_decompApp x1@(Curry.Module.CurrySyntax.C_InfixApply x17 x18 x19) x2 st = Curry.Module.SrcRef.c_decompApp_case_292(x17)(x18)(x19)(x2)(st)+c_decompApp x1@(Curry.Module.CurrySyntax.C_Literal x28) x2 st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))+c_decompApp x1@(Curry.Module.CurrySyntax.C_Variable x29) x2 st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))+c_decompApp x1@(Curry.Module.CurrySyntax.C_Constructor x30) x2 st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))+c_decompApp x1@(Curry.Module.CurrySyntax.C_Typed x31 x32) x2 st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))+c_decompApp x1@(Curry.Module.CurrySyntax.C_Tuple x33) x2 st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))+c_decompApp x1@(Curry.Module.CurrySyntax.C_List x34) x2 st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))+c_decompApp x1@(Curry.Module.CurrySyntax.C_ListCompr x35 x36) x2 st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))+c_decompApp x1@(Curry.Module.CurrySyntax.C_EnumFrom x37) x2 st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))+c_decompApp x1@(Curry.Module.CurrySyntax.C_EnumFromThen x38 x39) x2 st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))+c_decompApp x1@(Curry.Module.CurrySyntax.C_EnumFromTo x40 x41) x2 st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))+c_decompApp x1@(Curry.Module.CurrySyntax.C_EnumFromThenTo x42 x43 x44) x2 st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))+c_decompApp x1@(Curry.Module.CurrySyntax.C_UnaryMinus x45 x46) x2 st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))+c_decompApp x1@(Curry.Module.CurrySyntax.C_LeftSection x47 x48) x2 st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))+c_decompApp x1@(Curry.Module.CurrySyntax.C_RightSection x49 x50) x2 st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))+c_decompApp x1@(Curry.Module.CurrySyntax.C_Lambda x51 x52) x2 st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))+c_decompApp x1@(Curry.Module.CurrySyntax.C_Let x53 x54) x2 st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))+c_decompApp x1@(Curry.Module.CurrySyntax.C_Do x55 x56) x2 st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))+c_decompApp x1@(Curry.Module.CurrySyntax.C_IfThenElse x57 x58 x59) x2 st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))+c_decompApp x1@(Curry.Module.CurrySyntax.C_Case x60 x61) x2 st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))+c_decompApp x1@(Curry.Module.CurrySyntax.C_RecordConstr x62) x2 st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))+c_decompApp x1@(Curry.Module.CurrySyntax.C_RecordSelection x63 x64) x2 st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))+c_decompApp x1@(Curry.Module.CurrySyntax.C_RecordUpdate x65 x66) x2 st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))+c_decompApp (Curry.Module.CurrySyntax.C_ExpressionOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_decompApp(x)(x2)(st))(i)(xs)(st)+c_decompApp x x2 st = Curry.RunTimeSystem.patternFail("SrcRef.decompApp")(x)++++c_decompApp'46_'35selFP34'35es :: (Curry t1452) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Expression t1452)) (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Expression t1452)+c_decompApp'46_'35selFP34'35es x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_decompApp'46_'35selFP34'35es (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_decompApp'46_'35selFP34'35es(x)(st))(i)(xs)(st)+c_decompApp'46_'35selFP34'35es x st = Curry.RunTimeSystem.patternFail("SrcRef.decompApp._#selFP34#es")(x)++++c_decompApp'46_'35selFP35'35ts :: (Curry t1452) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Expression t1452)) (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))+c_decompApp'46_'35selFP35'35ts x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_decompApp'46_'35selFP35'35ts (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_decompApp'46_'35selFP35'35ts(x)(st))(i)(xs)(st)+c_decompApp'46_'35selFP35'35ts x st = Curry.RunTimeSystem.patternFail("SrcRef.decompApp._#selFP35#ts")(x)++++c_zipSts :: Curry.Module.FlatCurry.C_Expr -> (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Statement (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))+c_zipSts x1 x2@Curry.Module.Prelude.List x3 x4 st = Curry.Module.SrcRef.c_zipSts_case_288(x3)(x4)(x1)(st)+c_zipSts x1 x2@((Curry.Module.Prelude.:<) x40 x41) x3 x4 st = Curry.Module.SrcRef.c_zipSts_case_275(x1)(x3)(x4)(x41)(x40)(st)+c_zipSts x1 (Curry.Module.Prelude.ListOr i xs) x3 x4 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts(x1)(x)(x3)(x4)(st))(i)(xs)(st)+c_zipSts x1 x x3 x4 st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts")(x)++++c_zipSts'46_'35lambda141 :: Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))+c_zipSts'46_'35lambda141 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.SrcRef.c_zipSts'46_'35lambda141_case_260(x1)(x3)(x4)(st)+c_zipSts'46_'35lambda141 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts'46_'35lambda141(x1)(x)(st))(i)(xs)(st)+c_zipSts'46_'35lambda141 x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts._#lambda141")(x)++++c_zipMBind :: Curry.Module.FlatCurry.C_Expr -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.Module.Prelude.C_Int -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))))) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)))))+c_zipMBind x1@(Curry.Module.FlatCurry.C_Comb x7 x8 x9) x2 x3 x4 x5 x6 st = Curry.Module.SrcRef.c_zipMBind_case_259(x2)(x3)(x4)(x5)(x6)(x7)(x9)(x8)(st)+c_zipMBind x1@(Curry.Module.FlatCurry.C_Case x32 x33 x34) x2 x3 x4 x5 x6 st = Curry.Module.SrcRef.c_zipMBind_case_243(x2)(x3)(x4)(x5)(x6)(x33)(x34)(x32)(st)+c_zipMBind (Curry.Module.FlatCurry.C_ExprOr i xs) x2 x3 x4 x5 x6 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind(x)(x2)(x3)(x4)(x5)(x6)(st))(i)(xs)(st)+c_zipMBind x x2 x3 x4 x5 x6 st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind")(x)++++c_zipStsRest :: (Curry.Module.Prelude.List (Curry.Module.CurrySyntax.C_Statement (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.Module.FlatCurry.C_Expr -> Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))+c_zipStsRest x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Comb x7 x8 x9) x6 st = Curry.Module.SrcRef.c_zipStsRest_case_232(x1)(x2)(x4)(x5)(x6)(x8)(x3)(st)+c_zipStsRest x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Case x15 x16 x17) x6 st = Curry.Module.SrcRef.c_zipSts(x5)(x1)(x2)(x4)(st)+c_zipStsRest x1 x2 x3 x4 (Curry.Module.FlatCurry.C_ExprOr i xs) x6 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipStsRest(x1)(x2)(x3)(x4)(x)(x6)(st))(i)(xs)(st)+c_zipStsRest x1 x2 x3 x4 x x6 st = Curry.RunTimeSystem.patternFail("SrcRef.zipStsRest")(x)++++c_zipLiftFuncs :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.C_Maybe (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))+c_zipLiftFuncs x1 x2@Curry.Module.Prelude.List x3 st = Curry.Module.SrcRef.c_zipLiftFuncs_case_227(x3)(st)+c_zipLiftFuncs x1 x2@((Curry.Module.Prelude.:<) x4 x5) x3 st = Curry.Module.SrcRef.c_zipLiftFuncs_case_226(x1)(x4)(x5)(x3)(st)+c_zipLiftFuncs x1 (Curry.Module.Prelude.ListOr i xs) x3 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipLiftFuncs(x1)(x)(x3)(st))(i)(xs)(st)+c_zipLiftFuncs x1 x x3 st = Curry.RunTimeSystem.patternFail("SrcRef.zipLiftFuncs")(x)++++c_zipLiftFunc :: Curry.Module.FlatCurry.C_FuncDecl -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))+c_zipLiftFunc x1 x2@(Curry.Module.CurrySyntax.C_Lambda x4 x5) x3 st = Curry.Module.SrcRef.c_zipLiftFunc_case_219(x1)(x4)(x5)(x3)(st)+c_zipLiftFunc x1 (Curry.Module.CurrySyntax.C_ExpressionOr i xs) x3 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipLiftFunc(x1)(x)(x3)(st))(i)(xs)(st)+c_zipLiftFunc x1 x x3 st = Curry.RunTimeSystem.patternFail("SrcRef.zipLiftFunc")(x)++++c_zipSelector :: Curry.Module.FlatCurry.C_FuncDecl -> (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.Module.Prelude.C_Int -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))+c_zipSelector x1 x2 x3 x4 st = Curry.Module.SrcRef.op_36_94(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_caseCascade(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcArgs(st))(x1)(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcBody(st))(x1)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.SrcRef.C_Tree(Curry.Module.Prelude.C_Nothing)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))))(Curry.Module.Prelude.T2(Curry.Module.CurrySyntax.C_SimpleRhs(Curry.Module.Prelude.c_error((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('k'))((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('t'))((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('o'))((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('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.List)))))))))))))))))(st))(Curry.Module.CurrySyntax.C_Variable(Curry.Module.CurrySyntax.C_UnqualIdent(Curry.Module.CurrySyntax.C_Ident(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_varNameFromSel))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_snd))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcName(st))(x1)(st))(st))(st))(Curry.Module.Prelude.C_Zero))))(Curry.Module.Prelude.List))(Curry.Module.SrcRef.C_Tree(Curry.Module.Prelude.C_Nothing)((Curry.Module.Prelude.:<)(Curry.Module.SrcRef.C_Tree(Curry.Module.Prelude.C_Just(x3))(Curry.Module.Prelude.List))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.List))(st))(st)++++c_zipLiftedBind :: Curry.Module.FlatCurry.C_FuncDecl -> (Curry.Module.CurrySyntax.C_ConstrTerm (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.CurrySyntax.C_Ident (Curry.Module.Prelude.T2 (Curry.Module.CurrySyntax.C_Expression (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.T2 Curry.Module.SrcRef.C_Lifted (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))))))+c_zipLiftedBind x1 x2 x3 x4@(Curry.Module.SrcRef.C_Tree x5 x6) st = Curry.Module.SrcRef.c_zipLiftedBind_case_214(x1)(x2)(x3)(x6)(x5)(st)+c_zipLiftedBind x1 x2 x3 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipLiftedBind(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c_zipLiftedBind x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipLiftedBind")(x)++++c_isLambdaName :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isLambdaName x1 st = Curry.Module.SrcRef.c_isLambdaName_case_210(x1)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_break(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_Char('.'))))(st))(x1)(st))(st)++++c_fpSelExt :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_fpSelExt 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('s'))((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('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))(Curry.Module.Prelude.List)))))))++++c_isSelName :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isSelName x1 st = Curry.Module.SrcRef.c_isSelName_case_208(x1)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_break(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_Char('.'))))(st))(x1)(st))(st)++++c_varNameFromSel :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_varNameFromSel x1 st = Curry.Module.SrcRef.c_varNameFromSel_case_206(x1)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_break(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_Char('.'))))(st))(x1)(st))(st)++++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_mainTest :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.CurrySyntax.C_Module (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> t0))) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_mainTest x1 x2 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.FlatCurry.c_readFlatCurry(x2)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_mainTest'46_'35lambda153(x1)(x2)))(st)++++c_mainTest'46_'35lambda153 :: (Curry t3982) => (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.CurrySyntax.C_Module (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> t3982))) -> (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_mainTest'46_'35lambda153 x1 x2 x3 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.CurrySyntax.c_readCurry(x2)(st))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_mainTest'46_'35lambda153'46_'35lambda154(x1)(x3)))(st)++++c_mainTest'46_'35lambda153'46_'35lambda154 :: (Curry t3982) => (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.CurrySyntax.C_Module (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> t3982))) -> Curry.Module.FlatCurry.C_Prog -> (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_mainTest'46_'35lambda153'46_'35lambda154 x1 x2 x3 st = Curry.Module.Prelude.c_print(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x1)(x2)(st))(x3)(st))(st)++++c_testAt :: Curry.Module.Prelude.C_Int -> 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_testAt x1 st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_mainTest(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testAt'46_'35lambda155(x1))))++++c_testAt'46_'35lambda155 :: Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Prog -> (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.List Curry.Module.Prelude.C_Char+c_testAt'46_'35lambda155 x1 x2 x3 st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_maybe((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('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.List))))))))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_mainInfo))))(Curry.Module.SrcRef.c_srcAt(x3)(x1)(st))(st)++++c_testZip :: 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_testZip st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_mainTest(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_zipFlatCy)))++++c_maxRef :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int)+c_maxRef st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_maxRef'46last'461347))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_maxRef'46refs'461347))(st)++++c_maxRef'46refs'461347 :: (Curry t0) => (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe t0)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_maxRef'46refs'461347 x1@(Curry.Module.SrcRef.C_Tree x2 x3) st = Curry.Module.SrcRef.c_maxRef'46refs'461347_case_203(x3)(x2)(st)+c_maxRef'46refs'461347 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_maxRef'46refs'461347(x)(st))(i)(xs)(st)+c_maxRef'46refs'461347 x st = Curry.RunTimeSystem.patternFail("SrcRef.maxRef.refs.1347")(x)++++c_maxRef'46last'461347 :: (Curry t0) => (Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> t0+c_maxRef'46last'461347 x1@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((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('p'))((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(' '))((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)+c_maxRef'46last'461347 x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.SrcRef.c_maxRef'46last'461347_case_202(x2)(x3)(st)+c_maxRef'46last'461347 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_maxRef'46last'461347(x)(st))(i)(xs)(st)+c_maxRef'46last'461347 x st = Curry.RunTimeSystem.patternFail("SrcRef.maxRef.last.1347")(x)++++c_testAdd :: 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_testAdd st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_mainTest(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testAdd'46t'461362)))++++c_testAdd'46bad'461362 :: (Curry t0) => t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_testAdd'46bad'461362 x1 st = Curry.Module.Prelude.C_False++++c_testAdd'46t'461362 :: (Curry t0) => t0 -> (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_Bool+c_testAdd'46t'461362 x1 x2 st = let {x3 = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_maxRef(st))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree(Curry.Module.Prelude.C_Nothing)))(Curry.Module.SrcRef.c_run(Curry.Module.SrcRef.c_moduleAdd(x2)(st))(st))(st))(st)} in Curry.Module.Prelude.c_seq(x3)(Curry.Module.Prelude.c_maybe(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_testAdd'46t'461362'46_'35lambda156(x2)(x3)))(Curry.Module.SrcRef.c_srcAt(x2)(x3)(st))(st))(st)++++c_testAdd'46t'461362'46_'35lambda156 :: (Curry.Module.CurrySyntax.C_Module (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.Module.Prelude.C_Int -> (Curry.Module.SrcRef.C_SrcEntity (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_testAdd'46t'461362'46_'35lambda156 x1 x2 x3 st = Curry.Module.Prelude.c_maybe(Curry.Module.Prelude.C_True)(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_testAdd'46bad'461362))(Curry.Module.SrcRef.c_srcAt(x1)(Curry.Module.Prelude.op_43(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(st)++++c_testAddTree :: 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_testAddTree st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_mainTest(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testAddTree'46_'35lambda157)))++++c_testAddTree'46_'35lambda157 :: Curry.Module.FlatCurry.C_Prog -> (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.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))+c_testAddTree'46_'35lambda157 x1 x2 st = Curry.Module.SrcRef.c_run(Curry.Module.SrcRef.c_moduleAdd(x2)(st))(st)++++c_testMaxRef :: 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_testMaxRef st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_mainTest(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testMaxRef'46_'35lambda158)))++++c_testMaxRef'46_'35lambda158 :: Curry.Module.FlatCurry.C_Prog -> (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_Int+c_testMaxRef'46_'35lambda158 x1 x2 st = Curry.Module.Prelude.op_36(Curry.Module.SrcRef.c_maxRef(st))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree(Curry.Module.Prelude.C_Nothing)))(Curry.Module.SrcRef.c_run(Curry.Module.SrcRef.c_moduleAdd(x2)(st))(st))(st))(st)++++c_testSrcRef :: Curry.Module.FlatCurry.C_Prog -> (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_Bool+c_testSrcRef x1@(Curry.Module.FlatCurry.C_Prog x3 x4 x5 x6 x7) x2 st = Curry.Module.SrcRef.c_testSrcRef_case_201(x1)(x2)(x5)(x6)(Curry.Module.Prelude.c_splitAt(Curry.Module.Prelude.c_length(x5)(st))(Curry.Module.SrcRef.c_zipFlatCy(x1)(x2)(st))(st))(st)+c_testSrcRef (Curry.Module.FlatCurry.C_ProgOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef(x)(x2)(st))(i)(xs)(st)+c_testSrcRef x x2 st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef")(x)++++c_testSrcRef'46'61'61'61'461385 :: (Curry t0) => t0 -> t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_testSrcRef'46'61'61'61'461385 x1 x2 st = Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385_case_200(x1)(x2)(Curry.Module.Prelude.op_61_61(x1)(x2)(st))(st)++++c_testSrcRef'46testCons'461385 :: (Curry.Module.CurrySyntax.C_Module (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.Module.FlatCurry.C_ConsDecl -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_testSrcRef'46testCons'461385 x1 x2 x3@(Curry.Module.SrcRef.C_Tree x4 x5) st = Curry.Module.SrcRef.c_testSrcRef'46testCons'461385_case_199(x1)(x2)(x5)(x4)(st)+c_testSrcRef'46testCons'461385 x1 x2 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testCons'461385(x1)(x2)(x)(st))(i)(xs)(st)+c_testSrcRef'46testCons'461385 x1 x2 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testCons.1385")(x)++++c_testSrcRef'46zipWith'39'461385 :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t2))) -> (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t2+c_testSrcRef'46zipWith'39'461385 x1 x2@Curry.Module.Prelude.List x3 st = Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385_case_194(x3)(st)+c_testSrcRef'46zipWith'39'461385 x1 x2@((Curry.Module.Prelude.:<) x6 x7) x3 st = Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385_case_193(x1)(x2)(x6)(x7)(x3)(st)+c_testSrcRef'46zipWith'39'461385 x1 (Curry.Module.Prelude.ListOr i xs) x3 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385(x1)(x)(x3)(st))(i)(xs)(st)+c_testSrcRef'46zipWith'39'461385 x1 x x3 st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.zipWith'.1385")(x)++++c_testSrcRef'46testType'461385 :: (Curry.Module.CurrySyntax.C_Module (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.Module.FlatCurry.C_TypeDecl -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_testSrcRef'46testType'461385 x1 x2 x3@(Curry.Module.SrcRef.C_Tree x4 x5) st = Curry.Module.SrcRef.c_testSrcRef'46testType'461385_case_192(x1)(x2)(x5)(x4)(st)+c_testSrcRef'46testType'461385 x1 x2 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testType'461385(x1)(x2)(x)(st))(i)(xs)(st)+c_testSrcRef'46testType'461385 x1 x2 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testType.1385")(x)++++c_testSrcRef'46testLit'461385 :: Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Literal -> Curry.Module.CurrySyntax.C_Literal -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_testSrcRef'46testLit'461385 x1 x2@(Curry.Module.FlatCurry.C_Charc x4) x3 st = Curry.Module.SrcRef.c_testSrcRef'46testLit'461385_case_185(x4)(x3)(st)+c_testSrcRef'46testLit'461385 x1 x2@(Curry.Module.FlatCurry.C_Intc x6) x3 st = Curry.Module.SrcRef.c_testSrcRef'46testLit'461385_case_184(x1)(x6)(x3)(st)+c_testSrcRef'46testLit'461385 x1 x2@(Curry.Module.FlatCurry.C_Floatc x9) x3 st = Curry.Module.SrcRef.c_testSrcRef'46testLit'461385_case_183(x1)(x9)(x3)(st)+c_testSrcRef'46testLit'461385 x1 (Curry.Module.FlatCurry.C_LiteralOr i xs) x3 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testLit'461385(x1)(x)(x3)(st))(i)(xs)(st)+c_testSrcRef'46testLit'461385 x1 x x3 st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testLit.1385")(x)++++c_testSrcRef'46testPat'461385 :: (Curry.Module.CurrySyntax.C_Module (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.Module.FlatCurry.C_BranchExpr -> Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_testSrcRef'46testPat'461385 x1 x2 x3 st = let {x4 = Curry.Module.SrcRef.c_srcAt(x1)(x3)(st)} in Curry.Module.SrcRef.c_testSrcRef'46testPat'461385_case_181(x2)(x4)(st)++++c_testSrcRef'46is'461385 :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool)) -> t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_testSrcRef'46is'461385 x1 x2 x3 st = Curry.Module.SrcRef.c_testSrcRef'46is'461385_case_175(x1)(x2)(x3)(Curry.Module.Prelude.c_apply(x2)(x3)(st))(st)++++c_testSrcRef'46testExp'461385 :: (Curry.Module.CurrySyntax.C_Module (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.Module.FlatCurry.C_Expr -> (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_testSrcRef'46testExp'461385 x1 x2@(Curry.Module.FlatCurry.C_Var x4) x3 st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_174(x1)(x3)(st)+c_testSrcRef'46testExp'461385 x1 x2@(Curry.Module.FlatCurry.C_Case x109 x110 x111) x3 st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_164(x1)(x3)(x110)(x111)(x109)(st)+c_testSrcRef'46testExp'461385 x1 x2@(Curry.Module.FlatCurry.C_Comb x318 x319 x320) x3 st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_114(x1)(x3)(x319)(x320)(x318)(st)+c_testSrcRef'46testExp'461385 x1 x2@(Curry.Module.FlatCurry.C_Lit x722) x3 st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_35(x1)(x722)(x3)(st)+c_testSrcRef'46testExp'461385 x1 x2@(Curry.Module.FlatCurry.C_Let x804 x805) x3 st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_26(x1)(x804)(x805)(x3)(st)+c_testSrcRef'46testExp'461385 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) x3 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)(x)(x3)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385 x1 x x3 st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385")(x)++++c_testSrcRef'46testExp'461385'46_'35lambda175 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_testSrcRef'46testExp'461385'46_'35lambda175 x1 st = Curry.Module.Prelude.op_124_124(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_elem(x1)(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.:<)(Curry.Module.Prelude.C_Char('='))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.List)))(st))(Curry.Module.SrcRef.c_isLambdaName(x1)(st))(st)++++c_testSrcRef'46testBinds'461385 :: (Curry.Module.CurrySyntax.C_Module (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) -> Curry.Module.FlatCurry.C_Expr -> (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_testSrcRef'46testBinds'461385 x1 x2@Curry.Module.Prelude.List x3 x4 st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)(x3)(x4)(st)+c_testSrcRef'46testBinds'461385 x1 x2@((Curry.Module.Prelude.:<) x5 x6) x3 x4 st = Curry.Module.SrcRef.c_testSrcRef'46testBinds'461385_case_15(x1)(x3)(x4)(x6)(x5)(st)+c_testSrcRef'46testBinds'461385 x1 (Curry.Module.Prelude.ListOr i xs) x3 x4 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testBinds'461385(x1)(x)(x3)(x4)(st))(i)(xs)(st)+c_testSrcRef'46testBinds'461385 x1 x x3 x4 st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testBinds.1385")(x)++++c_testSrcRef'46testPats'461385 :: (Curry.Module.CurrySyntax.C_Module (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.Module.FlatCurry.C_BranchExpr -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_testSrcRef'46testPats'461385 x1 x2 x3@(Curry.Module.SrcRef.C_Tree x4 x5) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_and(st))((Curry.Module.Prelude.:<)(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_branchExpr(st))(x2)(st))(x5)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_testSrcRef'46testPat'461385(x1)(x2)))(x4)(st)))(st)+c_testSrcRef'46testPats'461385 x1 x2 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testPats'461385(x1)(x2)(x)(st))(i)(xs)(st)+c_testSrcRef'46testPats'461385 x1 x2 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testPats.1385")(x)++++c_testSrcRef'46testFunc'461385 :: (Curry.Module.CurrySyntax.C_Module (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.Module.FlatCurry.C_FuncDecl -> (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_testSrcRef'46testFunc'461385 x1 x2 x3@(Curry.Module.SrcRef.C_Tree x4 x5) st = Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385_case_13(x1)(x2)(x5)(x4)(st)+c_testSrcRef'46testFunc'461385 x1 x2 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385(x1)(x2)(x)(st))(i)(xs)(st)+c_testSrcRef'46testFunc'461385 x1 x2 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testFunc.1385")(x)++++c_show'39 :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.C_Maybe (Curry.Module.SrcRef.C_SrcEntity (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_show'39 st = Curry.Module.Prelude.pf(Curry.Module.Prelude.c_maybe((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('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.List))))))))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_mainInfo)))++++c_consDeclName :: (Curry t0) => (Curry.Module.CurrySyntax.C_ConstrDecl t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_consDeclName x1@(Curry.Module.CurrySyntax.C_ConstrDecl x2 x3 x4 x5) st = Curry.Module.SrcRef.c_consDeclName_case_2(x4)(st)+c_consDeclName x1@(Curry.Module.CurrySyntax.C_ConOpDecl x8 x9 x10 x11 x12) st = Curry.Module.SrcRef.c_consDeclName_case_1(x11)(st)+c_consDeclName (Curry.Module.CurrySyntax.C_ConstrDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_consDeclName(x)(st))(i)(xs)(st)+c_consDeclName x st = Curry.RunTimeSystem.patternFail("SrcRef.consDeclName")(x)++++c_bigTest :: 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_bigTest st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_mainTest(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testSrcRef)))++++c_mainInfo :: (Curry t0) => (Curry.Module.SrcRef.C_SrcEntity t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_mainInfo x1@(Curry.Module.SrcRef.C_SrcDecl x2) st = Curry.Module.Prelude.c_show(x2)(st)+c_mainInfo x1@(Curry.Module.SrcRef.C_SrcCon x3 x4) st = Curry.Module.Prelude.c_show(x4)(st)+c_mainInfo x1@(Curry.Module.SrcRef.C_SrcConTerm x5 x6 x7) st = Curry.Module.Prelude.c_show(x7)(st)+c_mainInfo x1@(Curry.Module.SrcRef.C_SrcNew x8 x9) st = Curry.Module.Prelude.c_show(x9)(st)+c_mainInfo x1@(Curry.Module.SrcRef.C_SrcRhs x10 x11 x12) st = Curry.Module.Prelude.c_show(x12)(st)+c_mainInfo x1@(Curry.Module.SrcRef.C_SrcId x13 x14) st = Curry.Module.Prelude.c_show(x14)(st)+c_mainInfo x1@(Curry.Module.SrcRef.C_SrcCond x15 x16 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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T2(x17)(x18))(st))(st)+c_mainInfo x1@(Curry.Module.SrcRef.C_SrcExpr x19 x20 x21) st = Curry.Module.Prelude.c_show(x21)(st)+c_mainInfo x1@(Curry.Module.SrcRef.C_SrcAlt x22 x23 x24) st = Curry.Module.Prelude.c_show(x24)(st)+c_mainInfo (Curry.Module.SrcRef.C_SrcEntityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_mainInfo(x)(st))(i)(xs)(st)+c_mainInfo x st = Curry.RunTimeSystem.patternFail("SrcRef.mainInfo")(x)++++c_init :: (Curry t0) => (Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_init x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.SrcRef.c_init_case_0(x2)(x3)(st)+c_init (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_init(x)(st))(i)(xs)(st)+c_init x st = Curry.RunTimeSystem.patternFail("SrcRef.init")(x)++++c_init_case_0 x2 x3@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_init_case_0 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = (Curry.Module.Prelude.:<)(x2)(Curry.Module.SrcRef.c_init(x3)(st))+c_init_case_0 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_init_case_0(x2)(x)(st))(i)(xs)(st)+c_init_case_0 x2 x st = Curry.RunTimeSystem.patternFail("SrcRef.init_case_0")(x)++++c_consDeclName_case_1 x11@(Curry.Module.CurrySyntax.C_Ident x13 x14) st = x13+c_consDeclName_case_1 (Curry.Module.CurrySyntax.C_IdentOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_consDeclName_case_1(x)(st))(i)(xs)(st)+c_consDeclName_case_1 x st = Curry.RunTimeSystem.patternFail("SrcRef.consDeclName_case_1")(x)++++c_consDeclName_case_2 x4@(Curry.Module.CurrySyntax.C_Ident x6 x7) st = x6+c_consDeclName_case_2 (Curry.Module.CurrySyntax.C_IdentOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_consDeclName_case_2(x)(st))(i)(xs)(st)+c_consDeclName_case_2 x st = Curry.RunTimeSystem.patternFail("SrcRef.consDeclName_case_2")(x)++++c_testSrcRef'46testFunc'461385_case_13 x1 x2 x5 x4@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385_case_12(x1)(x2)(x5)(x6)(x7)(st)+c_testSrcRef'46testFunc'461385_case_13 x1 x2 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385_case_13(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c_testSrcRef'46testFunc'461385_case_13 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testFunc.1385_case_13")(x)++++c_testSrcRef'46testFunc'461385_case_12 x1 x2 x5 x6 x7@Curry.Module.Prelude.List st = let {x8 = Curry.Module.SrcRef.c_srcAt(x1)(x6)(st)} in Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385_case_11(x1)(x2)(x5)(x8)(st)+c_testSrcRef'46testFunc'461385_case_12 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385_case_12(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c_testSrcRef'46testFunc'461385_case_12 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testFunc.1385_case_12")(x)++++c_testSrcRef'46testFunc'461385_case_11 x1 x2 x5 x8@(Curry.Module.Prelude.C_Just x9) st = Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385_case_10(x1)(x2)(x5)(x8)(x9)(st)+c_testSrcRef'46testFunc'461385_case_11 x1 x2 x5 x8@Curry.Module.Prelude.C_Nothing 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(Curry.Module.Prelude.C_Nothing)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_11 x1 x2 x5 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385_case_11(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c_testSrcRef'46testFunc'461385_case_11 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testFunc.1385_case_11")(x)++++c_testSrcRef'46testFunc'461385_case_10 x1 x2 x5 x8 x9@(Curry.Module.SrcRef.C_SrcDecl x10) st = Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385_case_9(x1)(x2)(x5)(x8)(x10)(st)+c_testSrcRef'46testFunc'461385_case_10 x1 x2 x5 x8 x9@(Curry.Module.SrcRef.C_SrcExpr x55 x56 x57) st = Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385_case_7(x1)(x2)(x5)(x8)(x57)(st)+c_testSrcRef'46testFunc'461385_case_10 x1 x2 x5 x8 x9@(Curry.Module.SrcRef.C_SrcConTerm x103 x104 x105) st = Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385_case_6(x1)(x2)(x5)(x8)(x104)(x105)(x103)(st)+c_testSrcRef'46testFunc'461385_case_10 x1 x2 x5 x8 x9@(Curry.Module.SrcRef.C_SrcCon x173 x174) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_10 x1 x2 x5 x8 x9@(Curry.Module.SrcRef.C_SrcNew x175 x176) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_10 x1 x2 x5 x8 x9@(Curry.Module.SrcRef.C_SrcRhs x177 x178 x179) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_10 x1 x2 x5 x8 x9@(Curry.Module.SrcRef.C_SrcId x180 x181) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_10 x1 x2 x5 x8 x9@(Curry.Module.SrcRef.C_SrcCond x182 x183 x184 x185) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_10 x1 x2 x5 x8 x9@(Curry.Module.SrcRef.C_SrcAlt x186 x187 x188) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_10 x1 x2 x5 x8 (Curry.Module.SrcRef.C_SrcEntityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385_case_10(x1)(x2)(x5)(x8)(x)(st))(i)(xs)(st)+c_testSrcRef'46testFunc'461385_case_10 x1 x2 x5 x8 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testFunc.1385_case_10")(x)++++c_testSrcRef'46testFunc'461385_case_6 x1 x2 x5 x8 x104 x105 x103@(Curry.Module.CurrySyntax.C_PatternDecl x106 x107 x108) st = Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385_case_5(x1)(x2)(x5)(x8)(x105)(x104)(st)+c_testSrcRef'46testFunc'461385_case_6 x1 x2 x5 x8 x104 x105 x103@(Curry.Module.CurrySyntax.C_ImportDecl x134 x135 x136 x137 x138) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_6 x1 x2 x5 x8 x104 x105 x103@(Curry.Module.CurrySyntax.C_InfixDecl x139 x140 x141 x142) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_6 x1 x2 x5 x8 x104 x105 x103@(Curry.Module.CurrySyntax.C_DataDecl x143 x144 x145 x146) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_6 x1 x2 x5 x8 x104 x105 x103@(Curry.Module.CurrySyntax.C_NewtypeDecl x147 x148 x149 x150) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_6 x1 x2 x5 x8 x104 x105 x103@(Curry.Module.CurrySyntax.C_TypeDecl x151 x152 x153 x154) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_6 x1 x2 x5 x8 x104 x105 x103@(Curry.Module.CurrySyntax.C_TypeSig x155 x156 x157) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_6 x1 x2 x5 x8 x104 x105 x103@(Curry.Module.CurrySyntax.C_EvalAnnot x158 x159 x160) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_6 x1 x2 x5 x8 x104 x105 x103@(Curry.Module.CurrySyntax.C_FunctionDecl x161 x162 x163) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_6 x1 x2 x5 x8 x104 x105 x103@(Curry.Module.CurrySyntax.C_ExternalDecl x164 x165 x166 x167 x168) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_6 x1 x2 x5 x8 x104 x105 x103@(Curry.Module.CurrySyntax.C_FlatExternalDecl x169 x170) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_6 x1 x2 x5 x8 x104 x105 x103@(Curry.Module.CurrySyntax.C_ExtraVariables x171 x172) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_6 x1 x2 x5 x8 x104 x105 (Curry.Module.CurrySyntax.C_DeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385_case_6(x1)(x2)(x5)(x8)(x104)(x105)(x)(st))(i)(xs)(st)+c_testSrcRef'46testFunc'461385_case_6 x1 x2 x5 x8 x104 x105 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testFunc.1385_case_6")(x)++++c_testSrcRef'46testFunc'461385_case_5 x1 x2 x5 x8 x105 x104@Curry.Module.Prelude.C_Nothing st = Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385_case_4(x1)(x2)(x5)(x8)(x105)(st)+c_testSrcRef'46testFunc'461385_case_5 x1 x2 x5 x8 x105 x104@(Curry.Module.Prelude.C_Just x133) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_5 x1 x2 x5 x8 x105 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385_case_5(x1)(x2)(x5)(x8)(x105)(x)(st))(i)(xs)(st)+c_testSrcRef'46testFunc'461385_case_5 x1 x2 x5 x8 x105 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testFunc.1385_case_5")(x)++++c_testSrcRef'46testFunc'461385_case_4 x1 x2 x5 x8 x105@(Curry.Module.CurrySyntax.C_VariablePattern x109) st = Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385_case_3(x1)(x2)(x5)(x109)(st)+c_testSrcRef'46testFunc'461385_case_4 x1 x2 x5 x8 x105@(Curry.Module.CurrySyntax.C_LiteralPattern x112) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_4 x1 x2 x5 x8 x105@(Curry.Module.CurrySyntax.C_NegativePattern x113 x114) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_4 x1 x2 x5 x8 x105@(Curry.Module.CurrySyntax.C_ConstructorPattern x115 x116) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_4 x1 x2 x5 x8 x105@(Curry.Module.CurrySyntax.C_InfixPattern x117 x118 x119) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_4 x1 x2 x5 x8 x105@(Curry.Module.CurrySyntax.C_ParenPattern x120) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_4 x1 x2 x5 x8 x105@(Curry.Module.CurrySyntax.C_TuplePattern x121) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_4 x1 x2 x5 x8 x105@(Curry.Module.CurrySyntax.C_ListPattern x122) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_4 x1 x2 x5 x8 x105@(Curry.Module.CurrySyntax.C_AsPattern x123 x124) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_4 x1 x2 x5 x8 x105@(Curry.Module.CurrySyntax.C_LazyPattern x125) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_4 x1 x2 x5 x8 x105@(Curry.Module.CurrySyntax.C_FunctionPattern x126 x127) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_4 x1 x2 x5 x8 x105@(Curry.Module.CurrySyntax.C_InfixFuncPattern x128 x129 x130) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_4 x1 x2 x5 x8 x105@(Curry.Module.CurrySyntax.C_RecordPattern x131 x132) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_4 x1 x2 x5 x8 (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385_case_4(x1)(x2)(x5)(x8)(x)(st))(i)(xs)(st)+c_testSrcRef'46testFunc'461385_case_4 x1 x2 x5 x8 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testFunc.1385_case_4")(x)++++c_testSrcRef'46testFunc'461385_case_3 x1 x2 x5 x109@(Curry.Module.CurrySyntax.C_Ident x110 x111) st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46is'461385((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('s'))((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('c'))((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(' '))((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)))))))))))))))))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_isSelName))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_snd))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcName(st))(x2)(st))(st))(st))(Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x110)(Curry.Module.SrcRef.c_varNameFromSel(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_snd))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcName(st))(x2)(st))(st))(st))(st))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcBody(st))(x2)(st))(x5)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_3 x1 x2 x5 (Curry.Module.CurrySyntax.C_IdentOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385_case_3(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c_testSrcRef'46testFunc'461385_case_3 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testFunc.1385_case_3")(x)++++c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_Lambda x58 x59) st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46is'461385((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('L'))((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('b'))((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(' '))((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)))))))))))))))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_isLambdaName))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_snd))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcName(st))(x2)(st))(st))(st))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcBody(st))(x2)(st))(x5)(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_Do x60 x61) st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46is'461385((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('L'))((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('b'))((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(' '))((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)))))))))))))))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_isLambdaName))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_snd))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcName(st))(x2)(st))(st))(st))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcBody(st))(x2)(st))(x5)(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_ListCompr x62 x63) st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46is'461385((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('L'))((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('b'))((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(' '))((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)))))))))))))))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_isLambdaName))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_snd))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcName(st))(x2)(st))(st))(st))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcBody(st))(x2)(st))(x5)(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_Literal x64) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_Variable x65) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_Constructor x66) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_Paren x67) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_Typed x68 x69) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_Tuple x70) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_List x71) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_EnumFrom x72) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_EnumFromThen x73 x74) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_EnumFromTo x75 x76) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_EnumFromThenTo x77 x78 x79) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_UnaryMinus x80 x81) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_Apply x82 x83) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_InfixApply x84 x85 x86) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_LeftSection x87 x88) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_RightSection x89 x90) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_Let x91 x92) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_IfThenElse x93 x94 x95) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_Case x96 x97) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_RecordConstr x98) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_RecordSelection x99 x100) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x57@(Curry.Module.CurrySyntax.C_RecordUpdate x101 x102) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385_case_7(x1)(x2)(x5)(x8)(x)(st))(i)(xs)(st)+c_testSrcRef'46testFunc'461385_case_7 x1 x2 x5 x8 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testFunc.1385_case_7")(x)++++c_testSrcRef'46testFunc'461385_case_9 x1 x2 x5 x8 x10@(Curry.Module.CurrySyntax.C_FunctionDecl x11 x12 x13) st = Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385_case_8(x1)(x2)(x5)(x12)(st)+c_testSrcRef'46testFunc'461385_case_9 x1 x2 x5 x8 x10@(Curry.Module.CurrySyntax.C_ImportDecl x16 x17 x18 x19 x20) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_9 x1 x2 x5 x8 x10@(Curry.Module.CurrySyntax.C_InfixDecl x21 x22 x23 x24) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_9 x1 x2 x5 x8 x10@(Curry.Module.CurrySyntax.C_DataDecl x25 x26 x27 x28) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_9 x1 x2 x5 x8 x10@(Curry.Module.CurrySyntax.C_NewtypeDecl x29 x30 x31 x32) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_9 x1 x2 x5 x8 x10@(Curry.Module.CurrySyntax.C_TypeDecl x33 x34 x35 x36) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_9 x1 x2 x5 x8 x10@(Curry.Module.CurrySyntax.C_TypeSig x37 x38 x39) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_9 x1 x2 x5 x8 x10@(Curry.Module.CurrySyntax.C_EvalAnnot x40 x41 x42) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_9 x1 x2 x5 x8 x10@(Curry.Module.CurrySyntax.C_ExternalDecl x43 x44 x45 x46 x47) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_9 x1 x2 x5 x8 x10@(Curry.Module.CurrySyntax.C_FlatExternalDecl x48 x49) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_9 x1 x2 x5 x8 x10@(Curry.Module.CurrySyntax.C_PatternDecl x50 x51 x52) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_9 x1 x2 x5 x8 x10@(Curry.Module.CurrySyntax.C_ExtraVariables x53 x54) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char('d'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x8)(st))(st))(st)+c_testSrcRef'46testFunc'461385_case_9 x1 x2 x5 x8 (Curry.Module.CurrySyntax.C_DeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385_case_9(x1)(x2)(x5)(x8)(x)(st))(i)(xs)(st)+c_testSrcRef'46testFunc'461385_case_9 x1 x2 x5 x8 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testFunc.1385_case_9")(x)++++c_testSrcRef'46testFunc'461385_case_8 x1 x2 x5 x12@(Curry.Module.CurrySyntax.C_Ident x14 x15) st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x14)(Curry.Module.Prelude.c_snd(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcName(st))(x2)(st))(st))(st))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcBody(st))(x2)(st))(x5)(st))(st)+c_testSrcRef'46testFunc'461385_case_8 x1 x2 x5 (Curry.Module.CurrySyntax.C_IdentOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385_case_8(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c_testSrcRef'46testFunc'461385_case_8 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testFunc.1385_case_8")(x)++++c_testSrcRef'46testBinds'461385_case_15 x1 x3 x4 x6 x5@(Curry.Module.Prelude.T2 x7 x8) st = Curry.Module.SrcRef.c_testSrcRef'46testBinds'461385_case_14(x1)(x3)(x6)(x8)(x4)(st)+c_testSrcRef'46testBinds'461385_case_15 x1 x3 x4 x6 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testBinds'461385_case_15(x1)(x3)(x4)(x6)(x)(st))(i)(xs)(st)+c_testSrcRef'46testBinds'461385_case_15 x1 x3 x4 x6 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testBinds.1385_case_15")(x)++++c_testSrcRef'46testBinds'461385_case_14 x1 x3 x6 x8 x4@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(st))(Curry.Module.SrcRef.c_testSrcRef'46testBinds'461385(x1)(x6)(x3)(x10)(st))(st)+c_testSrcRef'46testBinds'461385_case_14 x1 x3 x6 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testBinds'461385_case_14(x1)(x3)(x6)(x8)(x)(st))(i)(xs)(st)+c_testSrcRef'46testBinds'461385_case_14 x1 x3 x6 x8 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testBinds.1385_case_14")(x)++++c_testSrcRef'46testExp'461385_case_26 x1 x804 x805 x3@((Curry.Module.Prelude.:<) x806 x807) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_25(x1)(x3)(x804)(x805)(x807)(x806)(st)+c_testSrcRef'46testExp'461385_case_26 x1 x804 x805 x3@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('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('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('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('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('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('t'))((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('t'))((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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x3)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_26 x1 x804 x805 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_26(x1)(x804)(x805)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_26 x1 x804 x805 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_26")(x)++++c_testSrcRef'46testExp'461385_case_25 x1 x3 x804 x805 x807 x806@(Curry.Module.SrcRef.C_Tree x808 x809) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_24(x1)(x3)(x804)(x805)(x807)(x809)(x808)(st)+c_testSrcRef'46testExp'461385_case_25 x1 x3 x804 x805 x807 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_25(x1)(x3)(x804)(x805)(x807)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_25 x1 x3 x804 x805 x807 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_25")(x)++++c_testSrcRef'46testExp'461385_case_24 x1 x3 x804 x805 x807 x809 x808@((Curry.Module.Prelude.:<) x810 x811) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_23(x1)(x3)(x804)(x805)(x807)(x809)(x810)(x811)(st)+c_testSrcRef'46testExp'461385_case_24 x1 x3 x804 x805 x807 x809 x808@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('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('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('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('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('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('t'))((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('t'))((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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x3)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_24 x1 x3 x804 x805 x807 x809 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_24(x1)(x3)(x804)(x805)(x807)(x809)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_24 x1 x3 x804 x805 x807 x809 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_24")(x)++++c_testSrcRef'46testExp'461385_case_23 x1 x3 x804 x805 x807 x809 x810 x811@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_22(x1)(x3)(x804)(x805)(x809)(x810)(x807)(st)+c_testSrcRef'46testExp'461385_case_23 x1 x3 x804 x805 x807 x809 x810 x811@((Curry.Module.Prelude.:<) x892 x893) 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('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('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('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('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('t'))((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('t'))((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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x3)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_23 x1 x3 x804 x805 x807 x809 x810 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_23(x1)(x3)(x804)(x805)(x807)(x809)(x810)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_23 x1 x3 x804 x805 x807 x809 x810 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_23")(x)++++c_testSrcRef'46testExp'461385_case_22 x1 x3 x804 x805 x809 x810 x807@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_21(x1)(x804)(x805)(x809)(x810)(Curry.Module.SrcRef.c_srcAt(x1)(x810)(st))(st)+c_testSrcRef'46testExp'461385_case_22 x1 x3 x804 x805 x809 x810 x807@((Curry.Module.Prelude.:<) x890 x891) 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('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('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('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('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('t'))((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('t'))((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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x3)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_22 x1 x3 x804 x805 x809 x810 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_22(x1)(x3)(x804)(x805)(x809)(x810)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_22 x1 x3 x804 x805 x809 x810 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_22")(x)++++c_testSrcRef'46testExp'461385_case_21 x1 x804 x805 x809 x810 x811@(Curry.Module.Prelude.C_Just x812) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_20(x1)(x804)(x805)(x809)(x812)(st)+c_testSrcRef'46testExp'461385_case_21 x1 x804 x805 x809 x810 x811@Curry.Module.Prelude.C_Nothing st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_21 x1 x804 x805 x809 x810 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_21(x1)(x804)(x805)(x809)(x810)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_21 x1 x804 x805 x809 x810 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_21")(x)++++c_testSrcRef'46testExp'461385_case_20 x1 x804 x805 x809 x812@(Curry.Module.SrcRef.C_SrcExpr x813 x814 x815) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_19(x1)(x804)(x805)(x809)(x815)(st)+c_testSrcRef'46testExp'461385_case_20 x1 x804 x805 x809 x812@(Curry.Module.SrcRef.C_SrcRhs x861 x862 x863) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_18(x1)(x804)(x805)(x809)(x863)(st)+c_testSrcRef'46testExp'461385_case_20 x1 x804 x805 x809 x812@(Curry.Module.SrcRef.C_SrcDecl x873) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_20 x1 x804 x805 x809 x812@(Curry.Module.SrcRef.C_SrcCon x874 x875) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_20 x1 x804 x805 x809 x812@(Curry.Module.SrcRef.C_SrcConTerm x876 x877 x878) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_20 x1 x804 x805 x809 x812@(Curry.Module.SrcRef.C_SrcNew x879 x880) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_20 x1 x804 x805 x809 x812@(Curry.Module.SrcRef.C_SrcId x881 x882) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_20 x1 x804 x805 x809 x812@(Curry.Module.SrcRef.C_SrcCond x883 x884 x885 x886) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_20 x1 x804 x805 x809 x812@(Curry.Module.SrcRef.C_SrcAlt x887 x888 x889) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_20 x1 x804 x805 x809 (Curry.Module.SrcRef.C_SrcEntityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_20(x1)(x804)(x805)(x809)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_20 x1 x804 x805 x809 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_20")(x)++++c_testSrcRef'46testExp'461385_case_18 x1 x804 x805 x809 x863@(Curry.Module.CurrySyntax.C_SimpleRhs x864 x865 x866) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_17(x1)(x804)(x805)(x809)(x866)(st)+c_testSrcRef'46testExp'461385_case_18 x1 x804 x805 x809 x863@(Curry.Module.CurrySyntax.C_GuardedRhs x869 x870) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_16(x1)(x804)(x805)(x809)(x870)(st)+c_testSrcRef'46testExp'461385_case_18 x1 x804 x805 x809 (Curry.Module.CurrySyntax.C_RhsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_18(x1)(x804)(x805)(x809)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_18 x1 x804 x805 x809 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_18")(x)++++c_testSrcRef'46testExp'461385_case_16 x1 x804 x805 x809 x870@((Curry.Module.Prelude.:<) x871 x872) st = Curry.Module.SrcRef.c_testSrcRef'46testBinds'461385(x1)(x804)(x805)(x809)(st)+c_testSrcRef'46testExp'461385_case_16 x1 x804 x805 x809 x870@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_16 x1 x804 x805 x809 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_16(x1)(x804)(x805)(x809)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_16 x1 x804 x805 x809 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_16")(x)++++c_testSrcRef'46testExp'461385_case_17 x1 x804 x805 x809 x866@((Curry.Module.Prelude.:<) x867 x868) st = Curry.Module.SrcRef.c_testSrcRef'46testBinds'461385(x1)(x804)(x805)(x809)(st)+c_testSrcRef'46testExp'461385_case_17 x1 x804 x805 x809 x866@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_17 x1 x804 x805 x809 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_17(x1)(x804)(x805)(x809)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_17 x1 x804 x805 x809 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_17")(x)++++c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_Let x816 x817) st = Curry.Module.SrcRef.c_testSrcRef'46testBinds'461385(x1)(x804)(x805)(x809)(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_Literal x818) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_Variable x819) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_Constructor x820) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_Paren x821) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_Typed x822 x823) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_Tuple x824) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_List x825) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_ListCompr x826 x827) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_EnumFrom x828) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_EnumFromThen x829 x830) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_EnumFromTo x831 x832) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_EnumFromThenTo x833 x834 x835) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_UnaryMinus x836 x837) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_Apply x838 x839) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_InfixApply x840 x841 x842) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_LeftSection x843 x844) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_RightSection x845 x846) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_Lambda x847 x848) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_Do x849 x850) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_IfThenElse x851 x852 x853) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_Case x854 x855) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_RecordConstr x856) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_RecordSelection x857 x858) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x815@(Curry.Module.CurrySyntax.C_RecordUpdate x859 x860) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('7'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_19(x1)(x804)(x805)(x809)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_19 x1 x804 x805 x809 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_19")(x)++++c_testSrcRef'46testExp'461385_case_35 x1 x722 x3@((Curry.Module.Prelude.:<) x723 x724) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_34(x1)(x3)(x722)(x724)(x723)(st)+c_testSrcRef'46testExp'461385_case_35 x1 x722 x3@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('w'))((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('g'))((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('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('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('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('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('l'))((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(x3)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_35 x1 x722 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_35(x1)(x722)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_35 x1 x722 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_35")(x)++++c_testSrcRef'46testExp'461385_case_34 x1 x3 x722 x724 x723@(Curry.Module.SrcRef.C_Tree x725 x726) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_33(x1)(x3)(x722)(x724)(x726)(x725)(st)+c_testSrcRef'46testExp'461385_case_34 x1 x3 x722 x724 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_34(x1)(x3)(x722)(x724)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_34 x1 x3 x722 x724 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_34")(x)++++c_testSrcRef'46testExp'461385_case_33 x1 x3 x722 x724 x726 x725@((Curry.Module.Prelude.:<) x727 x728) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_32(x1)(x3)(x722)(x724)(x726)(x727)(x728)(st)+c_testSrcRef'46testExp'461385_case_33 x1 x3 x722 x724 x726 x725@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('w'))((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('g'))((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('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('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('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('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('l'))((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(x3)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_33 x1 x3 x722 x724 x726 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_33(x1)(x3)(x722)(x724)(x726)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_33 x1 x3 x722 x724 x726 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_33")(x)++++c_testSrcRef'46testExp'461385_case_32 x1 x3 x722 x724 x726 x727 x728@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_31(x1)(x3)(x722)(x724)(x727)(x726)(st)+c_testSrcRef'46testExp'461385_case_32 x1 x3 x722 x724 x726 x727 x728@((Curry.Module.Prelude.:<) x802 x803) 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('w'))((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('g'))((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('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('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('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('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('l'))((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(x3)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_32 x1 x3 x722 x724 x726 x727 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_32(x1)(x3)(x722)(x724)(x726)(x727)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_32 x1 x3 x722 x724 x726 x727 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_32")(x)++++c_testSrcRef'46testExp'461385_case_31 x1 x3 x722 x724 x727 x726@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_30(x1)(x3)(x722)(x727)(x724)(st)+c_testSrcRef'46testExp'461385_case_31 x1 x3 x722 x724 x727 x726@((Curry.Module.Prelude.:<) x800 x801) 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('w'))((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('g'))((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('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('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('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('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('l'))((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(x3)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_31 x1 x3 x722 x724 x727 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_31(x1)(x3)(x722)(x724)(x727)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_31 x1 x3 x722 x724 x727 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_31")(x)++++c_testSrcRef'46testExp'461385_case_30 x1 x3 x722 x727 x724@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_29(x1)(x722)(x727)(Curry.Module.SrcRef.c_srcAt(x1)(x727)(st))(st)+c_testSrcRef'46testExp'461385_case_30 x1 x3 x722 x727 x724@((Curry.Module.Prelude.:<) x798 x799) 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('w'))((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('g'))((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('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('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('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('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('l'))((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(x3)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_30 x1 x3 x722 x727 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_30(x1)(x3)(x722)(x727)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_30 x1 x3 x722 x727 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_30")(x)++++c_testSrcRef'46testExp'461385_case_29 x1 x722 x727 x728@(Curry.Module.Prelude.C_Just x729) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_28(x722)(x729)(st)+c_testSrcRef'46testExp'461385_case_29 x1 x722 x727 x728@Curry.Module.Prelude.C_Nothing st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_29 x1 x722 x727 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_29(x1)(x722)(x727)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_29 x1 x722 x727 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_29")(x)++++c_testSrcRef'46testExp'461385_case_28 x722 x729@(Curry.Module.SrcRef.C_SrcExpr x730 x731 x732) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_27(x722)(x732)(st)+c_testSrcRef'46testExp'461385_case_28 x722 x729@(Curry.Module.SrcRef.C_SrcDecl x778) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_28 x722 x729@(Curry.Module.SrcRef.C_SrcCon x779 x780) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_28 x722 x729@(Curry.Module.SrcRef.C_SrcConTerm x781 x782 x783) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_28 x722 x729@(Curry.Module.SrcRef.C_SrcNew x784 x785) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_28 x722 x729@(Curry.Module.SrcRef.C_SrcRhs x786 x787 x788) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_28 x722 x729@(Curry.Module.SrcRef.C_SrcId x789 x790) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_28 x722 x729@(Curry.Module.SrcRef.C_SrcCond x791 x792 x793 x794) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_28 x722 x729@(Curry.Module.SrcRef.C_SrcAlt x795 x796 x797) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_28 x722 (Curry.Module.SrcRef.C_SrcEntityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_28(x722)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_28 x722 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_28")(x)++++c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_Literal x733) st = Curry.Module.SrcRef.c_testSrcRef'46testLit'461385(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x722)(x733)(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_Variable x734) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_Constructor x735) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_Paren x736) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_Typed x737 x738) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_Tuple x739) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_List x740) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_ListCompr x741 x742) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_EnumFrom x743) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_EnumFromThen x744 x745) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_EnumFromTo x746 x747) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_EnumFromThenTo x748 x749 x750) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_UnaryMinus x751 x752) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_Apply x753 x754) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_InfixApply x755 x756 x757) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_LeftSection x758 x759) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_RightSection x760 x761) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_Lambda x762 x763) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_Let x764 x765) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_Do x766 x767) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_IfThenElse x768 x769 x770) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_Case x771 x772) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_RecordConstr x773) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_RecordSelection x774 x775) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 x732@(Curry.Module.CurrySyntax.C_RecordUpdate x776 x777) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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('o'))((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('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('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('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('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('l'))(Curry.Module.Prelude.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_27 x722 (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_27(x722)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_27 x722 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_27")(x)++++c_testSrcRef'46testExp'461385_case_114 x1 x3 x319 x320 x318@Curry.Module.FlatCurry.C_FuncCall st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_113(x1)(x3)(x320)(x319)(st)+c_testSrcRef'46testExp'461385_case_114 x1 x3 x319 x320 x318@Curry.Module.FlatCurry.C_ConsCall st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_73(x1)(x3)(x320)(x319)(st)+c_testSrcRef'46testExp'461385_case_114 x1 x3 x319 x320 x318@(Curry.Module.FlatCurry.C_FuncPartCall x720) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)(Curry.Module.FlatCurry.C_Comb(Curry.Module.FlatCurry.C_FuncCall)(x319)(x320))(x3)(st)+c_testSrcRef'46testExp'461385_case_114 x1 x3 x319 x320 x318@(Curry.Module.FlatCurry.C_ConsPartCall x721) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)(Curry.Module.FlatCurry.C_Comb(Curry.Module.FlatCurry.C_ConsCall)(x319)(x320))(x3)(st)+c_testSrcRef'46testExp'461385_case_114 x1 x3 x319 x320 (Curry.Module.FlatCurry.C_CombTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_114(x1)(x3)(x319)(x320)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_114 x1 x3 x319 x320 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_114")(x)++++c_testSrcRef'46testExp'461385_case_73 x1 x3 x320 x319@(Curry.Module.Prelude.T2 x505 x506) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_72(x1)(x3)(x320)(x506)(Curry.Module.SrcRef.c_isTupleName(x506)(st))(st)+c_testSrcRef'46testExp'461385_case_73 x1 x3 x320 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_73(x1)(x3)(x320)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_73 x1 x3 x320 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_73")(x)++++c_testSrcRef'46testExp'461385_case_72 x1 x3 x320 x506 x507@Curry.Module.Prelude.C_True st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_71(x1)(x320)(x506)(x3)(st)+c_testSrcRef'46testExp'461385_case_72 x1 x3 x320 x506 x507@Curry.Module.Prelude.C_False st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_63(x1)(x3)(x320)(x506)(Curry.Module.Prelude.c_otherwise(st))(st)+c_testSrcRef'46testExp'461385_case_72 x1 x3 x320 x506 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_72(x1)(x3)(x320)(x506)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_72 x1 x3 x320 x506 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_72")(x)++++c_testSrcRef'46testExp'461385_case_63 x1 x3 x320 x506 x507@Curry.Module.Prelude.C_True st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_62(x1)(x320)(x506)(x3)(st)+c_testSrcRef'46testExp'461385_case_63 x1 x3 x320 x506 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_63(x1)(x3)(x320)(x506)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_63 x1 x3 x320 x506 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_63")(x)++++c_testSrcRef'46testExp'461385_case_62 x1 x320 x506 x3@((Curry.Module.Prelude.:<) x586 x587) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_61(x1)(x3)(x320)(x506)(x587)(x586)(st)+c_testSrcRef'46testExp'461385_case_62 x1 x320 x506 x3@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('w'))((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('g'))((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('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('s'))((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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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.c_show(x3)(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_62 x1 x320 x506 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_62(x1)(x320)(x506)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_62 x1 x320 x506 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_62")(x)++++c_testSrcRef'46testExp'461385_case_61 x1 x3 x320 x506 x587 x586@(Curry.Module.SrcRef.C_Tree x588 x589) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_60(x1)(x3)(x320)(x506)(x587)(x589)(x588)(st)+c_testSrcRef'46testExp'461385_case_61 x1 x3 x320 x506 x587 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_61(x1)(x3)(x320)(x506)(x587)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_61 x1 x3 x320 x506 x587 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_61")(x)++++c_testSrcRef'46testExp'461385_case_60 x1 x3 x320 x506 x587 x589 x588@((Curry.Module.Prelude.:<) x590 x591) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_59(x1)(x3)(x320)(x506)(x587)(x589)(x590)(x591)(st)+c_testSrcRef'46testExp'461385_case_60 x1 x3 x320 x506 x587 x589 x588@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('w'))((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('g'))((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('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('s'))((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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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.c_show(x3)(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_60 x1 x3 x320 x506 x587 x589 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_60(x1)(x3)(x320)(x506)(x587)(x589)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_60 x1 x3 x320 x506 x587 x589 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_60")(x)++++c_testSrcRef'46testExp'461385_case_59 x1 x3 x320 x506 x587 x589 x590 x591@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_58(x1)(x3)(x320)(x506)(x589)(x590)(x587)(st)+c_testSrcRef'46testExp'461385_case_59 x1 x3 x320 x506 x587 x589 x590 x591@((Curry.Module.Prelude.:<) x718 x719) 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('w'))((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('g'))((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('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('s'))((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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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.c_show(x3)(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_59 x1 x3 x320 x506 x587 x589 x590 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_59(x1)(x3)(x320)(x506)(x587)(x589)(x590)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_59 x1 x3 x320 x506 x587 x589 x590 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_59")(x)++++c_testSrcRef'46testExp'461385_case_58 x1 x3 x320 x506 x589 x590 x587@Curry.Module.Prelude.List st = let {x592 = Curry.Module.SrcRef.c_srcAt(x1)(x590)(st)} in Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_57(x1)(x320)(x506)(x589)(x590)(x592)(st)+c_testSrcRef'46testExp'461385_case_58 x1 x3 x320 x506 x589 x590 x587@((Curry.Module.Prelude.:<) x716 x717) 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('w'))((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('g'))((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('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('s'))((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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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.c_show(x3)(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_58 x1 x3 x320 x506 x589 x590 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_58(x1)(x3)(x320)(x506)(x589)(x590)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_58 x1 x3 x320 x506 x589 x590 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_58")(x)++++c_testSrcRef'46testExp'461385_case_57 x1 x320 x506 x589 x590 x592@(Curry.Module.Prelude.C_Just x593) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_56(x1)(x320)(x506)(x589)(x590)(x592)(x593)(st)+c_testSrcRef'46testExp'461385_case_57 x1 x320 x506 x589 x590 x592@Curry.Module.Prelude.C_Nothing 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(Curry.Module.Prelude.C_Nothing)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_57 x1 x320 x506 x589 x590 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_57(x1)(x320)(x506)(x589)(x590)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_57 x1 x320 x506 x589 x590 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_57")(x)++++c_testSrcRef'46testExp'461385_case_56 x1 x320 x506 x589 x590 x592 x593@(Curry.Module.SrcRef.C_SrcExpr x594 x595 x596) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_55(x1)(x320)(x506)(x589)(x590)(x592)(x596)(st)+c_testSrcRef'46testExp'461385_case_56 x1 x320 x506 x589 x590 x592 x593@(Curry.Module.SrcRef.C_SrcDecl x696) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_56 x1 x320 x506 x589 x590 x592 x593@(Curry.Module.SrcRef.C_SrcCon x697 x698) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_56 x1 x320 x506 x589 x590 x592 x593@(Curry.Module.SrcRef.C_SrcConTerm x699 x700 x701) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_56 x1 x320 x506 x589 x590 x592 x593@(Curry.Module.SrcRef.C_SrcNew x702 x703) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_56 x1 x320 x506 x589 x590 x592 x593@(Curry.Module.SrcRef.C_SrcRhs x704 x705 x706) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_56 x1 x320 x506 x589 x590 x592 x593@(Curry.Module.SrcRef.C_SrcId x707 x708) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_56 x1 x320 x506 x589 x590 x592 x593@(Curry.Module.SrcRef.C_SrcCond x709 x710 x711 x712) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_56 x1 x320 x506 x589 x590 x592 x593@(Curry.Module.SrcRef.C_SrcAlt x713 x714 x715) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_56 x1 x320 x506 x589 x590 x592 (Curry.Module.SrcRef.C_SrcEntityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_56(x1)(x320)(x506)(x589)(x590)(x592)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_56 x1 x320 x506 x589 x590 x592 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_56")(x)++++c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_Constructor x597) st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(Curry.Module.SrcRef.c_identName(x597)(st))(x506)(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_and(st))(Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)))(x320)(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.pc))((Curry.Module.Prelude.:<)))(Curry.Module.Prelude.List)))(x589)(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_List x598) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_54(x1)(x320)(x506)(x589)(x598)(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_Literal x601) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_53(x1)(x320)(x506)(x589)(x590)(x592)(x601)(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_InfixApply x638 x639 x640) st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(Curry.Module.SrcRef.c_opName(x639)(st))(x506)(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_and(st))(Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)))(x320)(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.pc))((Curry.Module.Prelude.:<)))(Curry.Module.Prelude.List)))(x589)(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_ListCompr x641 x642) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_43(x1)(x320)(x506)(x589)(x590)(x592)(x642)(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_Variable x659) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_Paren x660) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_Typed x661 x662) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_Tuple x663) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_EnumFrom x664) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_EnumFromThen x665 x666) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_EnumFromTo x667 x668) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_EnumFromThenTo x669 x670 x671) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_UnaryMinus x672 x673) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_Apply x674 x675) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_LeftSection x676 x677) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_RightSection x678 x679) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_Lambda x680 x681) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_Let x682 x683) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_Do x684 x685) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_IfThenElse x686 x687 x688) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_Case x689 x690) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_RecordConstr x691) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_RecordSelection x692 x693) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x596@(Curry.Module.CurrySyntax.C_RecordUpdate x694 x695) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_55(x1)(x320)(x506)(x589)(x590)(x592)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_55 x1 x320 x506 x589 x590 x592 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_55")(x)++++c_testSrcRef'46testExp'461385_case_43 x1 x320 x506 x589 x590 x592 x642@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_42(x1)(x320)(x506)(x590)(x589)(st)+c_testSrcRef'46testExp'461385_case_43 x1 x320 x506 x589 x590 x592 x642@((Curry.Module.Prelude.:<) x657 x658) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_43 x1 x320 x506 x589 x590 x592 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_43(x1)(x320)(x506)(x589)(x590)(x592)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_43 x1 x320 x506 x589 x590 x592 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_43")(x)++++c_testSrcRef'46testExp'461385_case_42 x1 x320 x506 x590 x589@((Curry.Module.Prelude.:<) x643 x644) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_41(x1)(x320)(x506)(x589)(x590)(x643)(x644)(st)+c_testSrcRef'46testExp'461385_case_42 x1 x320 x506 x590 x589@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('w'))((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('g'))((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('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('s'))((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('l'))((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(' '))((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('r'))((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(x589)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_42 x1 x320 x506 x590 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_42(x1)(x320)(x506)(x590)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_42 x1 x320 x506 x590 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_42")(x)++++c_testSrcRef'46testExp'461385_case_41 x1 x320 x506 x589 x590 x643 x644@((Curry.Module.Prelude.:<) x645 x646) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_40(x1)(x320)(x506)(x589)(x590)(x643)(x646)(x645)(st)+c_testSrcRef'46testExp'461385_case_41 x1 x320 x506 x589 x590 x643 x644@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('w'))((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('g'))((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('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('s'))((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('l'))((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(' '))((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('r'))((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(x589)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_41 x1 x320 x506 x589 x590 x643 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_41(x1)(x320)(x506)(x589)(x590)(x643)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_41 x1 x320 x506 x589 x590 x643 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_41")(x)++++c_testSrcRef'46testExp'461385_case_40 x1 x320 x506 x589 x590 x643 x646 x645@(Curry.Module.SrcRef.C_Tree x647 x648) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_39(x1)(x320)(x506)(x589)(x590)(x643)(x646)(x648)(x647)(st)+c_testSrcRef'46testExp'461385_case_40 x1 x320 x506 x589 x590 x643 x646 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_40(x1)(x320)(x506)(x589)(x590)(x643)(x646)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_40 x1 x320 x506 x589 x590 x643 x646 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_40")(x)++++c_testSrcRef'46testExp'461385_case_39 x1 x320 x506 x589 x590 x643 x646 x648 x647@((Curry.Module.Prelude.:<) x649 x650) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_38(x1)(x320)(x506)(x589)(x590)(x643)(x646)(x648)(x649)(x650)(st)+c_testSrcRef'46testExp'461385_case_39 x1 x320 x506 x589 x590 x643 x646 x648 x647@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('w'))((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('g'))((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('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('s'))((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('l'))((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(' '))((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('r'))((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(x589)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_39 x1 x320 x506 x589 x590 x643 x646 x648 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_39(x1)(x320)(x506)(x589)(x590)(x643)(x646)(x648)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_39 x1 x320 x506 x589 x590 x643 x646 x648 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_39")(x)++++c_testSrcRef'46testExp'461385_case_38 x1 x320 x506 x589 x590 x643 x646 x648 x649 x650@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_37(x1)(x320)(x506)(x589)(x590)(x643)(x646)(x649)(x648)(st)+c_testSrcRef'46testExp'461385_case_38 x1 x320 x506 x589 x590 x643 x646 x648 x649 x650@((Curry.Module.Prelude.:<) x655 x656) 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('w'))((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('g'))((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('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('s'))((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('l'))((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(' '))((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('r'))((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(x589)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_38 x1 x320 x506 x589 x590 x643 x646 x648 x649 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_38(x1)(x320)(x506)(x589)(x590)(x643)(x646)(x648)(x649)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_38 x1 x320 x506 x589 x590 x643 x646 x648 x649 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_38")(x)++++c_testSrcRef'46testExp'461385_case_37 x1 x320 x506 x589 x590 x643 x646 x649 x648@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_36(x1)(x320)(x506)(x589)(x590)(x643)(x649)(x646)(st)+c_testSrcRef'46testExp'461385_case_37 x1 x320 x506 x589 x590 x643 x646 x649 x648@((Curry.Module.Prelude.:<) x653 x654) 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('w'))((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('g'))((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('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('s'))((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('l'))((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(' '))((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('r'))((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(x589)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_37 x1 x320 x506 x589 x590 x643 x646 x649 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_37(x1)(x320)(x506)(x589)(x590)(x643)(x646)(x649)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_37 x1 x320 x506 x589 x590 x643 x646 x649 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_37")(x)++++c_testSrcRef'46testExp'461385_case_36 x1 x320 x506 x589 x590 x643 x649 x646@Curry.Module.Prelude.List st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x506)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(st))(Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x590)(x649)(st))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)(Curry.Module.Prelude.c_head(x320)(st))((Curry.Module.Prelude.:<)(x643)(Curry.Module.Prelude.List))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_36 x1 x320 x506 x589 x590 x643 x649 x646@((Curry.Module.Prelude.:<) x651 x652) 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('w'))((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('g'))((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('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('s'))((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('l'))((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(' '))((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('r'))((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(x589)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_36 x1 x320 x506 x589 x590 x643 x649 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_36(x1)(x320)(x506)(x589)(x590)(x643)(x649)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_36 x1 x320 x506 x589 x590 x643 x649 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_36")(x)++++c_testSrcRef'46testExp'461385_case_53 x1 x320 x506 x589 x590 x592 x601@(Curry.Module.CurrySyntax.C_String x602) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_52(x1)(x320)(x506)(x589)(x602)(st)+c_testSrcRef'46testExp'461385_case_53 x1 x320 x506 x589 x590 x592 x601@(Curry.Module.CurrySyntax.C_Char x634) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_53 x1 x320 x506 x589 x590 x592 x601@(Curry.Module.CurrySyntax.C_Int x635 x636) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_53 x1 x320 x506 x589 x590 x592 x601@(Curry.Module.CurrySyntax.C_Float x637) 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('w'))((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('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('o'))((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('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('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('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.:<)(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('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('t'))((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('c'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x506)(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(Curry.Module.SrcRef.c_show'39(st))(x592)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x590)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_53 x1 x320 x506 x589 x590 x592 (Curry.Module.CurrySyntax.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_53(x1)(x320)(x506)(x589)(x590)(x592)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_53 x1 x320 x506 x589 x590 x592 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_53")(x)++++c_testSrcRef'46testExp'461385_case_52 x1 x320 x506 x589 x602@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x506)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_52 x1 x320 x506 x589 x602@((Curry.Module.Prelude.:<) x603 x604) st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x506)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(st))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_51(x1)(x589)(x320)(st))(st)+c_testSrcRef'46testExp'461385_case_52 x1 x320 x506 x589 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_52(x1)(x320)(x506)(x589)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_52 x1 x320 x506 x589 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_52")(x)++++c_testSrcRef'46testExp'461385_case_51 x1 x589 x320@((Curry.Module.Prelude.:<) x605 x606) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_50(x1)(x589)(x606)(x605)(st)+c_testSrcRef'46testExp'461385_case_51 x1 x589 x320@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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.:<)(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('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('r'))((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('o'))((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('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_51 x1 x589 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_51(x1)(x589)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_51 x1 x589 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_51")(x)++++c_testSrcRef'46testExp'461385_case_50 x1 x589 x606 x605@(Curry.Module.FlatCurry.C_Lit x607) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_49(x1)(x589)(x606)(x607)(st)+c_testSrcRef'46testExp'461385_case_50 x1 x589 x606 x605@(Curry.Module.FlatCurry.C_Var x621) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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.:<)(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('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('r'))((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('o'))((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('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_50 x1 x589 x606 x605@(Curry.Module.FlatCurry.C_Comb x622 x623 x624) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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.:<)(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('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('r'))((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('o'))((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('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_50 x1 x589 x606 x605@(Curry.Module.FlatCurry.C_Let x625 x626) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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.:<)(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('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('r'))((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('o'))((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('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_50 x1 x589 x606 x605@(Curry.Module.FlatCurry.C_Free x627 x628) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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.:<)(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('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('r'))((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('o'))((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('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_50 x1 x589 x606 x605@(Curry.Module.FlatCurry.C_Or x629 x630) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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.:<)(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('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('r'))((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('o'))((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('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_50 x1 x589 x606 x605@(Curry.Module.FlatCurry.C_Case x631 x632 x633) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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.:<)(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('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('r'))((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('o'))((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('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_50 x1 x589 x606 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_50(x1)(x589)(x606)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_50 x1 x589 x606 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_50")(x)++++c_testSrcRef'46testExp'461385_case_49 x1 x589 x606 x607@(Curry.Module.FlatCurry.C_Charc x608) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_48(x1)(x589)(x606)(st)+c_testSrcRef'46testExp'461385_case_49 x1 x589 x606 x607@(Curry.Module.FlatCurry.C_Intc x619) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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.:<)(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('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('r'))((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('o'))((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('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_49 x1 x589 x606 x607@(Curry.Module.FlatCurry.C_Floatc x620) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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.:<)(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('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('r'))((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('o'))((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('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_49 x1 x589 x606 (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_49(x1)(x589)(x606)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_49 x1 x589 x606 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_49")(x)++++c_testSrcRef'46testExp'461385_case_48 x1 x589 x606@((Curry.Module.Prelude.:<) x609 x610) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_47(x1)(x589)(x609)(x610)(st)+c_testSrcRef'46testExp'461385_case_48 x1 x589 x606@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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.:<)(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('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('r'))((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('o'))((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('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_48 x1 x589 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_48(x1)(x589)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_48 x1 x589 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_48")(x)++++c_testSrcRef'46testExp'461385_case_47 x1 x589 x609 x610@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_46(x1)(x609)(x589)(st)+c_testSrcRef'46testExp'461385_case_47 x1 x589 x609 x610@((Curry.Module.Prelude.:<) x617 x618) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('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.:<)(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('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('r'))((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('o'))((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('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_47 x1 x589 x609 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_47(x1)(x589)(x609)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_47 x1 x589 x609 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_47")(x)++++c_testSrcRef'46testExp'461385_case_46 x1 x609 x589@((Curry.Module.Prelude.:<) x611 x612) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_45(x1)(x589)(x609)(x612)(st)+c_testSrcRef'46testExp'461385_case_46 x1 x609 x589@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('w'))((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('g'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x589)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_46 x1 x609 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_46(x1)(x609)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_46 x1 x609 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_46")(x)++++c_testSrcRef'46testExp'461385_case_45 x1 x589 x609 x612@((Curry.Module.Prelude.:<) x613 x614) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_44(x1)(x589)(x609)(x613)(x614)(st)+c_testSrcRef'46testExp'461385_case_45 x1 x589 x609 x612@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('w'))((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('g'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x589)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_45 x1 x589 x609 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_45(x1)(x589)(x609)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_45 x1 x589 x609 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_45")(x)++++c_testSrcRef'46testExp'461385_case_44 x1 x589 x609 x613 x614@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)(x609)((Curry.Module.Prelude.:<)(x613)(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_44 x1 x589 x609 x613 x614@((Curry.Module.Prelude.:<) x615 x616) 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('w'))((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('g'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x589)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_44 x1 x589 x609 x613 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_44(x1)(x589)(x609)(x613)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_44 x1 x589 x609 x613 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_44")(x)++++c_testSrcRef'46testExp'461385_case_54 x1 x320 x506 x589 x598@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x506)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(st)+c_testSrcRef'46testExp'461385_case_54 x1 x320 x506 x589 x598@((Curry.Module.Prelude.:<) x599 x600) st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x506)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_and(st))(Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)))(x320)(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.pc))((Curry.Module.Prelude.:<)))(Curry.Module.Prelude.List)))(x589)(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_54 x1 x320 x506 x589 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_54(x1)(x320)(x506)(x589)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_54 x1 x320 x506 x589 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_54")(x)++++c_testSrcRef'46testExp'461385_case_71 x1 x320 x506 x3@((Curry.Module.Prelude.:<) x507 x508) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_70(x1)(x320)(x506)(x508)(x507)(st)+c_testSrcRef'46testExp'461385_case_71 x1 x320 x506 x3@Curry.Module.Prelude.List st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('g'))((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('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('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('t'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_71 x1 x320 x506 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_71(x1)(x320)(x506)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_71 x1 x320 x506 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_71")(x)++++c_testSrcRef'46testExp'461385_case_70 x1 x320 x506 x508 x507@(Curry.Module.SrcRef.C_Tree x509 x510) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_69(x1)(x320)(x506)(x508)(x510)(x509)(st)+c_testSrcRef'46testExp'461385_case_70 x1 x320 x506 x508 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_70(x1)(x320)(x506)(x508)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_70 x1 x320 x506 x508 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_70")(x)++++c_testSrcRef'46testExp'461385_case_69 x1 x320 x506 x508 x510 x509@((Curry.Module.Prelude.:<) x511 x512) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_68(x1)(x320)(x506)(x508)(x510)(x511)(x512)(st)+c_testSrcRef'46testExp'461385_case_69 x1 x320 x506 x508 x510 x509@Curry.Module.Prelude.List st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('g'))((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('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('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('t'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_69 x1 x320 x506 x508 x510 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_69(x1)(x320)(x506)(x508)(x510)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_69 x1 x320 x506 x508 x510 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_69")(x)++++c_testSrcRef'46testExp'461385_case_68 x1 x320 x506 x508 x510 x511 x512@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_67(x1)(x320)(x506)(x510)(x511)(x508)(st)+c_testSrcRef'46testExp'461385_case_68 x1 x320 x506 x508 x510 x511 x512@((Curry.Module.Prelude.:<) x584 x585) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('g'))((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('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('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('t'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_68 x1 x320 x506 x508 x510 x511 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_68(x1)(x320)(x506)(x508)(x510)(x511)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_68 x1 x320 x506 x508 x510 x511 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_68")(x)++++c_testSrcRef'46testExp'461385_case_67 x1 x320 x506 x510 x511 x508@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_66(x1)(x320)(x506)(x510)(x511)(Curry.Module.SrcRef.c_srcAt(x1)(x511)(st))(st)+c_testSrcRef'46testExp'461385_case_67 x1 x320 x506 x510 x511 x508@((Curry.Module.Prelude.:<) x582 x583) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('g'))((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('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('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('t'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_67 x1 x320 x506 x510 x511 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_67(x1)(x320)(x506)(x510)(x511)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_67 x1 x320 x506 x510 x511 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_67")(x)++++c_testSrcRef'46testExp'461385_case_66 x1 x320 x506 x510 x511 x512@(Curry.Module.Prelude.C_Just x513) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_65(x1)(x320)(x506)(x510)(x513)(st)+c_testSrcRef'46testExp'461385_case_66 x1 x320 x506 x510 x511 x512@Curry.Module.Prelude.C_Nothing st = Curry.Module.Prelude.c_error((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('s'))((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('t'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))(st)+c_testSrcRef'46testExp'461385_case_66 x1 x320 x506 x510 x511 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_66(x1)(x320)(x506)(x510)(x511)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_66 x1 x320 x506 x510 x511 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_66")(x)++++c_testSrcRef'46testExp'461385_case_65 x1 x320 x506 x510 x513@(Curry.Module.SrcRef.C_SrcExpr x514 x515 x516) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_64(x1)(x320)(x506)(x510)(x516)(st)+c_testSrcRef'46testExp'461385_case_65 x1 x320 x506 x510 x513@(Curry.Module.SrcRef.C_SrcDecl x562) st = Curry.Module.Prelude.c_error((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('s'))((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('t'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))(st)+c_testSrcRef'46testExp'461385_case_65 x1 x320 x506 x510 x513@(Curry.Module.SrcRef.C_SrcCon x563 x564) st = Curry.Module.Prelude.c_error((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('s'))((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('t'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))(st)+c_testSrcRef'46testExp'461385_case_65 x1 x320 x506 x510 x513@(Curry.Module.SrcRef.C_SrcConTerm x565 x566 x567) st = Curry.Module.Prelude.c_error((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('s'))((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('t'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))(st)+c_testSrcRef'46testExp'461385_case_65 x1 x320 x506 x510 x513@(Curry.Module.SrcRef.C_SrcNew x568 x569) st = Curry.Module.Prelude.c_error((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('s'))((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('t'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))(st)+c_testSrcRef'46testExp'461385_case_65 x1 x320 x506 x510 x513@(Curry.Module.SrcRef.C_SrcRhs x570 x571 x572) st = Curry.Module.Prelude.c_error((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('s'))((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('t'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))(st)+c_testSrcRef'46testExp'461385_case_65 x1 x320 x506 x510 x513@(Curry.Module.SrcRef.C_SrcId x573 x574) st = Curry.Module.Prelude.c_error((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('s'))((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('t'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))(st)+c_testSrcRef'46testExp'461385_case_65 x1 x320 x506 x510 x513@(Curry.Module.SrcRef.C_SrcCond x575 x576 x577 x578) st = Curry.Module.Prelude.c_error((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('s'))((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('t'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))(st)+c_testSrcRef'46testExp'461385_case_65 x1 x320 x506 x510 x513@(Curry.Module.SrcRef.C_SrcAlt x579 x580 x581) st = Curry.Module.Prelude.c_error((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('s'))((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('t'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))(st)+c_testSrcRef'46testExp'461385_case_65 x1 x320 x506 x510 (Curry.Module.SrcRef.C_SrcEntityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_65(x1)(x320)(x506)(x510)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_65 x1 x320 x506 x510 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_65")(x)++++c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_Tuple x517) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_and(st))(Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)))(x320)(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.pc))((Curry.Module.Prelude.:<)))(Curry.Module.Prelude.List)))(x510)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_Constructor x518) st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(Curry.Module.SrcRef.c_identName(x518)(st))(x506)(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_and(st))(Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)))(x320)(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.pc))((Curry.Module.Prelude.:<)))(Curry.Module.Prelude.List)))(x510)(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_Literal x519) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('6'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_Variable x520) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('6'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_Paren x521) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('6'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_Typed x522 x523) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('6'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_List x524) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('6'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_ListCompr x525 x526) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('6'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_EnumFrom x527) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('6'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_EnumFromThen x528 x529) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('6'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_EnumFromTo x530 x531) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('6'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_EnumFromThenTo x532 x533 x534) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('6'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_UnaryMinus x535 x536) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('6'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_Apply x537 x538) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('6'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_InfixApply x539 x540 x541) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('6'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_LeftSection x542 x543) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('6'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_RightSection x544 x545) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('6'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_Lambda x546 x547) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('6'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_Let x548 x549) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('6'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_Do x550 x551) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('6'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_IfThenElse x552 x553 x554) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('6'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_Case x555 x556) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('6'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_RecordConstr x557) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('6'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_RecordSelection x558 x559) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('6'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x516@(Curry.Module.CurrySyntax.C_RecordUpdate x560 x561) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('6'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_64(x1)(x320)(x506)(x510)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_64 x1 x320 x506 x510 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_64")(x)++++c_testSrcRef'46testExp'461385_case_113 x1 x3 x320 x319@(Curry.Module.Prelude.T2 x321 x322) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_112(x1)(x320)(x322)(x3)(st)+c_testSrcRef'46testExp'461385_case_113 x1 x3 x320 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_113(x1)(x3)(x320)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_113 x1 x3 x320 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_113")(x)++++c_testSrcRef'46testExp'461385_case_112 x1 x320 x322 x3@((Curry.Module.Prelude.:<) x323 x324) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_111(x1)(x320)(x322)(x324)(x323)(st)+c_testSrcRef'46testExp'461385_case_112 x1 x320 x322 x3@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('w'))((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('g'))((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('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('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('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(' '))((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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))(x322)(st))(st)+c_testSrcRef'46testExp'461385_case_112 x1 x320 x322 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_112(x1)(x320)(x322)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_112 x1 x320 x322 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_112")(x)++++c_testSrcRef'46testExp'461385_case_111 x1 x320 x322 x324 x323@(Curry.Module.SrcRef.C_Tree x325 x326) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_110(x1)(x320)(x322)(x324)(x326)(x325)(st)+c_testSrcRef'46testExp'461385_case_111 x1 x320 x322 x324 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_111(x1)(x320)(x322)(x324)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_111 x1 x320 x322 x324 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_111")(x)++++c_testSrcRef'46testExp'461385_case_110 x1 x320 x322 x324 x326 x325@((Curry.Module.Prelude.:<) x327 x328) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_109(x1)(x320)(x322)(x324)(x326)(x327)(x328)(st)+c_testSrcRef'46testExp'461385_case_110 x1 x320 x322 x324 x326 x325@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('w'))((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('g'))((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('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('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('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(' '))((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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))(x322)(st))(st)+c_testSrcRef'46testExp'461385_case_110 x1 x320 x322 x324 x326 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_110(x1)(x320)(x322)(x324)(x326)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_110 x1 x320 x322 x324 x326 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_110")(x)++++c_testSrcRef'46testExp'461385_case_109 x1 x320 x322 x324 x326 x327 x328@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_108(x1)(x320)(x322)(x326)(x327)(x324)(st)+c_testSrcRef'46testExp'461385_case_109 x1 x320 x322 x324 x326 x327 x328@((Curry.Module.Prelude.:<) x503 x504) 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('w'))((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('g'))((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('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('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('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(' '))((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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))(x322)(st))(st)+c_testSrcRef'46testExp'461385_case_109 x1 x320 x322 x324 x326 x327 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_109(x1)(x320)(x322)(x324)(x326)(x327)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_109 x1 x320 x322 x324 x326 x327 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_109")(x)++++c_testSrcRef'46testExp'461385_case_108 x1 x320 x322 x326 x327 x324@Curry.Module.Prelude.List st = let {x329 = Curry.Module.SrcRef.c_srcAt(x1)(x327)(st)} in Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_107(x1)(x320)(x322)(x326)(x327)(x329)(st)+c_testSrcRef'46testExp'461385_case_108 x1 x320 x322 x326 x327 x324@((Curry.Module.Prelude.:<) x501 x502) 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('w'))((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('g'))((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('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('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('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(' '))((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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))(x322)(st))(st)+c_testSrcRef'46testExp'461385_case_108 x1 x320 x322 x326 x327 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_108(x1)(x320)(x322)(x326)(x327)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_108 x1 x320 x322 x326 x327 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_108")(x)++++c_testSrcRef'46testExp'461385_case_107 x1 x320 x322 x326 x327 x329@(Curry.Module.Prelude.C_Just x330) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_106(x1)(x320)(x322)(x326)(x327)(x329)(x330)(st)+c_testSrcRef'46testExp'461385_case_107 x1 x320 x322 x326 x327 x329@Curry.Module.Prelude.C_Nothing 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('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('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('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('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(x322)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_107 x1 x320 x322 x326 x327 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_107(x1)(x320)(x322)(x326)(x327)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_107 x1 x320 x322 x326 x327 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_107")(x)++++c_testSrcRef'46testExp'461385_case_106 x1 x320 x322 x326 x327 x329 x330@(Curry.Module.SrcRef.C_SrcExpr x331 x332 x333) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_105(x1)(x320)(x322)(x326)(x327)(x330)(x333)(st)+c_testSrcRef'46testExp'461385_case_106 x1 x320 x322 x326 x327 x329 x330@(Curry.Module.SrcRef.C_SrcCond x437 x438 x439 x440) st = Curry.Module.Prelude.op_124_124(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x322)((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.c_apply(Curry.Module.Prelude.c_and(st))(Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)))(x320)(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.pc))((Curry.Module.Prelude.:<)))(Curry.Module.Prelude.List)))(x326)(st))(st))(st))(st))(Curry.Module.Prelude.op_124_124(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x322)((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('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))(Curry.Module.Prelude.List)))))))(st))(Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46is'461385((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('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('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((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('s'))(Curry.Module.Prelude.List))))))))))))))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_null))(x320)(st))(Curry.Module.SrcRef.c_testSrcRef'46is'461385((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('e'))((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('m'))((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('y'))(Curry.Module.Prelude.List)))))))))))))))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_null))(x326)(st))(st))(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('g'))((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('r'))((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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((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('c'))((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.List)))))))))))))))))(x322)(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_106 x1 x320 x322 x326 x327 x329 x330@(Curry.Module.SrcRef.C_SrcConTerm x441 x442 x443) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_77(x322)(x326)(x327)(x329)(x330)(x442)(x441)(st)+c_testSrcRef'46testExp'461385_case_106 x1 x320 x322 x326 x327 x329 x330@(Curry.Module.SrcRef.C_SrcDecl x488) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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.SrcRef.C_SrcDecl(x488))(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_106 x1 x320 x322 x326 x327 x329 x330@(Curry.Module.SrcRef.C_SrcCon x489 x490) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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.SrcRef.C_SrcCon(x489)(x490))(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_106 x1 x320 x322 x326 x327 x329 x330@(Curry.Module.SrcRef.C_SrcNew x491 x492) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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.SrcRef.C_SrcNew(x491)(x492))(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_106 x1 x320 x322 x326 x327 x329 x330@(Curry.Module.SrcRef.C_SrcRhs x493 x494 x495) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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.SrcRef.C_SrcRhs(x493)(x494)(x495))(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_106 x1 x320 x322 x326 x327 x329 x330@(Curry.Module.SrcRef.C_SrcId x496 x497) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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.SrcRef.C_SrcId(x496)(x497))(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_106 x1 x320 x322 x326 x327 x329 x330@(Curry.Module.SrcRef.C_SrcAlt x498 x499 x500) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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.SrcRef.C_SrcAlt(x498)(x499)(x500))(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_106 x1 x320 x322 x326 x327 x329 (Curry.Module.SrcRef.C_SrcEntityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_106(x1)(x320)(x322)(x326)(x327)(x329)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_106 x1 x320 x322 x326 x327 x329 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_106")(x)++++c_testSrcRef'46testExp'461385_case_77 x322 x326 x327 x329 x330 x442 x441@(Curry.Module.CurrySyntax.C_PatternDecl x444 x445 x446) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_76(x322)(x326)(x327)(x329)(x330)(x442)(st)+c_testSrcRef'46testExp'461385_case_77 x322 x326 x327 x329 x330 x442 x441@(Curry.Module.CurrySyntax.C_ImportDecl x449 x450 x451 x452 x453) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_77 x322 x326 x327 x329 x330 x442 x441@(Curry.Module.CurrySyntax.C_InfixDecl x454 x455 x456 x457) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_77 x322 x326 x327 x329 x330 x442 x441@(Curry.Module.CurrySyntax.C_DataDecl x458 x459 x460 x461) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_77 x322 x326 x327 x329 x330 x442 x441@(Curry.Module.CurrySyntax.C_NewtypeDecl x462 x463 x464 x465) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_77 x322 x326 x327 x329 x330 x442 x441@(Curry.Module.CurrySyntax.C_TypeDecl x466 x467 x468 x469) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_77 x322 x326 x327 x329 x330 x442 x441@(Curry.Module.CurrySyntax.C_TypeSig x470 x471 x472) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_77 x322 x326 x327 x329 x330 x442 x441@(Curry.Module.CurrySyntax.C_EvalAnnot x473 x474 x475) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_77 x322 x326 x327 x329 x330 x442 x441@(Curry.Module.CurrySyntax.C_FunctionDecl x476 x477 x478) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_77 x322 x326 x327 x329 x330 x442 x441@(Curry.Module.CurrySyntax.C_ExternalDecl x479 x480 x481 x482 x483) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_77 x322 x326 x327 x329 x330 x442 x441@(Curry.Module.CurrySyntax.C_FlatExternalDecl x484 x485) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_77 x322 x326 x327 x329 x330 x442 x441@(Curry.Module.CurrySyntax.C_ExtraVariables x486 x487) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_77 x322 x326 x327 x329 x330 x442 (Curry.Module.CurrySyntax.C_DeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_77(x322)(x326)(x327)(x329)(x330)(x442)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_77 x322 x326 x327 x329 x330 x442 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_77")(x)++++c_testSrcRef'46testExp'461385_case_76 x322 x326 x327 x329 x330 x442@Curry.Module.Prelude.C_Nothing st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_75(x322)(x326)(x327)(x329)(Curry.Module.Prelude.c_null(x326)(st))(st)+c_testSrcRef'46testExp'461385_case_76 x322 x326 x327 x329 x330 x442@(Curry.Module.Prelude.C_Just x448) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_76 x322 x326 x327 x329 x330 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_76(x322)(x326)(x327)(x329)(x330)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_76 x322 x326 x327 x329 x330 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_76")(x)++++c_testSrcRef'46testExp'461385_case_75 x322 x326 x327 x329 x330@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.C_True+c_testSrcRef'46testExp'461385_case_75 x322 x326 x327 x329 x330@Curry.Module.Prelude.C_False st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_74(x322)(x327)(x329)(st)+c_testSrcRef'46testExp'461385_case_75 x322 x326 x327 x329 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_75(x322)(x326)(x327)(x329)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_75 x322 x326 x327 x329 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_75")(x)++++c_testSrcRef'46testExp'461385_case_74 x322 x327 x329@(Curry.Module.Prelude.C_Just x447) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x447)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_74 x322 x327 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_74(x322)(x327)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_74 x322 x327 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_74")(x)++++c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_Variable x334) st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(Curry.Module.SrcRef.c_identName(x334)(st))(x322)(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_and(st))(Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)))(x320)(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.pc))((Curry.Module.Prelude.:<)))(Curry.Module.Prelude.List)))(x326)(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_InfixApply x335 x336 x337) st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(Curry.Module.SrcRef.c_opName(x336)(st))(x322)(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_and(st))(Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)))(x320)(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.pc))((Curry.Module.Prelude.:<)))(Curry.Module.Prelude.List)))(x326)(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_Do x338 x339) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_104(x1)(x320)(x322)(x326)(x338)(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_ListCompr x346 x347) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_102(x1)(x320)(x322)(x326)(x327)(x330)(x347)(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_Lambda x400 x401) st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46is'461385((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('l'))((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('b'))((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(' '))((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)))))))))))))))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_isLambdaName))(x322)(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_and(st))(Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)))(x320)(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.pc))((Curry.Module.Prelude.:<)))(Curry.Module.Prelude.List)))(x326)(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_Apply x402 x403) st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x322)((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.c_apply(Curry.Module.Prelude.c_and(st))(Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)))(x320)(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.pc))((Curry.Module.Prelude.:<)))(Curry.Module.Prelude.List)))(x326)(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_Literal x404) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_Constructor x405) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_Paren x406) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_Typed x407 x408) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_Tuple x409) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_List x410) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_EnumFrom x411) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_EnumFromThen x412 x413) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_EnumFromTo x414 x415) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_EnumFromThenTo x416 x417 x418) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_UnaryMinus x419 x420) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_LeftSection x421 x422) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_RightSection x423 x424) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_Let x425 x426) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_IfThenElse x427 x428 x429) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_Case x430 x431) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_RecordConstr x432) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_RecordSelection x433 x434) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x333@(Curry.Module.CurrySyntax.C_RecordUpdate x435 x436) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_105(x1)(x320)(x322)(x326)(x327)(x330)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_105 x1 x320 x322 x326 x327 x330 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_105")(x)++++c_testSrcRef'46testExp'461385_case_102 x1 x320 x322 x326 x327 x330 x347@((Curry.Module.Prelude.:<) x348 x349) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_101(x1)(x320)(x322)(x326)(x327)(x330)(x348)(st)+c_testSrcRef'46testExp'461385_case_102 x1 x320 x322 x326 x327 x330 x347@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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_102 x1 x320 x322 x326 x327 x330 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_102(x1)(x320)(x322)(x326)(x327)(x330)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_102 x1 x320 x322 x326 x327 x330 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_102")(x)++++c_testSrcRef'46testExp'461385_case_101 x1 x320 x322 x326 x327 x330 x348@(Curry.Module.CurrySyntax.C_StmtBind x350 x351) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_100(x1)(x322)(x326)(x327)(x320)(st)+c_testSrcRef'46testExp'461385_case_101 x1 x320 x322 x326 x327 x330 x348@(Curry.Module.CurrySyntax.C_StmtExpr x398) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_101 x1 x320 x322 x326 x327 x330 x348@(Curry.Module.CurrySyntax.C_StmtDecl x399) 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('w'))((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('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('o'))((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('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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_43_43(x322)(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(x330)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.c_show(x327)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_101 x1 x320 x322 x326 x327 x330 (Curry.Module.CurrySyntax.C_StatementOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_101(x1)(x320)(x322)(x326)(x327)(x330)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_101 x1 x320 x322 x326 x327 x330 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_101")(x)++++c_testSrcRef'46testExp'461385_case_100 x1 x322 x326 x327 x320@((Curry.Module.Prelude.:<) x352 x353) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_99(x1)(x320)(x322)(x326)(x327)(x352)(x353)(st)+c_testSrcRef'46testExp'461385_case_100 x1 x322 x326 x327 x320@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('w'))((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('g'))((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('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((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('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('d'))((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('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((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('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('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('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('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.:<)(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(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x320)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_100 x1 x322 x326 x327 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_100(x1)(x322)(x326)(x327)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_100 x1 x322 x326 x327 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_100")(x)++++c_testSrcRef'46testExp'461385_case_99 x1 x320 x322 x326 x327 x352 x353@((Curry.Module.Prelude.:<) x354 x355) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_98(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x355)(st)+c_testSrcRef'46testExp'461385_case_99 x1 x320 x322 x326 x327 x352 x353@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('w'))((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('g'))((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('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((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('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('d'))((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('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((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('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('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('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('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.:<)(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(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x320)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_99 x1 x320 x322 x326 x327 x352 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_99(x1)(x320)(x322)(x326)(x327)(x352)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_99 x1 x320 x322 x326 x327 x352 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_99")(x)++++c_testSrcRef'46testExp'461385_case_98 x1 x320 x322 x326 x327 x352 x354 x355@((Curry.Module.Prelude.:<) x356 x357) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_97(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x357)(st)+c_testSrcRef'46testExp'461385_case_98 x1 x320 x322 x326 x327 x352 x354 x355@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_84(x1)(x322)(x327)(x352)(x354)(x326)(st)+c_testSrcRef'46testExp'461385_case_98 x1 x320 x322 x326 x327 x352 x354 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_98(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_98 x1 x320 x322 x326 x327 x352 x354 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_98")(x)++++c_testSrcRef'46testExp'461385_case_84 x1 x322 x327 x352 x354 x326@((Curry.Module.Prelude.:<) x384 x385) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_83(x1)(x322)(x326)(x327)(x352)(x354)(x384)(x385)(st)+c_testSrcRef'46testExp'461385_case_84 x1 x322 x327 x352 x354 x326@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('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('t'))((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(x326)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_84 x1 x322 x327 x352 x354 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_84(x1)(x322)(x327)(x352)(x354)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_84 x1 x322 x327 x352 x354 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_84")(x)++++c_testSrcRef'46testExp'461385_case_83 x1 x322 x326 x327 x352 x354 x384 x385@((Curry.Module.Prelude.:<) x386 x387) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_82(x1)(x322)(x326)(x327)(x352)(x354)(x384)(x387)(x386)(st)+c_testSrcRef'46testExp'461385_case_83 x1 x322 x326 x327 x352 x354 x384 x385@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('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('t'))((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(x326)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_83 x1 x322 x326 x327 x352 x354 x384 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_83(x1)(x322)(x326)(x327)(x352)(x354)(x384)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_83 x1 x322 x326 x327 x352 x354 x384 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_83")(x)++++c_testSrcRef'46testExp'461385_case_82 x1 x322 x326 x327 x352 x354 x384 x387 x386@(Curry.Module.SrcRef.C_Tree x388 x389) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_81(x1)(x322)(x326)(x327)(x352)(x354)(x384)(x387)(x389)(x388)(st)+c_testSrcRef'46testExp'461385_case_82 x1 x322 x326 x327 x352 x354 x384 x387 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_82(x1)(x322)(x326)(x327)(x352)(x354)(x384)(x387)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_82 x1 x322 x326 x327 x352 x354 x384 x387 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_82")(x)++++c_testSrcRef'46testExp'461385_case_81 x1 x322 x326 x327 x352 x354 x384 x387 x389 x388@((Curry.Module.Prelude.:<) x390 x391) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_80(x1)(x322)(x326)(x327)(x352)(x354)(x384)(x387)(x389)(x390)(x391)(st)+c_testSrcRef'46testExp'461385_case_81 x1 x322 x326 x327 x352 x354 x384 x387 x389 x388@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('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('t'))((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(x326)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_81 x1 x322 x326 x327 x352 x354 x384 x387 x389 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_81(x1)(x322)(x326)(x327)(x352)(x354)(x384)(x387)(x389)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_81 x1 x322 x326 x327 x352 x354 x384 x387 x389 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_81")(x)++++c_testSrcRef'46testExp'461385_case_80 x1 x322 x326 x327 x352 x354 x384 x387 x389 x390 x391@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_79(x1)(x322)(x326)(x327)(x352)(x354)(x384)(x387)(x390)(x389)(st)+c_testSrcRef'46testExp'461385_case_80 x1 x322 x326 x327 x352 x354 x384 x387 x389 x390 x391@((Curry.Module.Prelude.:<) x396 x397) 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('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('t'))((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(x326)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_80 x1 x322 x326 x327 x352 x354 x384 x387 x389 x390 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_80(x1)(x322)(x326)(x327)(x352)(x354)(x384)(x387)(x389)(x390)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_80 x1 x322 x326 x327 x352 x354 x384 x387 x389 x390 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_80")(x)++++c_testSrcRef'46testExp'461385_case_79 x1 x322 x326 x327 x352 x354 x384 x387 x390 x389@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_78(x1)(x322)(x326)(x327)(x352)(x354)(x384)(x390)(x387)(st)+c_testSrcRef'46testExp'461385_case_79 x1 x322 x326 x327 x352 x354 x384 x387 x390 x389@((Curry.Module.Prelude.:<) x394 x395) 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('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('t'))((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(x326)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_79 x1 x322 x326 x327 x352 x354 x384 x387 x390 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_79(x1)(x322)(x326)(x327)(x352)(x354)(x384)(x387)(x390)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_79 x1 x322 x326 x327 x352 x354 x384 x387 x390 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_79")(x)++++c_testSrcRef'46testExp'461385_case_78 x1 x322 x326 x327 x352 x354 x384 x390 x387@Curry.Module.Prelude.List st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x327)(x390)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x322)((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_38_38(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)(x352)((Curry.Module.Prelude.:<)(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x390)(Curry.Module.Prelude.List))(Curry.Module.Prelude.List))(Curry.Module.Prelude.List))(st))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)(x354)((Curry.Module.Prelude.:<)(x384)(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_78 x1 x322 x326 x327 x352 x354 x384 x390 x387@((Curry.Module.Prelude.:<) x392 x393) 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('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('t'))((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(x326)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_78 x1 x322 x326 x327 x352 x354 x384 x390 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_78(x1)(x322)(x326)(x327)(x352)(x354)(x384)(x390)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_78 x1 x322 x326 x327 x352 x354 x384 x390 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_78")(x)++++c_testSrcRef'46testExp'461385_case_97 x1 x320 x322 x326 x327 x352 x354 x356 x357@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_96(x1)(x320)(x322)(x327)(x352)(x354)(x356)(x326)(st)+c_testSrcRef'46testExp'461385_case_97 x1 x320 x322 x326 x327 x352 x354 x356 x357@((Curry.Module.Prelude.:<) x382 x383) 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('w'))((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('g'))((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('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((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('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('d'))((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('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((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('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('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('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('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.:<)(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(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x320)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_97 x1 x320 x322 x326 x327 x352 x354 x356 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_97(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_97 x1 x320 x322 x326 x327 x352 x354 x356 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_97")(x)++++c_testSrcRef'46testExp'461385_case_96 x1 x320 x322 x327 x352 x354 x356 x326@((Curry.Module.Prelude.:<) x358 x359) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_95(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x359)(x358)(st)+c_testSrcRef'46testExp'461385_case_96 x1 x320 x322 x327 x352 x354 x356 x326@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('w'))((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('g'))((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('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(' '))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T2(x326)(x320))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_96 x1 x320 x322 x327 x352 x354 x356 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_96(x1)(x320)(x322)(x327)(x352)(x354)(x356)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_96 x1 x320 x322 x327 x352 x354 x356 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_96")(x)++++c_testSrcRef'46testExp'461385_case_95 x1 x320 x322 x326 x327 x352 x354 x356 x359 x358@(Curry.Module.SrcRef.C_Tree x360 x361) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_94(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x359)(x361)(x360)(st)+c_testSrcRef'46testExp'461385_case_95 x1 x320 x322 x326 x327 x352 x354 x356 x359 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_95(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x359)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_95 x1 x320 x322 x326 x327 x352 x354 x356 x359 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_95")(x)++++c_testSrcRef'46testExp'461385_case_94 x1 x320 x322 x326 x327 x352 x354 x356 x359 x361 x360@((Curry.Module.Prelude.:<) x362 x363) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_93(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x359)(x361)(x362)(x363)(st)+c_testSrcRef'46testExp'461385_case_94 x1 x320 x322 x326 x327 x352 x354 x356 x359 x361 x360@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('w'))((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('g'))((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('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(' '))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T2(x326)(x320))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_94 x1 x320 x322 x326 x327 x352 x354 x356 x359 x361 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_94(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x359)(x361)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_94 x1 x320 x322 x326 x327 x352 x354 x356 x359 x361 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_94")(x)++++c_testSrcRef'46testExp'461385_case_93 x1 x320 x322 x326 x327 x352 x354 x356 x359 x361 x362 x363@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_92(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x359)(x362)(x361)(st)+c_testSrcRef'46testExp'461385_case_93 x1 x320 x322 x326 x327 x352 x354 x356 x359 x361 x362 x363@((Curry.Module.Prelude.:<) x380 x381) 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('w'))((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('g'))((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('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(' '))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T2(x326)(x320))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_93 x1 x320 x322 x326 x327 x352 x354 x356 x359 x361 x362 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_93(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x359)(x361)(x362)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_93 x1 x320 x322 x326 x327 x352 x354 x356 x359 x361 x362 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_93")(x)++++c_testSrcRef'46testExp'461385_case_92 x1 x320 x322 x326 x327 x352 x354 x356 x359 x362 x361@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_91(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x362)(x359)(st)+c_testSrcRef'46testExp'461385_case_92 x1 x320 x322 x326 x327 x352 x354 x356 x359 x362 x361@((Curry.Module.Prelude.:<) x378 x379) 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('w'))((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('g'))((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('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(' '))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T2(x326)(x320))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_92 x1 x320 x322 x326 x327 x352 x354 x356 x359 x362 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_92(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x359)(x362)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_92 x1 x320 x322 x326 x327 x352 x354 x356 x359 x362 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_92")(x)++++c_testSrcRef'46testExp'461385_case_91 x1 x320 x322 x326 x327 x352 x354 x356 x362 x359@((Curry.Module.Prelude.:<) x364 x365) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_90(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x362)(x365)(x364)(st)+c_testSrcRef'46testExp'461385_case_91 x1 x320 x322 x326 x327 x352 x354 x356 x362 x359@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('w'))((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('g'))((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('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(' '))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T2(x326)(x320))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_91 x1 x320 x322 x326 x327 x352 x354 x356 x362 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_91(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x362)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_91 x1 x320 x322 x326 x327 x352 x354 x356 x362 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_91")(x)++++c_testSrcRef'46testExp'461385_case_90 x1 x320 x322 x326 x327 x352 x354 x356 x362 x365 x364@(Curry.Module.SrcRef.C_Tree x366 x367) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_89(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x362)(x365)(x367)(x366)(st)+c_testSrcRef'46testExp'461385_case_90 x1 x320 x322 x326 x327 x352 x354 x356 x362 x365 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_90(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x362)(x365)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_90 x1 x320 x322 x326 x327 x352 x354 x356 x362 x365 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_90")(x)++++c_testSrcRef'46testExp'461385_case_89 x1 x320 x322 x326 x327 x352 x354 x356 x362 x365 x367 x366@((Curry.Module.Prelude.:<) x368 x369) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_88(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x362)(x365)(x367)(x368)(x369)(st)+c_testSrcRef'46testExp'461385_case_89 x1 x320 x322 x326 x327 x352 x354 x356 x362 x365 x367 x366@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('w'))((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('g'))((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('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(' '))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T2(x326)(x320))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_89 x1 x320 x322 x326 x327 x352 x354 x356 x362 x365 x367 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_89(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x362)(x365)(x367)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_89 x1 x320 x322 x326 x327 x352 x354 x356 x362 x365 x367 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_89")(x)++++c_testSrcRef'46testExp'461385_case_88 x1 x320 x322 x326 x327 x352 x354 x356 x362 x365 x367 x368 x369@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_87(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x362)(x365)(x368)(x367)(st)+c_testSrcRef'46testExp'461385_case_88 x1 x320 x322 x326 x327 x352 x354 x356 x362 x365 x367 x368 x369@((Curry.Module.Prelude.:<) x376 x377) 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('w'))((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('g'))((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('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(' '))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T2(x326)(x320))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_88 x1 x320 x322 x326 x327 x352 x354 x356 x362 x365 x367 x368 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_88(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x362)(x365)(x367)(x368)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_88 x1 x320 x322 x326 x327 x352 x354 x356 x362 x365 x367 x368 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_88")(x)++++c_testSrcRef'46testExp'461385_case_87 x1 x320 x322 x326 x327 x352 x354 x356 x362 x365 x368 x367@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_86(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x362)(x368)(x365)(st)+c_testSrcRef'46testExp'461385_case_87 x1 x320 x322 x326 x327 x352 x354 x356 x362 x365 x368 x367@((Curry.Module.Prelude.:<) x374 x375) 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('w'))((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('g'))((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('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(' '))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T2(x326)(x320))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_87 x1 x320 x322 x326 x327 x352 x354 x356 x362 x365 x368 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_87(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x362)(x365)(x368)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_87 x1 x320 x322 x326 x327 x352 x354 x356 x362 x365 x368 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_87")(x)++++c_testSrcRef'46testExp'461385_case_86 x1 x320 x322 x326 x327 x352 x354 x356 x362 x368 x365@((Curry.Module.Prelude.:<) x370 x371) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_85(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x362)(x368)(x370)(x371)(st)+c_testSrcRef'46testExp'461385_case_86 x1 x320 x322 x326 x327 x352 x354 x356 x362 x368 x365@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('w'))((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('g'))((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('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(' '))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T2(x326)(x320))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_86 x1 x320 x322 x326 x327 x352 x354 x356 x362 x368 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_86(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x362)(x368)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_86 x1 x320 x322 x326 x327 x352 x354 x356 x362 x368 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_86")(x)++++c_testSrcRef'46testExp'461385_case_85 x1 x320 x322 x326 x327 x352 x354 x356 x362 x368 x370 x371@Curry.Module.Prelude.List st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x327)(x362)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x327)(x368)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x322)((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))))))(st))(Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(Curry.Module.Prelude.c_snd(Curry.Module.FlatCurryGoodies.c_combName(x354)(st))(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.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46is'461385((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('l'))((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('b'))((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(' '))((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)))))))))))))))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_isLambdaName))(Curry.Module.Prelude.c_snd(Curry.Module.FlatCurryGoodies.c_combName(x352)(st))(st))(st))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)(x356)((Curry.Module.Prelude.:<)(x370)(Curry.Module.Prelude.List))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_85 x1 x320 x322 x326 x327 x352 x354 x356 x362 x368 x370 x371@((Curry.Module.Prelude.:<) x372 x373) 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('w'))((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('g'))((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('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(' '))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T2(x326)(x320))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_85 x1 x320 x322 x326 x327 x352 x354 x356 x362 x368 x370 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_85(x1)(x320)(x322)(x326)(x327)(x352)(x354)(x356)(x362)(x368)(x370)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_85 x1 x320 x322 x326 x327 x352 x354 x356 x362 x368 x370 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_85")(x)++++c_testSrcRef'46testExp'461385_case_104 x1 x320 x322 x326 x338@((Curry.Module.Prelude.:<) x340 x341) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_103(x1)(x320)(x322)(x326)(x340)(st)+c_testSrcRef'46testExp'461385_case_104 x1 x320 x322 x326 x338@Curry.Module.Prelude.List st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46is'461385((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('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(' '))((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.pf(Curry.Module.Prelude.c_flip(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_elem))((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.:<)(Curry.Module.Prelude.C_Char('='))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.List)))))(x322)(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_and(st))(Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)))(x320)(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.pc))((Curry.Module.Prelude.:<)))(Curry.Module.Prelude.List)))(x326)(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_104 x1 x320 x322 x326 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_104(x1)(x320)(x322)(x326)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_104 x1 x320 x322 x326 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_104")(x)++++c_testSrcRef'46testExp'461385_case_103 x1 x320 x322 x326 x340@(Curry.Module.CurrySyntax.C_StmtBind x342 x343) st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46is'461385((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('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(' '))((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.:<)(Curry.Module.Prelude.C_Char('n'))((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('l'))((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('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))(Curry.Module.Prelude.List))))))))))))))))))))))))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385'46_'35lambda175))(x322)(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_and(st))(Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)))(x320)(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.pc))((Curry.Module.Prelude.:<)))(Curry.Module.Prelude.List)))(x326)(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_103 x1 x320 x322 x326 x340@(Curry.Module.CurrySyntax.C_StmtExpr x344) st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46is'461385((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('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(' '))((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.pf(Curry.Module.Prelude.c_flip(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_elem))((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.:<)(Curry.Module.Prelude.C_Char('='))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.List)))))(x322)(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_and(st))(Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)))(x320)(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.pc))((Curry.Module.Prelude.:<)))(Curry.Module.Prelude.List)))(x326)(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_103 x1 x320 x322 x326 x340@(Curry.Module.CurrySyntax.C_StmtDecl x345) st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46is'461385((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('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(' '))((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.pf(Curry.Module.Prelude.c_flip(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_elem))((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.:<)(Curry.Module.Prelude.C_Char('='))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.List)))))(x322)(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_and(st))(Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)))(x320)(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.pc))((Curry.Module.Prelude.:<)))(Curry.Module.Prelude.List)))(x326)(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_103 x1 x320 x322 x326 (Curry.Module.CurrySyntax.C_StatementOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_103(x1)(x320)(x322)(x326)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_103 x1 x320 x322 x326 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_103")(x)++++c_testSrcRef'46testExp'461385_case_164 x1 x3 x110 x111 x109@Curry.Module.FlatCurry.C_Flex st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_163(x1)(x3)(x111)(x110)(st)+c_testSrcRef'46testExp'461385_case_164 x1 x3 x110 x111 x109@Curry.Module.FlatCurry.C_Rigid st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_162(x1)(x110)(x111)(x3)(st)+c_testSrcRef'46testExp'461385_case_164 x1 x3 x110 x111 (Curry.Module.FlatCurry.C_CaseTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_164(x1)(x3)(x110)(x111)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_164 x1 x3 x110 x111 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_164")(x)++++c_testSrcRef'46testExp'461385_case_162 x1 x110 x111 x3@((Curry.Module.Prelude.:<) x126 x127) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_161(x1)(x3)(x110)(x111)(x126)(st)+c_testSrcRef'46testExp'461385_case_162 x1 x110 x111 x3@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('w'))((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('g'))((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('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('s'))((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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x3)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_162 x1 x110 x111 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_162(x1)(x110)(x111)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_162 x1 x110 x111 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_162")(x)++++c_testSrcRef'46testExp'461385_case_161 x1 x3 x110 x111 x126@(Curry.Module.SrcRef.C_Tree x128 x129) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_160(x1)(x3)(x110)(x111)(x129)(x128)(st)+c_testSrcRef'46testExp'461385_case_161 x1 x3 x110 x111 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_161(x1)(x3)(x110)(x111)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_161 x1 x3 x110 x111 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_161")(x)++++c_testSrcRef'46testExp'461385_case_160 x1 x3 x110 x111 x129 x128@((Curry.Module.Prelude.:<) x130 x131) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_159(x1)(x3)(x110)(x111)(x129)(x130)(x131)(st)+c_testSrcRef'46testExp'461385_case_160 x1 x3 x110 x111 x129 x128@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('w'))((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('g'))((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('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('s'))((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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x3)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_160 x1 x3 x110 x111 x129 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_160(x1)(x3)(x110)(x111)(x129)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_160 x1 x3 x110 x111 x129 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_160")(x)++++c_testSrcRef'46testExp'461385_case_159 x1 x3 x110 x111 x129 x130 x131@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_158(x1)(x3)(x110)(x111)(x130)(x129)(st)+c_testSrcRef'46testExp'461385_case_159 x1 x3 x110 x111 x129 x130 x131@((Curry.Module.Prelude.:<) x316 x317) 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('w'))((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('g'))((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('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('s'))((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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x3)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_159 x1 x3 x110 x111 x129 x130 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_159(x1)(x3)(x110)(x111)(x129)(x130)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_159 x1 x3 x110 x111 x129 x130 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_159")(x)++++c_testSrcRef'46testExp'461385_case_158 x1 x3 x110 x111 x130 x129@((Curry.Module.Prelude.:<) x132 x133) st = let {x134 = Curry.Module.SrcRef.c_srcAt(x1)(x130)(st)} in Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_157(x1)(x3)(x110)(x111)(x130)(x132)(x133)(x134)(st)+c_testSrcRef'46testExp'461385_case_158 x1 x3 x110 x111 x130 x129@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('w'))((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('g'))((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('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('s'))((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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x3)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_158 x1 x3 x110 x111 x130 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_158(x1)(x3)(x110)(x111)(x130)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_158 x1 x3 x110 x111 x130 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_158")(x)++++c_testSrcRef'46testExp'461385_case_157 x1 x3 x110 x111 x130 x132 x133 x134@(Curry.Module.Prelude.C_Just x135) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_156(x1)(x3)(x110)(x111)(x130)(x132)(x133)(x134)(x135)(st)+c_testSrcRef'46testExp'461385_case_157 x1 x3 x110 x111 x130 x132 x133 x134@Curry.Module.Prelude.C_Nothing 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(Curry.Module.Prelude.C_Nothing)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_157 x1 x3 x110 x111 x130 x132 x133 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_157(x1)(x3)(x110)(x111)(x130)(x132)(x133)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_157 x1 x3 x110 x111 x130 x132 x133 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_157")(x)++++c_testSrcRef'46testExp'461385_case_156 x1 x3 x110 x111 x130 x132 x133 x134 x135@(Curry.Module.SrcRef.C_SrcCond x136 x137 x138 x139) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_155(x1)(x110)(x130)(x132)(x133)(x111)(st)+c_testSrcRef'46testExp'461385_case_156 x1 x3 x110 x111 x130 x132 x133 x134 x135@(Curry.Module.SrcRef.C_SrcExpr x172 x173 x174) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_139(x1)(x110)(x111)(x130)(x132)(x133)(x134)(x174)(st)+c_testSrcRef'46testExp'461385_case_156 x1 x3 x110 x111 x130 x132 x133 x134 x135@(Curry.Module.SrcRef.C_SrcConTerm x264 x265 x266) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_116(x1)(x3)(x110)(x111)(x134)(x266)(st)+c_testSrcRef'46testExp'461385_case_156 x1 x3 x110 x111 x130 x132 x133 x134 x135@(Curry.Module.SrcRef.C_SrcDecl x303) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_156 x1 x3 x110 x111 x130 x132 x133 x134 x135@(Curry.Module.SrcRef.C_SrcCon x304 x305) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_156 x1 x3 x110 x111 x130 x132 x133 x134 x135@(Curry.Module.SrcRef.C_SrcNew x306 x307) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_156 x1 x3 x110 x111 x130 x132 x133 x134 x135@(Curry.Module.SrcRef.C_SrcRhs x308 x309 x310) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_156 x1 x3 x110 x111 x130 x132 x133 x134 x135@(Curry.Module.SrcRef.C_SrcId x311 x312) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_156 x1 x3 x110 x111 x130 x132 x133 x134 x135@(Curry.Module.SrcRef.C_SrcAlt x313 x314 x315) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_156 x1 x3 x110 x111 x130 x132 x133 x134 (Curry.Module.SrcRef.C_SrcEntityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_156(x1)(x3)(x110)(x111)(x130)(x132)(x133)(x134)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_156 x1 x3 x110 x111 x130 x132 x133 x134 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_156")(x)++++c_testSrcRef'46testExp'461385_case_116 x1 x3 x110 x111 x134 x266@(Curry.Module.CurrySyntax.C_ConstructorPattern x267 x268) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_115(x1)(x3)(x111)(x110)(st)+c_testSrcRef'46testExp'461385_case_116 x1 x3 x110 x111 x134 x266@(Curry.Module.CurrySyntax.C_LiteralPattern x283) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_116 x1 x3 x110 x111 x134 x266@(Curry.Module.CurrySyntax.C_NegativePattern x284 x285) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_116 x1 x3 x110 x111 x134 x266@(Curry.Module.CurrySyntax.C_VariablePattern x286) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_116 x1 x3 x110 x111 x134 x266@(Curry.Module.CurrySyntax.C_InfixPattern x287 x288 x289) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_116 x1 x3 x110 x111 x134 x266@(Curry.Module.CurrySyntax.C_ParenPattern x290) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_116 x1 x3 x110 x111 x134 x266@(Curry.Module.CurrySyntax.C_TuplePattern x291) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_116 x1 x3 x110 x111 x134 x266@(Curry.Module.CurrySyntax.C_ListPattern x292) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_116 x1 x3 x110 x111 x134 x266@(Curry.Module.CurrySyntax.C_AsPattern x293 x294) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_116 x1 x3 x110 x111 x134 x266@(Curry.Module.CurrySyntax.C_LazyPattern x295) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_116 x1 x3 x110 x111 x134 x266@(Curry.Module.CurrySyntax.C_FunctionPattern x296 x297) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_116 x1 x3 x110 x111 x134 x266@(Curry.Module.CurrySyntax.C_InfixFuncPattern x298 x299 x300) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_116 x1 x3 x110 x111 x134 x266@(Curry.Module.CurrySyntax.C_RecordPattern x301 x302) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_116 x1 x3 x110 x111 x134 (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_116(x1)(x3)(x110)(x111)(x134)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_116 x1 x3 x110 x111 x134 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_116")(x)++++c_testSrcRef'46testExp'461385_case_115 x1 x3 x111 x110@(Curry.Module.FlatCurry.C_Var x269) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_and(st))(Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testSrcRef'46testPats'461385(x1)))(x111)(x3)(st))(st)+c_testSrcRef'46testExp'461385_case_115 x1 x3 x111 x110@(Curry.Module.FlatCurry.C_Lit x270) st = Curry.Module.Prelude.c_error((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('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('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('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.:<)(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)+c_testSrcRef'46testExp'461385_case_115 x1 x3 x111 x110@(Curry.Module.FlatCurry.C_Comb x271 x272 x273) st = Curry.Module.Prelude.c_error((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('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('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('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.:<)(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)+c_testSrcRef'46testExp'461385_case_115 x1 x3 x111 x110@(Curry.Module.FlatCurry.C_Let x274 x275) st = Curry.Module.Prelude.c_error((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('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('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('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.:<)(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)+c_testSrcRef'46testExp'461385_case_115 x1 x3 x111 x110@(Curry.Module.FlatCurry.C_Free x276 x277) st = Curry.Module.Prelude.c_error((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('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('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('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.:<)(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)+c_testSrcRef'46testExp'461385_case_115 x1 x3 x111 x110@(Curry.Module.FlatCurry.C_Or x278 x279) st = Curry.Module.Prelude.c_error((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('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('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('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.:<)(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)+c_testSrcRef'46testExp'461385_case_115 x1 x3 x111 x110@(Curry.Module.FlatCurry.C_Case x280 x281 x282) st = Curry.Module.Prelude.c_error((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('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('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('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.:<)(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)+c_testSrcRef'46testExp'461385_case_115 x1 x3 x111 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_115(x1)(x3)(x111)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_115 x1 x3 x111 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_115")(x)++++c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_ListCompr x175 x176) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_138(x1)(x110)(x130)(x132)(x133)(x111)(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_Literal x221) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_Variable x222) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_Constructor x223) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_Paren x224) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_Typed x225 x226) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_Tuple x227) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_List x228) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_EnumFrom x229) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_EnumFromThen x230 x231) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_EnumFromTo x232 x233) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_EnumFromThenTo x234 x235 x236) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_UnaryMinus x237 x238) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_Apply x239 x240) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_InfixApply x241 x242 x243) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_LeftSection x244 x245) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_RightSection x246 x247) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_Lambda x248 x249) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_Let x250 x251) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_Do x252 x253) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_IfThenElse x254 x255 x256) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_Case x257 x258) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_RecordConstr x259) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_RecordSelection x260 x261) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x174@(Curry.Module.CurrySyntax.C_RecordUpdate x262 x263) 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('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('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('s'))((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('r'))((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('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('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.:<)(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(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x134)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_139(x1)(x110)(x111)(x130)(x132)(x133)(x134)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_139 x1 x110 x111 x130 x132 x133 x134 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_139")(x)++++c_testSrcRef'46testExp'461385_case_138 x1 x110 x130 x132 x133 x111@((Curry.Module.Prelude.:<) x177 x178) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_137(x1)(x110)(x130)(x132)(x133)(x178)(x177)(st)+c_testSrcRef'46testExp'461385_case_138 x1 x110 x130 x132 x133 x111@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('3'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_138 x1 x110 x130 x132 x133 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_138(x1)(x110)(x130)(x132)(x133)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_138 x1 x110 x130 x132 x133 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_138")(x)++++c_testSrcRef'46testExp'461385_case_137 x1 x110 x130 x132 x133 x178 x177@(Curry.Module.FlatCurry.C_Branch x179 x180) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_136(x1)(x110)(x130)(x132)(x133)(x179)(x180)(x178)(st)+c_testSrcRef'46testExp'461385_case_137 x1 x110 x130 x132 x133 x178 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_137(x1)(x110)(x130)(x132)(x133)(x178)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_137 x1 x110 x130 x132 x133 x178 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_137")(x)++++c_testSrcRef'46testExp'461385_case_136 x1 x110 x130 x132 x133 x179 x180 x178@((Curry.Module.Prelude.:<) x181 x182) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_135(x1)(x110)(x130)(x132)(x133)(x179)(x180)(x182)(x181)(st)+c_testSrcRef'46testExp'461385_case_136 x1 x110 x130 x132 x133 x179 x180 x178@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('3'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_136 x1 x110 x130 x132 x133 x179 x180 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_136(x1)(x110)(x130)(x132)(x133)(x179)(x180)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_136 x1 x110 x130 x132 x133 x179 x180 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_136")(x)++++c_testSrcRef'46testExp'461385_case_135 x1 x110 x130 x132 x133 x179 x180 x182 x181@(Curry.Module.FlatCurry.C_Branch x183 x184) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_134(x1)(x110)(x130)(x132)(x133)(x179)(x180)(x183)(x184)(x182)(st)+c_testSrcRef'46testExp'461385_case_135 x1 x110 x130 x132 x133 x179 x180 x182 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_135(x1)(x110)(x130)(x132)(x133)(x179)(x180)(x182)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_135 x1 x110 x130 x132 x133 x179 x180 x182 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_135")(x)++++c_testSrcRef'46testExp'461385_case_134 x1 x110 x130 x132 x133 x179 x180 x183 x184 x182@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_133(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x133)(st)+c_testSrcRef'46testExp'461385_case_134 x1 x110 x130 x132 x133 x179 x180 x183 x184 x182@((Curry.Module.Prelude.:<) x219 x220) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('3'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_134 x1 x110 x130 x132 x133 x179 x180 x183 x184 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_134(x1)(x110)(x130)(x132)(x133)(x179)(x180)(x183)(x184)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_134 x1 x110 x130 x132 x133 x179 x180 x183 x184 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_134")(x)++++c_testSrcRef'46testExp'461385_case_133 x1 x110 x130 x132 x179 x180 x183 x184 x133@((Curry.Module.Prelude.:<) x185 x186) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_132(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x186)(x185)(st)+c_testSrcRef'46testExp'461385_case_133 x1 x110 x130 x132 x179 x180 x183 x184 x133@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('2'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_133 x1 x110 x130 x132 x179 x180 x183 x184 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_133(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_133 x1 x110 x130 x132 x179 x180 x183 x184 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_133")(x)++++c_testSrcRef'46testExp'461385_case_132 x1 x110 x130 x132 x179 x180 x183 x184 x186 x185@(Curry.Module.SrcRef.C_Tree x187 x188) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_131(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x186)(x188)(x187)(st)+c_testSrcRef'46testExp'461385_case_132 x1 x110 x130 x132 x179 x180 x183 x184 x186 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_132(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x186)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_132 x1 x110 x130 x132 x179 x180 x183 x184 x186 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_132")(x)++++c_testSrcRef'46testExp'461385_case_131 x1 x110 x130 x132 x179 x180 x183 x184 x186 x188 x187@((Curry.Module.Prelude.:<) x189 x190) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_130(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x186)(x188)(x189)(x190)(st)+c_testSrcRef'46testExp'461385_case_131 x1 x110 x130 x132 x179 x180 x183 x184 x186 x188 x187@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('2'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_131 x1 x110 x130 x132 x179 x180 x183 x184 x186 x188 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_131(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x186)(x188)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_131 x1 x110 x130 x132 x179 x180 x183 x184 x186 x188 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_131")(x)++++c_testSrcRef'46testExp'461385_case_130 x1 x110 x130 x132 x179 x180 x183 x184 x186 x188 x189 x190@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_129(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x186)(x189)(x188)(st)+c_testSrcRef'46testExp'461385_case_130 x1 x110 x130 x132 x179 x180 x183 x184 x186 x188 x189 x190@((Curry.Module.Prelude.:<) x217 x218) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('2'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_130 x1 x110 x130 x132 x179 x180 x183 x184 x186 x188 x189 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_130(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x186)(x188)(x189)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_130 x1 x110 x130 x132 x179 x180 x183 x184 x186 x188 x189 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_130")(x)++++c_testSrcRef'46testExp'461385_case_129 x1 x110 x130 x132 x179 x180 x183 x184 x186 x189 x188@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_128(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x186)(st)+c_testSrcRef'46testExp'461385_case_129 x1 x110 x130 x132 x179 x180 x183 x184 x186 x189 x188@((Curry.Module.Prelude.:<) x215 x216) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('2'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_129 x1 x110 x130 x132 x179 x180 x183 x184 x186 x189 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_129(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x186)(x189)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_129 x1 x110 x130 x132 x179 x180 x183 x184 x186 x189 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_129")(x)++++c_testSrcRef'46testExp'461385_case_128 x1 x110 x130 x132 x179 x180 x183 x184 x189 x186@((Curry.Module.Prelude.:<) x191 x192) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_127(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x191)(x192)(st)+c_testSrcRef'46testExp'461385_case_128 x1 x110 x130 x132 x179 x180 x183 x184 x189 x186@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('2'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_128 x1 x110 x130 x132 x179 x180 x183 x184 x189 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_128(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_128 x1 x110 x130 x132 x179 x180 x183 x184 x189 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_128")(x)++++c_testSrcRef'46testExp'461385_case_127 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x192@((Curry.Module.Prelude.:<) x193 x194) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_126(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x191)(x194)(x193)(st)+c_testSrcRef'46testExp'461385_case_127 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x192@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('2'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_127 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_127(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x191)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_127 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_127")(x)++++c_testSrcRef'46testExp'461385_case_126 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x194 x193@(Curry.Module.SrcRef.C_Tree x195 x196) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_125(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x191)(x194)(x196)(x195)(st)+c_testSrcRef'46testExp'461385_case_126 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x194 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_126(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x191)(x194)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_126 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x194 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_126")(x)++++c_testSrcRef'46testExp'461385_case_125 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x194 x196 x195@((Curry.Module.Prelude.:<) x197 x198) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_124(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x191)(x194)(x196)(x197)(x198)(st)+c_testSrcRef'46testExp'461385_case_125 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x194 x196 x195@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('2'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_125 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x194 x196 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_125(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x191)(x194)(x196)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_125 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x194 x196 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_125")(x)++++c_testSrcRef'46testExp'461385_case_124 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x194 x196 x197 x198@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_123(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x191)(x194)(x197)(x196)(st)+c_testSrcRef'46testExp'461385_case_124 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x194 x196 x197 x198@((Curry.Module.Prelude.:<) x213 x214) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('2'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_124 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x194 x196 x197 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_124(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x191)(x194)(x196)(x197)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_124 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x194 x196 x197 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_124")(x)++++c_testSrcRef'46testExp'461385_case_123 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x194 x197 x196@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_122(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x191)(x197)(x194)(st)+c_testSrcRef'46testExp'461385_case_123 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x194 x197 x196@((Curry.Module.Prelude.:<) x211 x212) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('2'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_123 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x194 x197 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_123(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x191)(x194)(x197)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_123 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x194 x197 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_123")(x)++++c_testSrcRef'46testExp'461385_case_122 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x197 x194@((Curry.Module.Prelude.:<) x199 x200) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_121(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x191)(x197)(x200)(x199)(st)+c_testSrcRef'46testExp'461385_case_122 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x197 x194@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('2'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_122 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x197 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_122(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x191)(x197)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_122 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x197 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_122")(x)++++c_testSrcRef'46testExp'461385_case_121 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x197 x200 x199@(Curry.Module.SrcRef.C_Tree x201 x202) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_120(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x191)(x197)(x200)(x202)(x201)(st)+c_testSrcRef'46testExp'461385_case_121 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x197 x200 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_121(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x191)(x197)(x200)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_121 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x197 x200 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_121")(x)++++c_testSrcRef'46testExp'461385_case_120 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x197 x200 x202 x201@((Curry.Module.Prelude.:<) x203 x204) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_119(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x191)(x197)(x200)(x202)(x203)(x204)(st)+c_testSrcRef'46testExp'461385_case_120 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x197 x200 x202 x201@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('2'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_120 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x197 x200 x202 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_120(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x191)(x197)(x200)(x202)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_120 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x197 x200 x202 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_120")(x)++++c_testSrcRef'46testExp'461385_case_119 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x197 x200 x202 x203 x204@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_118(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x191)(x197)(x200)(x203)(x202)(st)+c_testSrcRef'46testExp'461385_case_119 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x197 x200 x202 x203 x204@((Curry.Module.Prelude.:<) x209 x210) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('2'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_119 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x197 x200 x202 x203 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_119(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x191)(x197)(x200)(x202)(x203)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_119 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x197 x200 x202 x203 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_119")(x)++++c_testSrcRef'46testExp'461385_case_118 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x197 x200 x203 x202@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_117(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x191)(x197)(x203)(x200)(st)+c_testSrcRef'46testExp'461385_case_118 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x197 x200 x203 x202@((Curry.Module.Prelude.:<) x207 x208) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('2'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_118 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x197 x200 x203 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_118(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x191)(x197)(x200)(x203)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_118 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x197 x200 x203 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_118")(x)++++c_testSrcRef'46testExp'461385_case_117 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x197 x203 x200@Curry.Module.Prelude.List st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(Curry.Module.Prelude.c_snd(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_patCons(st))(x179)(st))(st))((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('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))(st))(Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(Curry.Module.Prelude.c_snd(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_patCons(st))(x183)(st))(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('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_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(Curry.Module.Prelude.c_snd(Curry.Module.FlatCurryGoodies.c_combName(x184)(st))(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.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x130)(x189)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x130)(x197)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x130)(x203)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)(x110)((Curry.Module.Prelude.:<)(x132)(Curry.Module.Prelude.List))(st))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)(x180)((Curry.Module.Prelude.:<)(x191)(Curry.Module.Prelude.List))(st))(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_117 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x197 x203 x200@((Curry.Module.Prelude.:<) x205 x206) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('2'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_117 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x197 x203 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_117(x1)(x110)(x130)(x132)(x179)(x180)(x183)(x184)(x189)(x191)(x197)(x203)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_117 x1 x110 x130 x132 x179 x180 x183 x184 x189 x191 x197 x203 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_117")(x)++++c_testSrcRef'46testExp'461385_case_155 x1 x110 x130 x132 x133 x111@((Curry.Module.Prelude.:<) x140 x141) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_154(x1)(x110)(x130)(x132)(x133)(x141)(x140)(st)+c_testSrcRef'46testExp'461385_case_155 x1 x110 x130 x132 x133 x111@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_155 x1 x110 x130 x132 x133 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_155(x1)(x110)(x130)(x132)(x133)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_155 x1 x110 x130 x132 x133 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_155")(x)++++c_testSrcRef'46testExp'461385_case_154 x1 x110 x130 x132 x133 x141 x140@(Curry.Module.FlatCurry.C_Branch x142 x143) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_153(x1)(x110)(x130)(x132)(x133)(x142)(x143)(x141)(st)+c_testSrcRef'46testExp'461385_case_154 x1 x110 x130 x132 x133 x141 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_154(x1)(x110)(x130)(x132)(x133)(x141)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_154 x1 x110 x130 x132 x133 x141 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_154")(x)++++c_testSrcRef'46testExp'461385_case_153 x1 x110 x130 x132 x133 x142 x143 x141@((Curry.Module.Prelude.:<) x144 x145) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_152(x1)(x110)(x130)(x132)(x133)(x142)(x143)(x145)(x144)(st)+c_testSrcRef'46testExp'461385_case_153 x1 x110 x130 x132 x133 x142 x143 x141@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_153 x1 x110 x130 x132 x133 x142 x143 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_153(x1)(x110)(x130)(x132)(x133)(x142)(x143)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_153 x1 x110 x130 x132 x133 x142 x143 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_153")(x)++++c_testSrcRef'46testExp'461385_case_152 x1 x110 x130 x132 x133 x142 x143 x145 x144@(Curry.Module.FlatCurry.C_Branch x146 x147) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_151(x1)(x110)(x130)(x132)(x133)(x142)(x143)(x146)(x147)(x145)(st)+c_testSrcRef'46testExp'461385_case_152 x1 x110 x130 x132 x133 x142 x143 x145 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_152(x1)(x110)(x130)(x132)(x133)(x142)(x143)(x145)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_152 x1 x110 x130 x132 x133 x142 x143 x145 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_152")(x)++++c_testSrcRef'46testExp'461385_case_151 x1 x110 x130 x132 x133 x142 x143 x146 x147 x145@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_150(x1)(x110)(x130)(x132)(x142)(x143)(x146)(x147)(x133)(st)+c_testSrcRef'46testExp'461385_case_151 x1 x110 x130 x132 x133 x142 x143 x146 x147 x145@((Curry.Module.Prelude.:<) x170 x171) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_151 x1 x110 x130 x132 x133 x142 x143 x146 x147 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_151(x1)(x110)(x130)(x132)(x133)(x142)(x143)(x146)(x147)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_151 x1 x110 x130 x132 x133 x142 x143 x146 x147 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_151")(x)++++c_testSrcRef'46testExp'461385_case_150 x1 x110 x130 x132 x142 x143 x146 x147 x133@((Curry.Module.Prelude.:<) x148 x149) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_149(x1)(x110)(x130)(x132)(x142)(x143)(x146)(x147)(x149)(x148)(st)+c_testSrcRef'46testExp'461385_case_150 x1 x110 x130 x132 x142 x143 x146 x147 x133@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('0'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_150 x1 x110 x130 x132 x142 x143 x146 x147 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_150(x1)(x110)(x130)(x132)(x142)(x143)(x146)(x147)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_150 x1 x110 x130 x132 x142 x143 x146 x147 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_150")(x)++++c_testSrcRef'46testExp'461385_case_149 x1 x110 x130 x132 x142 x143 x146 x147 x149 x148@(Curry.Module.SrcRef.C_Tree x150 x151) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_148(x1)(x110)(x130)(x132)(x142)(x143)(x146)(x147)(x149)(x151)(x150)(st)+c_testSrcRef'46testExp'461385_case_149 x1 x110 x130 x132 x142 x143 x146 x147 x149 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_149(x1)(x110)(x130)(x132)(x142)(x143)(x146)(x147)(x149)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_149 x1 x110 x130 x132 x142 x143 x146 x147 x149 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_149")(x)++++c_testSrcRef'46testExp'461385_case_148 x1 x110 x130 x132 x142 x143 x146 x147 x149 x151 x150@((Curry.Module.Prelude.:<) x152 x153) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_147(x1)(x110)(x130)(x132)(x142)(x143)(x146)(x147)(x149)(x151)(x152)(x153)(st)+c_testSrcRef'46testExp'461385_case_148 x1 x110 x130 x132 x142 x143 x146 x147 x149 x151 x150@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('0'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_148 x1 x110 x130 x132 x142 x143 x146 x147 x149 x151 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_148(x1)(x110)(x130)(x132)(x142)(x143)(x146)(x147)(x149)(x151)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_148 x1 x110 x130 x132 x142 x143 x146 x147 x149 x151 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_148")(x)++++c_testSrcRef'46testExp'461385_case_147 x1 x110 x130 x132 x142 x143 x146 x147 x149 x151 x152 x153@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_146(x1)(x110)(x130)(x132)(x142)(x143)(x146)(x147)(x149)(x152)(x151)(st)+c_testSrcRef'46testExp'461385_case_147 x1 x110 x130 x132 x142 x143 x146 x147 x149 x151 x152 x153@((Curry.Module.Prelude.:<) x168 x169) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('0'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_147 x1 x110 x130 x132 x142 x143 x146 x147 x149 x151 x152 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_147(x1)(x110)(x130)(x132)(x142)(x143)(x146)(x147)(x149)(x151)(x152)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_147 x1 x110 x130 x132 x142 x143 x146 x147 x149 x151 x152 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_147")(x)++++c_testSrcRef'46testExp'461385_case_146 x1 x110 x130 x132 x142 x143 x146 x147 x149 x152 x151@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_145(x1)(x110)(x130)(x132)(x142)(x143)(x146)(x147)(x152)(x149)(st)+c_testSrcRef'46testExp'461385_case_146 x1 x110 x130 x132 x142 x143 x146 x147 x149 x152 x151@((Curry.Module.Prelude.:<) x166 x167) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('0'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_146 x1 x110 x130 x132 x142 x143 x146 x147 x149 x152 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_146(x1)(x110)(x130)(x132)(x142)(x143)(x146)(x147)(x149)(x152)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_146 x1 x110 x130 x132 x142 x143 x146 x147 x149 x152 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_146")(x)++++c_testSrcRef'46testExp'461385_case_145 x1 x110 x130 x132 x142 x143 x146 x147 x152 x149@((Curry.Module.Prelude.:<) x154 x155) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_144(x1)(x110)(x130)(x132)(x142)(x143)(x146)(x147)(x152)(x154)(x155)(st)+c_testSrcRef'46testExp'461385_case_145 x1 x110 x130 x132 x142 x143 x146 x147 x152 x149@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('0'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_145 x1 x110 x130 x132 x142 x143 x146 x147 x152 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_145(x1)(x110)(x130)(x132)(x142)(x143)(x146)(x147)(x152)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_145 x1 x110 x130 x132 x142 x143 x146 x147 x152 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_145")(x)++++c_testSrcRef'46testExp'461385_case_144 x1 x110 x130 x132 x142 x143 x146 x147 x152 x154 x155@((Curry.Module.Prelude.:<) x156 x157) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_143(x1)(x110)(x130)(x132)(x142)(x143)(x146)(x147)(x152)(x154)(x157)(x156)(st)+c_testSrcRef'46testExp'461385_case_144 x1 x110 x130 x132 x142 x143 x146 x147 x152 x154 x155@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('0'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_144 x1 x110 x130 x132 x142 x143 x146 x147 x152 x154 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_144(x1)(x110)(x130)(x132)(x142)(x143)(x146)(x147)(x152)(x154)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_144 x1 x110 x130 x132 x142 x143 x146 x147 x152 x154 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_144")(x)++++c_testSrcRef'46testExp'461385_case_143 x1 x110 x130 x132 x142 x143 x146 x147 x152 x154 x157 x156@(Curry.Module.SrcRef.C_Tree x158 x159) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_142(x1)(x110)(x130)(x132)(x142)(x143)(x146)(x147)(x152)(x154)(x157)(x159)(x158)(st)+c_testSrcRef'46testExp'461385_case_143 x1 x110 x130 x132 x142 x143 x146 x147 x152 x154 x157 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_143(x1)(x110)(x130)(x132)(x142)(x143)(x146)(x147)(x152)(x154)(x157)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_143 x1 x110 x130 x132 x142 x143 x146 x147 x152 x154 x157 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_143")(x)++++c_testSrcRef'46testExp'461385_case_142 x1 x110 x130 x132 x142 x143 x146 x147 x152 x154 x157 x159 x158@((Curry.Module.Prelude.:<) x160 x161) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_141(x1)(x110)(x130)(x132)(x142)(x143)(x146)(x147)(x152)(x154)(x157)(x159)(x160)(x161)(st)+c_testSrcRef'46testExp'461385_case_142 x1 x110 x130 x132 x142 x143 x146 x147 x152 x154 x157 x159 x158@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('0'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_142 x1 x110 x130 x132 x142 x143 x146 x147 x152 x154 x157 x159 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_142(x1)(x110)(x130)(x132)(x142)(x143)(x146)(x147)(x152)(x154)(x157)(x159)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_142 x1 x110 x130 x132 x142 x143 x146 x147 x152 x154 x157 x159 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_142")(x)++++c_testSrcRef'46testExp'461385_case_141 x1 x110 x130 x132 x142 x143 x146 x147 x152 x154 x157 x159 x160 x161@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_140(x1)(x110)(x130)(x132)(x142)(x143)(x146)(x147)(x152)(x154)(x157)(x160)(x159)(st)+c_testSrcRef'46testExp'461385_case_141 x1 x110 x130 x132 x142 x143 x146 x147 x152 x154 x157 x159 x160 x161@((Curry.Module.Prelude.:<) x164 x165) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('0'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_141 x1 x110 x130 x132 x142 x143 x146 x147 x152 x154 x157 x159 x160 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_141(x1)(x110)(x130)(x132)(x142)(x143)(x146)(x147)(x152)(x154)(x157)(x159)(x160)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_141 x1 x110 x130 x132 x142 x143 x146 x147 x152 x154 x157 x159 x160 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_141")(x)++++c_testSrcRef'46testExp'461385_case_140 x1 x110 x130 x132 x142 x143 x146 x147 x152 x154 x157 x160 x159@Curry.Module.Prelude.List st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(Curry.Module.Prelude.c_snd(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_patCons(st))(x142)(st))(st))((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('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))(st))(Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(Curry.Module.Prelude.c_snd(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_patCons(st))(x146)(st))(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('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_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x130)(x152)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x130)(x160)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)(x110)((Curry.Module.Prelude.:<)(x132)(Curry.Module.Prelude.List))(st))(Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)(x143)((Curry.Module.Prelude.:<)(x154)(Curry.Module.Prelude.List))(st))(Curry.Module.SrcRef.c_testSrcRef'46testExp'461385(x1)(x147)(x157)(st))(st))(st))(st))(st))(st))(st)+c_testSrcRef'46testExp'461385_case_140 x1 x110 x130 x132 x142 x143 x146 x147 x152 x154 x157 x160 x159@((Curry.Module.Prelude.:<) x162 x163) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('0'))(Curry.Module.Prelude.List))(st)+c_testSrcRef'46testExp'461385_case_140 x1 x110 x130 x132 x142 x143 x146 x147 x152 x154 x157 x160 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_140(x1)(x110)(x130)(x132)(x142)(x143)(x146)(x147)(x152)(x154)(x157)(x160)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_140 x1 x110 x130 x132 x142 x143 x146 x147 x152 x154 x157 x160 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_140")(x)++++c_testSrcRef'46testExp'461385_case_163 x1 x3 x111 x110@(Curry.Module.FlatCurry.C_Var x112) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_and(st))(Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testSrcRef'46testPats'461385(x1)))(x111)(x3)(st))(st)+c_testSrcRef'46testExp'461385_case_163 x1 x3 x111 x110@(Curry.Module.FlatCurry.C_Lit x113) st = Curry.Module.Prelude.c_error((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('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('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('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('i'))((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('e'))((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.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_163 x1 x3 x111 x110@(Curry.Module.FlatCurry.C_Comb x114 x115 x116) st = Curry.Module.Prelude.c_error((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('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('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('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('i'))((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('e'))((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.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_163 x1 x3 x111 x110@(Curry.Module.FlatCurry.C_Let x117 x118) st = Curry.Module.Prelude.c_error((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('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('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('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('i'))((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('e'))((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.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_163 x1 x3 x111 x110@(Curry.Module.FlatCurry.C_Free x119 x120) st = Curry.Module.Prelude.c_error((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('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('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('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('i'))((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('e'))((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.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_163 x1 x3 x111 x110@(Curry.Module.FlatCurry.C_Or x121 x122) st = Curry.Module.Prelude.c_error((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('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('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('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('i'))((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('e'))((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.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_163 x1 x3 x111 x110@(Curry.Module.FlatCurry.C_Case x123 x124 x125) st = Curry.Module.Prelude.c_error((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('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('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('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('i'))((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('e'))((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.List)))))))))))))))))))))))))(st)+c_testSrcRef'46testExp'461385_case_163 x1 x3 x111 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_163(x1)(x3)(x111)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_163 x1 x3 x111 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_163")(x)++++c_testSrcRef'46testExp'461385_case_174 x1 x3@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_173(x1)(x3)(x6)(x5)(st)+c_testSrcRef'46testExp'461385_case_174 x1 x3@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('w'))((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('g'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))(Curry.Module.Prelude.c_show(x3)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_174 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_174(x1)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_174 x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_174")(x)++++c_testSrcRef'46testExp'461385_case_173 x1 x3 x6 x5@(Curry.Module.SrcRef.C_Tree x7 x8) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_172(x1)(x3)(x6)(x8)(x7)(st)+c_testSrcRef'46testExp'461385_case_173 x1 x3 x6 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_173(x1)(x3)(x6)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_173 x1 x3 x6 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_173")(x)++++c_testSrcRef'46testExp'461385_case_172 x1 x3 x6 x8 x7@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_171(x1)(x3)(x6)(x8)(x9)(x10)(st)+c_testSrcRef'46testExp'461385_case_172 x1 x3 x6 x8 x7@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('w'))((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('g'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))(Curry.Module.Prelude.c_show(x3)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_172 x1 x3 x6 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_172(x1)(x3)(x6)(x8)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_172 x1 x3 x6 x8 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_172")(x)++++c_testSrcRef'46testExp'461385_case_171 x1 x3 x6 x8 x9 x10@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_170(x1)(x3)(x6)(x9)(x8)(st)+c_testSrcRef'46testExp'461385_case_171 x1 x3 x6 x8 x9 x10@((Curry.Module.Prelude.:<) x107 x108) 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('w'))((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('g'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))(Curry.Module.Prelude.c_show(x3)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_171 x1 x3 x6 x8 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_171(x1)(x3)(x6)(x8)(x9)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_171 x1 x3 x6 x8 x9 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_171")(x)++++c_testSrcRef'46testExp'461385_case_170 x1 x3 x6 x9 x8@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_169(x1)(x3)(x9)(x6)(st)+c_testSrcRef'46testExp'461385_case_170 x1 x3 x6 x9 x8@((Curry.Module.Prelude.:<) x105 x106) 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('w'))((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('g'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))(Curry.Module.Prelude.c_show(x3)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_170 x1 x3 x6 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_170(x1)(x3)(x6)(x9)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_170 x1 x3 x6 x9 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_170")(x)++++c_testSrcRef'46testExp'461385_case_169 x1 x3 x9 x6@Curry.Module.Prelude.List st = let {x11 = Curry.Module.SrcRef.c_srcAt(x1)(x9)(st)} in Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_168(x11)(st)+c_testSrcRef'46testExp'461385_case_169 x1 x3 x9 x6@((Curry.Module.Prelude.:<) x103 x104) 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('w'))((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('g'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))(Curry.Module.Prelude.c_show(x3)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_169 x1 x3 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_169(x1)(x3)(x9)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_169 x1 x3 x9 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_169")(x)++++c_testSrcRef'46testExp'461385_case_168 x11@(Curry.Module.Prelude.C_Just x12) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_167(x11)(x12)(st)+c_testSrcRef'46testExp'461385_case_168 x11@Curry.Module.Prelude.C_Nothing 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(Curry.Module.Prelude.C_Nothing)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_168 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_168(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_168 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_168")(x)++++c_testSrcRef'46testExp'461385_case_167 x11 x12@(Curry.Module.SrcRef.C_SrcExpr x13 x14 x15) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_166(x11)(x15)(st)+c_testSrcRef'46testExp'461385_case_167 x11 x12@(Curry.Module.SrcRef.C_SrcConTerm x61 x62 x63) st = Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_165(x11)(x63)(st)+c_testSrcRef'46testExp'461385_case_167 x11 x12@(Curry.Module.SrcRef.C_SrcDecl x86) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_167 x11 x12@(Curry.Module.SrcRef.C_SrcCon x87 x88) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_167 x11 x12@(Curry.Module.SrcRef.C_SrcNew x89 x90) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_167 x11 x12@(Curry.Module.SrcRef.C_SrcRhs x91 x92 x93) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_167 x11 x12@(Curry.Module.SrcRef.C_SrcId x94 x95) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_167 x11 x12@(Curry.Module.SrcRef.C_SrcCond x96 x97 x98 x99) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_167 x11 x12@(Curry.Module.SrcRef.C_SrcAlt x100 x101 x102) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_167 x11 (Curry.Module.SrcRef.C_SrcEntityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_167(x11)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_167 x11 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_167")(x)++++c_testSrcRef'46testExp'461385_case_165 x11 x63@(Curry.Module.CurrySyntax.C_VariablePattern x64) st = Curry.Module.Prelude.C_True+c_testSrcRef'46testExp'461385_case_165 x11 x63@(Curry.Module.CurrySyntax.C_LiteralPattern x65) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_165 x11 x63@(Curry.Module.CurrySyntax.C_NegativePattern x66 x67) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_165 x11 x63@(Curry.Module.CurrySyntax.C_ConstructorPattern x68 x69) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_165 x11 x63@(Curry.Module.CurrySyntax.C_InfixPattern x70 x71 x72) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_165 x11 x63@(Curry.Module.CurrySyntax.C_ParenPattern x73) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_165 x11 x63@(Curry.Module.CurrySyntax.C_TuplePattern x74) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_165 x11 x63@(Curry.Module.CurrySyntax.C_ListPattern x75) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_165 x11 x63@(Curry.Module.CurrySyntax.C_AsPattern x76 x77) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_165 x11 x63@(Curry.Module.CurrySyntax.C_LazyPattern x78) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_165 x11 x63@(Curry.Module.CurrySyntax.C_FunctionPattern x79 x80) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_165 x11 x63@(Curry.Module.CurrySyntax.C_InfixFuncPattern x81 x82 x83) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_165 x11 x63@(Curry.Module.CurrySyntax.C_RecordPattern x84 x85) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_165 x11 (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_165(x11)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_165 x11 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_165")(x)++++c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_Variable x16) st = Curry.Module.Prelude.C_True+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_ListCompr x17 x18) st = Curry.Module.Prelude.C_True+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_Literal x19) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_Constructor x20) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_Paren x21) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_Typed x22 x23) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_Tuple x24) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_List x25) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_EnumFrom x26) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_EnumFromThen x27 x28) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_EnumFromTo x29 x30) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_EnumFromThenTo x31 x32 x33) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_UnaryMinus x34 x35) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_Apply x36 x37) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_InfixApply x38 x39 x40) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_LeftSection x41 x42) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_RightSection x43 x44) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_Lambda x45 x46) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_Let x47 x48) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_Do x49 x50) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_IfThenElse x51 x52 x53) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_Case x54 x55) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_RecordConstr x56) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_RecordSelection x57 x58) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_166 x11 x15@(Curry.Module.CurrySyntax.C_RecordUpdate x59 x60) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x11)(st))(st))(st)+c_testSrcRef'46testExp'461385_case_166 x11 (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testExp'461385_case_166(x11)(x)(st))(i)(xs)(st)+c_testSrcRef'46testExp'461385_case_166 x11 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testExp.1385_case_166")(x)++++c_testSrcRef'46is'461385_case_175 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.C_True+c_testSrcRef'46is'461385_case_175 x1 x2 x3 x4@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(x1)(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.c_show(x3)(st))(st))(st))(st)+c_testSrcRef'46is'461385_case_175 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46is'461385_case_175(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c_testSrcRef'46is'461385_case_175 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.is.1385_case_175")(x)++++c_testSrcRef'46testPat'461385_case_181 x2 x4@(Curry.Module.Prelude.C_Just x5) st = Curry.Module.SrcRef.c_testSrcRef'46testPat'461385_case_180(x2)(x4)(x5)(st)+c_testSrcRef'46testPat'461385_case_181 x2 x4@Curry.Module.Prelude.C_Nothing 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(Curry.Module.Prelude.C_Nothing)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_181 x2 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testPat'461385_case_181(x2)(x)(st))(i)(xs)(st)+c_testSrcRef'46testPat'461385_case_181 x2 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testPat.1385_case_181")(x)++++c_testSrcRef'46testPat'461385_case_180 x2 x4 x5@(Curry.Module.SrcRef.C_SrcConTerm x6 x7 x8) st = Curry.Module.SrcRef.c_testSrcRef'46testPat'461385_case_179(x2)(x8)(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_branchPattern(st))(x2)(st))(st)+c_testSrcRef'46testPat'461385_case_180 x2 x4 x5@(Curry.Module.SrcRef.C_SrcExpr x36 x37 x38) st = Curry.Module.SrcRef.c_testSrcRef'46testPat'461385_case_176(x4)(x38)(st)+c_testSrcRef'46testPat'461385_case_180 x2 x4 x5@(Curry.Module.SrcRef.C_SrcDecl x84) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_180 x2 x4 x5@(Curry.Module.SrcRef.C_SrcCon x85 x86) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_180 x2 x4 x5@(Curry.Module.SrcRef.C_SrcNew x87 x88) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_180 x2 x4 x5@(Curry.Module.SrcRef.C_SrcRhs x89 x90 x91) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_180 x2 x4 x5@(Curry.Module.SrcRef.C_SrcId x92 x93) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_180 x2 x4 x5@(Curry.Module.SrcRef.C_SrcCond x94 x95 x96 x97) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_180 x2 x4 x5@(Curry.Module.SrcRef.C_SrcAlt x98 x99 x100) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_180 x2 x4 (Curry.Module.SrcRef.C_SrcEntityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testPat'461385_case_180(x2)(x4)(x)(st))(i)(xs)(st)+c_testSrcRef'46testPat'461385_case_180 x2 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testPat.1385_case_180")(x)++++c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_ListCompr x39 x40) st = Curry.Module.Prelude.C_True+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_Literal x41) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_Variable x42) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_Constructor x43) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_Paren x44) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_Typed x45 x46) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_Tuple x47) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_List x48) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_EnumFrom x49) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_EnumFromThen x50 x51) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_EnumFromTo x52 x53) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_EnumFromThenTo x54 x55 x56) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_UnaryMinus x57 x58) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_Apply x59 x60) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_InfixApply x61 x62 x63) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_LeftSection x64 x65) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_RightSection x66 x67) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_Lambda x68 x69) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_Let x70 x71) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_Do x72 x73) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_IfThenElse x74 x75 x76) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_Case x77 x78) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_RecordConstr x79) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_RecordSelection x80 x81) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 x38@(Curry.Module.CurrySyntax.C_RecordUpdate x82 x83) 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('w'))((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('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('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_show'39(st))(x4)(st))(st))(st)+c_testSrcRef'46testPat'461385_case_176 x4 (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testPat'461385_case_176(x4)(x)(st))(i)(xs)(st)+c_testSrcRef'46testPat'461385_case_176 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testPat.1385_case_176")(x)++++c_testSrcRef'46testPat'461385_case_179 x2 x8 (Curry.Module.FlatCurry.C_Pattern x9 x10) st = Curry.Module.SrcRef.c_testSrcRef'46testPat'461385_case_178(x8)(x9)(st)+c_testSrcRef'46testPat'461385_case_179 x2 x8 x9@(Curry.Module.FlatCurry.C_LPattern x13) st = Curry.Module.SrcRef.c_testSrcRef'46testPat'461385_case_177(x13)(x8)(st)+c_testSrcRef'46testPat'461385_case_179 x2 x8 (Curry.Module.FlatCurry.C_PatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testPat'461385_case_179(x2)(x8)(x)(st))(i)(xs)(st)+c_testSrcRef'46testPat'461385_case_179 x2 x8 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testPat.1385_case_179")(x)++++c_testSrcRef'46testPat'461385_case_177 x13 x8@(Curry.Module.CurrySyntax.C_LiteralPattern x14) st = Curry.Module.SrcRef.c_testSrcRef'46testLit'461385(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x13)(x14)(st)+c_testSrcRef'46testPat'461385_case_177 x13 x8@(Curry.Module.CurrySyntax.C_NegativePattern x15 x16) st = Curry.Module.SrcRef.c_testSrcRef'46testLit'461385(Curry.Module.Prelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(x13)(x16)(st)+c_testSrcRef'46testPat'461385_case_177 x13 (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testPat'461385_case_177(x13)(x)(st))(i)(xs)(st)+c_testSrcRef'46testPat'461385_case_177 x13 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testPat.1385_case_177")(x)++++c_testSrcRef'46testPat'461385_case_178 x8 x9@(Curry.Module.Prelude.T2 x11 x12) st = Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x12)(Curry.Module.SrcRef.c_flatConsName(x8)(st))(st)+c_testSrcRef'46testPat'461385_case_178 x8 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testPat'461385_case_178(x8)(x)(st))(i)(xs)(st)+c_testSrcRef'46testPat'461385_case_178 x8 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testPat.1385_case_178")(x)++++c_testSrcRef'46testLit'461385_case_183 x1 x9 x3@(Curry.Module.CurrySyntax.C_Float x10) st = Curry.Module.SrcRef.c_testSrcRef'46testLit'461385_case_182(x1)(x9)(x10)(Curry.Module.Prelude.op_60(x1)(Curry.Module.Prelude.C_Zero)(st))(st)+c_testSrcRef'46testLit'461385_case_183 x1 x9 (Curry.Module.CurrySyntax.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testLit'461385_case_183(x1)(x9)(x)(st))(i)(xs)(st)+c_testSrcRef'46testLit'461385_case_183 x1 x9 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testLit.1385_case_183")(x)++++c_testSrcRef'46testLit'461385_case_182 x1 x9 x10 x11@Curry.Module.Prelude.C_True st = Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x9)(Curry.Module.Float.op_42_46(Curry.Module.Float.op_45_46(Curry.Module.Prelude.PrimValue((0.0::Float)))(Curry.Module.Prelude.PrimValue((1.0::Float)))(st))(x10)(st))(st)+c_testSrcRef'46testLit'461385_case_182 x1 x9 x10 x11@Curry.Module.Prelude.C_False st = Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x9)(x10)(st)+c_testSrcRef'46testLit'461385_case_182 x1 x9 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testLit'461385_case_182(x1)(x9)(x10)(x)(st))(i)(xs)(st)+c_testSrcRef'46testLit'461385_case_182 x1 x9 x10 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testLit.1385_case_182")(x)++++c_testSrcRef'46testLit'461385_case_184 x1 x6 x3@(Curry.Module.CurrySyntax.C_Int x7 x8) st = Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x6)(Curry.Module.Prelude.op_42(x1)(x8)(st))(st)+c_testSrcRef'46testLit'461385_case_184 x1 x6 (Curry.Module.CurrySyntax.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testLit'461385_case_184(x1)(x6)(x)(st))(i)(xs)(st)+c_testSrcRef'46testLit'461385_case_184 x1 x6 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testLit.1385_case_184")(x)++++c_testSrcRef'46testLit'461385_case_185 x4 x3@(Curry.Module.CurrySyntax.C_Char x5) st = Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(x4)(x5)(st)+c_testSrcRef'46testLit'461385_case_185 x4 (Curry.Module.CurrySyntax.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testLit'461385_case_185(x4)(x)(st))(i)(xs)(st)+c_testSrcRef'46testLit'461385_case_185 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testLit.1385_case_185")(x)++++c_testSrcRef'46testType'461385_case_192 x1 x2 x5 x4@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.SrcRef.c_testSrcRef'46testType'461385_case_191(x1)(x2)(x5)(x6)(x7)(st)+c_testSrcRef'46testType'461385_case_192 x1 x2 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testType'461385_case_192(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c_testSrcRef'46testType'461385_case_192 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testType.1385_case_192")(x)++++c_testSrcRef'46testType'461385_case_191 x1 x2 x5 x6 x7@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testType'461385_case_190(x1)(x2)(x5)(x6)(Curry.Module.SrcRef.c_srcAt(x1)(x6)(st))(st)+c_testSrcRef'46testType'461385_case_191 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testType'461385_case_191(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c_testSrcRef'46testType'461385_case_191 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testType.1385_case_191")(x)++++c_testSrcRef'46testType'461385_case_190 x1 x2 x5 x6 x7@(Curry.Module.Prelude.C_Just x8) st = Curry.Module.SrcRef.c_testSrcRef'46testType'461385_case_189(x1)(x2)(x5)(x8)(st)+c_testSrcRef'46testType'461385_case_190 x1 x2 x5 x6 x7@Curry.Module.Prelude.C_Nothing st = Curry.Module.Prelude.c_error((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('s'))((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('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)+c_testSrcRef'46testType'461385_case_190 x1 x2 x5 x6 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testType'461385_case_190(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c_testSrcRef'46testType'461385_case_190 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testType.1385_case_190")(x)++++c_testSrcRef'46testType'461385_case_189 x1 x2 x5 x8@(Curry.Module.SrcRef.C_SrcDecl x9) st = Curry.Module.SrcRef.c_testSrcRef'46testType'461385_case_188(x1)(x2)(x5)(x9)(st)+c_testSrcRef'46testType'461385_case_189 x1 x2 x5 x8@(Curry.Module.SrcRef.C_SrcCon x56 x57) st = Curry.Module.Prelude.c_error((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('s'))((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('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)+c_testSrcRef'46testType'461385_case_189 x1 x2 x5 x8@(Curry.Module.SrcRef.C_SrcConTerm x58 x59 x60) st = Curry.Module.Prelude.c_error((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('s'))((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('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)+c_testSrcRef'46testType'461385_case_189 x1 x2 x5 x8@(Curry.Module.SrcRef.C_SrcNew x61 x62) st = Curry.Module.Prelude.c_error((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('s'))((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('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)+c_testSrcRef'46testType'461385_case_189 x1 x2 x5 x8@(Curry.Module.SrcRef.C_SrcRhs x63 x64 x65) st = Curry.Module.Prelude.c_error((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('s'))((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('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)+c_testSrcRef'46testType'461385_case_189 x1 x2 x5 x8@(Curry.Module.SrcRef.C_SrcId x66 x67) st = Curry.Module.Prelude.c_error((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('s'))((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('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)+c_testSrcRef'46testType'461385_case_189 x1 x2 x5 x8@(Curry.Module.SrcRef.C_SrcCond x68 x69 x70 x71) st = Curry.Module.Prelude.c_error((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('s'))((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('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)+c_testSrcRef'46testType'461385_case_189 x1 x2 x5 x8@(Curry.Module.SrcRef.C_SrcExpr x72 x73 x74) st = Curry.Module.Prelude.c_error((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('s'))((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('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)+c_testSrcRef'46testType'461385_case_189 x1 x2 x5 x8@(Curry.Module.SrcRef.C_SrcAlt x75 x76 x77) st = Curry.Module.Prelude.c_error((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('s'))((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('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)+c_testSrcRef'46testType'461385_case_189 x1 x2 x5 (Curry.Module.SrcRef.C_SrcEntityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testType'461385_case_189(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c_testSrcRef'46testType'461385_case_189 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testType.1385_case_189")(x)++++c_testSrcRef'46testType'461385_case_188 x1 x2 x5 x9@(Curry.Module.CurrySyntax.C_DataDecl x10 x11 x12 x13) st = Curry.Module.SrcRef.c_testSrcRef'46testType'461385_case_187(x1)(x2)(x5)(x11)(st)+c_testSrcRef'46testType'461385_case_188 x1 x2 x5 x9@(Curry.Module.CurrySyntax.C_TypeDecl x16 x17 x18 x19) st = Curry.Module.SrcRef.c_testSrcRef'46testType'461385_case_186(x2)(x17)(st)+c_testSrcRef'46testType'461385_case_188 x1 x2 x5 (Curry.Module.CurrySyntax.C_DeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testType'461385_case_188(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c_testSrcRef'46testType'461385_case_188 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testType.1385_case_188")(x)++++c_testSrcRef'46testType'461385_case_186 x2 x17@(Curry.Module.CurrySyntax.C_Ident x20 x21) st = Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(Curry.Module.Prelude.c_snd(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_typeName(st))(x2)(st))(st))(x20)(st)+c_testSrcRef'46testType'461385_case_186 x2 (Curry.Module.CurrySyntax.C_IdentOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testType'461385_case_186(x2)(x)(st))(i)(xs)(st)+c_testSrcRef'46testType'461385_case_186 x2 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testType.1385_case_186")(x)++++c_testSrcRef'46testType'461385_case_187 x1 x2 x5 x11@(Curry.Module.CurrySyntax.C_Ident x14 x15) st = Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(Curry.Module.Prelude.c_snd(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_typeName(st))(x2)(st))(st))(x14)(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_and(st))(Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testSrcRef'46testCons'461385(x1)))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_typeConsDecls(st))(x2)(st))(x5)(st))(st))(st)+c_testSrcRef'46testType'461385_case_187 x1 x2 x5 (Curry.Module.CurrySyntax.C_IdentOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testType'461385_case_187(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c_testSrcRef'46testType'461385_case_187 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testType.1385_case_187")(x)++++c_testSrcRef'46zipWith'39'461385_case_193 x1 x2 x6 x7 x3@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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((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('\''))((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('f'))((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('l'))((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(' '))((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('m'))((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('y'))((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(x2)(st))(st))(st)+c_testSrcRef'46zipWith'39'461385_case_193 x1 x2 x6 x7 x3@((Curry.Module.Prelude.:<) x8 x9) st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x1)(x6)(st))(x8)(st))(Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385(x1)(x7)(x9)(st))+c_testSrcRef'46zipWith'39'461385_case_193 x1 x2 x6 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385_case_193(x1)(x2)(x6)(x7)(x)(st))(i)(xs)(st)+c_testSrcRef'46zipWith'39'461385_case_193 x1 x2 x6 x7 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.zipWith'.1385_case_193")(x)++++c_testSrcRef'46zipWith'39'461385_case_194 x3@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_testSrcRef'46zipWith'39'461385_case_194 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((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('\''))((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('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))))))))))))))(st)+c_testSrcRef'46zipWith'39'461385_case_194 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385_case_194(x)(st))(i)(xs)(st)+c_testSrcRef'46zipWith'39'461385_case_194 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.zipWith'.1385_case_194")(x)++++c_testSrcRef'46testCons'461385_case_199 x1 x2 x5 x4@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.SrcRef.c_testSrcRef'46testCons'461385_case_198(x1)(x2)(x5)(x6)(x7)(st)+c_testSrcRef'46testCons'461385_case_199 x1 x2 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testCons'461385_case_199(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c_testSrcRef'46testCons'461385_case_199 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testCons.1385_case_199")(x)++++c_testSrcRef'46testCons'461385_case_198 x1 x2 x5 x6 x7@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testCons'461385_case_197(x1)(x2)(x6)(x5)(st)+c_testSrcRef'46testCons'461385_case_198 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testCons'461385_case_198(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c_testSrcRef'46testCons'461385_case_198 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testCons.1385_case_198")(x)++++c_testSrcRef'46testCons'461385_case_197 x1 x2 x6 x5@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_testSrcRef'46testCons'461385_case_196(x1)(x2)(x6)(Curry.Module.SrcRef.c_srcAt(x1)(x6)(st))(st)+c_testSrcRef'46testCons'461385_case_197 x1 x2 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testCons'461385_case_197(x1)(x2)(x6)(x)(st))(i)(xs)(st)+c_testSrcRef'46testCons'461385_case_197 x1 x2 x6 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testCons.1385_case_197")(x)++++c_testSrcRef'46testCons'461385_case_196 x1 x2 x6 x7@(Curry.Module.Prelude.C_Just x8) st = Curry.Module.SrcRef.c_testSrcRef'46testCons'461385_case_195(x2)(x8)(st)+c_testSrcRef'46testCons'461385_case_196 x1 x2 x6 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testCons'461385_case_196(x1)(x2)(x6)(x)(st))(i)(xs)(st)+c_testSrcRef'46testCons'461385_case_196 x1 x2 x6 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testCons.1385_case_196")(x)++++c_testSrcRef'46testCons'461385_case_195 x2 x8@(Curry.Module.SrcRef.C_SrcCon x9 x10) st = Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385(Curry.Module.SrcRef.c_consDeclName(x10)(st))(Curry.Module.Prelude.c_snd(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_consName(st))(x2)(st))(st))(st)+c_testSrcRef'46testCons'461385_case_195 x2 (Curry.Module.SrcRef.C_SrcEntityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46testCons'461385_case_195(x2)(x)(st))(i)(xs)(st)+c_testSrcRef'46testCons'461385_case_195 x2 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.testCons.1385_case_195")(x)++++c_testSrcRef'46'61'61'61'461385_case_200 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.C_True+c_testSrcRef'46'61'61'61'461385_case_200 x1 x2 x3@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('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('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('c'))((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.List)))))))))))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(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.List))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st))(st))(st)+c_testSrcRef'46'61'61'61'461385_case_200 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef'46'61'61'61'461385_case_200(x1)(x2)(x)(st))(i)(xs)(st)+c_testSrcRef'46'61'61'61'461385_case_200 x1 x2 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef.===.1385_case_200")(x)++++c_testSrcRef_case_201 x1 x2 x5 x6 x7@(Curry.Module.Prelude.T2 x9 x10) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_and(st))(Curry.Module.Prelude.op_43_43(Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testSrcRef'46testType'461385(x2)))(x5)(x9)(st))(Curry.Module.SrcRef.c_testSrcRef'46zipWith'39'461385(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_testSrcRef'46testFunc'461385(x2)))(x6)(x10)(st))(st))(st)+c_testSrcRef_case_201 x1 x2 x5 x6 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_testSrcRef_case_201(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c_testSrcRef_case_201 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("SrcRef.testSrcRef_case_201")(x)++++c_maxRef'46last'461347_case_202 x2 x3@Curry.Module.Prelude.List st = x2+c_maxRef'46last'461347_case_202 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.SrcRef.c_maxRef'46last'461347(x3)(st)+c_maxRef'46last'461347_case_202 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_maxRef'46last'461347_case_202(x2)(x)(st))(i)(xs)(st)+c_maxRef'46last'461347_case_202 x2 x st = Curry.RunTimeSystem.patternFail("SrcRef.maxRef.last.1347_case_202")(x)++++c_maxRef'46refs'461347_case_203 x3 x2@(Curry.Module.Prelude.C_Just x4) st = (Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_maxRef'46refs'461347))(st))(x3)(st))+c_maxRef'46refs'461347_case_203 x3 x2@Curry.Module.Prelude.C_Nothing st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_concatMap(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_maxRef'46refs'461347))(st))(x3)(st)+c_maxRef'46refs'461347_case_203 x3 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_maxRef'46refs'461347_case_203(x3)(x)(st))(i)(xs)(st)+c_maxRef'46refs'461347_case_203 x3 x st = Curry.RunTimeSystem.patternFail("SrcRef.maxRef.refs.1347_case_203")(x)++++c_varNameFromSel_case_206 x1 (Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.SrcRef.c_varNameFromSel_case_205(x3)(st)+c_varNameFromSel_case_206 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_varNameFromSel_case_206(x1)(x)(st))(i)(xs)(st)+c_varNameFromSel_case_206 x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.varNameFromSel_case_206")(x)++++c_varNameFromSel_case_205 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.SrcRef.c_varNameFromSel_case_204(x5)(Curry.Module.List.c_isPrefixOf(Curry.Module.SrcRef.c_fpSelExt(st))(x5)(st))(st)+c_varNameFromSel_case_205 x3@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((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('a'))((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('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.:<)(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('s'))((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('c'))((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.List))))))))))))))))))))))))(st)+c_varNameFromSel_case_205 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_varNameFromSel_case_205(x)(st))(i)(xs)(st)+c_varNameFromSel_case_205 x st = Curry.RunTimeSystem.patternFail("SrcRef.varNameFromSel_case_205")(x)++++c_varNameFromSel_case_204 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_tail))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(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('#'))))))(Curry.Module.Prelude.c_drop(Curry.Module.Prelude.c_length(Curry.Module.SrcRef.c_fpSelExt(st))(st))(x5)(st))(st))(st)+c_varNameFromSel_case_204 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.SrcRef.c_varNameFromSel(x5)(st)+c_varNameFromSel_case_204 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_varNameFromSel_case_204(x5)(x)(st))(i)(xs)(st)+c_varNameFromSel_case_204 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.varNameFromSel_case_204")(x)++++c_isSelName_case_208 x1 (Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.SrcRef.c_isSelName_case_207(x3)(st)+c_isSelName_case_208 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_isSelName_case_208(x1)(x)(st))(i)(xs)(st)+c_isSelName_case_208 x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.isSelName_case_208")(x)++++c_isSelName_case_207 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.Prelude.op_124_124(Curry.Module.List.c_isPrefixOf(Curry.Module.SrcRef.c_fpSelExt(st))(x5)(st))(Curry.Module.SrcRef.c_isSelName(x5)(st))(st)+c_isSelName_case_207 x3@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_False+c_isSelName_case_207 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_isSelName_case_207(x)(st))(i)(xs)(st)+c_isSelName_case_207 x st = Curry.RunTimeSystem.patternFail("SrcRef.isSelName_case_207")(x)++++c_isLambdaName_case_210 x1 (Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.SrcRef.c_isLambdaName_case_209(x3)(st)+c_isLambdaName_case_210 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_isLambdaName_case_210(x1)(x)(st))(i)(xs)(st)+c_isLambdaName_case_210 x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.isLambdaName_case_210")(x)++++c_isLambdaName_case_209 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.Prelude.op_124_124(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_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))(x5)(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('l'))((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('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))(Curry.Module.Prelude.List)))))))))(st))(Curry.Module.SrcRef.c_isLambdaName(x5)(st))(st)+c_isLambdaName_case_209 x3@Curry.Module.Prelude.List st = Curry.Module.Prelude.C_False+c_isLambdaName_case_209 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_isLambdaName_case_209(x)(st))(i)(xs)(st)+c_isLambdaName_case_209 x st = Curry.RunTimeSystem.patternFail("SrcRef.isLambdaName_case_209")(x)++++c_zipLiftedBind_case_214 x1 x2 x3 x6 x5@(Curry.Module.Prelude.C_Just x7) st = Curry.Module.SrcRef.c_zipLiftedBind_case_213(x1)(x2)(x3)(x7)(x6)(st)+c_zipLiftedBind_case_214 x1 x2 x3 x6 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipLiftedBind_case_214(x1)(x2)(x3)(x6)(x)(st))(i)(xs)(st)+c_zipLiftedBind_case_214 x1 x2 x3 x6 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipLiftedBind_case_214")(x)++++c_zipLiftedBind_case_213 x1 x2 x3 x7 x6@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.SrcRef.c_zipLiftedBind_case_212(x1)(x2)(x3)(x7)(x8)(x9)(st)+c_zipLiftedBind_case_213 x1 x2 x3 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipLiftedBind_case_213(x1)(x2)(x3)(x7)(x)(st))(i)(xs)(st)+c_zipLiftedBind_case_213 x1 x2 x3 x7 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipLiftedBind_case_213")(x)++++c_zipLiftedBind_case_212 x1 x2 x3 x7 x8 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.SrcRef.c_zipLiftedBind_case_211(x1)(x2)(x3)(x7)(x8)(x10)(x11)(st)+c_zipLiftedBind_case_212 x1 x2 x3 x7 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipLiftedBind_case_212(x1)(x2)(x3)(x7)(x8)(x)(st))(i)(xs)(st)+c_zipLiftedBind_case_212 x1 x2 x3 x7 x8 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipLiftedBind_case_212")(x)++++c_zipLiftedBind_case_211 x1 x2 x3 x7 x8 x10 x11@Curry.Module.Prelude.List st = Curry.Module.SrcRef.op_36_94(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))))(Curry.Module.SrcRef.c_caseCascade'39(x7)(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcArgs(st))(x1)(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcBody(st))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.SrcRef.C_Tree(Curry.Module.Prelude.C_Nothing)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))))(Curry.Module.Prelude.T2(Curry.Module.CurrySyntax.C_SimpleRhs(Curry.Module.Prelude.c_error((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('k'))((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('t'))((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('o'))((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('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.List)))))))))))))))))(st))(x3)(Curry.Module.Prelude.List))(Curry.Module.SrcRef.C_Tree(Curry.Module.Prelude.C_Nothing)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.List))(st))(st)+c_zipLiftedBind_case_211 x1 x2 x3 x7 x8 x10 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipLiftedBind_case_211(x1)(x2)(x3)(x7)(x8)(x10)(x)(st))(i)(xs)(st)+c_zipLiftedBind_case_211 x1 x2 x3 x7 x8 x10 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipLiftedBind_case_211")(x)++++c_zipLiftFunc_case_219 x1 x4 x5 x3@(Curry.Module.SrcRef.C_Tree x6 x7) st = Curry.Module.SrcRef.c_zipLiftFunc_case_218(x1)(x4)(x5)(x7)(x6)(st)+c_zipLiftFunc_case_219 x1 x4 x5 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipLiftFunc_case_219(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_zipLiftFunc_case_219 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipLiftFunc_case_219")(x)++++c_zipLiftFunc_case_218 x1 x4 x5 x7 x6@(Curry.Module.Prelude.C_Just x8) st = Curry.Module.SrcRef.c_zipLiftFunc_case_217(x1)(x4)(x5)(x8)(x7)(st)+c_zipLiftFunc_case_218 x1 x4 x5 x7 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipLiftFunc_case_218(x1)(x4)(x5)(x7)(x)(st))(i)(xs)(st)+c_zipLiftFunc_case_218 x1 x4 x5 x7 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipLiftFunc_case_218")(x)++++c_zipLiftFunc_case_217 x1 x4 x5 x8 x7@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.SrcRef.c_zipLiftFunc_case_216(x1)(x4)(x5)(x8)(x9)(x10)(st)+c_zipLiftFunc_case_217 x1 x4 x5 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipLiftFunc_case_217(x1)(x4)(x5)(x8)(x)(st))(i)(xs)(st)+c_zipLiftFunc_case_217 x1 x4 x5 x8 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipLiftFunc_case_217")(x)++++c_zipLiftFunc_case_216 x1 x4 x5 x8 x9 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.SrcRef.c_zipLiftFunc_case_215(x1)(x4)(x5)(x8)(x9)(x11)(x12)(st)+c_zipLiftFunc_case_216 x1 x4 x5 x8 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipLiftFunc_case_216(x1)(x4)(x5)(x8)(x9)(x)(st))(i)(xs)(st)+c_zipLiftFunc_case_216 x1 x4 x5 x8 x9 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipLiftFunc_case_216")(x)++++c_zipLiftFunc_case_215 x1 x4 x5 x8 x9 x11 x12@Curry.Module.Prelude.List st = Curry.Module.SrcRef.op_36_94(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_caseCascade(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcArgs(st))(x1)(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcBody(st))(x1)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.Prelude.T2(x4)(x9))(Curry.Module.Prelude.T2(Curry.Module.CurrySyntax.C_SimpleRhs(Curry.Module.Prelude.c_error((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('k'))((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('t'))((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('o'))((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('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.List)))))))))))))))))(st))(x5)(Curry.Module.Prelude.List))(x11)))(Curry.Module.Prelude.List))(st))(st)+c_zipLiftFunc_case_215 x1 x4 x5 x8 x9 x11 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipLiftFunc_case_215(x1)(x4)(x5)(x8)(x9)(x11)(x)(st))(i)(xs)(st)+c_zipLiftFunc_case_215 x1 x4 x5 x8 x9 x11 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipLiftFunc_case_215")(x)++++c_zipLiftFuncs_case_226 x1 x4 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.SrcRef.c_zipLiftFuncs_case_225(x1)(x4)(x5)(x7)(x6)(st)+c_zipLiftFuncs_case_226 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipLiftFuncs_case_226(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_zipLiftFuncs_case_226 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipLiftFuncs_case_226")(x)++++c_zipLiftFuncs_case_225 x1 x4 x5 x7 x6@(Curry.Module.Prelude.C_Just x8) st = (Curry.Module.Prelude.:<)(x8)(Curry.Module.SrcRef.c_zipLiftFuncs(x1)(x5)(x7)(st))+c_zipLiftFuncs_case_225 x1 x4 x5 x7 x6@Curry.Module.Prelude.C_Nothing st = Curry.Module.SrcRef.c_zipLiftFuncs_case_224(x1)(x4)(x5)(x7)(Curry.Module.Prelude.c_lookup(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_snd))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcName(st))(x4)(st))(st))(x1)(st))(st)+c_zipLiftFuncs_case_225 x1 x4 x5 x7 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipLiftFuncs_case_225(x1)(x4)(x5)(x7)(x)(st))(i)(xs)(st)+c_zipLiftFuncs_case_225 x1 x4 x5 x7 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipLiftFuncs_case_225")(x)++++c_zipLiftFuncs_case_224 x1 x4 x5 x7 x8@(Curry.Module.Prelude.C_Just x9) st = Curry.Module.SrcRef.c_zipLiftFuncs_case_223(x1)(x4)(x5)(x7)(x9)(st)+c_zipLiftFuncs_case_224 x1 x4 x5 x7 x8@Curry.Module.Prelude.C_Nothing 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('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('s'))((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('r'))((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('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('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.List))))))))))))))))))))))))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_snd))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcName(st))(x4)(st))(st))(st))(st)+c_zipLiftFuncs_case_224 x1 x4 x5 x7 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipLiftFuncs_case_224(x1)(x4)(x5)(x7)(x)(st))(i)(xs)(st)+c_zipLiftFuncs_case_224 x1 x4 x5 x7 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipLiftFuncs_case_224")(x)++++c_zipLiftFuncs_case_223 x1 x4 x5 x7 x9@(Curry.Module.Prelude.T2 x10 x11) st = Curry.Module.SrcRef.c_zipLiftFuncs_case_222(x1)(x4)(x5)(x7)(x11)(x10)(st)+c_zipLiftFuncs_case_223 x1 x4 x5 x7 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipLiftFuncs_case_223(x1)(x4)(x5)(x7)(x)(st))(i)(xs)(st)+c_zipLiftFuncs_case_223 x1 x4 x5 x7 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipLiftFuncs_case_223")(x)++++c_zipLiftFuncs_case_222 x1 x4 x5 x7 x11 x10@(Curry.Module.SrcRef.C_LiftedExp x12) st = Curry.Module.SrcRef.c_zipLiftFuncs_case_221(x1)(x4)(x5)(x7)(x11)(x12)(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_zipLiftFunc(x4)(x12)(x11)(st))(Curry.Module.Prelude.List)(st))(st)+c_zipLiftFuncs_case_222 x1 x4 x5 x7 x11 x10@(Curry.Module.SrcRef.C_LiftedComplexPat x15 x16) st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_fst(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_zipSelector(x4)(x15)(x16)(x11)(st))(Curry.Module.Prelude.List)(st))(st))(Curry.Module.SrcRef.c_zipLiftFuncs(x1)(x5)(x7)(st))+c_zipLiftFuncs_case_222 x1 x4 x5 x7 x11 x10@(Curry.Module.SrcRef.C_LiftedBind x17 x18) st = Curry.Module.SrcRef.c_zipLiftFuncs_case_220(x1)(x4)(x5)(x7)(x11)(x17)(x18)(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_zipLiftedBind(x4)(x17)(x18)(x11)(st))(Curry.Module.Prelude.List)(st))(st)+c_zipLiftFuncs_case_222 x1 x4 x5 x7 x11 (Curry.Module.SrcRef.C_LiftedOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipLiftFuncs_case_222(x1)(x4)(x5)(x7)(x11)(x)(st))(i)(xs)(st)+c_zipLiftFuncs_case_222 x1 x4 x5 x7 x11 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipLiftFuncs_case_222")(x)++++c_zipLiftFuncs_case_220 x1 x4 x5 x7 x11 x17 x18 (Curry.Module.Prelude.T2 x19 x20) st = (Curry.Module.Prelude.:<)(x19)(Curry.Module.SrcRef.c_zipLiftFuncs(Curry.Module.Prelude.op_43_43(x20)(x1)(st))(x5)(x7)(st))+c_zipLiftFuncs_case_220 x1 x4 x5 x7 x11 x17 x18 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipLiftFuncs_case_220(x1)(x4)(x5)(x7)(x11)(x17)(x18)(x)(st))(i)(xs)(st)+c_zipLiftFuncs_case_220 x1 x4 x5 x7 x11 x17 x18 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipLiftFuncs_case_220")(x)++++c_zipLiftFuncs_case_221 x1 x4 x5 x7 x11 x12 (Curry.Module.Prelude.T2 x13 x14) st = (Curry.Module.Prelude.:<)(x13)(Curry.Module.SrcRef.c_zipLiftFuncs(Curry.Module.Prelude.op_43_43(x14)(x1)(st))(x5)(x7)(st))+c_zipLiftFuncs_case_221 x1 x4 x5 x7 x11 x12 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipLiftFuncs_case_221(x1)(x4)(x5)(x7)(x11)(x12)(x)(st))(i)(xs)(st)+c_zipLiftFuncs_case_221 x1 x4 x5 x7 x11 x12 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipLiftFuncs_case_221")(x)++++c_zipLiftFuncs_case_227 x3@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_zipLiftFuncs_case_227 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipLiftFuncs_case_227(x)(st))(i)(xs)(st)+c_zipLiftFuncs_case_227 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipLiftFuncs_case_227")(x)++++c_zipStsRest_case_232 x1 x2 x4 x5 x6 x8 x3@(Curry.Module.Prelude.T2 x10 x11) st = Curry.Module.SrcRef.c_zipStsRest_case_231(x1)(x2)(x4)(x5)(x6)(x10)(x11)(x8)(st)+c_zipStsRest_case_232 x1 x2 x4 x5 x6 x8 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipStsRest_case_232(x1)(x2)(x4)(x5)(x6)(x8)(x)(st))(i)(xs)(st)+c_zipStsRest_case_232 x1 x2 x4 x5 x6 x8 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipStsRest_case_232")(x)++++c_zipStsRest_case_231 x1 x2 x4 x5 x6 x10 x11 x8@(Curry.Module.Prelude.T2 x12 x13) st = Curry.Module.SrcRef.c_zipStsRest_case_230(x1)(x2)(x4)(x5)(x6)(x10)(x11)(x13)(Curry.Module.SrcRef.c_isLambdaName(x13)(st))(st)+c_zipStsRest_case_231 x1 x2 x4 x5 x6 x10 x11 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipStsRest_case_231(x1)(x2)(x4)(x5)(x6)(x10)(x11)(x)(st))(i)(xs)(st)+c_zipStsRest_case_231 x1 x2 x4 x5 x6 x10 x11 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipStsRest_case_231")(x)++++c_zipStsRest_case_230 x1 x2 x4 x5 x6 x10 x11 x13 x14@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.pf(Curry.Module.Prelude.c_const(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.Prelude.List))(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(x13)(Curry.Module.Prelude.T2(Curry.Module.SrcRef.C_LiftedBind(x10)(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_zipStsRest_case_229(x2)(x6)(st))(x1)(st)))(x4)))(Curry.Module.Prelude.List))))+c_zipStsRest_case_230 x1 x2 x4 x5 x6 x10 x11 x13 x14@Curry.Module.Prelude.C_False st = Curry.Module.SrcRef.c_zipStsRest_case_228(x1)(x2)(x4)(x5)(Curry.Module.Prelude.c_otherwise(st))(st)+c_zipStsRest_case_230 x1 x2 x4 x5 x6 x10 x11 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipStsRest_case_230(x1)(x2)(x4)(x5)(x6)(x10)(x11)(x13)(x)(st))(i)(xs)(st)+c_zipStsRest_case_230 x1 x2 x4 x5 x6 x10 x11 x13 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipStsRest_case_230")(x)++++c_zipStsRest_case_228 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.SrcRef.c_zipSts(x5)(x1)(x2)(x4)(st)+c_zipStsRest_case_228 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipStsRest_case_228(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c_zipStsRest_case_228 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipStsRest_case_228")(x)++++c_zipStsRest_case_229 x2 x6@Curry.Module.Prelude.C_True st = 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.CurrySyntax.C_Do))(x2))+c_zipStsRest_case_229 x2 x6@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.pc(Curry.Module.CurrySyntax.C_ListCompr(x2))+c_zipStsRest_case_229 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipStsRest_case_229(x2)(x)(st))(i)(xs)(st)+c_zipStsRest_case_229 x2 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipStsRest_case_229")(x)++++c_zipMBind_case_243 x2 x3 x4 x5 x6 x33 x34 x32@Curry.Module.FlatCurry.C_Rigid st = Curry.Module.SrcRef.c_zipMBind_case_242(x2)(x3)(x4)(x5)(x6)(x33)(x34)(st)+c_zipMBind_case_243 x2 x3 x4 x5 x6 x33 x34 (Curry.Module.FlatCurry.C_CaseTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_243(x2)(x3)(x4)(x5)(x6)(x33)(x34)(x)(st))(i)(xs)(st)+c_zipMBind_case_243 x2 x3 x4 x5 x6 x33 x34 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_243")(x)++++c_zipMBind_case_242 x2 x3 x4 x5 x6 x33 x34@((Curry.Module.Prelude.:<) x35 x36) st = Curry.Module.SrcRef.c_zipMBind_case_241(x2)(x3)(x4)(x5)(x6)(x33)(x36)(x35)(st)+c_zipMBind_case_242 x2 x3 x4 x5 x6 x33 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_242(x2)(x3)(x4)(x5)(x6)(x33)(x)(st))(i)(xs)(st)+c_zipMBind_case_242 x2 x3 x4 x5 x6 x33 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_242")(x)++++c_zipMBind_case_241 x2 x3 x4 x5 x6 x33 x36 x35@(Curry.Module.FlatCurry.C_Branch x37 x38) st = Curry.Module.SrcRef.c_zipMBind_case_240(x2)(x3)(x4)(x5)(x6)(x33)(x38)(x36)(st)+c_zipMBind_case_241 x2 x3 x4 x5 x6 x33 x36 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_241(x2)(x3)(x4)(x5)(x6)(x33)(x36)(x)(st))(i)(xs)(st)+c_zipMBind_case_241 x2 x3 x4 x5 x6 x33 x36 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_241")(x)++++c_zipMBind_case_240 x2 x3 x4 x5 x6 x33 x38 x36@((Curry.Module.Prelude.:<) x39 x40) st = Curry.Module.SrcRef.c_zipMBind_case_239(x2)(x3)(x4)(x5)(x6)(x33)(x38)(x40)(st)+c_zipMBind_case_240 x2 x3 x4 x5 x6 x33 x38 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_240(x2)(x3)(x4)(x5)(x6)(x33)(x38)(x)(st))(i)(xs)(st)+c_zipMBind_case_240 x2 x3 x4 x5 x6 x33 x38 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_240")(x)++++c_zipMBind_case_239 x2 x3 x4 x5 x6 x33 x38 x40@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipMBind_case_238(x2)(x3)(x4)(x5)(x6)(x33)(x38)(Curry.Module.SrcRef.c_zipExp(x33)(x2)(x4)(x6)(st))(st)+c_zipMBind_case_239 x2 x3 x4 x5 x6 x33 x38 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_239(x2)(x3)(x4)(x5)(x6)(x33)(x38)(x)(st))(i)(xs)(st)+c_zipMBind_case_239 x2 x3 x4 x5 x6 x33 x38 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_239")(x)++++c_zipMBind_case_238 x2 x3 x4 x5 x6 x33 x38 x39@(Curry.Module.Prelude.T2 x41 x42) st = Curry.Module.SrcRef.c_zipMBind_case_237(x3)(x5)(x6)(x38)(x42)(x41)(st)+c_zipMBind_case_238 x2 x3 x4 x5 x6 x33 x38 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_238(x2)(x3)(x4)(x5)(x6)(x33)(x38)(x)(st))(i)(xs)(st)+c_zipMBind_case_238 x2 x3 x4 x5 x6 x33 x38 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_238")(x)++++c_zipMBind_case_237 x3 x5 x6 x38 x42 x41@((Curry.Module.Prelude.:<) x43 x44) st = Curry.Module.SrcRef.c_zipMBind_case_236(x3)(x5)(x6)(x38)(x42)(x43)(x44)(st)+c_zipMBind_case_237 x3 x5 x6 x38 x42 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_237(x3)(x5)(x6)(x38)(x42)(x)(st))(i)(xs)(st)+c_zipMBind_case_237 x3 x5 x6 x38 x42 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_237")(x)++++c_zipMBind_case_236 x3 x5 x6 x38 x42 x43 x44@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipMBind_case_235(x3)(x5)(x6)(x38)(x42)(x43)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x5)(x38)(st))(Curry.Module.Prelude.C_False)(st))(x6)(st))(st)+c_zipMBind_case_236 x3 x5 x6 x38 x42 x43 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_236(x3)(x5)(x6)(x38)(x42)(x43)(x)(st))(i)(xs)(st)+c_zipMBind_case_236 x3 x5 x6 x38 x42 x43 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_236")(x)++++c_zipMBind_case_235 x3 x5 x6 x38 x42 x43 x44@(Curry.Module.Prelude.T2 x45 x46) st = Curry.Module.SrcRef.c_zipMBind_case_234(x3)(x42)(x43)(x46)(x45)(st)+c_zipMBind_case_235 x3 x5 x6 x38 x42 x43 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_235(x3)(x5)(x6)(x38)(x42)(x43)(x)(st))(i)(xs)(st)+c_zipMBind_case_235 x3 x5 x6 x38 x42 x43 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_235")(x)++++c_zipMBind_case_234 x3 x42 x43 x46 x45@((Curry.Module.Prelude.:<) x47 x48) st = Curry.Module.SrcRef.c_zipMBind_case_233(x3)(x42)(x43)(x46)(x47)(x48)(st)+c_zipMBind_case_234 x3 x42 x43 x46 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_234(x3)(x42)(x43)(x46)(x)(st))(i)(xs)(st)+c_zipMBind_case_234 x3 x42 x43 x46 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_234")(x)++++c_zipMBind_case_233 x3 x42 x43 x46 x47 x48@Curry.Module.Prelude.List st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x43)((Curry.Module.Prelude.:<)(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x47)((Curry.Module.Prelude.:<)(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Prelude.List))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(x42)(x46)(st))+c_zipMBind_case_233 x3 x42 x43 x46 x47 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_233(x3)(x42)(x43)(x46)(x47)(x)(st))(i)(xs)(st)+c_zipMBind_case_233 x3 x42 x43 x46 x47 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_233")(x)++++c_zipMBind_case_259 x2 x3 x4 x5 x6 x7 x9 x8@(Curry.Module.Prelude.T2 x10 x11) st = Curry.Module.SrcRef.c_zipMBind_case_258(x2)(x3)(x4)(x5)(x6)(x7)(x10)(x11)(x9)(st)+c_zipMBind_case_259 x2 x3 x4 x5 x6 x7 x9 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_259(x2)(x3)(x4)(x5)(x6)(x7)(x9)(x)(st))(i)(xs)(st)+c_zipMBind_case_259 x2 x3 x4 x5 x6 x7 x9 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_259")(x)++++c_zipMBind_case_258 x2 x3 x4 x5 x6 x7 x10 x11 x9@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.SrcRef.c_zipMBind_case_257(x2)(x3)(x4)(x5)(x6)(x7)(x10)(x11)(x12)(x13)(st)+c_zipMBind_case_258 x2 x3 x4 x5 x6 x7 x10 x11 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_258(x2)(x3)(x4)(x5)(x6)(x7)(x10)(x11)(x)(st))(i)(xs)(st)+c_zipMBind_case_258 x2 x3 x4 x5 x6 x7 x10 x11 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_258")(x)++++c_zipMBind_case_257 x2 x3 x4 x5 x6 x7 x10 x11 x12 x13@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.SrcRef.c_zipMBind_case_256(x2)(x3)(x4)(x5)(x6)(x7)(x10)(x11)(x12)(x14)(x15)(st)+c_zipMBind_case_257 x2 x3 x4 x5 x6 x7 x10 x11 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_257(x2)(x3)(x4)(x5)(x6)(x7)(x10)(x11)(x12)(x)(st))(i)(xs)(st)+c_zipMBind_case_257 x2 x3 x4 x5 x6 x7 x10 x11 x12 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_257")(x)++++c_zipMBind_case_256 x2 x3 x4 x5 x6 x7 x10 x11 x12 x14 x15@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipMBind_case_255(x2)(x3)(x4)(x5)(x6)(x10)(x11)(x12)(x14)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x10)(Curry.Module.SrcRef.c_prelude(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_elem(x11)(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.:<)(Curry.Module.Prelude.C_Char('='))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.List)))(st))(st))(st)+c_zipMBind_case_256 x2 x3 x4 x5 x6 x7 x10 x11 x12 x14 x15@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.SrcRef.c_zipMBind_case_252(x2)(x3)(x4)(x5)(x6)(x10)(x11)(x12)(x18)(x19)(x7)(st)+c_zipMBind_case_256 x2 x3 x4 x5 x6 x7 x10 x11 x12 x14 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_256(x2)(x3)(x4)(x5)(x6)(x7)(x10)(x11)(x12)(x14)(x)(st))(i)(xs)(st)+c_zipMBind_case_256 x2 x3 x4 x5 x6 x7 x10 x11 x12 x14 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_256")(x)++++c_zipMBind_case_252 x2 x3 x4 x5 x6 x10 x11 x12 x18 x19 x7@Curry.Module.FlatCurry.C_FuncCall st = Curry.Module.SrcRef.c_zipMBind_case_251(x2)(x3)(x4)(x5)(x6)(x10)(x11)(x12)(x18)(x19)(st)+c_zipMBind_case_252 x2 x3 x4 x5 x6 x10 x11 x12 x18 x19 (Curry.Module.FlatCurry.C_CombTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_252(x2)(x3)(x4)(x5)(x6)(x10)(x11)(x12)(x18)(x19)(x)(st))(i)(xs)(st)+c_zipMBind_case_252 x2 x3 x4 x5 x6 x10 x11 x12 x18 x19 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_252")(x)++++c_zipMBind_case_251 x2 x3 x4 x5 x6 x10 x11 x12 x18 x19@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipMBind_case_250(x2)(x3)(x4)(x5)(x6)(x10)(x11)(x12)(x18)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x10)(Curry.Module.SrcRef.c_prelude(st))(st))(Curry.Module.Prelude.op_61_61(x11)((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))))))(st))(st))(st)+c_zipMBind_case_251 x2 x3 x4 x5 x6 x10 x11 x12 x18 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_251(x2)(x3)(x4)(x5)(x6)(x10)(x11)(x12)(x18)(x)(st))(i)(xs)(st)+c_zipMBind_case_251 x2 x3 x4 x5 x6 x10 x11 x12 x18 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_251")(x)++++c_zipMBind_case_250 x2 x3 x4 x5 x6 x10 x11 x12 x18 x19@Curry.Module.Prelude.C_True st = Curry.Module.SrcRef.c_zipMBind_case_249(x2)(x3)(x4)(x5)(x6)(x12)(x18)(Curry.Module.SrcRef.c_zipExp(x18)(x2)(x4)(x6)(st))(st)+c_zipMBind_case_250 x2 x3 x4 x5 x6 x10 x11 x12 x18 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_250(x2)(x3)(x4)(x5)(x6)(x10)(x11)(x12)(x18)(x)(st))(i)(xs)(st)+c_zipMBind_case_250 x2 x3 x4 x5 x6 x10 x11 x12 x18 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_250")(x)++++c_zipMBind_case_249 x2 x3 x4 x5 x6 x12 x18 x19@(Curry.Module.Prelude.T2 x20 x21) st = Curry.Module.SrcRef.c_zipMBind_case_248(x3)(x5)(x6)(x12)(x21)(x20)(st)+c_zipMBind_case_249 x2 x3 x4 x5 x6 x12 x18 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_249(x2)(x3)(x4)(x5)(x6)(x12)(x18)(x)(st))(i)(xs)(st)+c_zipMBind_case_249 x2 x3 x4 x5 x6 x12 x18 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_249")(x)++++c_zipMBind_case_248 x3 x5 x6 x12 x21 x20@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.SrcRef.c_zipMBind_case_247(x3)(x5)(x6)(x12)(x21)(x22)(x23)(st)+c_zipMBind_case_248 x3 x5 x6 x12 x21 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_248(x3)(x5)(x6)(x12)(x21)(x)(st))(i)(xs)(st)+c_zipMBind_case_248 x3 x5 x6 x12 x21 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_248")(x)++++c_zipMBind_case_247 x3 x5 x6 x12 x21 x22 x23@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipMBind_case_246(x3)(x5)(x6)(x12)(x21)(x22)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x5)(x12)(st))(Curry.Module.Prelude.C_False)(st))(x6)(st))(st)+c_zipMBind_case_247 x3 x5 x6 x12 x21 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_247(x3)(x5)(x6)(x12)(x21)(x22)(x)(st))(i)(xs)(st)+c_zipMBind_case_247 x3 x5 x6 x12 x21 x22 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_247")(x)++++c_zipMBind_case_246 x3 x5 x6 x12 x21 x22 x23@(Curry.Module.Prelude.T2 x24 x25) st = Curry.Module.SrcRef.c_zipMBind_case_245(x3)(x21)(x22)(x25)(x24)(st)+c_zipMBind_case_246 x3 x5 x6 x12 x21 x22 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_246(x3)(x5)(x6)(x12)(x21)(x22)(x)(st))(i)(xs)(st)+c_zipMBind_case_246 x3 x5 x6 x12 x21 x22 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_246")(x)++++c_zipMBind_case_245 x3 x21 x22 x25 x24@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.SrcRef.c_zipMBind_case_244(x3)(x21)(x22)(x25)(x26)(x27)(st)+c_zipMBind_case_245 x3 x21 x22 x25 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_245(x3)(x21)(x22)(x25)(x)(st))(i)(xs)(st)+c_zipMBind_case_245 x3 x21 x22 x25 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_245")(x)++++c_zipMBind_case_244 x3 x21 x22 x25 x26 x27@Curry.Module.Prelude.List st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(x21)(x25)(st))+c_zipMBind_case_244 x3 x21 x22 x25 x26 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_244(x3)(x21)(x22)(x25)(x26)(x)(st))(i)(xs)(st)+c_zipMBind_case_244 x3 x21 x22 x25 x26 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_244")(x)++++c_zipMBind_case_255 x2 x3 x4 x5 x6 x10 x11 x12 x14 x15@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.op_36_94(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.SrcRef.op_36_94(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_43_43_43(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x12)(x2)(x4)))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x5)(x14)(st))(Curry.Module.Prelude.C_True)(st))))(st))(st))(x6)(st)+c_zipMBind_case_255 x2 x3 x4 x5 x6 x10 x11 x12 x14 x15@Curry.Module.Prelude.C_False st = Curry.Module.SrcRef.c_zipMBind_case_254(x2)(x3)(x4)(x5)(x6)(x11)(x12)(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))(st)+c_zipMBind_case_255 x2 x3 x4 x5 x6 x10 x11 x12 x14 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_255(x2)(x3)(x4)(x5)(x6)(x10)(x11)(x12)(x14)(x)(st))(i)(xs)(st)+c_zipMBind_case_255 x2 x3 x4 x5 x6 x10 x11 x12 x14 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_255")(x)++++c_zipMBind_case_254 x2 x3 x4 x5 x6 x11 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.SrcRef.c_zipMBind_case_253(x2)(x3)(x4)(x5)(x6)(x12)(Curry.Module.SrcRef.c_zipMBind(x12)(x2)(x3)(x4)(x5)(x6)(st))(st)+c_zipMBind_case_254 x2 x3 x4 x5 x6 x11 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_254(x2)(x3)(x4)(x5)(x6)(x11)(x12)(x)(st))(i)(xs)(st)+c_zipMBind_case_254 x2 x3 x4 x5 x6 x11 x12 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_254")(x)++++c_zipMBind_case_253 x2 x3 x4 x5 x6 x12 x13@(Curry.Module.Prelude.T2 x16 x17) st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Prelude.op_43_43(x16)((Curry.Module.Prelude.:<)(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Prelude.List))(Curry.Module.Prelude.List))(st)))(Curry.Module.Prelude.List))(x17)+c_zipMBind_case_253 x2 x3 x4 x5 x6 x12 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipMBind_case_253(x2)(x3)(x4)(x5)(x6)(x12)(x)(st))(i)(xs)(st)+c_zipMBind_case_253 x2 x3 x4 x5 x6 x12 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipMBind_case_253")(x)++++c_zipSts'46_'35lambda141_case_260 x1 x3 x4@Curry.Module.Prelude.List st = (Curry.Module.Prelude.:<)(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))(Curry.Module.Prelude.List))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.List)+c_zipSts'46_'35lambda141_case_260 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts'46_'35lambda141_case_260(x1)(x3)(x)(st))(i)(xs)(st)+c_zipSts'46_'35lambda141_case_260 x1 x3 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts._#lambda141_case_260")(x)++++c_zipSts_case_275 x1 x3 x4 x41 x40@(Curry.Module.CurrySyntax.C_StmtExpr x42) st = Curry.Module.SrcRef.c_zipSts_case_274(x1)(x3)(x41)(x42)(x4)(st)+c_zipSts_case_275 x1 x3 x4 x41 x40@(Curry.Module.CurrySyntax.C_StmtBind x50 x51) st = Curry.Module.SrcRef.c_zipSts_case_269(x1)(x3)(x41)(x50)(x51)(x4)(st)+c_zipSts_case_275 x1 x3 x4 x41 (Curry.Module.CurrySyntax.C_StatementOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_275(x1)(x3)(x4)(x41)(x)(st))(i)(xs)(st)+c_zipSts_case_275 x1 x3 x4 x41 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_275")(x)++++c_zipSts_case_269 x1 x3 x41 x50 x51 x4@(Curry.Module.SrcRef.C_Tree x52 x53) st = Curry.Module.SrcRef.c_zipSts_case_268(x1)(x3)(x41)(x50)(x51)(x53)(x52)(st)+c_zipSts_case_269 x1 x3 x41 x50 x51 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_269(x1)(x3)(x41)(x50)(x51)(x)(st))(i)(xs)(st)+c_zipSts_case_269 x1 x3 x41 x50 x51 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_269")(x)++++c_zipSts_case_268 x1 x3 x41 x50 x51 x53 x52@(Curry.Module.Prelude.C_Just x54) st = Curry.Module.SrcRef.c_zipSts_case_267(x1)(x3)(x41)(x50)(x51)(x54)(x53)(st)+c_zipSts_case_268 x1 x3 x41 x50 x51 x53 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_268(x1)(x3)(x41)(x50)(x51)(x53)(x)(st))(i)(xs)(st)+c_zipSts_case_268 x1 x3 x41 x50 x51 x53 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_268")(x)++++c_zipSts_case_267 x1 x3 x41 x50 x51 x54 x53@((Curry.Module.Prelude.:<) x55 x56) st = Curry.Module.SrcRef.c_zipSts_case_266(x1)(x3)(x41)(x50)(x51)(x54)(x56)(x55)(st)+c_zipSts_case_267 x1 x3 x41 x50 x51 x54 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_267(x1)(x3)(x41)(x50)(x51)(x54)(x)(st))(i)(xs)(st)+c_zipSts_case_267 x1 x3 x41 x50 x51 x54 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_267")(x)++++c_zipSts_case_266 x1 x3 x41 x50 x51 x54 x56 x55@(Curry.Module.SrcRef.C_Tree x57 x58) st = Curry.Module.SrcRef.c_zipSts_case_265(x1)(x3)(x41)(x50)(x51)(x54)(x56)(x58)(st)+c_zipSts_case_266 x1 x3 x41 x50 x51 x54 x56 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_266(x1)(x3)(x41)(x50)(x51)(x54)(x56)(x)(st))(i)(xs)(st)+c_zipSts_case_266 x1 x3 x41 x50 x51 x54 x56 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_266")(x)++++c_zipSts_case_265 x1 x3 x41 x50 x51 x54 x56 x58@((Curry.Module.Prelude.:<) x59 x60) st = Curry.Module.SrcRef.c_zipSts_case_264(x1)(x3)(x41)(x50)(x51)(x54)(x56)(x59)(x60)(st)+c_zipSts_case_265 x1 x3 x41 x50 x51 x54 x56 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_265(x1)(x3)(x41)(x50)(x51)(x54)(x56)(x)(st))(i)(xs)(st)+c_zipSts_case_265 x1 x3 x41 x50 x51 x54 x56 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_265")(x)++++c_zipSts_case_264 x1 x3 x41 x50 x51 x54 x56 x59 x60@((Curry.Module.Prelude.:<) x61 x62) st = Curry.Module.SrcRef.c_zipSts_case_263(x1)(x3)(x41)(x50)(x51)(x54)(x56)(x59)(x61)(x62)(st)+c_zipSts_case_264 x1 x3 x41 x50 x51 x54 x56 x59 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_264(x1)(x3)(x41)(x50)(x51)(x54)(x56)(x59)(x)(st))(i)(xs)(st)+c_zipSts_case_264 x1 x3 x41 x50 x51 x54 x56 x59 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_264")(x)++++c_zipSts_case_263 x1 x3 x41 x50 x51 x54 x56 x59 x61 x62@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipSts_case_262(x1)(x3)(x41)(x50)(x51)(x54)(x59)(x61)(x56)(st)+c_zipSts_case_263 x1 x3 x41 x50 x51 x54 x56 x59 x61 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_263(x1)(x3)(x41)(x50)(x51)(x54)(x56)(x59)(x61)(x)(st))(i)(xs)(st)+c_zipSts_case_263 x1 x3 x41 x50 x51 x54 x56 x59 x61 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_263")(x)++++c_zipSts_case_262 x1 x3 x41 x50 x51 x54 x59 x61 x56@((Curry.Module.Prelude.:<) x63 x64) st = Curry.Module.SrcRef.c_zipSts_case_261(x1)(x3)(x41)(x50)(x51)(x54)(x59)(x61)(x63)(x64)(st)+c_zipSts_case_262 x1 x3 x41 x50 x51 x54 x59 x61 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_262(x1)(x3)(x41)(x50)(x51)(x54)(x59)(x61)(x)(st))(i)(xs)(st)+c_zipSts_case_262 x1 x3 x41 x50 x51 x54 x59 x61 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_262")(x)++++c_zipSts_case_261 x1 x3 x41 x50 x51 x54 x59 x61 x63 x64@Curry.Module.Prelude.List st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipMBind(x1)(x51)(x54)(x61)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_zipStsRest(x41)(x3)(Curry.Module.Prelude.T2(x50)(x54))(Curry.Module.SrcRef.C_Tree(Curry.Module.Prelude.C_Just(x54))((Curry.Module.Prelude.:<)(x59)((Curry.Module.Prelude.:<)(x63)(Curry.Module.Prelude.List)))))))+c_zipSts_case_261 x1 x3 x41 x50 x51 x54 x59 x61 x63 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_261(x1)(x3)(x41)(x50)(x51)(x54)(x59)(x61)(x63)(x)(st))(i)(xs)(st)+c_zipSts_case_261 x1 x3 x41 x50 x51 x54 x59 x61 x63 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_261")(x)++++c_zipSts_case_274 x1 x3 x41 x42 x4@(Curry.Module.SrcRef.C_Tree x43 x44) st = Curry.Module.SrcRef.c_zipSts_case_273(x1)(x3)(x41)(x42)(x44)(x43)(st)+c_zipSts_case_274 x1 x3 x41 x42 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_274(x1)(x3)(x41)(x42)(x)(st))(i)(xs)(st)+c_zipSts_case_274 x1 x3 x41 x42 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_274")(x)++++c_zipSts_case_273 x1 x3 x41 x42 x44 x43@(Curry.Module.Prelude.C_Just x45) st = Curry.Module.SrcRef.c_zipSts_case_272(x1)(x3)(x41)(x42)(x45)(x44)(st)+c_zipSts_case_273 x1 x3 x41 x42 x44 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_273(x1)(x3)(x41)(x42)(x44)(x)(st))(i)(xs)(st)+c_zipSts_case_273 x1 x3 x41 x42 x44 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_273")(x)++++c_zipSts_case_272 x1 x3 x41 x42 x45 x44@((Curry.Module.Prelude.:<) x46 x47) st = Curry.Module.SrcRef.c_zipSts_case_271(x1)(x3)(x41)(x42)(x45)(x46)(x47)(st)+c_zipSts_case_272 x1 x3 x41 x42 x45 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_272(x1)(x3)(x41)(x42)(x45)(x)(st))(i)(xs)(st)+c_zipSts_case_272 x1 x3 x41 x42 x45 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_272")(x)++++c_zipSts_case_271 x1 x3 x41 x42 x45 x46 x47@((Curry.Module.Prelude.:<) x48 x49) st = Curry.Module.SrcRef.c_zipSts_case_270(x1)(x3)(x41)(x42)(x45)(x46)(x48)(x49)(st)+c_zipSts_case_271 x1 x3 x41 x42 x45 x46 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_271(x1)(x3)(x41)(x42)(x45)(x46)(x)(st))(i)(xs)(st)+c_zipSts_case_271 x1 x3 x41 x42 x45 x46 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_271")(x)++++c_zipSts_case_270 x1 x3 x41 x42 x45 x46 x48 x49@Curry.Module.Prelude.List st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipMBind(x1)(x42)(x45)(x46)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_zipStsRest(x41)(x3)(Curry.Module.Prelude.c_error((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(' '))((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('t'))((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('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))(Curry.Module.Prelude.List)))))))))))))(st))(x48))))+c_zipSts_case_270 x1 x3 x41 x42 x45 x46 x48 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_270(x1)(x3)(x41)(x42)(x45)(x46)(x48)(x)(st))(i)(xs)(st)+c_zipSts_case_270 x1 x3 x41 x42 x45 x46 x48 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_270")(x)++++c_zipSts_case_288 x3 x4 x1@(Curry.Module.FlatCurry.C_Comb x5 x6 x7) st = Curry.Module.SrcRef.c_zipSts_case_287(x1)(x3)(x4)(x6)(x7)(x5)(st)+c_zipSts_case_288 x3 x4 x1@(Curry.Module.FlatCurry.C_Var x29) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x1)(x3)(x4))+c_zipSts_case_288 x3 x4 x1@(Curry.Module.FlatCurry.C_Lit x30) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x1)(x3)(x4))+c_zipSts_case_288 x3 x4 x1@(Curry.Module.FlatCurry.C_Let x31 x32) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x1)(x3)(x4))+c_zipSts_case_288 x3 x4 x1@(Curry.Module.FlatCurry.C_Free x33 x34) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x1)(x3)(x4))+c_zipSts_case_288 x3 x4 x1@(Curry.Module.FlatCurry.C_Or x35 x36) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x1)(x3)(x4))+c_zipSts_case_288 x3 x4 x1@(Curry.Module.FlatCurry.C_Case x37 x38 x39) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x1)(x3)(x4))+c_zipSts_case_288 x3 x4 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_288(x3)(x4)(x)(st))(i)(xs)(st)+c_zipSts_case_288 x3 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_288")(x)++++c_zipSts_case_287 x1 x3 x4 x6 x7 x5@Curry.Module.FlatCurry.C_ConsCall st = Curry.Module.SrcRef.c_zipSts_case_286(x1)(x3)(x4)(x7)(x6)(st)+c_zipSts_case_287 x1 x3 x4 x6 x7 x5@Curry.Module.FlatCurry.C_FuncCall st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x1)(x3)(x4))+c_zipSts_case_287 x1 x3 x4 x6 x7 x5@(Curry.Module.FlatCurry.C_FuncPartCall x27) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x1)(x3)(x4))+c_zipSts_case_287 x1 x3 x4 x6 x7 x5@(Curry.Module.FlatCurry.C_ConsPartCall x28) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x1)(x3)(x4))+c_zipSts_case_287 x1 x3 x4 x6 x7 (Curry.Module.FlatCurry.C_CombTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_287(x1)(x3)(x4)(x6)(x7)(x)(st))(i)(xs)(st)+c_zipSts_case_287 x1 x3 x4 x6 x7 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_287")(x)++++c_zipSts_case_286 x1 x3 x4 x7 x6@(Curry.Module.Prelude.T2 x8 x9) st = Curry.Module.SrcRef.c_zipSts_case_285(x1)(x3)(x4)(x7)(x9)(st)+c_zipSts_case_286 x1 x3 x4 x7 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_286(x1)(x3)(x4)(x7)(x)(st))(i)(xs)(st)+c_zipSts_case_286 x1 x3 x4 x7 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_286")(x)++++c_zipSts_case_285 x1 x3 x4 x7 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.SrcRef.c_zipSts_case_284(x1)(x3)(x4)(x7)(x10)(x11)(Curry.Module.Prelude.op_61_61(x10)(Curry.Module.Prelude.C_Char(':'))(st))(st)+c_zipSts_case_285 x1 x3 x4 x7 x9@Curry.Module.Prelude.List st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x1)(x3)(x4))+c_zipSts_case_285 x1 x3 x4 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_285(x1)(x3)(x4)(x7)(x)(st))(i)(xs)(st)+c_zipSts_case_285 x1 x3 x4 x7 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_285")(x)++++c_zipSts_case_284 x1 x3 x4 x7 x10 x11 x12@Curry.Module.Prelude.C_True st = Curry.Module.SrcRef.c_zipSts_case_283(x1)(x3)(x4)(x7)(x11)(st)+c_zipSts_case_284 x1 x3 x4 x7 x10 x11 x12@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x1)(x3)(x4))+c_zipSts_case_284 x1 x3 x4 x7 x10 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_284(x1)(x3)(x4)(x7)(x10)(x11)(x)(st))(i)(xs)(st)+c_zipSts_case_284 x1 x3 x4 x7 x10 x11 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_284")(x)++++c_zipSts_case_283 x1 x3 x4 x7 x11@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipSts_case_282(x1)(x3)(x4)(x7)(st)+c_zipSts_case_283 x1 x3 x4 x7 x11@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x1)(x3)(x4))+c_zipSts_case_283 x1 x3 x4 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_283(x1)(x3)(x4)(x7)(x)(st))(i)(xs)(st)+c_zipSts_case_283 x1 x3 x4 x7 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_283")(x)++++c_zipSts_case_282 x1 x3 x4 x7@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.SrcRef.c_zipSts_case_281(x1)(x3)(x4)(x12)(x13)(st)+c_zipSts_case_282 x1 x3 x4 x7@Curry.Module.Prelude.List st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x1)(x3)(x4))+c_zipSts_case_282 x1 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_282(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c_zipSts_case_282 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_282")(x)++++c_zipSts_case_281 x1 x3 x4 x12 x13@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.SrcRef.c_zipSts_case_280(x1)(x3)(x4)(x12)(x15)(st)+c_zipSts_case_281 x1 x3 x4 x12 x13@Curry.Module.Prelude.List st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x1)(x3)(x4))+c_zipSts_case_281 x1 x3 x4 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_281(x1)(x3)(x4)(x12)(x)(st))(i)(xs)(st)+c_zipSts_case_281 x1 x3 x4 x12 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_281")(x)++++c_zipSts_case_280 x1 x3 x4 x12 x15@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipSts_case_279(x3)(x12)(x4)(st)+c_zipSts_case_280 x1 x3 x4 x12 x15@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x1)(x3)(x4))+c_zipSts_case_280 x1 x3 x4 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_280(x1)(x3)(x4)(x12)(x)(st))(i)(xs)(st)+c_zipSts_case_280 x1 x3 x4 x12 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_280")(x)++++c_zipSts_case_279 x3 x12 x4@(Curry.Module.SrcRef.C_Tree x16 x17) st = Curry.Module.SrcRef.c_zipSts_case_278(x3)(x12)(x17)(x16)(st)+c_zipSts_case_279 x3 x12 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_279(x3)(x12)(x)(st))(i)(xs)(st)+c_zipSts_case_279 x3 x12 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_279")(x)++++c_zipSts_case_278 x3 x12 x17 x16@(Curry.Module.Prelude.C_Just x18) st = Curry.Module.SrcRef.c_zipSts_case_277(x3)(x12)(x18)(x17)(st)+c_zipSts_case_278 x3 x12 x17 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_278(x3)(x12)(x17)(x)(st))(i)(xs)(st)+c_zipSts_case_278 x3 x12 x17 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_278")(x)++++c_zipSts_case_277 x3 x12 x18 x17@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.SrcRef.c_zipSts_case_276(x3)(x12)(x18)(x19)(x20)(st)+c_zipSts_case_277 x3 x12 x18 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_277(x3)(x12)(x18)(x)(st))(i)(xs)(st)+c_zipSts_case_277 x3 x12 x18 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_277")(x)++++c_zipSts_case_276 x3 x12 x18 x19 x20@Curry.Module.Prelude.List st = Curry.Module.SrcRef.op_36_94(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipSts'46_'35lambda141(x18)))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x12)(x3)(x19)))(st)+c_zipSts_case_276 x3 x12 x18 x19 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipSts_case_276(x3)(x12)(x18)(x19)(x)(st))(i)(xs)(st)+c_zipSts_case_276 x3 x12 x18 x19 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipSts_case_276")(x)++++c_decompApp_case_292 x17 x18 x19 x2@(Curry.Module.SrcRef.C_Tree x20 x21) st = Curry.Module.SrcRef.c_decompApp_case_291(x17)(x18)(x19)(x20)(x21)(st)+c_decompApp_case_292 x17 x18 x19 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_decompApp_case_292(x17)(x18)(x19)(x)(st))(i)(xs)(st)+c_decompApp_case_292 x17 x18 x19 x st = Curry.RunTimeSystem.patternFail("SrcRef.decompApp_case_292")(x)++++c_decompApp_case_291 x17 x18 x19 x20 x21@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.SrcRef.c_decompApp_case_290(x17)(x18)(x19)(x20)(x22)(x23)(st)+c_decompApp_case_291 x17 x18 x19 x20 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_decompApp_case_291(x17)(x18)(x19)(x20)(x)(st))(i)(xs)(st)+c_decompApp_case_291 x17 x18 x19 x20 x st = Curry.RunTimeSystem.patternFail("SrcRef.decompApp_case_291")(x)++++c_decompApp_case_290 x17 x18 x19 x20 x22 x23@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.SrcRef.c_decompApp_case_289(x17)(x18)(x19)(x20)(x22)(x24)(x25)(st)+c_decompApp_case_290 x17 x18 x19 x20 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_decompApp_case_290(x17)(x18)(x19)(x20)(x22)(x)(st))(i)(xs)(st)+c_decompApp_case_290 x17 x18 x19 x20 x22 x st = Curry.RunTimeSystem.patternFail("SrcRef.decompApp_case_290")(x)++++c_decompApp_case_289 x17 x18 x19 x20 x22 x24 x25@Curry.Module.Prelude.List st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(Curry.Module.CurrySyntax.C_Variable(Curry.Module.SrcRef.c_opIdent(x18)(st)))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(Curry.Module.SrcRef.C_Tree(x20)(Curry.Module.Prelude.List))(Curry.Module.Prelude.List))))+c_decompApp_case_289 x17 x18 x19 x20 x22 x24 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_decompApp_case_289(x17)(x18)(x19)(x20)(x22)(x24)(x)(st))(i)(xs)(st)+c_decompApp_case_289 x17 x18 x19 x20 x22 x24 x st = Curry.RunTimeSystem.patternFail("SrcRef.decompApp_case_289")(x)++++c_decompApp_case_296 x4 x5 x2@(Curry.Module.SrcRef.C_Tree x6 x7) st = Curry.Module.SrcRef.c_decompApp_case_295(x2)(x4)(x5)(x7)(st)+c_decompApp_case_296 x4 x5 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_decompApp_case_296(x4)(x5)(x)(st))(i)(xs)(st)+c_decompApp_case_296 x4 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.decompApp_case_296")(x)++++c_decompApp_case_295 x2 x4 x5 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.SrcRef.c_decompApp_case_294(x2)(x4)(x5)(x8)(x9)(st)+c_decompApp_case_295 x2 x4 x5 x7@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('w'))((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('g'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_decompApp_case_295 x2 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_decompApp_case_295(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c_decompApp_case_295 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.decompApp_case_295")(x)++++c_decompApp_case_294 x2 x4 x5 x8 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.SrcRef.c_decompApp_case_293(x2)(x4)(x5)(x8)(x10)(x11)(st)+c_decompApp_case_294 x2 x4 x5 x8 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('w'))((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('g'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_decompApp_case_294 x2 x4 x5 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_decompApp_case_294(x2)(x4)(x5)(x8)(x)(st))(i)(xs)(st)+c_decompApp_case_294 x2 x4 x5 x8 x st = Curry.RunTimeSystem.patternFail("SrcRef.decompApp_case_294")(x)++++c_decompApp_case_293 x2 x4 x5 x8 x10 x11@Curry.Module.Prelude.List st = let {x12 = Curry.Module.SrcRef.c_decompApp(x4)(x8)(st)} in Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x5)(Curry.Module.SrcRef.c_decompApp'46_'35selFP34'35es(x12)(st)))((Curry.Module.Prelude.:<)(x10)(Curry.Module.SrcRef.c_decompApp'46_'35selFP35'35ts(x12)(st)))+c_decompApp_case_293 x2 x4 x5 x8 x10 x11@((Curry.Module.Prelude.:<) x15 x16) 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('w'))((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('g'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_decompApp_case_293 x2 x4 x5 x8 x10 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_decompApp_case_293(x2)(x4)(x5)(x8)(x10)(x)(st))(i)(xs)(st)+c_decompApp_case_293 x2 x4 x5 x8 x10 x st = Curry.RunTimeSystem.patternFail("SrcRef.decompApp_case_293")(x)++++c_isTupleName_case_297 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_dropWhile(Curry.Module.Prelude.pf(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.C_Char(','))))(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st)+c_isTupleName_case_297 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_False+c_isTupleName_case_297 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_isTupleName_case_297(x2)(x3)(x)(st))(i)(xs)(st)+c_isTupleName_case_297 x2 x3 x st = Curry.RunTimeSystem.patternFail("SrcRef.isTupleName_case_297")(x)++++c_addBinds_case_309 x1 x3 x7 x6@(Curry.Module.CurrySyntax.C_PatternDecl x8 x9 x10) st = Curry.Module.SrcRef.c_addBinds_case_308(x1)(x3)(x7)(x10)(x9)(st)+c_addBinds_case_309 x1 x3 x7 (Curry.Module.CurrySyntax.C_DeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_addBinds_case_309(x1)(x3)(x7)(x)(st))(i)(xs)(st)+c_addBinds_case_309 x1 x3 x7 x st = Curry.RunTimeSystem.patternFail("SrcRef.addBinds_case_309")(x)++++c_addBinds_case_308 x1 x3 x7 x10 x9@(Curry.Module.CurrySyntax.C_VariablePattern x11) st = Curry.Module.SrcRef.c_addBinds_case_307(x1)(x3)(x7)(x11)(x10)(st)+c_addBinds_case_308 x1 x3 x7 x10 (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_addBinds_case_308(x1)(x3)(x7)(x10)(x)(st))(i)(xs)(st)+c_addBinds_case_308 x1 x3 x7 x10 x st = Curry.RunTimeSystem.patternFail("SrcRef.addBinds_case_308")(x)++++c_addBinds_case_307 x1 x3 x7 x11 x10@(Curry.Module.CurrySyntax.C_SimpleRhs x12 x13 x14) st = Curry.Module.SrcRef.c_addBinds_case_306(x1)(x3)(x7)(x11)(x13)(x14)(st)+c_addBinds_case_307 x1 x3 x7 x11 (Curry.Module.CurrySyntax.C_RhsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_addBinds_case_307(x1)(x3)(x7)(x11)(x)(st))(i)(xs)(st)+c_addBinds_case_307 x1 x3 x7 x11 x st = Curry.RunTimeSystem.patternFail("SrcRef.addBinds_case_307")(x)++++c_addBinds_case_306 x1 x3 x7 x11 x13 x14@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_addBinds_case_305(x1)(x7)(x11)(x13)(x3)(st)+c_addBinds_case_306 x1 x3 x7 x11 x13 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_addBinds_case_306(x1)(x3)(x7)(x11)(x13)(x)(st))(i)(xs)(st)+c_addBinds_case_306 x1 x3 x7 x11 x13 x st = Curry.RunTimeSystem.patternFail("SrcRef.addBinds_case_306")(x)++++c_addBinds_case_305 x1 x7 x11 x13 x3@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.SrcRef.c_addBinds_case_304(x1)(x7)(x11)(x13)(x16)(x15)(st)+c_addBinds_case_305 x1 x7 x11 x13 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_addBinds_case_305(x1)(x7)(x11)(x13)(x)(st))(i)(xs)(st)+c_addBinds_case_305 x1 x7 x11 x13 x st = Curry.RunTimeSystem.patternFail("SrcRef.addBinds_case_305")(x)++++c_addBinds_case_304 x1 x7 x11 x13 x16 x15@(Curry.Module.SrcRef.C_Tree x17 x18) st = Curry.Module.SrcRef.c_addBinds_case_303(x1)(x7)(x11)(x13)(x16)(x18)(st)+c_addBinds_case_304 x1 x7 x11 x13 x16 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_addBinds_case_304(x1)(x7)(x11)(x13)(x16)(x)(st))(i)(xs)(st)+c_addBinds_case_304 x1 x7 x11 x13 x16 x st = Curry.RunTimeSystem.patternFail("SrcRef.addBinds_case_304")(x)++++c_addBinds_case_303 x1 x7 x11 x13 x16 x18@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.SrcRef.c_addBinds_case_302(x1)(x7)(x11)(x13)(x16)(x20)(st)+c_addBinds_case_303 x1 x7 x11 x13 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_addBinds_case_303(x1)(x7)(x11)(x13)(x16)(x)(st))(i)(xs)(st)+c_addBinds_case_303 x1 x7 x11 x13 x16 x st = Curry.RunTimeSystem.patternFail("SrcRef.addBinds_case_303")(x)++++c_addBinds_case_302 x1 x7 x11 x13 x16 x20@((Curry.Module.Prelude.:<) x21 x22) st = Curry.Module.SrcRef.c_addBinds_case_301(x1)(x7)(x11)(x13)(x16)(x22)(x21)(st)+c_addBinds_case_302 x1 x7 x11 x13 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_addBinds_case_302(x1)(x7)(x11)(x13)(x16)(x)(st))(i)(xs)(st)+c_addBinds_case_302 x1 x7 x11 x13 x16 x st = Curry.RunTimeSystem.patternFail("SrcRef.addBinds_case_302")(x)++++c_addBinds_case_301 x1 x7 x11 x13 x16 x22 x21@(Curry.Module.SrcRef.C_Tree x23 x24) st = Curry.Module.SrcRef.c_addBinds_case_300(x1)(x7)(x11)(x13)(x16)(x22)(x24)(st)+c_addBinds_case_301 x1 x7 x11 x13 x16 x22 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_addBinds_case_301(x1)(x7)(x11)(x13)(x16)(x22)(x)(st))(i)(xs)(st)+c_addBinds_case_301 x1 x7 x11 x13 x16 x22 x st = Curry.RunTimeSystem.patternFail("SrcRef.addBinds_case_301")(x)++++c_addBinds_case_300 x1 x7 x11 x13 x16 x22 x24@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.SrcRef.c_addBinds_case_299(x1)(x7)(x11)(x13)(x16)(x22)(x25)(x26)(st)+c_addBinds_case_300 x1 x7 x11 x13 x16 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_addBinds_case_300(x1)(x7)(x11)(x13)(x16)(x22)(x)(st))(i)(xs)(st)+c_addBinds_case_300 x1 x7 x11 x13 x16 x22 x st = Curry.RunTimeSystem.patternFail("SrcRef.addBinds_case_300")(x)++++c_addBinds_case_299 x1 x7 x11 x13 x16 x22 x25 x26@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_addBinds_case_298(x1)(x7)(x11)(x13)(x16)(x25)(x22)(st)+c_addBinds_case_299 x1 x7 x11 x13 x16 x22 x25 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_addBinds_case_299(x1)(x7)(x11)(x13)(x16)(x22)(x25)(x)(st))(i)(xs)(st)+c_addBinds_case_299 x1 x7 x11 x13 x16 x22 x25 x st = Curry.RunTimeSystem.patternFail("SrcRef.addBinds_case_299")(x)++++c_addBinds_case_298 x1 x7 x11 x13 x16 x25 x22@Curry.Module.Prelude.List st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_addBinds'46_'35lambda130(x13)(x1)(x7)(x25)(x16)(x11))+c_addBinds_case_298 x1 x7 x11 x13 x16 x25 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_addBinds_case_298(x1)(x7)(x11)(x13)(x16)(x25)(x)(st))(i)(xs)(st)+c_addBinds_case_298 x1 x7 x11 x13 x16 x25 x st = Curry.RunTimeSystem.patternFail("SrcRef.addBinds_case_298")(x)++++c_addBinds_case_311 x1 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.SrcRef.c_addBinds_case_310(x1)(x4)(x5)(st)+c_addBinds_case_311 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_addBinds_case_311(x1)(x)(st))(i)(xs)(st)+c_addBinds_case_311 x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.addBinds_case_311")(x)++++c_addBinds_case_310 x1 x4 x5@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_apply(x1)(x4)(st)+c_addBinds_case_310 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_addBinds_case_310(x1)(x4)(x)(st))(i)(xs)(st)+c_addBinds_case_310 x1 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.addBinds_case_310")(x)++++c_zipBinds'46moreLets'461132_case_315 x1 x2 x3 x4@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.SrcRef.c_zipBinds'46moreLets'461132_case_314(x1)(x2)(x3)(x10)(x9)(st)+c_zipBinds'46moreLets'461132_case_315 x1 x2 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'46moreLets'461132_case_315(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c_zipBinds'46moreLets'461132_case_315 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds.moreLets.1132_case_315")(x)++++c_zipBinds'46moreLets'461132_case_314 x1 x2 x3 x10 x9@(Curry.Module.SrcRef.C_Tree x11 x12) st = Curry.Module.SrcRef.c_zipBinds'46moreLets'461132_case_313(x1)(x2)(x3)(x12)(x10)(st)+c_zipBinds'46moreLets'461132_case_314 x1 x2 x3 x10 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'46moreLets'461132_case_314(x1)(x2)(x3)(x10)(x)(st))(i)(xs)(st)+c_zipBinds'46moreLets'461132_case_314 x1 x2 x3 x10 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds.moreLets.1132_case_314")(x)++++c_zipBinds'46moreLets'461132_case_313 x1 x2 x3 x12 x10@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipBinds'46moreLets'461132_case_312(x2)(x3)(x12)(x1)(st)+c_zipBinds'46moreLets'461132_case_313 x1 x2 x3 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'46moreLets'461132_case_313(x1)(x2)(x3)(x12)(x)(st))(i)(xs)(st)+c_zipBinds'46moreLets'461132_case_313 x1 x2 x3 x12 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds.moreLets.1132_case_313")(x)++++c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_Let x13 x14) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_zipBinds(x2)(x3)(x13)(x14)(st))(x12)(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_Literal x15) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_Variable x16) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_Constructor x17) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_Paren x18) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_Typed x19 x20) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_Tuple x21) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_List x22) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_ListCompr x23 x24) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_EnumFrom x25) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_EnumFromThen x26 x27) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_EnumFromTo x28 x29) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_EnumFromThenTo x30 x31 x32) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_UnaryMinus x33 x34) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_Apply x35 x36) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_InfixApply x37 x38 x39) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_LeftSection x40 x41) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_RightSection x42 x43) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_Lambda x44 x45) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_Do x46 x47) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_IfThenElse x48 x49 x50) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_Case x51 x52) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_RecordConstr x53) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_RecordSelection x54 x55) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x1@(Curry.Module.CurrySyntax.C_RecordUpdate x56 x57) 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('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('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('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('r'))((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.:<)(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('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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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('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('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('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x1)(st))(st))(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'46moreLets'461132_case_312(x2)(x3)(x12)(x)(st))(i)(xs)(st)+c_zipBinds'46moreLets'461132_case_312 x2 x3 x12 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds.moreLets.1132_case_312")(x)++++c_zipBinds'46moreLets'461132_case_317 x1 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.SrcRef.c_zipBinds'46moreLets'461132_case_316(x1)(x3)(x5)(x6)(st)+c_zipBinds'46moreLets'461132_case_317 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'46moreLets'461132_case_317(x1)(x3)(x)(st))(i)(xs)(st)+c_zipBinds'46moreLets'461132_case_317 x1 x3 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds.moreLets.1132_case_317")(x)++++c_zipBinds'46moreLets'461132_case_316 x1 x3 x5 x6@Curry.Module.Prelude.List st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x3)(x1)(x5))+c_zipBinds'46moreLets'461132_case_316 x1 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'46moreLets'461132_case_316(x1)(x3)(x5)(x)(st))(i)(xs)(st)+c_zipBinds'46moreLets'461132_case_316 x1 x3 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds.moreLets.1132_case_316")(x)++++c_makeSels'46match'461101_case_325 x1 x3 x4 x5 x2@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.SrcRef.c_makeSels'46match'461101_case_324(x1)(x4)(x5)(x6)(x7)(x3)(st)+c_makeSels'46match'461101_case_325 x1 x3 x4 x5 x2@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_makeSels'46match'461101_case_318(x4)(x3)(st)+c_makeSels'46match'461101_case_325 x1 x3 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_makeSels'46match'461101_case_325(x1)(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c_makeSels'46match'461101_case_325 x1 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.makeSels.match.1101_case_325")(x)++++c_makeSels'46match'461101_case_318 x4 x3@((Curry.Module.Prelude.:<) x37 x38) 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('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('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('l'))((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('t'))((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('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('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(x4)(st))(st)+c_makeSels'46match'461101_case_318 x4 x3@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('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('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('l'))((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('t'))((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('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('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(x4)(st))(st)+c_makeSels'46match'461101_case_318 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_makeSels'46match'461101_case_318(x4)(x)(st))(i)(xs)(st)+c_makeSels'46match'461101_case_318 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.makeSels.match.1101_case_318")(x)++++c_makeSels'46match'461101_case_324 x1 x4 x5 x6 x7 x3@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.SrcRef.c_makeSels'46match'461101_case_323(x1)(x4)(x5)(x6)(x7)(x9)(x8)(st)+c_makeSels'46match'461101_case_324 x1 x4 x5 x6 x7 x3@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('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('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('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('l'))((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('t'))((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('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('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))(x4)(st))(st)+c_makeSels'46match'461101_case_324 x1 x4 x5 x6 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_makeSels'46match'461101_case_324(x1)(x4)(x5)(x6)(x7)(x)(st))(i)(xs)(st)+c_makeSels'46match'461101_case_324 x1 x4 x5 x6 x7 x st = Curry.RunTimeSystem.patternFail("SrcRef.makeSels.match.1101_case_324")(x)++++c_makeSels'46match'461101_case_323 x1 x4 x5 x6 x7 x9 x8@(Curry.Module.SrcRef.C_Tree x10 x11) st = Curry.Module.SrcRef.c_makeSels'46match'461101_case_322(x1)(x4)(x5)(x6)(x7)(x9)(x11)(x10)(st)+c_makeSels'46match'461101_case_323 x1 x4 x5 x6 x7 x9 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_makeSels'46match'461101_case_323(x1)(x4)(x5)(x6)(x7)(x9)(x)(st))(i)(xs)(st)+c_makeSels'46match'461101_case_323 x1 x4 x5 x6 x7 x9 x st = Curry.RunTimeSystem.patternFail("SrcRef.makeSels.match.1101_case_323")(x)++++c_makeSels'46match'461101_case_322 x1 x4 x5 x6 x7 x9 x11 x10@(Curry.Module.Prelude.C_Just x12) st = Curry.Module.SrcRef.c_makeSels'46match'461101_case_321(x1)(x4)(x5)(x7)(x9)(x11)(x12)(x6)(st)+c_makeSels'46match'461101_case_322 x1 x4 x5 x6 x7 x9 x11 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_makeSels'46match'461101_case_322(x1)(x4)(x5)(x6)(x7)(x9)(x11)(x)(st))(i)(xs)(st)+c_makeSels'46match'461101_case_322 x1 x4 x5 x6 x7 x9 x11 x st = Curry.RunTimeSystem.patternFail("SrcRef.makeSels.match.1101_case_322")(x)++++c_makeSels'46match'461101_case_321 x1 x4 x5 x7 x9 x11 x12 x6@(Curry.Module.CurrySyntax.C_VariablePattern x13) st = Curry.Module.SrcRef.c_makeSels'46match'461101_case_320(x1)(x4)(x5)(x7)(x9)(x12)(x13)(st)+c_makeSels'46match'461101_case_321 x1 x4 x5 x7 x9 x11 x12 x6@(Curry.Module.CurrySyntax.C_LiteralPattern x16) st = Curry.Module.SrcRef.c_makeSels'46match'461101(x1)(Curry.Module.Prelude.op_43_43(Curry.Module.SrcRef.c_conArgs(x6)(st))(x7)(st))(Curry.Module.Prelude.op_43_43(x11)(x9)(st))(st)+c_makeSels'46match'461101_case_321 x1 x4 x5 x7 x9 x11 x12 x6@(Curry.Module.CurrySyntax.C_NegativePattern x17 x18) st = Curry.Module.SrcRef.c_makeSels'46match'461101(x1)(Curry.Module.Prelude.op_43_43(Curry.Module.SrcRef.c_conArgs(x6)(st))(x7)(st))(Curry.Module.Prelude.op_43_43(x11)(x9)(st))(st)+c_makeSels'46match'461101_case_321 x1 x4 x5 x7 x9 x11 x12 x6@(Curry.Module.CurrySyntax.C_ConstructorPattern x19 x20) st = Curry.Module.SrcRef.c_makeSels'46match'461101(x1)(Curry.Module.Prelude.op_43_43(Curry.Module.SrcRef.c_conArgs(x6)(st))(x7)(st))(Curry.Module.Prelude.op_43_43(x11)(x9)(st))(st)+c_makeSels'46match'461101_case_321 x1 x4 x5 x7 x9 x11 x12 x6@(Curry.Module.CurrySyntax.C_InfixPattern x21 x22 x23) st = Curry.Module.SrcRef.c_makeSels'46match'461101(x1)(Curry.Module.Prelude.op_43_43(Curry.Module.SrcRef.c_conArgs(x6)(st))(x7)(st))(Curry.Module.Prelude.op_43_43(x11)(x9)(st))(st)+c_makeSels'46match'461101_case_321 x1 x4 x5 x7 x9 x11 x12 x6@(Curry.Module.CurrySyntax.C_ParenPattern x24) st = Curry.Module.SrcRef.c_makeSels'46match'461101(x1)(Curry.Module.Prelude.op_43_43(Curry.Module.SrcRef.c_conArgs(x6)(st))(x7)(st))(Curry.Module.Prelude.op_43_43(x11)(x9)(st))(st)+c_makeSels'46match'461101_case_321 x1 x4 x5 x7 x9 x11 x12 x6@(Curry.Module.CurrySyntax.C_TuplePattern x25) st = Curry.Module.SrcRef.c_makeSels'46match'461101(x1)(Curry.Module.Prelude.op_43_43(Curry.Module.SrcRef.c_conArgs(x6)(st))(x7)(st))(Curry.Module.Prelude.op_43_43(x11)(x9)(st))(st)+c_makeSels'46match'461101_case_321 x1 x4 x5 x7 x9 x11 x12 x6@(Curry.Module.CurrySyntax.C_ListPattern x26) st = Curry.Module.SrcRef.c_makeSels'46match'461101(x1)(Curry.Module.Prelude.op_43_43(Curry.Module.SrcRef.c_conArgs(x6)(st))(x7)(st))(Curry.Module.Prelude.op_43_43(x11)(x9)(st))(st)+c_makeSels'46match'461101_case_321 x1 x4 x5 x7 x9 x11 x12 x6@(Curry.Module.CurrySyntax.C_AsPattern x27 x28) st = Curry.Module.SrcRef.c_makeSels'46match'461101(x1)(Curry.Module.Prelude.op_43_43(Curry.Module.SrcRef.c_conArgs(x6)(st))(x7)(st))(Curry.Module.Prelude.op_43_43(x11)(x9)(st))(st)+c_makeSels'46match'461101_case_321 x1 x4 x5 x7 x9 x11 x12 x6@(Curry.Module.CurrySyntax.C_LazyPattern x29) st = Curry.Module.SrcRef.c_makeSels'46match'461101(x1)(Curry.Module.Prelude.op_43_43(Curry.Module.SrcRef.c_conArgs(x6)(st))(x7)(st))(Curry.Module.Prelude.op_43_43(x11)(x9)(st))(st)+c_makeSels'46match'461101_case_321 x1 x4 x5 x7 x9 x11 x12 x6@(Curry.Module.CurrySyntax.C_FunctionPattern x30 x31) st = Curry.Module.SrcRef.c_makeSels'46match'461101(x1)(Curry.Module.Prelude.op_43_43(Curry.Module.SrcRef.c_conArgs(x6)(st))(x7)(st))(Curry.Module.Prelude.op_43_43(x11)(x9)(st))(st)+c_makeSels'46match'461101_case_321 x1 x4 x5 x7 x9 x11 x12 x6@(Curry.Module.CurrySyntax.C_InfixFuncPattern x32 x33 x34) st = Curry.Module.SrcRef.c_makeSels'46match'461101(x1)(Curry.Module.Prelude.op_43_43(Curry.Module.SrcRef.c_conArgs(x6)(st))(x7)(st))(Curry.Module.Prelude.op_43_43(x11)(x9)(st))(st)+c_makeSels'46match'461101_case_321 x1 x4 x5 x7 x9 x11 x12 x6@(Curry.Module.CurrySyntax.C_RecordPattern x35 x36) st = Curry.Module.SrcRef.c_makeSels'46match'461101(x1)(Curry.Module.Prelude.op_43_43(Curry.Module.SrcRef.c_conArgs(x6)(st))(x7)(st))(Curry.Module.Prelude.op_43_43(x11)(x9)(st))(st)+c_makeSels'46match'461101_case_321 x1 x4 x5 x7 x9 x11 x12 (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_makeSels'46match'461101_case_321(x1)(x4)(x5)(x7)(x9)(x11)(x12)(x)(st))(i)(xs)(st)+c_makeSels'46match'461101_case_321 x1 x4 x5 x7 x9 x11 x12 x st = Curry.RunTimeSystem.patternFail("SrcRef.makeSels.match.1101_case_321")(x)++++c_makeSels'46match'461101_case_320 x1 x4 x5 x7 x9 x12 x13@(Curry.Module.CurrySyntax.C_Ident x14 x15) st = Curry.Module.SrcRef.c_makeSels'46match'461101_case_319(x1)(x4)(x5)(x7)(x9)(x12)(x14)(Curry.Module.Prelude.op_61_61(x14)(x4)(st))(st)+c_makeSels'46match'461101_case_320 x1 x4 x5 x7 x9 x12 (Curry.Module.CurrySyntax.C_IdentOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_makeSels'46match'461101_case_320(x1)(x4)(x5)(x7)(x9)(x12)(x)(st))(i)(xs)(st)+c_makeSels'46match'461101_case_320 x1 x4 x5 x7 x9 x12 x st = Curry.RunTimeSystem.patternFail("SrcRef.makeSels.match.1101_case_320")(x)++++c_makeSels'46match'461101_case_319 x1 x4 x5 x7 x9 x12 x14 x15@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(x12)(Curry.Module.SrcRef.c_makeSels'46match'461101(x5)(x7)(x9)(st))+c_makeSels'46match'461101_case_319 x1 x4 x5 x7 x9 x12 x14 x15@Curry.Module.Prelude.C_False st = Curry.Module.SrcRef.c_makeSels'46match'461101(x1)(x7)(x9)(st)+c_makeSels'46match'461101_case_319 x1 x4 x5 x7 x9 x12 x14 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_makeSels'46match'461101_case_319(x1)(x4)(x5)(x7)(x9)(x12)(x14)(x)(st))(i)(xs)(st)+c_makeSels'46match'461101_case_319 x1 x4 x5 x7 x9 x12 x14 x st = Curry.RunTimeSystem.patternFail("SrcRef.makeSels.match.1101_case_319")(x)++++c_zipBinds'39'46zipBindBody'461081_case_327 x1 x2 x3 x4 x5 x6 x7 x8 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.SrcRef.c_zipBinds'39'46zipBindBody'461081_case_326(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x11)(x12)(st)+c_zipBinds'39'46zipBindBody'461081_case_327 x1 x2 x3 x4 x5 x6 x7 x8 x10@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('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('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('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('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.:<)(Curry.Module.Prelude.C_Char('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((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(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x7)(st))(st))(st)+c_zipBinds'39'46zipBindBody'461081_case_327 x1 x2 x3 x4 x5 x6 x7 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'39'46zipBindBody'461081_case_327(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c_zipBinds'39'46zipBindBody'461081_case_327 x1 x2 x3 x4 x5 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds'.zipBindBody.1081_case_327")(x)++++c_zipBinds'39'46zipBindBody'461081_case_326 x1 x2 x3 x4 x5 x6 x7 x8 x11 x12@Curry.Module.Prelude.List st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_43_43_43(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x5)(x6)(x11)))(Curry.Module.SrcRef.c_zipBinds'39(x1)(x8)(x3)(x2)(x4)(st)))+c_zipBinds'39'46zipBindBody'461081_case_326 x1 x2 x3 x4 x5 x6 x7 x8 x11 x12@((Curry.Module.Prelude.:<) x13 x14) 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('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('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('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.:<)(Curry.Module.Prelude.C_Char('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((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(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x7)(st))(st))(st)+c_zipBinds'39'46zipBindBody'461081_case_326 x1 x2 x3 x4 x5 x6 x7 x8 x11 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'39'46zipBindBody'461081_case_326(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x11)(x)(st))(i)(xs)(st)+c_zipBinds'39'46zipBindBody'461081_case_326 x1 x2 x3 x4 x5 x6 x7 x8 x11 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds'.zipBindBody.1081_case_326")(x)++++c_zipBinds'39_case_342 x1 x3 x5 x6 x7 x2@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((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(' '))((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('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('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))(Curry.Module.Prelude.List))))))))))))))(st)+c_zipBinds'39_case_342 x1 x3 x5 x6 x7 x2@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.SrcRef.c_zipBinds'39_case_341(x1)(x2)(x3)(x5)(x6)(x7)(x9)(x8)(st)+c_zipBinds'39_case_342 x1 x3 x5 x6 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'39_case_342(x1)(x3)(x5)(x6)(x7)(x)(st))(i)(xs)(st)+c_zipBinds'39_case_342 x1 x3 x5 x6 x7 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds'_case_342")(x)++++c_zipBinds'39_case_341 x1 x2 x3 x5 x6 x7 x9 x8@(Curry.Module.Prelude.T2 x10 x11) st = Curry.Module.SrcRef.c_zipBinds'39_case_340(x1)(x2)(x3)(x5)(x7)(x9)(x11)(x6)(st)+c_zipBinds'39_case_341 x1 x2 x3 x5 x6 x7 x9 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'39_case_341(x1)(x2)(x3)(x5)(x6)(x7)(x9)(x)(st))(i)(xs)(st)+c_zipBinds'39_case_341 x1 x2 x3 x5 x6 x7 x9 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds'_case_341")(x)++++c_zipBinds'39_case_340 x1 x2 x3 x5 x7 x9 x11 x6@(Curry.Module.CurrySyntax.C_PatternDecl x12 x13 x14) st = Curry.Module.SrcRef.c_zipBinds'39_case_339(x1)(x2)(x3)(x5)(x7)(x9)(x11)(x13)(x14)(st)+c_zipBinds'39_case_340 x1 x2 x3 x5 x7 x9 x11 (Curry.Module.CurrySyntax.C_DeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'39_case_340(x1)(x2)(x3)(x5)(x7)(x9)(x11)(x)(st))(i)(xs)(st)+c_zipBinds'39_case_340 x1 x2 x3 x5 x7 x9 x11 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds'_case_340")(x)++++c_zipBinds'39_case_339 x1 x2 x3 x5 x7 x9 x11 x13 x14@(Curry.Module.CurrySyntax.C_SimpleRhs x15 x16 x17) st = Curry.Module.SrcRef.c_zipBinds'39_case_338(x1)(x2)(x3)(x5)(x7)(x9)(x11)(x13)(x16)(x17)(st)+c_zipBinds'39_case_339 x1 x2 x3 x5 x7 x9 x11 x13 (Curry.Module.CurrySyntax.C_RhsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'39_case_339(x1)(x2)(x3)(x5)(x7)(x9)(x11)(x13)(x)(st))(i)(xs)(st)+c_zipBinds'39_case_339 x1 x2 x3 x5 x7 x9 x11 x13 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds'_case_339")(x)++++c_zipBinds'39_case_338 x1 x2 x3 x5 x7 x9 x11 x13 x16 x17@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipBinds'39_case_337(x1)(x2)(x3)(x7)(x9)(x11)(x13)(x16)(x5)(st)+c_zipBinds'39_case_338 x1 x2 x3 x5 x7 x9 x11 x13 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'39_case_338(x1)(x2)(x3)(x5)(x7)(x9)(x11)(x13)(x16)(x)(st))(i)(xs)(st)+c_zipBinds'39_case_338 x1 x2 x3 x5 x7 x9 x11 x13 x16 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds'_case_338")(x)++++c_zipBinds'39_case_337 x1 x2 x3 x7 x9 x11 x13 x16 x5@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.SrcRef.c_zipBinds'39_case_336(x1)(x2)(x3)(x7)(x9)(x11)(x13)(x16)(x19)(x18)(st)+c_zipBinds'39_case_337 x1 x2 x3 x7 x9 x11 x13 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'39_case_337(x1)(x2)(x3)(x7)(x9)(x11)(x13)(x16)(x)(st))(i)(xs)(st)+c_zipBinds'39_case_337 x1 x2 x3 x7 x9 x11 x13 x16 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds'_case_337")(x)++++c_zipBinds'39_case_336 x1 x2 x3 x7 x9 x11 x13 x16 x19 x18@(Curry.Module.SrcRef.C_Tree x20 x21) st = Curry.Module.SrcRef.c_zipBinds'39_case_335(x1)(x2)(x3)(x7)(x9)(x11)(x13)(x16)(x19)(x21)(st)+c_zipBinds'39_case_336 x1 x2 x3 x7 x9 x11 x13 x16 x19 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'39_case_336(x1)(x2)(x3)(x7)(x9)(x11)(x13)(x16)(x19)(x)(st))(i)(xs)(st)+c_zipBinds'39_case_336 x1 x2 x3 x7 x9 x11 x13 x16 x19 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds'_case_336")(x)++++c_zipBinds'39_case_335 x1 x2 x3 x7 x9 x11 x13 x16 x19 x21@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.SrcRef.c_zipBinds'39_case_334(x1)(x2)(x3)(x7)(x9)(x11)(x13)(x16)(x19)(x22)(x23)(st)+c_zipBinds'39_case_335 x1 x2 x3 x7 x9 x11 x13 x16 x19 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'39_case_335(x1)(x2)(x3)(x7)(x9)(x11)(x13)(x16)(x19)(x)(st))(i)(xs)(st)+c_zipBinds'39_case_335 x1 x2 x3 x7 x9 x11 x13 x16 x19 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds'_case_335")(x)++++c_zipBinds'39_case_334 x1 x2 x3 x7 x9 x11 x13 x16 x19 x22 x23@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.SrcRef.c_zipBinds'39_case_333(x1)(x2)(x3)(x7)(x9)(x11)(x13)(x16)(x19)(x22)(x24)(x25)(st)+c_zipBinds'39_case_334 x1 x2 x3 x7 x9 x11 x13 x16 x19 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'39_case_334(x1)(x2)(x3)(x7)(x9)(x11)(x13)(x16)(x19)(x22)(x)(st))(i)(xs)(st)+c_zipBinds'39_case_334 x1 x2 x3 x7 x9 x11 x13 x16 x19 x22 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds'_case_334")(x)++++c_zipBinds'39_case_333 x1 x2 x3 x7 x9 x11 x13 x16 x19 x22 x24 x25@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipBinds'39_case_332(x1)(x2)(x3)(x7)(x9)(x11)(x13)(x16)(x19)(x22)(x24)(Curry.Module.Prelude.op_124_124(Curry.Module.SrcRef.c_isVarPat(x13)(st))(Curry.Module.Prelude.c_null(Curry.Module.SrcRef.c_conArgs(x13)(st))(st))(st))(st)+c_zipBinds'39_case_333 x1 x2 x3 x7 x9 x11 x13 x16 x19 x22 x24 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'39_case_333(x1)(x2)(x3)(x7)(x9)(x11)(x13)(x16)(x19)(x22)(x24)(x)(st))(i)(xs)(st)+c_zipBinds'39_case_333 x1 x2 x3 x7 x9 x11 x13 x16 x19 x22 x24 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds'_case_333")(x)++++c_zipBinds'39_case_332 x1 x2 x3 x7 x9 x11 x13 x16 x19 x22 x24 x25@Curry.Module.Prelude.C_True st = Curry.Module.SrcRef.c_zipBinds'39'46zipBindBody'461081(x1)(x7)(x3)(x19)(x11)(x16)(x24)(x9)(st)+c_zipBinds'39_case_332 x1 x2 x3 x7 x9 x11 x13 x16 x19 x22 x24 x25@Curry.Module.Prelude.C_False st = Curry.Module.SrcRef.c_zipBinds'39_case_331(x1)(x2)(x3)(x7)(x13)(x16)(x19)(x22)(x24)(Curry.Module.Prelude.c_otherwise(st))(st)+c_zipBinds'39_case_332 x1 x2 x3 x7 x9 x11 x13 x16 x19 x22 x24 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'39_case_332(x1)(x2)(x3)(x7)(x9)(x11)(x13)(x16)(x19)(x22)(x24)(x)(st))(i)(xs)(st)+c_zipBinds'39_case_332 x1 x2 x3 x7 x9 x11 x13 x16 x19 x22 x24 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds'_case_332")(x)++++c_zipBinds'39_case_331 x1 x2 x3 x7 x13 x16 x19 x22 x24 x25@Curry.Module.Prelude.C_True st = let {x26 = Curry.Module.Prelude.c_span(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipBinds'39'46isSelCall'461081))(x2)(st)} in Curry.Module.SrcRef.c_zipBinds'39_case_330(x1)(x3)(x7)(x13)(x16)(x19)(x22)(x24)(x26)(st)+c_zipBinds'39_case_331 x1 x2 x3 x7 x13 x16 x19 x22 x24 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'39_case_331(x1)(x2)(x3)(x7)(x13)(x16)(x19)(x22)(x24)(x)(st))(i)(xs)(st)+c_zipBinds'39_case_331 x1 x2 x3 x7 x13 x16 x19 x22 x24 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds'_case_331")(x)++++c_zipBinds'39_case_330 x1 x3 x7 x13 x16 x19 x22 x24 x26@(Curry.Module.Prelude.T2 x27 x28) st = Curry.Module.SrcRef.c_zipBinds'39_case_329(x1)(x3)(x7)(x13)(x16)(x19)(x22)(x24)(x26)(x27)(x28)(st)+c_zipBinds'39_case_330 x1 x3 x7 x13 x16 x19 x22 x24 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'39_case_330(x1)(x3)(x7)(x13)(x16)(x19)(x22)(x24)(x)(st))(i)(xs)(st)+c_zipBinds'39_case_330 x1 x3 x7 x13 x16 x19 x22 x24 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds'_case_330")(x)++++c_zipBinds'39_case_329 x1 x3 x7 x13 x16 x19 x22 x24 x26 x27 x28@((Curry.Module.Prelude.:<) x29 x30) st = Curry.Module.SrcRef.c_zipBinds'39_case_328(x1)(x3)(x7)(x13)(x16)(x19)(x22)(x24)(x27)(x30)(x29)(st)+c_zipBinds'39_case_329 x1 x3 x7 x13 x16 x19 x22 x24 x26 x27 x28@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('w'))((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('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('p'))((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(' '))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.Prelude.c_show(x26)(st))(st))(st)+c_zipBinds'39_case_329 x1 x3 x7 x13 x16 x19 x22 x24 x26 x27 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'39_case_329(x1)(x3)(x7)(x13)(x16)(x19)(x22)(x24)(x26)(x27)(x)(st))(i)(xs)(st)+c_zipBinds'39_case_329 x1 x3 x7 x13 x16 x19 x22 x24 x26 x27 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds'_case_329")(x)++++c_zipBinds'39_case_328 x1 x3 x7 x13 x16 x19 x22 x24 x27 x30 x29@(Curry.Module.Prelude.T2 x31 x32) st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_43_43_43(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_makeSels(x27)(x13)(x22)))(Curry.Module.SrcRef.c_zipBinds'39'46zipBindBody'461081(x1)(x7)(x3)(x19)(x32)(x16)(x24)(x30)(st)))+c_zipBinds'39_case_328 x1 x3 x7 x13 x16 x19 x22 x24 x27 x30 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBinds'39_case_328(x1)(x3)(x7)(x13)(x16)(x19)(x22)(x24)(x27)(x30)(x)(st))(i)(xs)(st)+c_zipBinds'39_case_328 x1 x3 x7 x13 x16 x19 x22 x24 x27 x30 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBinds'_case_328")(x)++++c_zipExp_case_344 x1 x2 x3 x4 x505@Curry.Module.FlatCurry.C_Rigid st = Curry.Module.SrcRef.c_zipExp_case_343(x1)(x2)(x3)(x4)(Curry.Module.SrcRef.c_decompStatement(x2)(st))(st)+c_zipExp_case_344 x1 x2 x3 x4 (Curry.Module.FlatCurry.C_CaseTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_344(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_zipExp_case_344 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_344")(x)++++c_zipExp_case_343 x1 x2 x3 x4 x5@(Curry.Module.Prelude.T2 x508 x509) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_zipSts(x1)(x508)(x509)(x3)(st))(x4)(st)+c_zipExp_case_343 x1 x2 x3 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_343(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_zipExp_case_343 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_343")(x)++++c_zipExp_case_347 x3 x4 x455 x456 x2@(Curry.Module.CurrySyntax.C_Let x457 x458) st = Curry.Module.SrcRef.c_zipExp_case_346(x4)(x455)(x456)(x457)(x458)(x3)(st)+c_zipExp_case_347 x3 x4 x455 x456 (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_347(x3)(x4)(x455)(x456)(x)(st))(i)(xs)(st)+c_zipExp_case_347 x3 x4 x455 x456 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_347")(x)++++c_zipExp_case_346 x4 x455 x456 x457 x458 x3@(Curry.Module.SrcRef.C_Tree x459 x460) st = Curry.Module.SrcRef.c_zipExp_case_345(x4)(x455)(x456)(x457)(x458)(x460)(x459)(st)+c_zipExp_case_346 x4 x455 x456 x457 x458 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_346(x4)(x455)(x456)(x457)(x458)(x)(st))(i)(xs)(st)+c_zipExp_case_346 x4 x455 x456 x457 x458 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_346")(x)++++c_zipExp_case_345 x4 x455 x456 x457 x458 x460 x459@(Curry.Module.Prelude.C_Just x461) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.op_36_94(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.SrcRef.op_36_94(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x461)(Curry.Module.Prelude.List))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_zipBinds(x455)(x456)(x457)(x458)(st))(x460)(st))(st))(st))(x4)(st)+c_zipExp_case_345 x4 x455 x456 x457 x458 x460 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_345(x4)(x455)(x456)(x457)(x458)(x460)(x)(st))(i)(xs)(st)+c_zipExp_case_345 x4 x455 x456 x457 x458 x460 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_345")(x)++++c_zipExp_case_415 x1 x2 x3 x4 x22 x21@(Curry.Module.Prelude.T2 x23 x24) st = let {x25 = Curry.Module.SrcRef.c_decompApp(x2)(x3)(st)} in let {x28 = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_reverse(st))(Curry.Module.SrcRef.c_zipExp'46_'35selFP31'35res(x25)(st))(st)} in let {x29 = Curry.Module.SrcRef.c_zipExp'46_'35selFP29'35fun(x28)(st)} in let {x31 = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_reverse(st))(Curry.Module.SrcRef.c_zipExp'46_'35selFP32'35rts(x25)(st))(st)} in let {x32 = Curry.Module.SrcRef.c_zipExp'46_'35selFP27'35te(x31)(st)} in let {x34 = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_concats(Curry.Module.Prelude.c_zipWith3(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.SrcRef.c_zipExp))(x22)(Curry.Module.SrcRef.c_zipExp'46_'35selFP30'35es(x28)(st))(Curry.Module.SrcRef.c_zipExp'46_'35selFP28'35ts(x31)(st))(st))(st))(x4)(st)} in let {x35 = Curry.Module.SrcRef.c_zipExp'46_'35selFP24'35targs(x34)(st)} in let {x38 = Curry.Module.SrcRef.c_zipExp_case_350(x4)(x35)(x32)(st)} in Curry.Module.SrcRef.c_zipExp_case_414(x1)(x2)(x3)(x4)(x22)(x23)(x24)(x29)(x32)(x34)(x35)(x38)(Curry.Module.SrcRef.c_isLet(x2)(st))(st)+c_zipExp_case_415 x1 x2 x3 x4 x22 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_415(x1)(x2)(x3)(x4)(x22)(x)(st))(i)(xs)(st)+c_zipExp_case_415 x1 x2 x3 x4 x22 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_415")(x)++++c_zipExp_case_350 x4 x35 x32@(Curry.Module.SrcRef.C_Tree x39 x40) st = Curry.Module.SrcRef.c_zipExp_case_349(x4)(x35)(x40)(x39)(st)+c_zipExp_case_350 x4 x35 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_350(x4)(x35)(x)(st))(i)(xs)(st)+c_zipExp_case_350 x4 x35 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_350")(x)++++c_zipExp_case_349 x4 x35 x40 x39@(Curry.Module.Prelude.C_Just x41) st = Curry.Module.SrcRef.c_zipExp_case_348(x4)(x35)(x41)(x40)(st)+c_zipExp_case_349 x4 x35 x40 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_349(x4)(x35)(x40)(x)(st))(i)(xs)(st)+c_zipExp_case_349 x4 x35 x40 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_349")(x)++++c_zipExp_case_348 x4 x35 x41 x40@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.op_36_94(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.SrcRef.op_36_94(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x41)(Curry.Module.Prelude.List))))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_const(x35)))(st))(st))(x4)(st)+c_zipExp_case_348 x4 x35 x41 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_348(x4)(x35)(x41)(x)(st))(i)(xs)(st)+c_zipExp_case_348 x4 x35 x41 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_348")(x)++++c_zipExp_case_414 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 x39@Curry.Module.Prelude.C_True st = Curry.Module.SrcRef.c_zipExp_case_413(x1)(x3)(x4)(x2)(st)+c_zipExp_case_414 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 x39@Curry.Module.Prelude.C_False st = Curry.Module.SrcRef.c_zipExp_case_411(x1)(x2)(x3)(x4)(x22)(x23)(x24)(x29)(x32)(x34)(x35)(x38)(Curry.Module.SrcRef.c_isStatement(x2)(st))(st)+c_zipExp_case_414 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_414(x1)(x2)(x3)(x4)(x22)(x23)(x24)(x29)(x32)(x34)(x35)(x38)(x)(st))(i)(xs)(st)+c_zipExp_case_414 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_414")(x)++++c_zipExp_case_411 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 x39@Curry.Module.Prelude.C_True st = Curry.Module.SrcRef.c_zipExp_case_410(x1)(x2)(x3)(x4)(Curry.Module.SrcRef.c_decompStatement(x2)(st))(st)+c_zipExp_case_411 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 x39@Curry.Module.Prelude.C_False st = Curry.Module.SrcRef.c_zipExp_case_409(x1)(x2)(x3)(x4)(x22)(x23)(x24)(x29)(x32)(x34)(x35)(x38)(Curry.Module.Prelude.op_38_38(Curry.Module.SrcRef.c_isTupleName(x24)(st))(Curry.Module.Prelude.c_not(Curry.Module.SrcRef.c_isApply(x2)(st))(st))(st))(st)+c_zipExp_case_411 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_411(x1)(x2)(x3)(x4)(x22)(x23)(x24)(x29)(x32)(x34)(x35)(x38)(x)(st))(i)(xs)(st)+c_zipExp_case_411 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_411")(x)++++c_zipExp_case_409 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 x39@Curry.Module.Prelude.C_True st = Curry.Module.SrcRef.c_zipExp_case_408(x3)(x4)(x22)(x2)(st)+c_zipExp_case_409 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 x39@Curry.Module.Prelude.C_False st = Curry.Module.SrcRef.c_zipExp_case_405(x1)(x2)(x3)(x4)(x22)(x23)(x24)(x29)(x32)(x34)(x35)(x38)(Curry.Module.Prelude.op_61_61(x24)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(st))(st)+c_zipExp_case_409 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_409(x1)(x2)(x3)(x4)(x22)(x23)(x24)(x29)(x32)(x34)(x35)(x38)(x)(st))(i)(xs)(st)+c_zipExp_case_409 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_409")(x)++++c_zipExp_case_405 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 x39@Curry.Module.Prelude.C_True st = Curry.Module.SrcRef.c_zipExp_case_404(x3)(x4)(x2)(st)+c_zipExp_case_405 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 x39@Curry.Module.Prelude.C_False st = Curry.Module.SrcRef.c_zipExp_case_394(x1)(x2)(x3)(x4)(x22)(x23)(x24)(x29)(x32)(x34)(x35)(x38)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x24)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(st))(Curry.Module.Prelude.c_not(Curry.Module.SrcRef.c_isApply(x2)(st))(st))(st))(st)+c_zipExp_case_405 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_405(x1)(x2)(x3)(x4)(x22)(x23)(x24)(x29)(x32)(x34)(x35)(x38)(x)(st))(i)(xs)(st)+c_zipExp_case_405 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_405")(x)++++c_zipExp_case_394 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 x39@Curry.Module.Prelude.C_True st = Curry.Module.SrcRef.c_zipExp_case_393(x3)(x4)(x22)(x32)(x35)(x2)(st)+c_zipExp_case_394 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 x39@Curry.Module.Prelude.C_False st = Curry.Module.SrcRef.c_zipExp_case_370(x1)(x2)(x3)(x4)(x22)(x23)(x24)(x29)(x32)(x34)(x35)(x38)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x23)(Curry.Module.SrcRef.c_prelude(st))(st))(Curry.Module.Prelude.op_61_61(x24)((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_zipExp_case_394 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_394(x1)(x2)(x3)(x4)(x22)(x23)(x24)(x29)(x32)(x34)(x35)(x38)(x)(st))(i)(xs)(st)+c_zipExp_case_394 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_394")(x)++++c_zipExp_case_370 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 x39@Curry.Module.Prelude.C_True st = Curry.Module.SrcRef.c_zipExp_case_369(x3)(x4)(x22)(x2)(st)+c_zipExp_case_370 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 x39@Curry.Module.Prelude.C_False st = Curry.Module.SrcRef.c_zipExp_case_360(x1)(x2)(x3)(x4)(x24)(x29)(x32)(x34)(x35)(x38)(Curry.Module.SrcRef.c_isVariable(x2)(st))(st)+c_zipExp_case_370 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_370(x1)(x2)(x3)(x4)(x22)(x23)(x24)(x29)(x32)(x34)(x35)(x38)(x)(st))(i)(xs)(st)+c_zipExp_case_370 x1 x2 x3 x4 x22 x23 x24 x29 x32 x34 x35 x38 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_370")(x)++++c_zipExp_case_360 x1 x2 x3 x4 x24 x29 x32 x34 x35 x38 x39@Curry.Module.Prelude.C_True st = Curry.Module.SrcRef.c_zipExp_case_359(x1)(x4)(x38)(x2)(st)+c_zipExp_case_360 x1 x2 x3 x4 x24 x29 x32 x34 x35 x38 x39@Curry.Module.Prelude.C_False st = Curry.Module.SrcRef.c_zipExp_case_355(x1)(x2)(x3)(x4)(x24)(x29)(x32)(x34)(x35)(Curry.Module.Prelude.c_otherwise(st))(st)+c_zipExp_case_360 x1 x2 x3 x4 x24 x29 x32 x34 x35 x38 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_360(x1)(x2)(x3)(x4)(x24)(x29)(x32)(x34)(x35)(x38)(x)(st))(i)(xs)(st)+c_zipExp_case_360 x1 x2 x3 x4 x24 x29 x32 x34 x35 x38 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_360")(x)++++c_zipExp_case_355 x1 x2 x3 x4 x24 x29 x32 x34 x35 x36@Curry.Module.Prelude.C_True st = Curry.Module.SrcRef.c_zipExp_case_354(x1)(x2)(x3)(x4)(x24)(x29)(x34)(x35)(x32)(st)+c_zipExp_case_355 x1 x2 x3 x4 x24 x29 x32 x34 x35 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_355(x1)(x2)(x3)(x4)(x24)(x29)(x32)(x34)(x35)(x)(st))(i)(xs)(st)+c_zipExp_case_355 x1 x2 x3 x4 x24 x29 x32 x34 x35 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_355")(x)++++c_zipExp_case_354 x1 x2 x3 x4 x24 x29 x34 x35 x32@(Curry.Module.SrcRef.C_Tree x405 x406) st = Curry.Module.SrcRef.c_zipExp_case_353(x1)(x2)(x3)(x4)(x24)(x29)(x32)(x34)(x35)(x406)(x405)(st)+c_zipExp_case_354 x1 x2 x3 x4 x24 x29 x34 x35 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_354(x1)(x2)(x3)(x4)(x24)(x29)(x34)(x35)(x)(st))(i)(xs)(st)+c_zipExp_case_354 x1 x2 x3 x4 x24 x29 x34 x35 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_354")(x)++++c_zipExp_case_353 x1 x2 x3 x4 x24 x29 x32 x34 x35 x406 x405@(Curry.Module.Prelude.C_Just x407) st = Curry.Module.SrcRef.c_zipExp_case_352(x1)(x2)(x3)(x4)(x24)(x29)(x32)(x34)(x35)(x407)(x406)(st)+c_zipExp_case_353 x1 x2 x3 x4 x24 x29 x32 x34 x35 x406 x405@Curry.Module.Prelude.C_Nothing 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('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('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('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.:<)(Curry.Module.Prelude.C_Char('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T4(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_353 x1 x2 x3 x4 x24 x29 x32 x34 x35 x406 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_353(x1)(x2)(x3)(x4)(x24)(x29)(x32)(x34)(x35)(x406)(x)(st))(i)(xs)(st)+c_zipExp_case_353 x1 x2 x3 x4 x24 x29 x32 x34 x35 x406 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_353")(x)++++c_zipExp_case_352 x1 x2 x3 x4 x24 x29 x32 x34 x35 x407 x406@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.op_36_94(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.SrcRef.op_36_94(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x407)(Curry.Module.Prelude.List))))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_const(x35)))(st))(st))(x4)(st)+c_zipExp_case_352 x1 x2 x3 x4 x24 x29 x32 x34 x35 x407 x406@((Curry.Module.Prelude.:<) x408 x409) st = Curry.Module.SrcRef.c_zipExp_case_351(x1)(x2)(x3)(x4)(x24)(x32)(x34)(x407)(x29)(st)+c_zipExp_case_352 x1 x2 x3 x4 x24 x29 x32 x34 x35 x407 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_352(x1)(x2)(x3)(x4)(x24)(x29)(x32)(x34)(x35)(x407)(x)(st))(i)(xs)(st)+c_zipExp_case_352 x1 x2 x3 x4 x24 x29 x32 x34 x35 x407 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_352")(x)++++c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_Lambda x410 x411) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.op_36_94(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.SrcRef.op_36_94(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x407)(Curry.Module.Prelude.List))))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_const(Curry.Module.Prelude.T2(Curry.Module.SrcRef.c_zipExp'46_'35selFP25'35targs'39(x34)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(x24)(Curry.Module.Prelude.T2(Curry.Module.SrcRef.C_LiftedExp(x29))(x32)))(Curry.Module.SrcRef.c_zipExp'46_'35selFP26'35funs(x34)(st))))))(st))(st))(x4)(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_Literal x412) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_Variable x413) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_Constructor x414) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_Paren x415) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_Typed x416 x417) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_Tuple x418) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_List x419) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_ListCompr x420 x421) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_EnumFrom x422) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_EnumFromThen x423 x424) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_EnumFromTo x425 x426) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_EnumFromThenTo x427 x428 x429) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_UnaryMinus x430 x431) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_Apply x432 x433) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_InfixApply x434 x435 x436) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_LeftSection x437 x438) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_RightSection x439 x440) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_Let x441 x442) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_Do x443 x444) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_IfThenElse x445 x446 x447) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_Case x448 x449) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_RecordConstr x450) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_RecordSelection x451 x452) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x29@(Curry.Module.CurrySyntax.C_RecordUpdate x453 x454) 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('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('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('s'))((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('r'))((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('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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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('x'))((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.List))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.T5(x29)(x1)(x2)(x3)(x32))(st))(st))(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_351(x1)(x2)(x3)(x4)(x24)(x32)(x34)(x407)(x)(st))(i)(xs)(st)+c_zipExp_case_351 x1 x2 x3 x4 x24 x32 x34 x407 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_351")(x)++++c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_Variable x354) st = Curry.Module.SrcRef.c_zipExp_case_358(x1)(x4)(x38)(x354)(st)+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_Literal x361) st = x38+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_Constructor x362) st = x38+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_Paren x363) st = x38+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_Typed x364 x365) st = x38+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_Tuple x366) st = x38+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_List x367) st = x38+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_ListCompr x368 x369) st = x38+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_EnumFrom x370) st = x38+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_EnumFromThen x371 x372) st = x38+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_EnumFromTo x373 x374) st = x38+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_EnumFromThenTo x375 x376 x377) st = x38+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_UnaryMinus x378 x379) st = x38+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_Apply x380 x381) st = x38+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_InfixApply x382 x383 x384) st = x38+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_LeftSection x385 x386) st = x38+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_RightSection x387 x388) st = x38+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_Lambda x389 x390) st = x38+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_Let x391 x392) st = x38+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_Do x393 x394) st = x38+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_IfThenElse x395 x396 x397) st = x38+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_Case x398 x399) st = x38+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_RecordConstr x400) st = x38+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_RecordSelection x401 x402) st = x38+c_zipExp_case_359 x1 x4 x38 x2@(Curry.Module.CurrySyntax.C_RecordUpdate x403 x404) st = x38+c_zipExp_case_359 x1 x4 x38 (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_359(x1)(x4)(x38)(x)(st))(i)(xs)(st)+c_zipExp_case_359 x1 x4 x38 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_359")(x)++++c_zipExp_case_358 x1 x4 x38 x354@(Curry.Module.CurrySyntax.C_UnqualIdent x355) st = Curry.Module.SrcRef.c_zipExp_case_357(x1)(x4)(x38)(x355)(Curry.Module.Prelude.c_lookup(x355)(x4)(st))(st)+c_zipExp_case_358 x1 x4 x38 x354@(Curry.Module.CurrySyntax.C_QualIdent x359 x360) st = x38+c_zipExp_case_358 x1 x4 x38 (Curry.Module.CurrySyntax.C_QualIdentOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_358(x1)(x4)(x38)(x)(st))(i)(xs)(st)+c_zipExp_case_358 x1 x4 x38 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_358")(x)++++c_zipExp_case_357 x1 x4 x38 x355 (Curry.Module.Prelude.C_Just x356) st = Curry.Module.SrcRef.c_zipExp_case_356(x1)(x4)(x356)(st)+c_zipExp_case_357 x1 x4 x38 x355 x356@Curry.Module.Prelude.C_Nothing st = x38+c_zipExp_case_357 x1 x4 x38 x355 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_357(x1)(x4)(x38)(x355)(x)(st))(i)(xs)(st)+c_zipExp_case_357 x1 x4 x38 x355 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_357")(x)++++c_zipExp_case_356 x1 x4 x356@(Curry.Module.Prelude.T2 x357 x358) st = Curry.Module.SrcRef.c_zipExp(x1)(x357)(x358)(x4)(st)+c_zipExp_case_356 x1 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_356(x1)(x4)(x)(st))(i)(xs)(st)+c_zipExp_case_356 x1 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_356")(x)++++c_zipExp_case_369 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_Apply x294 x295) st = Curry.Module.SrcRef.c_zipExp_case_368(x4)(x22)(x294)(x295)(x3)(st)+c_zipExp_case_369 x3 x4 x22 (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_369(x3)(x4)(x22)(x)(st))(i)(xs)(st)+c_zipExp_case_369 x3 x4 x22 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_369")(x)++++c_zipExp_case_368 x4 x22 x294 x295 x3@(Curry.Module.SrcRef.C_Tree x296 x297) st = Curry.Module.SrcRef.c_zipExp_case_367(x4)(x22)(x294)(x295)(x297)(x296)(st)+c_zipExp_case_368 x4 x22 x294 x295 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_368(x4)(x22)(x294)(x295)(x)(st))(i)(xs)(st)+c_zipExp_case_368 x4 x22 x294 x295 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_368")(x)++++c_zipExp_case_367 x4 x22 x294 x295 x297 x296@(Curry.Module.Prelude.C_Just x298) st = Curry.Module.SrcRef.c_zipExp_case_366(x4)(x22)(x294)(x295)(x298)(x297)(st)+c_zipExp_case_367 x4 x22 x294 x295 x297 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_367(x4)(x22)(x294)(x295)(x297)(x)(st))(i)(xs)(st)+c_zipExp_case_367 x4 x22 x294 x295 x297 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_367")(x)++++c_zipExp_case_366 x4 x22 x294 x295 x298 x297@((Curry.Module.Prelude.:<) x299 x300) st = Curry.Module.SrcRef.c_zipExp_case_365(x4)(x22)(x294)(x295)(x298)(x299)(x300)(st)+c_zipExp_case_366 x4 x22 x294 x295 x298 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_366(x4)(x22)(x294)(x295)(x298)(x)(st))(i)(xs)(st)+c_zipExp_case_366 x4 x22 x294 x295 x298 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_366")(x)++++c_zipExp_case_365 x4 x22 x294 x295 x298 x299 x300@((Curry.Module.Prelude.:<) x301 x302) st = Curry.Module.SrcRef.c_zipExp_case_364(x4)(x22)(x294)(x295)(x298)(x299)(x301)(x302)(st)+c_zipExp_case_365 x4 x22 x294 x295 x298 x299 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_365(x4)(x22)(x294)(x295)(x298)(x299)(x)(st))(i)(xs)(st)+c_zipExp_case_365 x4 x22 x294 x295 x298 x299 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_365")(x)++++c_zipExp_case_364 x4 x22 x294 x295 x298 x299 x301 x302@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipExp_case_363(x4)(x294)(x295)(x298)(x299)(x301)(x22)(st)+c_zipExp_case_364 x4 x22 x294 x295 x298 x299 x301 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_364(x4)(x22)(x294)(x295)(x298)(x299)(x301)(x)(st))(i)(xs)(st)+c_zipExp_case_364 x4 x22 x294 x295 x298 x299 x301 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_364")(x)++++c_zipExp_case_363 x4 x294 x295 x298 x299 x301 x22@((Curry.Module.Prelude.:<) x303 x304) st = Curry.Module.SrcRef.c_zipExp_case_362(x4)(x294)(x295)(x298)(x299)(x301)(x303)(x304)(st)+c_zipExp_case_363 x4 x294 x295 x298 x299 x301 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_363(x4)(x294)(x295)(x298)(x299)(x301)(x)(st))(i)(xs)(st)+c_zipExp_case_363 x4 x294 x295 x298 x299 x301 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_363")(x)++++c_zipExp_case_362 x4 x294 x295 x298 x299 x301 x303 x304@((Curry.Module.Prelude.:<) x305 x306) st = Curry.Module.SrcRef.c_zipExp_case_361(x4)(x294)(x295)(x298)(x299)(x301)(x303)(x305)(x306)(st)+c_zipExp_case_362 x4 x294 x295 x298 x299 x301 x303 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_362(x4)(x294)(x295)(x298)(x299)(x301)(x303)(x)(st))(i)(xs)(st)+c_zipExp_case_362 x4 x294 x295 x298 x299 x301 x303 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_362")(x)++++c_zipExp_case_361 x4 x294 x295 x298 x299 x301 x303 x305 x306@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.op_36_94(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.SrcRef.op_36_94(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x298)(Curry.Module.Prelude.List))))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_43_43_43(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x303)(x294)(x299)))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x305)(x295)(x301)))))(st))(st))(x4)(st)+c_zipExp_case_361 x4 x294 x295 x298 x299 x301 x303 x305 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_361(x4)(x294)(x295)(x298)(x299)(x301)(x303)(x305)(x)(st))(i)(xs)(st)+c_zipExp_case_361 x4 x294 x295 x298 x299 x301 x303 x305 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_361")(x)++++c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_List x205) st = Curry.Module.SrcRef.c_zipExp_case_392(x2)(x3)(x4)(x22)(x205)(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_Literal x223) st = Curry.Module.SrcRef.c_zipExp_case_383(x2)(x3)(x4)(x22)(x223)(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_InfixApply x246 x247 x248) st = Curry.Module.SrcRef.c_zipExp_case_373(x4)(x35)(x32)(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_Variable x254) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_Constructor x255) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_Paren x256) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_Typed x257 x258) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_Tuple x259) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_ListCompr x260 x261) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_EnumFrom x262) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_EnumFromThen x263 x264) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_EnumFromTo x265 x266) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_EnumFromThenTo x267 x268 x269) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_UnaryMinus x270 x271) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_Apply x272 x273) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_LeftSection x274 x275) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_RightSection x276 x277) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_Lambda x278 x279) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_Let x280 x281) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_Do x282 x283) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_IfThenElse x284 x285 x286) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_Case x287 x288) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_RecordConstr x289) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_RecordSelection x290 x291) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x2@(Curry.Module.CurrySyntax.C_RecordUpdate x292 x293) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_393(x3)(x4)(x22)(x32)(x35)(x)(st))(i)(xs)(st)+c_zipExp_case_393 x3 x4 x22 x32 x35 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_393")(x)++++c_zipExp_case_373 x4 x35 x32@(Curry.Module.SrcRef.C_Tree x249 x250) st = Curry.Module.SrcRef.c_zipExp_case_372(x4)(x35)(x250)(x249)(st)+c_zipExp_case_373 x4 x35 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_373(x4)(x35)(x)(st))(i)(xs)(st)+c_zipExp_case_373 x4 x35 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_373")(x)++++c_zipExp_case_372 x4 x35 x250 x249@(Curry.Module.Prelude.C_Just x251) st = Curry.Module.SrcRef.c_zipExp_case_371(x4)(x35)(x251)(x250)(st)+c_zipExp_case_372 x4 x35 x250 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_372(x4)(x35)(x250)(x)(st))(i)(xs)(st)+c_zipExp_case_372 x4 x35 x250 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_372")(x)++++c_zipExp_case_371 x4 x35 x251 x250@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.op_36_94(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.SrcRef.op_36_94(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x251)(Curry.Module.Prelude.List))))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_const(x35)))(st))(st))(x4)(st)+c_zipExp_case_371 x4 x35 x251 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_371(x4)(x35)(x251)(x)(st))(i)(xs)(st)+c_zipExp_case_371 x4 x35 x251 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_371")(x)++++c_zipExp_case_383 x2 x3 x4 x22 x223@(Curry.Module.CurrySyntax.C_String x224) st = Curry.Module.SrcRef.c_zipExp_case_382(x2)(x3)(x4)(x22)(x224)(st)+c_zipExp_case_383 x2 x3 x4 x22 x223@(Curry.Module.CurrySyntax.C_Char x242) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_383 x2 x3 x4 x22 x223@(Curry.Module.CurrySyntax.C_Int x243 x244) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_383 x2 x3 x4 x22 x223@(Curry.Module.CurrySyntax.C_Float x245) 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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_383 x2 x3 x4 x22 (Curry.Module.CurrySyntax.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_383(x2)(x3)(x4)(x22)(x)(st))(i)(xs)(st)+c_zipExp_case_383 x2 x3 x4 x22 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_383")(x)++++c_zipExp_case_382 x2 x3 x4 x22 x224@((Curry.Module.Prelude.:<) x225 x226) st = Curry.Module.SrcRef.c_zipExp_case_381(x4)(x22)(x226)(x3)(st)+c_zipExp_case_382 x2 x3 x4 x22 x224@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('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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_382 x2 x3 x4 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_382(x2)(x3)(x4)(x22)(x)(st))(i)(xs)(st)+c_zipExp_case_382 x2 x3 x4 x22 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_382")(x)++++c_zipExp_case_381 x4 x22 x226 x3@(Curry.Module.SrcRef.C_Tree x227 x228) st = Curry.Module.SrcRef.c_zipExp_case_380(x4)(x22)(x226)(x228)(x227)(st)+c_zipExp_case_381 x4 x22 x226 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_381(x4)(x22)(x226)(x)(st))(i)(xs)(st)+c_zipExp_case_381 x4 x22 x226 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_381")(x)++++c_zipExp_case_380 x4 x22 x226 x228 x227@(Curry.Module.Prelude.C_Just x229) st = Curry.Module.SrcRef.c_zipExp_case_379(x4)(x22)(x226)(x229)(x228)(st)+c_zipExp_case_380 x4 x22 x226 x228 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_380(x4)(x22)(x226)(x228)(x)(st))(i)(xs)(st)+c_zipExp_case_380 x4 x22 x226 x228 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_380")(x)++++c_zipExp_case_379 x4 x22 x226 x229 x228@((Curry.Module.Prelude.:<) x230 x231) st = Curry.Module.SrcRef.c_zipExp_case_378(x4)(x22)(x226)(x229)(x230)(x231)(st)+c_zipExp_case_379 x4 x22 x226 x229 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_379(x4)(x22)(x226)(x229)(x)(st))(i)(xs)(st)+c_zipExp_case_379 x4 x22 x226 x229 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_379")(x)++++c_zipExp_case_378 x4 x22 x226 x229 x230 x231@((Curry.Module.Prelude.:<) x232 x233) st = Curry.Module.SrcRef.c_zipExp_case_377(x4)(x22)(x226)(x229)(x230)(x232)(x233)(st)+c_zipExp_case_378 x4 x22 x226 x229 x230 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_378(x4)(x22)(x226)(x229)(x230)(x)(st))(i)(xs)(st)+c_zipExp_case_378 x4 x22 x226 x229 x230 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_378")(x)++++c_zipExp_case_377 x4 x22 x226 x229 x230 x232 x233@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipExp_case_376(x4)(x226)(x229)(x230)(x232)(x22)(st)+c_zipExp_case_377 x4 x22 x226 x229 x230 x232 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_377(x4)(x22)(x226)(x229)(x230)(x232)(x)(st))(i)(xs)(st)+c_zipExp_case_377 x4 x22 x226 x229 x230 x232 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_377")(x)++++c_zipExp_case_376 x4 x226 x229 x230 x232 x22@((Curry.Module.Prelude.:<) x234 x235) st = Curry.Module.SrcRef.c_zipExp_case_375(x4)(x226)(x229)(x230)(x232)(x235)(st)+c_zipExp_case_376 x4 x226 x229 x230 x232 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_376(x4)(x226)(x229)(x230)(x232)(x)(st))(i)(xs)(st)+c_zipExp_case_376 x4 x226 x229 x230 x232 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_376")(x)++++c_zipExp_case_375 x4 x226 x229 x230 x232 x235@((Curry.Module.Prelude.:<) x236 x237) st = Curry.Module.SrcRef.c_zipExp_case_374(x4)(x226)(x229)(x230)(x232)(x236)(x237)(st)+c_zipExp_case_375 x4 x226 x229 x230 x232 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_375(x4)(x226)(x229)(x230)(x232)(x)(st))(i)(xs)(st)+c_zipExp_case_375 x4 x226 x229 x230 x232 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_375")(x)++++c_zipExp_case_374 x4 x226 x229 x230 x232 x236 x237@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.op_36_94(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.SrcRef.op_36_94(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x229)(Curry.Module.Prelude.List))))(Curry.Module.SrcRef.op_36_94(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_tot(st))(x230)(st))))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x236)(Curry.Module.CurrySyntax.C_Literal(Curry.Module.CurrySyntax.C_String(x226)))(x232)))(st))(st))(st))(x4)(st)+c_zipExp_case_374 x4 x226 x229 x230 x232 x236 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_374(x4)(x226)(x229)(x230)(x232)(x236)(x)(st))(i)(xs)(st)+c_zipExp_case_374 x4 x226 x229 x230 x232 x236 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_374")(x)++++c_zipExp_case_392 x2 x3 x4 x22 x205@((Curry.Module.Prelude.:<) x206 x207) st = Curry.Module.SrcRef.c_zipExp_case_391(x4)(x22)(x206)(x207)(x3)(st)+c_zipExp_case_392 x2 x3 x4 x22 x205@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('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('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('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('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('r'))((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.:<)(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('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('('))((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_show(x2)(st))(st))(st)+c_zipExp_case_392 x2 x3 x4 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_392(x2)(x3)(x4)(x22)(x)(st))(i)(xs)(st)+c_zipExp_case_392 x2 x3 x4 x22 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_392")(x)++++c_zipExp_case_391 x4 x22 x206 x207 x3@(Curry.Module.SrcRef.C_Tree x208 x209) st = Curry.Module.SrcRef.c_zipExp_case_390(x4)(x22)(x206)(x207)(x209)(x208)(st)+c_zipExp_case_391 x4 x22 x206 x207 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_391(x4)(x22)(x206)(x207)(x)(st))(i)(xs)(st)+c_zipExp_case_391 x4 x22 x206 x207 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_391")(x)++++c_zipExp_case_390 x4 x22 x206 x207 x209 x208@(Curry.Module.Prelude.C_Just x210) st = Curry.Module.SrcRef.c_zipExp_case_389(x4)(x22)(x206)(x207)(x210)(x209)(st)+c_zipExp_case_390 x4 x22 x206 x207 x209 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_390(x4)(x22)(x206)(x207)(x209)(x)(st))(i)(xs)(st)+c_zipExp_case_390 x4 x22 x206 x207 x209 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_390")(x)++++c_zipExp_case_389 x4 x22 x206 x207 x210 x209@((Curry.Module.Prelude.:<) x211 x212) st = Curry.Module.SrcRef.c_zipExp_case_388(x4)(x22)(x206)(x207)(x210)(x211)(x212)(st)+c_zipExp_case_389 x4 x22 x206 x207 x210 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_389(x4)(x22)(x206)(x207)(x210)(x)(st))(i)(xs)(st)+c_zipExp_case_389 x4 x22 x206 x207 x210 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_389")(x)++++c_zipExp_case_388 x4 x22 x206 x207 x210 x211 x212@((Curry.Module.Prelude.:<) x213 x214) st = Curry.Module.SrcRef.c_zipExp_case_387(x4)(x22)(x206)(x207)(x210)(x211)(x213)(x214)(st)+c_zipExp_case_388 x4 x22 x206 x207 x210 x211 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_388(x4)(x22)(x206)(x207)(x210)(x211)(x)(st))(i)(xs)(st)+c_zipExp_case_388 x4 x22 x206 x207 x210 x211 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_388")(x)++++c_zipExp_case_387 x4 x22 x206 x207 x210 x211 x213 x214@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipExp_case_386(x4)(x206)(x207)(x210)(x211)(x213)(x22)(st)+c_zipExp_case_387 x4 x22 x206 x207 x210 x211 x213 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_387(x4)(x22)(x206)(x207)(x210)(x211)(x213)(x)(st))(i)(xs)(st)+c_zipExp_case_387 x4 x22 x206 x207 x210 x211 x213 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_387")(x)++++c_zipExp_case_386 x4 x206 x207 x210 x211 x213 x22@((Curry.Module.Prelude.:<) x215 x216) st = Curry.Module.SrcRef.c_zipExp_case_385(x4)(x206)(x207)(x210)(x211)(x213)(x215)(x216)(st)+c_zipExp_case_386 x4 x206 x207 x210 x211 x213 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_386(x4)(x206)(x207)(x210)(x211)(x213)(x)(st))(i)(xs)(st)+c_zipExp_case_386 x4 x206 x207 x210 x211 x213 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_386")(x)++++c_zipExp_case_385 x4 x206 x207 x210 x211 x213 x215 x216@((Curry.Module.Prelude.:<) x217 x218) st = Curry.Module.SrcRef.c_zipExp_case_384(x4)(x206)(x207)(x210)(x211)(x213)(x215)(x217)(x218)(st)+c_zipExp_case_385 x4 x206 x207 x210 x211 x213 x215 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_385(x4)(x206)(x207)(x210)(x211)(x213)(x215)(x)(st))(i)(xs)(st)+c_zipExp_case_385 x4 x206 x207 x210 x211 x213 x215 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_385")(x)++++c_zipExp_case_384 x4 x206 x207 x210 x211 x213 x215 x217 x218@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.op_36_94(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.SrcRef.op_36_94(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x210)(Curry.Module.Prelude.List))))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_43_43_43(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x215)(x206)(x211)))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x217)(Curry.Module.CurrySyntax.C_List(x207))(x213)))))(st))(st))(x4)(st)+c_zipExp_case_384 x4 x206 x207 x210 x211 x213 x215 x217 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_384(x4)(x206)(x207)(x210)(x211)(x213)(x215)(x217)(x)(st))(i)(xs)(st)+c_zipExp_case_384 x4 x206 x207 x210 x211 x213 x215 x217 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_384")(x)++++c_zipExp_case_404 x3 x4 x2@(Curry.Module.CurrySyntax.C_List x141) st = Curry.Module.SrcRef.c_zipExp_case_403(x3)(x4)(x141)(st)+c_zipExp_case_404 x3 x4 x2@(Curry.Module.CurrySyntax.C_Literal x149) st = Curry.Module.SrcRef.c_zipExp_case_399(x3)(x4)(x149)(st)+c_zipExp_case_404 x3 x4 (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_404(x3)(x4)(x)(st))(i)(xs)(st)+c_zipExp_case_404 x3 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_404")(x)++++c_zipExp_case_399 x3 x4 x149@(Curry.Module.CurrySyntax.C_String x150) st = Curry.Module.SrcRef.c_zipExp_case_398(x3)(x4)(x150)(st)+c_zipExp_case_399 x3 x4 (Curry.Module.CurrySyntax.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_399(x3)(x4)(x)(st))(i)(xs)(st)+c_zipExp_case_399 x3 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_399")(x)++++c_zipExp_case_398 x3 x4 x150@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipExp_case_397(x4)(x3)(st)+c_zipExp_case_398 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_398(x3)(x4)(x)(st))(i)(xs)(st)+c_zipExp_case_398 x3 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_398")(x)++++c_zipExp_case_397 x4 x3@(Curry.Module.SrcRef.C_Tree x151 x152) st = Curry.Module.SrcRef.c_zipExp_case_396(x4)(x152)(x151)(st)+c_zipExp_case_397 x4 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_397(x4)(x)(st))(i)(xs)(st)+c_zipExp_case_397 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_397")(x)++++c_zipExp_case_396 x4 x152 x151@(Curry.Module.Prelude.C_Just x153) st = Curry.Module.SrcRef.c_zipExp_case_395(x4)(x153)(x152)(st)+c_zipExp_case_396 x4 x152 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_396(x4)(x152)(x)(st))(i)(xs)(st)+c_zipExp_case_396 x4 x152 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_396")(x)++++c_zipExp_case_395 x4 x153 x152@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zir((Curry.Module.Prelude.:<)(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x153)(Curry.Module.Prelude.List))(Curry.Module.Prelude.List))(Curry.Module.Prelude.List))(x4)(st)+c_zipExp_case_395 x4 x153 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_395(x4)(x153)(x)(st))(i)(xs)(st)+c_zipExp_case_395 x4 x153 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_395")(x)++++c_zipExp_case_403 x3 x4 x141@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipExp_case_402(x4)(x3)(st)+c_zipExp_case_403 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_403(x3)(x4)(x)(st))(i)(xs)(st)+c_zipExp_case_403 x3 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_403")(x)++++c_zipExp_case_402 x4 x3@(Curry.Module.SrcRef.C_Tree x142 x143) st = Curry.Module.SrcRef.c_zipExp_case_401(x4)(x143)(x142)(st)+c_zipExp_case_402 x4 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_402(x4)(x)(st))(i)(xs)(st)+c_zipExp_case_402 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_402")(x)++++c_zipExp_case_401 x4 x143 x142@(Curry.Module.Prelude.C_Just x144) st = Curry.Module.SrcRef.c_zipExp_case_400(x4)(x144)(x143)(st)+c_zipExp_case_401 x4 x143 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_401(x4)(x143)(x)(st))(i)(xs)(st)+c_zipExp_case_401 x4 x143 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_401")(x)++++c_zipExp_case_400 x4 x144 x143@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zir((Curry.Module.Prelude.:<)(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x144)(Curry.Module.Prelude.List))(Curry.Module.Prelude.List))(Curry.Module.Prelude.List))(x4)(st)+c_zipExp_case_400 x4 x144 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_400(x4)(x144)(x)(st))(i)(xs)(st)+c_zipExp_case_400 x4 x144 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_400")(x)++++c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_Tuple x93) st = Curry.Module.SrcRef.c_zipExp_case_407(x4)(x22)(x93)(x3)(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_Literal x97) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_Variable x98) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_Constructor x99) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_Paren x100) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_Typed x101 x102) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_List x103) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_ListCompr x104 x105) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_EnumFrom x106) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_EnumFromThen x107 x108) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_EnumFromTo x109 x110) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_EnumFromThenTo x111 x112 x113) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_UnaryMinus x114 x115) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_Apply x116 x117) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_InfixApply x118 x119 x120) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_LeftSection x121 x122) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_RightSection x123 x124) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_Lambda x125 x126) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_Let x127 x128) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_Do x129 x130) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_IfThenElse x131 x132 x133) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_Case x134 x135) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_RecordConstr x136) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_RecordSelection x137 x138) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 x2@(Curry.Module.CurrySyntax.C_RecordUpdate x139 x140) 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('t'))((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('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('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('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('a'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x2)(st))(st))(st)+c_zipExp_case_408 x3 x4 x22 (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_408(x3)(x4)(x22)(x)(st))(i)(xs)(st)+c_zipExp_case_408 x3 x4 x22 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_408")(x)++++c_zipExp_case_407 x4 x22 x93 x3@(Curry.Module.SrcRef.C_Tree x94 x95) st = Curry.Module.SrcRef.c_zipExp_case_406(x4)(x22)(x93)(x95)(x94)(st)+c_zipExp_case_407 x4 x22 x93 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_407(x4)(x22)(x93)(x)(st))(i)(xs)(st)+c_zipExp_case_407 x4 x22 x93 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_407")(x)++++c_zipExp_case_406 x4 x22 x93 x95 x94@(Curry.Module.Prelude.C_Just x96) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.op_36_94(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.SrcRef.op_36_94(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x96)(Curry.Module.Prelude.List))))(Curry.Module.SrcRef.c_concats(Curry.Module.Prelude.c_zipWith3(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.SrcRef.c_zipExp))(x22)(x93)(x95)(st))(st))(st))(st))(x4)(st)+c_zipExp_case_406 x4 x22 x93 x95 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_406(x4)(x22)(x93)(x95)(x)(st))(i)(xs)(st)+c_zipExp_case_406 x4 x22 x93 x95 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_406")(x)++++c_zipExp_case_410 x1 x2 x3 x4 x5@(Curry.Module.Prelude.T2 x91 x92) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_zipSts(x1)(x91)(x92)(x3)(st))(x4)(st)+c_zipExp_case_410 x1 x2 x3 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_410(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_zipExp_case_410 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_410")(x)++++c_zipExp_case_413 x1 x3 x4 x2@(Curry.Module.CurrySyntax.C_Let x44 x45) st = Curry.Module.SrcRef.c_zipExp_case_412(x1)(x4)(x44)(x45)(x3)(st)+c_zipExp_case_413 x1 x3 x4 (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_413(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c_zipExp_case_413 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_413")(x)++++c_zipExp_case_412 x1 x4 x44 x45 x3@(Curry.Module.SrcRef.C_Tree x46 x47) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_addBinds(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_zipExp(x1)(x45)))(x44)(x47)(st))(x4)(st)+c_zipExp_case_412 x1 x4 x44 x45 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_412(x1)(x4)(x44)(x45)(x)(st))(i)(xs)(st)+c_zipExp_case_412 x1 x4 x44 x45 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_412")(x)++++c_zipExp_case_422 x1 x3 x4 x2@(Curry.Module.CurrySyntax.C_Literal x8) st = Curry.Module.SrcRef.c_zir((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_tot(st))(x3)(st))(Curry.Module.Prelude.List))(x4)(st)+c_zipExp_case_422 x1 x3 x4 x2@(Curry.Module.CurrySyntax.C_Let x9 x10) st = Curry.Module.SrcRef.c_zipExp_case_421(x1)(x4)(x9)(x10)(x3)(st)+c_zipExp_case_422 x1 x3 x4 x2@(Curry.Module.CurrySyntax.C_Variable x13) st = Curry.Module.SrcRef.c_zipExp_case_420(x1)(x3)(x4)(x13)(st)+c_zipExp_case_422 x1 x3 x4 (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_422(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c_zipExp_case_422 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_422")(x)++++c_zipExp_case_420 x1 x3 x4 x13@(Curry.Module.CurrySyntax.C_UnqualIdent x14) st = Curry.Module.SrcRef.c_zipExp_case_419(x1)(x4)(x14)(x3)(st)+c_zipExp_case_420 x1 x3 x4 (Curry.Module.CurrySyntax.C_QualIdentOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_420(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c_zipExp_case_420 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_420")(x)++++c_zipExp_case_419 x1 x4 x14 x3@(Curry.Module.SrcRef.C_Tree x15 x16) st = Curry.Module.SrcRef.c_zipExp_case_418(x1)(x4)(x14)(x16)(st)+c_zipExp_case_419 x1 x4 x14 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_419(x1)(x4)(x14)(x)(st))(i)(xs)(st)+c_zipExp_case_419 x1 x4 x14 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_419")(x)++++c_zipExp_case_418 x1 x4 x14 x16@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipExp_case_417(x1)(x4)(x14)(Curry.Module.Prelude.c_lookup(x14)(x4)(st))(st)+c_zipExp_case_418 x1 x4 x14 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_418(x1)(x4)(x14)(x)(st))(i)(xs)(st)+c_zipExp_case_418 x1 x4 x14 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_418")(x)++++c_zipExp_case_417 x1 x4 x14 x15@(Curry.Module.Prelude.C_Just x17) st = Curry.Module.SrcRef.c_zipExp_case_416(x1)(x4)(x17)(st)+c_zipExp_case_417 x1 x4 x14 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_417(x1)(x4)(x14)(x)(st))(i)(xs)(st)+c_zipExp_case_417 x1 x4 x14 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_417")(x)++++c_zipExp_case_416 x1 x4 x17@(Curry.Module.Prelude.T2 x18 x19) st = Curry.Module.SrcRef.c_zipExp(x1)(x18)(x19)(x4)(st)+c_zipExp_case_416 x1 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_416(x1)(x4)(x)(st))(i)(xs)(st)+c_zipExp_case_416 x1 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_416")(x)++++c_zipExp_case_421 x1 x4 x9 x10 x3@(Curry.Module.SrcRef.C_Tree x11 x12) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_addBinds(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_zipExp(x1)(x10)))(x9)(x12)(st))(x4)(st)+c_zipExp_case_421 x1 x4 x9 x10 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_421(x1)(x4)(x9)(x10)(x)(st))(i)(xs)(st)+c_zipExp_case_421 x1 x4 x9 x10 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_421")(x)++++c_zipExp_case_423 x3 x4 x2@(Curry.Module.CurrySyntax.C_Variable x6) st = Curry.Module.SrcRef.c_zir((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_tot(st))(x3)(st))(Curry.Module.Prelude.List))(x4)(st)+c_zipExp_case_423 x3 x4 (Curry.Module.CurrySyntax.C_ExpressionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipExp_case_423(x3)(x4)(x)(st))(i)(xs)(st)+c_zipExp_case_423 x3 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipExp_case_423")(x)++++c_unzip'39_case_424 x2 x4 x5 x6@(Curry.Module.Prelude.T2 x8 x9) st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.SrcRef.c_unzip'39'46_'35selFP18'35x(x5)(st))(x8))(Curry.Module.Prelude.op_43_43(Curry.Module.SrcRef.c_unzip'39'46_'35selFP19'35ys(x5)(st))(x9)(st))+c_unzip'39_case_424 x2 x4 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_unzip'39_case_424(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c_unzip'39_case_424 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.unzip'_case_424")(x)++++c_concats'46_'35lambda95_case_425 x1 x2 (Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.Prelude.T2(Curry.Module.Prelude.c_concat(x3)(st))(Curry.Module.Prelude.c_concat(x4)(st))+c_concats'46_'35lambda95_case_425 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_concats'46_'35lambda95_case_425(x1)(x2)(x)(st))(i)(xs)(st)+c_concats'46_'35lambda95_case_425 x1 x2 x st = Curry.RunTimeSystem.patternFail("SrcRef.concats._#lambda95_case_425")(x)++++c_'36'94'46_'35lambda93_case_426 x1 x2 x3 (Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.Prelude.T2(Curry.Module.Prelude.c_apply(x1)(x4)(st))(x5)+c_'36'94'46_'35lambda93_case_426 x1 x2 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_'36'94'46_'35lambda93_case_426(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c_'36'94'46_'35lambda93_case_426 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("SrcRef.$^._#lambda93_case_426")(x)++++c_zipGuards_case_450 x3 x4 x6 x5@(Curry.Module.CurrySyntax.C_CondExpr x7 x8 x9) st = Curry.Module.SrcRef.c_zipGuards_case_449(x3)(x6)(x8)(x9)(x4)(st)+c_zipGuards_case_450 x3 x4 x6 (Curry.Module.CurrySyntax.C_CondExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_450(x3)(x4)(x6)(x)(st))(i)(xs)(st)+c_zipGuards_case_450 x3 x4 x6 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_450")(x)++++c_zipGuards_case_449 x3 x6 x8 x9 x4@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.SrcRef.c_zipGuards_case_448(x3)(x6)(x8)(x9)(x11)(x10)(st)+c_zipGuards_case_449 x3 x6 x8 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_449(x3)(x6)(x8)(x9)(x)(st))(i)(xs)(st)+c_zipGuards_case_449 x3 x6 x8 x9 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_449")(x)++++c_zipGuards_case_448 x3 x6 x8 x9 x11 x10@(Curry.Module.SrcRef.C_Tree x12 x13) st = Curry.Module.SrcRef.c_zipGuards_case_447(x3)(x6)(x8)(x9)(x11)(x13)(x12)(st)+c_zipGuards_case_448 x3 x6 x8 x9 x11 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_448(x3)(x6)(x8)(x9)(x11)(x)(st))(i)(xs)(st)+c_zipGuards_case_448 x3 x6 x8 x9 x11 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_448")(x)++++c_zipGuards_case_447 x3 x6 x8 x9 x11 x13 x12@(Curry.Module.Prelude.C_Just x14) st = Curry.Module.SrcRef.c_zipGuards_case_446(x3)(x6)(x8)(x9)(x11)(x14)(x13)(st)+c_zipGuards_case_447 x3 x6 x8 x9 x11 x13 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_447(x3)(x6)(x8)(x9)(x11)(x13)(x)(st))(i)(xs)(st)+c_zipGuards_case_447 x3 x6 x8 x9 x11 x13 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_447")(x)++++c_zipGuards_case_446 x3 x6 x8 x9 x11 x14 x13@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.SrcRef.c_zipGuards_case_445(x3)(x6)(x8)(x9)(x11)(x14)(x15)(x16)(st)+c_zipGuards_case_446 x3 x6 x8 x9 x11 x14 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_446(x3)(x6)(x8)(x9)(x11)(x14)(x)(st))(i)(xs)(st)+c_zipGuards_case_446 x3 x6 x8 x9 x11 x14 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_446")(x)++++c_zipGuards_case_445 x3 x6 x8 x9 x11 x14 x15 x16@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.SrcRef.c_zipGuards_case_444(x3)(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x18)(st)+c_zipGuards_case_445 x3 x6 x8 x9 x11 x14 x15 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_445(x3)(x6)(x8)(x9)(x11)(x14)(x15)(x)(st))(i)(xs)(st)+c_zipGuards_case_445 x3 x6 x8 x9 x11 x14 x15 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_445")(x)++++c_zipGuards_case_444 x3 x6 x8 x9 x11 x14 x15 x17 x18@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipGuards_case_443(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x3)(st)+c_zipGuards_case_444 x3 x6 x8 x9 x11 x14 x15 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_444(x3)(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x)(st))(i)(xs)(st)+c_zipGuards_case_444 x3 x6 x8 x9 x11 x14 x15 x17 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_444")(x)++++c_zipGuards_case_443 x6 x8 x9 x11 x14 x15 x17 x3@(Curry.Module.FlatCurry.C_Comb x19 x20 x21) st = Curry.Module.SrcRef.c_zipGuards_case_442(x6)(x8)(x9)(x14)(x15)(x17)(x20)(x21)(x19)(st)+c_zipGuards_case_443 x6 x8 x9 x11 x14 x15 x17 x3@(Curry.Module.FlatCurry.C_Case x32 x33 x34) st = Curry.Module.SrcRef.c_zipGuards_case_436(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x33)(x34)(st)+c_zipGuards_case_443 x6 x8 x9 x11 x14 x15 x17 x3@(Curry.Module.FlatCurry.C_Var x55) st = Curry.Module.Prelude.c_error((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('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('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('g'))((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('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('d'))((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('h'))((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('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('d'))((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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(st)+c_zipGuards_case_443 x6 x8 x9 x11 x14 x15 x17 x3@(Curry.Module.FlatCurry.C_Lit x56) st = Curry.Module.Prelude.c_error((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('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('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('g'))((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('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('d'))((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('h'))((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('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('d'))((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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(st)+c_zipGuards_case_443 x6 x8 x9 x11 x14 x15 x17 x3@(Curry.Module.FlatCurry.C_Let x57 x58) st = Curry.Module.Prelude.c_error((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('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('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('g'))((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('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('d'))((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('h'))((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('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('d'))((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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(st)+c_zipGuards_case_443 x6 x8 x9 x11 x14 x15 x17 x3@(Curry.Module.FlatCurry.C_Free x59 x60) st = Curry.Module.Prelude.c_error((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('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('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('g'))((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('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('d'))((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('h'))((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('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('d'))((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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(st)+c_zipGuards_case_443 x6 x8 x9 x11 x14 x15 x17 x3@(Curry.Module.FlatCurry.C_Or x61 x62) st = Curry.Module.Prelude.c_error((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('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('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('g'))((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('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('d'))((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('h'))((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('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('d'))((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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(st)+c_zipGuards_case_443 x6 x8 x9 x11 x14 x15 x17 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_443(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x)(st))(i)(xs)(st)+c_zipGuards_case_443 x6 x8 x9 x11 x14 x15 x17 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_443")(x)++++c_zipGuards_case_436 x6 x8 x9 x11 x14 x15 x17 x33 x34@((Curry.Module.Prelude.:<) x35 x36) st = Curry.Module.SrcRef.c_zipGuards_case_435(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x33)(x36)(x35)(st)+c_zipGuards_case_436 x6 x8 x9 x11 x14 x15 x17 x33 x34@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((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('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('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('g'))((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('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('d'))((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('h'))((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('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('d'))((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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(st)+c_zipGuards_case_436 x6 x8 x9 x11 x14 x15 x17 x33 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_436(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x33)(x)(st))(i)(xs)(st)+c_zipGuards_case_436 x6 x8 x9 x11 x14 x15 x17 x33 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_436")(x)++++c_zipGuards_case_435 x6 x8 x9 x11 x14 x15 x17 x33 x36 x35@(Curry.Module.FlatCurry.C_Branch x37 x38) st = Curry.Module.SrcRef.c_zipGuards_case_434(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x33)(x36)(x38)(x37)(st)+c_zipGuards_case_435 x6 x8 x9 x11 x14 x15 x17 x33 x36 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_435(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x33)(x36)(x)(st))(i)(xs)(st)+c_zipGuards_case_435 x6 x8 x9 x11 x14 x15 x17 x33 x36 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_435")(x)++++c_zipGuards_case_434 x6 x8 x9 x11 x14 x15 x17 x33 x36 x38 x37@(Curry.Module.FlatCurry.C_Pattern x39 x40) st = Curry.Module.SrcRef.c_zipGuards_case_433(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x33)(x36)(x38)(x39)(x40)(st)+c_zipGuards_case_434 x6 x8 x9 x11 x14 x15 x17 x33 x36 x38 x37@(Curry.Module.FlatCurry.C_LPattern x54) st = Curry.Module.Prelude.c_error((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('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('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('g'))((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('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('d'))((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('h'))((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('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('d'))((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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(st)+c_zipGuards_case_434 x6 x8 x9 x11 x14 x15 x17 x33 x36 x38 (Curry.Module.FlatCurry.C_PatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_434(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x33)(x36)(x38)(x)(st))(i)(xs)(st)+c_zipGuards_case_434 x6 x8 x9 x11 x14 x15 x17 x33 x36 x38 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_434")(x)++++c_zipGuards_case_433 x6 x8 x9 x11 x14 x15 x17 x33 x36 x38 x39 x40@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipGuards_case_432(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x33)(x38)(x39)(x36)(st)+c_zipGuards_case_433 x6 x8 x9 x11 x14 x15 x17 x33 x36 x38 x39 x40@((Curry.Module.Prelude.:<) x52 x53) st = Curry.Module.Prelude.c_error((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('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('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('g'))((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('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('d'))((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('h'))((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('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('d'))((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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(st)+c_zipGuards_case_433 x6 x8 x9 x11 x14 x15 x17 x33 x36 x38 x39 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_433(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x33)(x36)(x38)(x39)(x)(st))(i)(xs)(st)+c_zipGuards_case_433 x6 x8 x9 x11 x14 x15 x17 x33 x36 x38 x39 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_433")(x)++++c_zipGuards_case_432 x6 x8 x9 x11 x14 x15 x17 x33 x38 x39 x36@((Curry.Module.Prelude.:<) x41 x42) st = Curry.Module.SrcRef.c_zipGuards_case_431(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x33)(x38)(x39)(x42)(x41)(st)+c_zipGuards_case_432 x6 x8 x9 x11 x14 x15 x17 x33 x38 x39 x36@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((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('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('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('g'))((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('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('d'))((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('h'))((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('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('d'))((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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(st)+c_zipGuards_case_432 x6 x8 x9 x11 x14 x15 x17 x33 x38 x39 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_432(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x33)(x38)(x39)(x)(st))(i)(xs)(st)+c_zipGuards_case_432 x6 x8 x9 x11 x14 x15 x17 x33 x38 x39 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_432")(x)++++c_zipGuards_case_431 x6 x8 x9 x11 x14 x15 x17 x33 x38 x39 x42 x41@(Curry.Module.FlatCurry.C_Branch x43 x44) st = Curry.Module.SrcRef.c_zipGuards_case_430(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x33)(x38)(x39)(x42)(x44)(x43)(st)+c_zipGuards_case_431 x6 x8 x9 x11 x14 x15 x17 x33 x38 x39 x42 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_431(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x33)(x38)(x39)(x42)(x)(st))(i)(xs)(st)+c_zipGuards_case_431 x6 x8 x9 x11 x14 x15 x17 x33 x38 x39 x42 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_431")(x)++++c_zipGuards_case_430 x6 x8 x9 x11 x14 x15 x17 x33 x38 x39 x42 x44 x43@(Curry.Module.FlatCurry.C_Pattern x45 x46) st = Curry.Module.SrcRef.c_zipGuards_case_429(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x33)(x38)(x39)(x42)(x44)(x45)(x46)(st)+c_zipGuards_case_430 x6 x8 x9 x11 x14 x15 x17 x33 x38 x39 x42 x44 x43@(Curry.Module.FlatCurry.C_LPattern x51) st = Curry.Module.Prelude.c_error((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('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('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('g'))((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('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('d'))((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('h'))((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('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('d'))((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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(st)+c_zipGuards_case_430 x6 x8 x9 x11 x14 x15 x17 x33 x38 x39 x42 x44 (Curry.Module.FlatCurry.C_PatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_430(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x33)(x38)(x39)(x42)(x44)(x)(st))(i)(xs)(st)+c_zipGuards_case_430 x6 x8 x9 x11 x14 x15 x17 x33 x38 x39 x42 x44 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_430")(x)++++c_zipGuards_case_429 x6 x8 x9 x11 x14 x15 x17 x33 x38 x39 x42 x44 x45 x46@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipGuards_case_428(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x33)(x38)(x39)(x44)(x45)(x42)(st)+c_zipGuards_case_429 x6 x8 x9 x11 x14 x15 x17 x33 x38 x39 x42 x44 x45 x46@((Curry.Module.Prelude.:<) x49 x50) st = Curry.Module.Prelude.c_error((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('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('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('g'))((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('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('d'))((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('h'))((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('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('d'))((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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(st)+c_zipGuards_case_429 x6 x8 x9 x11 x14 x15 x17 x33 x38 x39 x42 x44 x45 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_429(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x33)(x38)(x39)(x42)(x44)(x45)(x)(st))(i)(xs)(st)+c_zipGuards_case_429 x6 x8 x9 x11 x14 x15 x17 x33 x38 x39 x42 x44 x45 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_429")(x)++++c_zipGuards_case_428 x6 x8 x9 x11 x14 x15 x17 x33 x38 x39 x44 x45 x42@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipGuards_case_427(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x33)(x38)(x39)(x44)(x45)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x39)(Curry.Module.Prelude.T2(Curry.Module.SrcRef.c_prelude(st))((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('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))(st))(Curry.Module.Prelude.op_61_61(x45)(Curry.Module.Prelude.T2(Curry.Module.SrcRef.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('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_zipGuards_case_428 x6 x8 x9 x11 x14 x15 x17 x33 x38 x39 x44 x45 x42@((Curry.Module.Prelude.:<) x47 x48) st = Curry.Module.Prelude.c_error((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('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('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('g'))((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('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('d'))((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('h'))((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('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('d'))((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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(st)+c_zipGuards_case_428 x6 x8 x9 x11 x14 x15 x17 x33 x38 x39 x44 x45 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_428(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x33)(x38)(x39)(x44)(x45)(x)(st))(i)(xs)(st)+c_zipGuards_case_428 x6 x8 x9 x11 x14 x15 x17 x33 x38 x39 x44 x45 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_428")(x)++++c_zipGuards_case_427 x6 x8 x9 x11 x14 x15 x17 x33 x38 x39 x44 x45 x46@Curry.Module.Prelude.C_True st = Curry.Module.SrcRef.op_36_94(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.SrcRef.op_36_94(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_43_43_43(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x33)(x8)(x15)))))(Curry.Module.SrcRef.op_36_94(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_43_43_43(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x38)(x9)(x17)))))(Curry.Module.SrcRef.op_36_94(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(Curry.Module.Prelude.List))))(Curry.Module.SrcRef.c_zipGuards(x14)(x6)(x44)(x11)(st))(st))(st))(st))(st))(st))(st)+c_zipGuards_case_427 x6 x8 x9 x11 x14 x15 x17 x33 x38 x39 x44 x45 x46@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('g'))((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('t'))((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('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('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('B'))((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('l'))((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('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('u'))((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('d'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))(st)+c_zipGuards_case_427 x6 x8 x9 x11 x14 x15 x17 x33 x38 x39 x44 x45 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_427(x6)(x8)(x9)(x11)(x14)(x15)(x17)(x33)(x38)(x39)(x44)(x45)(x)(st))(i)(xs)(st)+c_zipGuards_case_427 x6 x8 x9 x11 x14 x15 x17 x33 x38 x39 x44 x45 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_427")(x)++++c_zipGuards_case_442 x6 x8 x9 x14 x15 x17 x20 x21 x19@Curry.Module.FlatCurry.C_FuncCall st = Curry.Module.SrcRef.c_zipGuards_case_441(x6)(x8)(x9)(x14)(x15)(x17)(x21)(x20)(st)+c_zipGuards_case_442 x6 x8 x9 x14 x15 x17 x20 x21 x19@Curry.Module.FlatCurry.C_ConsCall st = Curry.Module.Prelude.c_error((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('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('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('g'))((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('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('d'))((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('h'))((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('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('d'))((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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(st)+c_zipGuards_case_442 x6 x8 x9 x14 x15 x17 x20 x21 x19@(Curry.Module.FlatCurry.C_FuncPartCall x30) st = Curry.Module.Prelude.c_error((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('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('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('g'))((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('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('d'))((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('h'))((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('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('d'))((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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(st)+c_zipGuards_case_442 x6 x8 x9 x14 x15 x17 x20 x21 x19@(Curry.Module.FlatCurry.C_ConsPartCall x31) st = Curry.Module.Prelude.c_error((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('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('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('g'))((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('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('d'))((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('h'))((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('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('d'))((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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(st)+c_zipGuards_case_442 x6 x8 x9 x14 x15 x17 x20 x21 (Curry.Module.FlatCurry.C_CombTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_442(x6)(x8)(x9)(x14)(x15)(x17)(x20)(x21)(x)(st))(i)(xs)(st)+c_zipGuards_case_442 x6 x8 x9 x14 x15 x17 x20 x21 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_442")(x)++++c_zipGuards_case_441 x6 x8 x9 x14 x15 x17 x21 x20@(Curry.Module.Prelude.T2 x22 x23) st = Curry.Module.SrcRef.c_zipGuards_case_440(x6)(x8)(x9)(x14)(x15)(x17)(x22)(x23)(x21)(st)+c_zipGuards_case_441 x6 x8 x9 x14 x15 x17 x21 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_441(x6)(x8)(x9)(x14)(x15)(x17)(x21)(x)(st))(i)(xs)(st)+c_zipGuards_case_441 x6 x8 x9 x14 x15 x17 x21 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_441")(x)++++c_zipGuards_case_440 x6 x8 x9 x14 x15 x17 x22 x23 x21@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.SrcRef.c_zipGuards_case_439(x6)(x8)(x9)(x14)(x15)(x17)(x22)(x23)(x24)(x25)(st)+c_zipGuards_case_440 x6 x8 x9 x14 x15 x17 x22 x23 x21@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((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('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('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('g'))((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('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('d'))((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('h'))((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('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('d'))((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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(st)+c_zipGuards_case_440 x6 x8 x9 x14 x15 x17 x22 x23 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_440(x6)(x8)(x9)(x14)(x15)(x17)(x22)(x23)(x)(st))(i)(xs)(st)+c_zipGuards_case_440 x6 x8 x9 x14 x15 x17 x22 x23 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_440")(x)++++c_zipGuards_case_439 x6 x8 x9 x14 x15 x17 x22 x23 x24 x25@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.SrcRef.c_zipGuards_case_438(x6)(x8)(x9)(x14)(x15)(x17)(x22)(x23)(x24)(x26)(x27)(st)+c_zipGuards_case_439 x6 x8 x9 x14 x15 x17 x22 x23 x24 x25@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((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('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('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('g'))((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('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('d'))((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('h'))((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('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('d'))((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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(st)+c_zipGuards_case_439 x6 x8 x9 x14 x15 x17 x22 x23 x24 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_439(x6)(x8)(x9)(x14)(x15)(x17)(x22)(x23)(x24)(x)(st))(i)(xs)(st)+c_zipGuards_case_439 x6 x8 x9 x14 x15 x17 x22 x23 x24 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_439")(x)++++c_zipGuards_case_438 x6 x8 x9 x14 x15 x17 x22 x23 x24 x26 x27@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipGuards_case_437(x6)(x8)(x9)(x14)(x15)(x17)(x22)(x23)(x24)(x26)(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x22)(Curry.Module.SrcRef.c_prelude(st))(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.op_61_61(x23)((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.c_null(x6)(st))(st))(st))(st)+c_zipGuards_case_438 x6 x8 x9 x14 x15 x17 x22 x23 x24 x26 x27@((Curry.Module.Prelude.:<) x28 x29) st = Curry.Module.Prelude.c_error((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('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('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('g'))((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('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('d'))((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('h'))((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('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('d'))((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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(st)+c_zipGuards_case_438 x6 x8 x9 x14 x15 x17 x22 x23 x24 x26 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_438(x6)(x8)(x9)(x14)(x15)(x17)(x22)(x23)(x24)(x26)(x)(st))(i)(xs)(st)+c_zipGuards_case_438 x6 x8 x9 x14 x15 x17 x22 x23 x24 x26 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_438")(x)++++c_zipGuards_case_437 x6 x8 x9 x14 x15 x17 x22 x23 x24 x26 x27@Curry.Module.Prelude.C_True st = Curry.Module.SrcRef.op_36_94(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.SrcRef.op_36_94(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.op_43_43_43(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x24)(x8)(x15)))(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x26)(x9)(x17)))))(st))(st)+c_zipGuards_case_437 x6 x8 x9 x14 x15 x17 x22 x23 x24 x26 x27@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('g'))((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('t'))((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('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('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('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('d'))((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('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('g'))((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('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(st)+c_zipGuards_case_437 x6 x8 x9 x14 x15 x17 x22 x23 x24 x26 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_437(x6)(x8)(x9)(x14)(x15)(x17)(x22)(x23)(x24)(x26)(x)(st))(i)(xs)(st)+c_zipGuards_case_437 x6 x8 x9 x14 x15 x17 x22 x23 x24 x26 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_437")(x)++++c_zipGuards_case_453 x1 x3 x4@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipGuards_case_452(x1)(x3)(Curry.Module.Prelude.op_61_61(x3)(Curry.Module.FlatCurry.C_Comb(Curry.Module.FlatCurry.C_FuncCall)(Curry.Module.Prelude.T2(Curry.Module.SrcRef.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('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))(Curry.Module.Prelude.List))))))))(Curry.Module.Prelude.List))(st))(st)+c_zipGuards_case_453 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_453(x1)(x3)(x)(st))(i)(xs)(st)+c_zipGuards_case_453 x1 x3 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_453")(x)++++c_zipGuards_case_452 x1 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zir((Curry.Module.Prelude.:<)(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))(Curry.Module.Prelude.List))(Curry.Module.Prelude.List)))+c_zipGuards_case_452 x1 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.SrcRef.c_zipGuards_case_451(Curry.Module.Prelude.c_otherwise(st))(st)+c_zipGuards_case_452 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_452(x1)(x3)(x)(st))(i)(xs)(st)+c_zipGuards_case_452 x1 x3 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_452")(x)++++c_zipGuards_case_451 x1@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((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('r'))((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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((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('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))(Curry.Module.Prelude.List)))))))))))))))(st)+c_zipGuards_case_451 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipGuards_case_451(x)(st))(i)(xs)(st)+c_zipGuards_case_451 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipGuards_case_451")(x)++++c_zipRhs_case_458 x1 x3 x22 x23@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipRhs_case_457(x1)(x22)(x3)(st)+c_zipRhs_case_458 x1 x3 x22 x23@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.SrcRef.c_zipRhs_case_456(x3)(x22)(x23)(x1)(st)+c_zipRhs_case_458 x1 x3 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipRhs_case_458(x1)(x3)(x22)(x)(st))(i)(xs)(st)+c_zipRhs_case_458 x1 x3 x22 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipRhs_case_458")(x)++++c_zipRhs_case_456 x3 x22 x23 x1@(Curry.Module.FlatCurry.C_Let x28 x29) st = Curry.Module.SrcRef.c_zipRhs_case_455(x22)(x23)(x28)(x29)(x3)(st)+c_zipRhs_case_456 x3 x22 x23 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipRhs_case_456(x3)(x22)(x23)(x)(st))(i)(xs)(st)+c_zipRhs_case_456 x3 x22 x23 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipRhs_case_456")(x)++++c_zipRhs_case_455 x22 x23 x28 x29 x3@(Curry.Module.SrcRef.C_Tree x30 x31) st = Curry.Module.SrcRef.c_zipRhs_case_454(x22)(x23)(x28)(x29)(x31)(x30)(st)+c_zipRhs_case_455 x22 x23 x28 x29 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipRhs_case_455(x22)(x23)(x28)(x29)(x)(st))(i)(xs)(st)+c_zipRhs_case_455 x22 x23 x28 x29 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipRhs_case_455")(x)++++c_zipRhs_case_454 x22 x23 x28 x29 x31 x30@(Curry.Module.Prelude.C_Just x32) st = let {x33 = Curry.Module.Prelude.c_splitAt(Curry.Module.Prelude.c_length(x22)(st))(x31)(st)} in Curry.Module.SrcRef.op_36_94(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.SrcRef.op_36_94(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x32)(Curry.Module.Prelude.List))))(Curry.Module.SrcRef.c_zipBinds'39(Curry.Module.Prelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Prelude.c_const))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_zipGuards(Curry.Module.SrcRef.c_guardErr(st))(x22)))(st))(x28)(x29)(x23)(Curry.Module.Prelude.op_43_43(Curry.Module.SrcRef.c_zipRhs'46_'35selFP10'35tlocs(x33)(st))(Curry.Module.SrcRef.c_zipRhs'46_'35selFP9'35tgrs(x33)(st))(st))(st))(st))(st)+c_zipRhs_case_454 x22 x23 x28 x29 x31 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipRhs_case_454(x22)(x23)(x28)(x29)(x31)(x)(st))(i)(xs)(st)+c_zipRhs_case_454 x22 x23 x28 x29 x31 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipRhs_case_454")(x)++++c_zipRhs_case_457 x1 x22 x3@(Curry.Module.SrcRef.C_Tree x24 x25) st = Curry.Module.SrcRef.c_zipGuards(Curry.Module.SrcRef.c_guardErr(st))(x22)(x1)(x25)(st)+c_zipRhs_case_457 x1 x22 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipRhs_case_457(x1)(x22)(x)(st))(i)(xs)(st)+c_zipRhs_case_457 x1 x22 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipRhs_case_457")(x)++++c_zipRhs_case_466 x1 x3 x5 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.SrcRef.c_zipRhs_case_465(x3)(x5)(x6)(x1)(st)+c_zipRhs_case_466 x1 x3 x5 x6@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_zipRhs_case_461(x1)(x5)(x3)(st)+c_zipRhs_case_466 x1 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipRhs_case_466(x1)(x3)(x5)(x)(st))(i)(xs)(st)+c_zipRhs_case_466 x1 x3 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipRhs_case_466")(x)++++c_zipRhs_case_461 x1 x5 x3@(Curry.Module.SrcRef.C_Tree x16 x17) st = Curry.Module.SrcRef.c_zipRhs_case_460(x1)(x5)(x17)(st)+c_zipRhs_case_461 x1 x5 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipRhs_case_461(x1)(x5)(x)(st))(i)(xs)(st)+c_zipRhs_case_461 x1 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipRhs_case_461")(x)++++c_zipRhs_case_460 x1 x5 x17@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.SrcRef.c_zipRhs_case_459(x1)(x5)(x17)(x18)(x19)(st)+c_zipRhs_case_460 x1 x5 x17@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('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('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('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('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('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('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('h'))((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('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('d'))((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('i'))((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.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x17)(st))(st))(st)+c_zipRhs_case_460 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipRhs_case_460(x1)(x5)(x)(st))(i)(xs)(st)+c_zipRhs_case_460 x1 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipRhs_case_460")(x)++++c_zipRhs_case_459 x1 x5 x17 x18 x19@Curry.Module.Prelude.List st = Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipExp(x1)(x5)(x18))+c_zipRhs_case_459 x1 x5 x17 x18 x19@((Curry.Module.Prelude.:<) x20 x21) 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('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('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('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('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('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('h'))((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('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('d'))((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('i'))((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.List))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.c_show(x17)(st))(st))(st)+c_zipRhs_case_459 x1 x5 x17 x18 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipRhs_case_459(x1)(x5)(x17)(x18)(x)(st))(i)(xs)(st)+c_zipRhs_case_459 x1 x5 x17 x18 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipRhs_case_459")(x)++++c_zipRhs_case_465 x3 x5 x6 x1@(Curry.Module.FlatCurry.C_Let x9 x10) st = Curry.Module.SrcRef.c_zipRhs_case_464(x5)(x6)(x9)(x10)(x3)(st)+c_zipRhs_case_465 x3 x5 x6 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipRhs_case_465(x3)(x5)(x6)(x)(st))(i)(xs)(st)+c_zipRhs_case_465 x3 x5 x6 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipRhs_case_465")(x)++++c_zipRhs_case_464 x5 x6 x9 x10 x3@(Curry.Module.SrcRef.C_Tree x11 x12) st = Curry.Module.SrcRef.c_zipRhs_case_463(x5)(x6)(x9)(x10)(x12)(x11)(st)+c_zipRhs_case_464 x5 x6 x9 x10 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipRhs_case_464(x5)(x6)(x9)(x10)(x)(st))(i)(xs)(st)+c_zipRhs_case_464 x5 x6 x9 x10 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipRhs_case_464")(x)++++c_zipRhs_case_463 x5 x6 x9 x10 x12 x11@(Curry.Module.Prelude.C_Just x13) st = Curry.Module.SrcRef.c_zipRhs_case_462(x5)(x6)(x9)(x10)(x13)(x12)(st)+c_zipRhs_case_463 x5 x6 x9 x10 x12 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipRhs_case_463(x5)(x6)(x9)(x10)(x12)(x)(st))(i)(xs)(st)+c_zipRhs_case_463 x5 x6 x9 x10 x12 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipRhs_case_463")(x)++++c_zipRhs_case_462 x5 x6 x9 x10 x13 x12@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.SrcRef.op_36_94(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.SrcRef.op_36_94(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_zipBinds(x9)(x10)(x6)(x5)(st))(Curry.Module.Prelude.op_43_43(x15)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_zipRhs_case_462 x5 x6 x9 x10 x13 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipRhs_case_462(x5)(x6)(x9)(x10)(x13)(x)(st))(i)(xs)(st)+c_zipRhs_case_462 x5 x6 x9 x10 x13 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipRhs_case_462")(x)++++c_zipBranches'46zipper'46829'46modPrt'46841_case_475 x1 x4 x3@(Curry.Module.Prelude.T2 x5 x6) st = Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46modPrt'46841_case_474(x1)(x4)(x5)(x6)(st)+c_zipBranches'46zipper'46829'46modPrt'46841_case_475 x1 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46modPrt'46841_case_475(x1)(x4)(x)(st))(i)(xs)(st)+c_zipBranches'46zipper'46829'46modPrt'46841_case_475 x1 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBranches.zipper.829.modPrt.841_case_475")(x)++++c_zipBranches'46zipper'46829'46modPrt'46841_case_474 x1 x4 x5 x6@(Curry.Module.SrcRef.C_Tree x7 x8) st = Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46modPrt'46841_case_473(x1)(x5)(x8)(x4)(st)+c_zipBranches'46zipper'46829'46modPrt'46841_case_474 x1 x4 x5 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46modPrt'46841_case_474(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c_zipBranches'46zipper'46829'46modPrt'46841_case_474 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBranches.zipper.829.modPrt.841_case_474")(x)++++c_zipBranches'46zipper'46829'46modPrt'46841_case_473 x1 x5 x8 x4@(Curry.Module.Prelude.T2 x9 x10) st = Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46modPrt'46841_case_472(x1)(x5)(x8)(x9)(x10)(Curry.Module.Prelude.c_splitAt(x1)(x5)(st))(st)+c_zipBranches'46zipper'46829'46modPrt'46841_case_473 x1 x5 x8 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46modPrt'46841_case_473(x1)(x5)(x8)(x)(st))(i)(xs)(st)+c_zipBranches'46zipper'46829'46modPrt'46841_case_473 x1 x5 x8 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBranches.zipper.829.modPrt.841_case_473")(x)++++c_zipBranches'46zipper'46829'46modPrt'46841_case_472 x1 x5 x8 x9 x10 (Curry.Module.Prelude.T2 x11 x12) st = Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46modPrt'46841_case_471(x1)(x8)(x9)(x10)(x11)(x12)(st)+c_zipBranches'46zipper'46829'46modPrt'46841_case_472 x1 x5 x8 x9 x10 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46modPrt'46841_case_472(x1)(x5)(x8)(x9)(x10)(x)(st))(i)(xs)(st)+c_zipBranches'46zipper'46829'46modPrt'46841_case_472 x1 x5 x8 x9 x10 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBranches.zipper.829.modPrt.841_case_472")(x)++++c_zipBranches'46zipper'46829'46modPrt'46841_case_471 x1 x8 x9 x10 x11 x12@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46modPrt'46841_case_470(x1)(x8)(x9)(x10)(x11)(x13)(x14)(Curry.Module.Prelude.c_splitAt(x1)(x8)(st))(st)+c_zipBranches'46zipper'46829'46modPrt'46841_case_471 x1 x8 x9 x10 x11 x12@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('g'))((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('d'))((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.:<)(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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((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('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(st)+c_zipBranches'46zipper'46829'46modPrt'46841_case_471 x1 x8 x9 x10 x11 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46modPrt'46841_case_471(x1)(x8)(x9)(x10)(x11)(x)(st))(i)(xs)(st)+c_zipBranches'46zipper'46829'46modPrt'46841_case_471 x1 x8 x9 x10 x11 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBranches.zipper.829.modPrt.841_case_471")(x)++++c_zipBranches'46zipper'46829'46modPrt'46841_case_470 x1 x8 x9 x10 x11 x13 x14 (Curry.Module.Prelude.T2 x15 x16) st = Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46modPrt'46841_case_469(x9)(x10)(x11)(x13)(x14)(x15)(x16)(st)+c_zipBranches'46zipper'46829'46modPrt'46841_case_470 x1 x8 x9 x10 x11 x13 x14 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46modPrt'46841_case_470(x1)(x8)(x9)(x10)(x11)(x13)(x14)(x)(st))(i)(xs)(st)+c_zipBranches'46zipper'46829'46modPrt'46841_case_470 x1 x8 x9 x10 x11 x13 x14 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBranches.zipper.829.modPrt.841_case_470")(x)++++c_zipBranches'46zipper'46829'46modPrt'46841_case_469 x9 x10 x11 x13 x14 x15 x16@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46modPrt'46841_case_468(x9)(x10)(x11)(x13)(x14)(x15)(x18)(x17)(st)+c_zipBranches'46zipper'46829'46modPrt'46841_case_469 x9 x10 x11 x13 x14 x15 x16@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('g'))((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('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.:<)(Curry.Module.Prelude.C_Char('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((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('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))))))))))))))))))))))(st)+c_zipBranches'46zipper'46829'46modPrt'46841_case_469 x9 x10 x11 x13 x14 x15 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46modPrt'46841_case_469(x9)(x10)(x11)(x13)(x14)(x15)(x)(st))(i)(xs)(st)+c_zipBranches'46zipper'46829'46modPrt'46841_case_469 x9 x10 x11 x13 x14 x15 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBranches.zipper.829.modPrt.841_case_469")(x)++++c_zipBranches'46zipper'46829'46modPrt'46841_case_468 x9 x10 x11 x13 x14 x15 x18 x17@(Curry.Module.SrcRef.C_Tree x19 x20) st = Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46modPrt'46841_case_467(x9)(x10)(x11)(x13)(x14)(x15)(x18)(x20)(x19)(st)+c_zipBranches'46zipper'46829'46modPrt'46841_case_468 x9 x10 x11 x13 x14 x15 x18 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46modPrt'46841_case_468(x9)(x10)(x11)(x13)(x14)(x15)(x18)(x)(st))(i)(xs)(st)+c_zipBranches'46zipper'46829'46modPrt'46841_case_468 x9 x10 x11 x13 x14 x15 x18 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBranches.zipper.829.modPrt.841_case_468")(x)++++c_zipBranches'46zipper'46829'46modPrt'46841_case_467 x9 x10 x11 x13 x14 x15 x18 x20 x19@(Curry.Module.Prelude.C_Just x21) st = Curry.Module.Prelude.T2(x21)(Curry.Module.Prelude.T2(Curry.Module.Prelude.T2(Curry.Module.Prelude.op_43_43(x11)(Curry.Module.Prelude.op_43_43(Curry.Module.SrcRef.c_conArgs(x13)(st))(x14)(st))(st))(Curry.Module.SrcRef.C_Tree(Curry.Module.Prelude.C_Nothing)(Curry.Module.Prelude.op_43_43(x15)(Curry.Module.Prelude.op_43_43(x20)(x18)(st))(st))))(Curry.Module.Prelude.T2(x9)(x10)))+c_zipBranches'46zipper'46829'46modPrt'46841_case_467 x9 x10 x11 x13 x14 x15 x18 x20 x19@Curry.Module.Prelude.C_Nothing st = Curry.Module.Prelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((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('g'))((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('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.:<)(Curry.Module.Prelude.C_Char('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((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('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))))))))))))))))))))))(st)+c_zipBranches'46zipper'46829'46modPrt'46841_case_467 x9 x10 x11 x13 x14 x15 x18 x20 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBranches'46zipper'46829'46modPrt'46841_case_467(x9)(x10)(x11)(x13)(x14)(x15)(x18)(x20)(x)(st))(i)(xs)(st)+c_zipBranches'46zipper'46829'46modPrt'46841_case_467 x9 x10 x11 x13 x14 x15 x18 x20 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBranches.zipper.829.modPrt.841_case_467")(x)++++c_zipBranches'46zipper'46829_case_476 x6@(Curry.Module.FlatCurry.C_Pattern x12 x13) st = x13+c_zipBranches'46zipper'46829_case_476 x6@(Curry.Module.FlatCurry.C_LPattern x14) st = Curry.Module.Prelude.List+c_zipBranches'46zipper'46829_case_476 (Curry.Module.FlatCurry.C_PatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBranches'46zipper'46829_case_476(x)(st))(i)(xs)(st)+c_zipBranches'46zipper'46829_case_476 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBranches.zipper.829_case_476")(x)++++c_zipBranches'46zipWith'39'46829_case_477 x1 x2 x3 x5 x6 x4@((Curry.Module.Prelude.:<) x7 x8) st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x2)(x5)(st))(x7)(st))(Curry.Module.SrcRef.c_zipBranches'46zipWith'39'46829(x1)(x2)(x6)(x8)(st))+c_zipBranches'46zipWith'39'46829_case_477 x1 x2 x3 x5 x6 x4@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_zipBranches'46allRef'46829(x1)))(x3)(st)+c_zipBranches'46zipWith'39'46829_case_477 x1 x2 x3 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBranches'46zipWith'39'46829_case_477(x1)(x2)(x3)(x5)(x6)(x)(st))(i)(xs)(st)+c_zipBranches'46zipWith'39'46829_case_477 x1 x2 x3 x5 x6 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBranches.zipWith'.829_case_477")(x)++++c_zipBranches'46zipWith'39'46829_case_478 x4@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_zipBranches'46zipWith'39'46829_case_478 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBranches'46zipWith'39'46829_case_478(x)(st))(i)(xs)(st)+c_zipBranches'46zipWith'39'46829_case_478 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBranches.zipWith'.829_case_478")(x)++++c_conArgs_case_479 x17@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_conArgs_case_479 x17@((Curry.Module.Prelude.:<) x18 x19) st = (Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(Curry.Module.CurrySyntax.C_ListPattern(x19))(Curry.Module.Prelude.List))+c_conArgs_case_479 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_conArgs_case_479(x)(st))(i)(xs)(st)+c_conArgs_case_479 x st = Curry.RunTimeSystem.patternFail("SrcRef.conArgs_case_479")(x)++++c_conArgs_case_481 x7@(Curry.Module.CurrySyntax.C_String x8) st = Curry.Module.SrcRef.c_conArgs_case_480(x8)(st)+c_conArgs_case_481 x7@(Curry.Module.CurrySyntax.C_Char x11) st = Curry.Module.Prelude.List+c_conArgs_case_481 x7@(Curry.Module.CurrySyntax.C_Int x12 x13) st = Curry.Module.Prelude.List+c_conArgs_case_481 x7@(Curry.Module.CurrySyntax.C_Float x14) st = Curry.Module.Prelude.List+c_conArgs_case_481 (Curry.Module.CurrySyntax.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_conArgs_case_481(x)(st))(i)(xs)(st)+c_conArgs_case_481 x st = Curry.RunTimeSystem.patternFail("SrcRef.conArgs_case_481")(x)++++c_conArgs_case_480 x8@Curry.Module.Prelude.List st = Curry.Module.Prelude.List+c_conArgs_case_480 x8@((Curry.Module.Prelude.:<) x9 x10) st = (Curry.Module.Prelude.:<)(Curry.Module.CurrySyntax.C_LiteralPattern(Curry.Module.CurrySyntax.C_Char(x9)))((Curry.Module.Prelude.:<)(Curry.Module.CurrySyntax.C_LiteralPattern(Curry.Module.CurrySyntax.C_String(x10)))(Curry.Module.Prelude.List))+c_conArgs_case_480 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_conArgs_case_480(x)(st))(i)(xs)(st)+c_conArgs_case_480 x st = Curry.RunTimeSystem.patternFail("SrcRef.conArgs_case_480")(x)++++c_identName_case_482 x6@(Curry.Module.CurrySyntax.C_Ident x7 x8) st = x7+c_identName_case_482 (Curry.Module.CurrySyntax.C_IdentOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_identName_case_482(x)(st))(i)(xs)(st)+c_identName_case_482 x st = Curry.RunTimeSystem.patternFail("SrcRef.identName_case_482")(x)++++c_identName_case_483 x2@(Curry.Module.CurrySyntax.C_Ident x3 x4) st = x3+c_identName_case_483 (Curry.Module.CurrySyntax.C_IdentOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_identName_case_483(x)(st))(i)(xs)(st)+c_identName_case_483 x st = Curry.RunTimeSystem.patternFail("SrcRef.identName_case_483")(x)++++c_flatConsName_case_484 x13@Curry.Module.Prelude.List st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))+c_flatConsName_case_484 x13@((Curry.Module.Prelude.:<) x14 x15) st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List)+c_flatConsName_case_484 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_flatConsName_case_484(x)(st))(i)(xs)(st)+c_flatConsName_case_484 x st = Curry.RunTimeSystem.patternFail("SrcRef.flatConsName_case_484")(x)++++c_flatConsName_case_486 x2@(Curry.Module.CurrySyntax.C_String x3) st = Curry.Module.SrcRef.c_flatConsName_case_485(x3)(st)+c_flatConsName_case_486 x2@(Curry.Module.CurrySyntax.C_Char x6) st = Curry.Module.Prelude.c_error((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.:<)(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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))))))))))(st)+c_flatConsName_case_486 x2@(Curry.Module.CurrySyntax.C_Int x7 x8) st = Curry.Module.Prelude.c_error((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.:<)(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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))))))))))(st)+c_flatConsName_case_486 x2@(Curry.Module.CurrySyntax.C_Float x9) st = Curry.Module.Prelude.c_error((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.:<)(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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))))))))))(st)+c_flatConsName_case_486 (Curry.Module.CurrySyntax.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_flatConsName_case_486(x)(st))(i)(xs)(st)+c_flatConsName_case_486 x st = Curry.RunTimeSystem.patternFail("SrcRef.flatConsName_case_486")(x)++++c_flatConsName_case_485 x3@Curry.Module.Prelude.List st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))+c_flatConsName_case_485 x3@((Curry.Module.Prelude.:<) x4 x5) st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List)+c_flatConsName_case_485 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_flatConsName_case_485(x)(st))(i)(xs)(st)+c_flatConsName_case_485 x st = Curry.RunTimeSystem.patternFail("SrcRef.flatConsName_case_485")(x)++++c_caseCascade'39'46grp'46697_case_491 x1 x3 x5 x4@(Curry.Module.Prelude.T2 x6 x7) st = Curry.Module.SrcRef.c_caseCascade'39'46grp'46697_case_490(x1)(x3)(x6)(x5)(st)+c_caseCascade'39'46grp'46697_case_491 x1 x3 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39'46grp'46697_case_491(x1)(x3)(x5)(x)(st))(i)(xs)(st)+c_caseCascade'39'46grp'46697_case_491 x1 x3 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'.grp.697_case_491")(x)++++c_caseCascade'39'46grp'46697_case_490 x1 x3 x6 x5@(Curry.Module.Prelude.T2 x8 x9) st = Curry.Module.SrcRef.c_caseCascade'39'46grp'46697_case_489(x1)(x6)(x3)(st)+c_caseCascade'39'46grp'46697_case_490 x1 x3 x6 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39'46grp'46697_case_490(x1)(x3)(x6)(x)(st))(i)(xs)(st)+c_caseCascade'39'46grp'46697_case_490 x1 x3 x6 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'.grp.697_case_490")(x)++++c_caseCascade'39'46grp'46697_case_489 x1 x6 x3@(Curry.Module.Prelude.T2 x10 x11) st = Curry.Module.SrcRef.c_caseCascade'39'46grp'46697_case_488(x1)(x6)(x11)(x10)(st)+c_caseCascade'39'46grp'46697_case_489 x1 x6 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39'46grp'46697_case_489(x1)(x6)(x)(st))(i)(xs)(st)+c_caseCascade'39'46grp'46697_case_489 x1 x6 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'.grp.697_case_489")(x)++++c_caseCascade'39'46grp'46697_case_488 x1 x6 x11 x10@(Curry.Module.Prelude.T2 x12 x13) st = Curry.Module.SrcRef.c_caseCascade'39'46grp'46697_case_487(x1)(x6)(x12)(x11)(st)+c_caseCascade'39'46grp'46697_case_488 x1 x6 x11 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39'46grp'46697_case_488(x1)(x6)(x11)(x)(st))(i)(xs)(st)+c_caseCascade'39'46grp'46697_case_488 x1 x6 x11 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'.grp.697_case_488")(x)++++c_caseCascade'39'46grp'46697_case_487 x1 x6 x12 x11@(Curry.Module.Prelude.T2 x14 x15) st = Curry.Module.Prelude.op_61_61(Curry.Module.SrcRef.c_flatConsName(Curry.Module.Prelude.op_33_33(x6)(x1)(st))(st))(Curry.Module.SrcRef.c_flatConsName(Curry.Module.Prelude.op_33_33(x12)(x1)(st))(st))(st)+c_caseCascade'39'46grp'46697_case_487 x1 x6 x12 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39'46grp'46697_case_487(x1)(x6)(x12)(x)(st))(i)(xs)(st)+c_caseCascade'39'46grp'46697_case_487 x1 x6 x12 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'.grp.697_case_487")(x)++++c_caseCascade'39'46srt'46697_case_496 x1 x2 x4 x6 x5@(Curry.Module.Prelude.T2 x7 x8) st = Curry.Module.SrcRef.c_caseCascade'39'46srt'46697_case_495(x1)(x2)(x4)(x7)(x6)(st)+c_caseCascade'39'46srt'46697_case_496 x1 x2 x4 x6 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39'46srt'46697_case_496(x1)(x2)(x4)(x6)(x)(st))(i)(xs)(st)+c_caseCascade'39'46srt'46697_case_496 x1 x2 x4 x6 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'.srt.697_case_496")(x)++++c_caseCascade'39'46srt'46697_case_495 x1 x2 x4 x7 x6@(Curry.Module.Prelude.T2 x9 x10) st = Curry.Module.SrcRef.c_caseCascade'39'46srt'46697_case_494(x1)(x2)(x7)(x4)(st)+c_caseCascade'39'46srt'46697_case_495 x1 x2 x4 x7 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39'46srt'46697_case_495(x1)(x2)(x4)(x7)(x)(st))(i)(xs)(st)+c_caseCascade'39'46srt'46697_case_495 x1 x2 x4 x7 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'.srt.697_case_495")(x)++++c_caseCascade'39'46srt'46697_case_494 x1 x2 x7 x4@(Curry.Module.Prelude.T2 x11 x12) st = Curry.Module.SrcRef.c_caseCascade'39'46srt'46697_case_493(x1)(x2)(x7)(x12)(x11)(st)+c_caseCascade'39'46srt'46697_case_494 x1 x2 x7 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39'46srt'46697_case_494(x1)(x2)(x7)(x)(st))(i)(xs)(st)+c_caseCascade'39'46srt'46697_case_494 x1 x2 x7 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'.srt.697_case_494")(x)++++c_caseCascade'39'46srt'46697_case_493 x1 x2 x7 x12 x11@(Curry.Module.Prelude.T2 x13 x14) st = Curry.Module.SrcRef.c_caseCascade'39'46srt'46697_case_492(x1)(x2)(x7)(x13)(x12)(st)+c_caseCascade'39'46srt'46697_case_493 x1 x2 x7 x12 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39'46srt'46697_case_493(x1)(x2)(x7)(x12)(x)(st))(i)(xs)(st)+c_caseCascade'39'46srt'46697_case_493 x1 x2 x7 x12 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'.srt.697_case_493")(x)++++c_caseCascade'39'46srt'46697_case_492 x1 x2 x7 x13 x12@(Curry.Module.Prelude.T2 x15 x16) st = let {x17 = Curry.Module.Prelude.c_map(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_snd))(Curry.Module.Prelude.op_46(Curry.Module.FlatCurryGoodies.c_patCons(st))(Curry.Module.FlatCurryGoodies.c_branchPattern(st))(st))(st))(x2)(st)} in Curry.Module.Prelude.op_60_61(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_caseCascade'39'46fidx'46697(Curry.Module.Prelude.op_33_33(x7)(x1)(st))(st))(x17)(st))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_caseCascade'39'46fidx'46697(Curry.Module.Prelude.op_33_33(x13)(x1)(st))(st))(x17)(st))(st)+c_caseCascade'39'46srt'46697_case_492 x1 x2 x7 x13 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39'46srt'46697_case_492(x1)(x2)(x7)(x13)(x)(st))(i)(xs)(st)+c_caseCascade'39'46srt'46697_case_492 x1 x2 x7 x13 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'.srt.697_case_492")(x)++++c_caseCascade'39_case_505 x4 x5@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.SrcRef.c_caseCascade'39_case_504(x4)(x8)(x7)(st)+c_caseCascade'39_case_505 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39_case_505(x4)(x)(st))(i)(xs)(st)+c_caseCascade'39_case_505 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'_case_505")(x)++++c_caseCascade'39_case_504 x4 x8 x7@(Curry.Module.Prelude.T2 x9 x10) st = Curry.Module.SrcRef.c_caseCascade'39_case_503(x4)(x8)(x10)(x9)(st)+c_caseCascade'39_case_504 x4 x8 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39_case_504(x4)(x8)(x)(st))(i)(xs)(st)+c_caseCascade'39_case_504 x4 x8 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'_case_504")(x)++++c_caseCascade'39_case_503 x4 x8 x10 x9@(Curry.Module.Prelude.T2 x11 x12) st = Curry.Module.SrcRef.c_caseCascade'39_case_502(x4)(x8)(x10)(x11)(x12)(st)+c_caseCascade'39_case_503 x4 x8 x10 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39_case_503(x4)(x8)(x10)(x)(st))(i)(xs)(st)+c_caseCascade'39_case_503 x4 x8 x10 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'_case_503")(x)++++c_caseCascade'39_case_502 x4 x8 x10 x11 x12@(Curry.Module.SrcRef.C_Tree x13 x14) st = Curry.Module.SrcRef.c_caseCascade'39_case_501(x4)(x8)(x10)(x11)(x12)(x13)(st)+c_caseCascade'39_case_502 x4 x8 x10 x11 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39_case_502(x4)(x8)(x10)(x11)(x)(st))(i)(xs)(st)+c_caseCascade'39_case_502 x4 x8 x10 x11 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'_case_502")(x)++++c_caseCascade'39_case_501 x4 x8 x10 x11 x12 x13@Curry.Module.Prelude.C_Nothing st = Curry.Module.SrcRef.c_caseCascade'39_case_500(x4)(x8)(x11)(x10)(st)+c_caseCascade'39_case_501 x4 x8 x10 x11 x12 x13@(Curry.Module.Prelude.C_Just x19) st = Curry.Module.SrcRef.c_caseCascade'39_case_497(x12)(x8)(st)+c_caseCascade'39_case_501 x4 x8 x10 x11 x12 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39_case_501(x4)(x8)(x10)(x11)(x12)(x)(st))(i)(xs)(st)+c_caseCascade'39_case_501 x4 x8 x10 x11 x12 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'_case_501")(x)++++c_caseCascade'39_case_497 x12 x8@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('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('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('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('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('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.:<)(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('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('c'))((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('e'))((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(x12)(st))(st))(st)+c_caseCascade'39_case_497 x12 x8@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.Prelude.c_error((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('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('h'))((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('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('d'))((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('i'))((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('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)+c_caseCascade'39_case_497 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39_case_497(x12)(x)(st))(i)(xs)(st)+c_caseCascade'39_case_497 x12 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'_case_497")(x)++++c_caseCascade'39_case_500 x4 x8 x11 x10@(Curry.Module.Prelude.T2 x15 x16) st = Curry.Module.SrcRef.c_caseCascade'39_case_499(x4)(x11)(x15)(x16)(x8)(st)+c_caseCascade'39_case_500 x4 x8 x11 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39_case_500(x4)(x8)(x11)(x)(st))(i)(xs)(st)+c_caseCascade'39_case_500 x4 x8 x11 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'_case_500")(x)++++c_caseCascade'39_case_499 x4 x11 x15 x16 x8@Curry.Module.Prelude.List st = Curry.Module.SrcRef.c_caseCascade'39_case_498(x4)(x11)(x15)(x16)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_all(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_isVarPat))(st))(x11)(st))(st)+c_caseCascade'39_case_499 x4 x11 x15 x16 x8@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.Prelude.c_error((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('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('h'))((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('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('d'))((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('i'))((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('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)+c_caseCascade'39_case_499 x4 x11 x15 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39_case_499(x4)(x11)(x15)(x16)(x)(st))(i)(xs)(st)+c_caseCascade'39_case_499 x4 x11 x15 x16 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'_case_499")(x)++++c_caseCascade'39_case_498 x4 x11 x15 x16 x17@Curry.Module.Prelude.C_True st = Curry.Module.SrcRef.c_zipRhs(x4)(x15)(x16)(st)+c_caseCascade'39_case_498 x4 x11 x15 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('n'))((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('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('i'))((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('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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((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('l'))((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('t'))((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(x11)(st))(st))(st)+c_caseCascade'39_case_498 x4 x11 x15 x16 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39_case_498(x4)(x11)(x15)(x16)(x)(st))(i)(xs)(st)+c_caseCascade'39_case_498 x4 x11 x15 x16 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'_case_498")(x)++++c_caseCascade'39_case_512 x1 x2 x3 x5 x6 x4@(Curry.Module.FlatCurry.C_Case x22 x23 x24) st = Curry.Module.SrcRef.c_caseCascade'39_case_511(x1)(x2)(x3)(x5)(x6)(x23)(x24)(x22)(st)+c_caseCascade'39_case_512 x1 x2 x3 x5 x6 x4@(Curry.Module.FlatCurry.C_Var x58) st = x6+c_caseCascade'39_case_512 x1 x2 x3 x5 x6 x4@(Curry.Module.FlatCurry.C_Lit x59) st = x6+c_caseCascade'39_case_512 x1 x2 x3 x5 x6 x4@(Curry.Module.FlatCurry.C_Comb x60 x61 x62) st = x6+c_caseCascade'39_case_512 x1 x2 x3 x5 x6 x4@(Curry.Module.FlatCurry.C_Let x63 x64) st = x6+c_caseCascade'39_case_512 x1 x2 x3 x5 x6 x4@(Curry.Module.FlatCurry.C_Free x65 x66) st = x6+c_caseCascade'39_case_512 x1 x2 x3 x5 x6 x4@(Curry.Module.FlatCurry.C_Or x67 x68) st = x6+c_caseCascade'39_case_512 x1 x2 x3 x5 x6 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39_case_512(x1)(x2)(x3)(x5)(x6)(x)(st))(i)(xs)(st)+c_caseCascade'39_case_512 x1 x2 x3 x5 x6 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'_case_512")(x)++++c_caseCascade'39_case_511 x1 x2 x3 x5 x6 x23 x24 x22@Curry.Module.FlatCurry.C_Flex st = Curry.Module.SrcRef.c_caseCascade'39_case_510(x1)(x3)(x5)(x6)(x24)(x23)(st)+c_caseCascade'39_case_511 x1 x2 x3 x5 x6 x23 x24 x22@Curry.Module.FlatCurry.C_Rigid st = Curry.Module.SrcRef.c_caseCascade'39_case_507(x1)(x2)(x3)(x5)(x6)(x24)(x23)(st)+c_caseCascade'39_case_511 x1 x2 x3 x5 x6 x23 x24 (Curry.Module.FlatCurry.C_CaseTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39_case_511(x1)(x2)(x3)(x5)(x6)(x23)(x24)(x)(st))(i)(xs)(st)+c_caseCascade'39_case_511 x1 x2 x3 x5 x6 x23 x24 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'_case_511")(x)++++c_caseCascade'39_case_507 x1 x2 x3 x5 x6 x24 x23@(Curry.Module.FlatCurry.C_Var x44) st = Curry.Module.SrcRef.c_caseCascade'39_case_506(x1)(x3)(x5)(x6)(x24)(x44)(x2)(st)+c_caseCascade'39_case_507 x1 x2 x3 x5 x6 x24 x23@(Curry.Module.FlatCurry.C_Lit x45) st = x6+c_caseCascade'39_case_507 x1 x2 x3 x5 x6 x24 x23@(Curry.Module.FlatCurry.C_Comb x46 x47 x48) st = x6+c_caseCascade'39_case_507 x1 x2 x3 x5 x6 x24 x23@(Curry.Module.FlatCurry.C_Let x49 x50) st = x6+c_caseCascade'39_case_507 x1 x2 x3 x5 x6 x24 x23@(Curry.Module.FlatCurry.C_Free x51 x52) st = x6+c_caseCascade'39_case_507 x1 x2 x3 x5 x6 x24 x23@(Curry.Module.FlatCurry.C_Or x53 x54) st = x6+c_caseCascade'39_case_507 x1 x2 x3 x5 x6 x24 x23@(Curry.Module.FlatCurry.C_Case x55 x56 x57) st = x6+c_caseCascade'39_case_507 x1 x2 x3 x5 x6 x24 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39_case_507(x1)(x2)(x3)(x5)(x6)(x24)(x)(st))(i)(xs)(st)+c_caseCascade'39_case_507 x1 x2 x3 x5 x6 x24 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'_case_507")(x)++++c_caseCascade'39_case_506 x1 x3 x5 x6 x24 x44 x2@Curry.Module.Prelude.C_True st = x6+c_caseCascade'39_case_506 x1 x3 x5 x6 x24 x44 x2@Curry.Module.Prelude.C_False st = Curry.Module.SrcRef.c_caseCascade'39(x1)(x2)(x3)(Curry.Module.FlatCurry.C_Case(Curry.Module.FlatCurry.C_Flex)(Curry.Module.FlatCurry.C_Var(x44))(x24))(x5)(st)+c_caseCascade'39_case_506 x1 x3 x5 x6 x24 x44 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39_case_506(x1)(x3)(x5)(x6)(x24)(x44)(x)(st))(i)(xs)(st)+c_caseCascade'39_case_506 x1 x3 x5 x6 x24 x44 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'_case_506")(x)++++c_caseCascade'39_case_510 x1 x3 x5 x6 x24 x23@(Curry.Module.FlatCurry.C_Var x25) st = Curry.Module.SrcRef.c_caseCascade'39_case_509(x1)(x3)(x5)(x24)(x25)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_break(Curry.Module.Prelude.pf(Curry.Module.Prelude.op_61_61(x25)))(st))(x3)(st))(st)+c_caseCascade'39_case_510 x1 x3 x5 x6 x24 x23@(Curry.Module.FlatCurry.C_Lit x31) st = x6+c_caseCascade'39_case_510 x1 x3 x5 x6 x24 x23@(Curry.Module.FlatCurry.C_Comb x32 x33 x34) st = x6+c_caseCascade'39_case_510 x1 x3 x5 x6 x24 x23@(Curry.Module.FlatCurry.C_Let x35 x36) st = x6+c_caseCascade'39_case_510 x1 x3 x5 x6 x24 x23@(Curry.Module.FlatCurry.C_Free x37 x38) st = x6+c_caseCascade'39_case_510 x1 x3 x5 x6 x24 x23@(Curry.Module.FlatCurry.C_Or x39 x40) st = x6+c_caseCascade'39_case_510 x1 x3 x5 x6 x24 x23@(Curry.Module.FlatCurry.C_Case x41 x42 x43) st = x6+c_caseCascade'39_case_510 x1 x3 x5 x6 x24 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39_case_510(x1)(x3)(x5)(x6)(x24)(x)(st))(i)(xs)(st)+c_caseCascade'39_case_510 x1 x3 x5 x6 x24 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'_case_510")(x)++++c_caseCascade'39_case_509 x1 x3 x5 x24 x25 (Curry.Module.Prelude.T2 x26 x27) st = Curry.Module.SrcRef.c_caseCascade'39_case_508(x1)(x5)(x24)(x26)(x27)(st)+c_caseCascade'39_case_509 x1 x3 x5 x24 x25 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39_case_509(x1)(x3)(x5)(x24)(x25)(x)(st))(i)(xs)(st)+c_caseCascade'39_case_509 x1 x3 x5 x24 x25 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'_case_509")(x)++++c_caseCascade'39_case_508 x1 x5 x24 x26 x27@((Curry.Module.Prelude.:<) x28 x29) st = let {x30 = Curry.Module.Prelude.c_length(x26)(st)} in Curry.Module.SrcRef.c_zipBranches(x1)(x30)(x26)(x29)(x24)(Curry.Module.List.c_groupBy(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_caseCascade'39'46grp'46697(x30)))(Curry.Module.Prelude.c_apply(Curry.Module.List.c_sortBy(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_caseCascade'39'46srt'46697(x30)(x24)))(st))(x5)(st))(st))(st)+c_caseCascade'39_case_508 x1 x5 x24 x26 x27@Curry.Module.Prelude.List st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_error))((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.:<)(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)+c_caseCascade'39_case_508 x1 x5 x24 x26 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_caseCascade'39_case_508(x1)(x5)(x24)(x26)(x)(st))(i)(xs)(st)+c_caseCascade'39_case_508 x1 x5 x24 x26 x st = Curry.RunTimeSystem.patternFail("SrcRef.caseCascade'_case_508")(x)++++c_zipBody'46patRhsTree'46679_case_516 x4 x5 x2@(Curry.Module.SrcRef.C_Tree x6 x7) st = Curry.Module.SrcRef.c_zipBody'46patRhsTree'46679_case_515(x4)(x5)(x7)(st)+c_zipBody'46patRhsTree'46679_case_516 x4 x5 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBody'46patRhsTree'46679_case_516(x4)(x5)(x)(st))(i)(xs)(st)+c_zipBody'46patRhsTree'46679_case_516 x4 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBody.patRhsTree.679_case_516")(x)++++c_zipBody'46patRhsTree'46679_case_515 x4 x5 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.SrcRef.c_zipBody'46patRhsTree'46679_case_514(x4)(x5)(x8)(x9)(st)+c_zipBody'46patRhsTree'46679_case_515 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBody'46patRhsTree'46679_case_515(x4)(x5)(x)(st))(i)(xs)(st)+c_zipBody'46patRhsTree'46679_case_515 x4 x5 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBody.patRhsTree.679_case_515")(x)++++c_zipBody'46patRhsTree'46679_case_514 x4 x5 x8 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.SrcRef.c_zipBody'46patRhsTree'46679_case_513(x4)(x5)(x8)(x10)(x11)(st)+c_zipBody'46patRhsTree'46679_case_514 x4 x5 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBody'46patRhsTree'46679_case_514(x4)(x5)(x8)(x)(st))(i)(xs)(st)+c_zipBody'46patRhsTree'46679_case_514 x4 x5 x8 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBody.patRhsTree.679_case_514")(x)++++c_zipBody'46patRhsTree'46679_case_513 x4 x5 x8 x10 x11@Curry.Module.Prelude.List st = Curry.Module.Prelude.T2(Curry.Module.Prelude.T2(Curry.Module.SrcRef.c_zipBody'46cterms'46679(x4)(st))(x8))(Curry.Module.Prelude.T2(x5)(x10))+c_zipBody'46patRhsTree'46679_case_513 x4 x5 x8 x10 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBody'46patRhsTree'46679_case_513(x4)(x5)(x8)(x10)(x)(st))(i)(xs)(st)+c_zipBody'46patRhsTree'46679_case_513 x4 x5 x8 x10 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBody.patRhsTree.679_case_513")(x)++++c_zipBody_case_519 x1 x4 x3@(Curry.Module.CurrySyntax.C_FunctionDecl x5 x6 x7) st = Curry.Module.SrcRef.c_zipBody_case_518(x1)(x7)(x4)(st)+c_zipBody_case_519 x1 x4 (Curry.Module.CurrySyntax.C_DeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBody_case_519(x1)(x4)(x)(st))(i)(xs)(st)+c_zipBody_case_519 x1 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBody_case_519")(x)++++c_zipBody_case_518 x1 x7 x4@(Curry.Module.SrcRef.C_Tree x8 x9) st = Curry.Module.SrcRef.c_zipBody_case_517(x1)(x7)(x9)(x8)(st)+c_zipBody_case_518 x1 x7 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBody_case_518(x1)(x7)(x)(st))(i)(xs)(st)+c_zipBody_case_518 x1 x7 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBody_case_518")(x)++++c_zipBody_case_517 x1 x7 x9 x8@(Curry.Module.Prelude.C_Just x10) st = Curry.Module.SrcRef.op_36_94(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_Tree((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_caseCascade(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcArgs(st))(x1)(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_funcBody(st))(x1)(st))(st))(Curry.Module.Prelude.c_zipWith(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_zipBody'46patRhsTree'46679))(x7)(x9)(st))(st))(st)+c_zipBody_case_517 x1 x7 x9 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_zipBody_case_517(x1)(x7)(x9)(x)(st))(i)(xs)(st)+c_zipBody_case_517 x1 x7 x9 x st = Curry.RunTimeSystem.patternFail("SrcRef.zipBody_case_517")(x)++++c_lookupTM_case_520 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.C_Left(Curry.Module.Prelude.c_snd(x2)(st))+c_lookupTM_case_520 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_Right(x2)+c_lookupTM_case_520 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_lookupTM_case_520(x1)(x2)(x)(st))(i)(xs)(st)+c_lookupTM_case_520 x1 x2 x st = Curry.RunTimeSystem.patternFail("SrcRef.lookupTM_case_520")(x)++++c_mkMap'46addDecl'46634_case_524 x1 x2 (Curry.Module.CurrySyntax.C_DataDecl x3 x4 x5 x6) st = Curry.Module.SrcRef.c_mkMap'46addDecl'46634_case_523(x1)(x2)(x4)(st)+c_mkMap'46addDecl'46634_case_524 x1 x2 x3@(Curry.Module.CurrySyntax.C_TypeDecl x9 x10 x11 x12) st = Curry.Module.SrcRef.c_mkMap'46addDecl'46634_case_522(x1)(x2)(x10)(st)+c_mkMap'46addDecl'46634_case_524 x1 x2 x3@(Curry.Module.CurrySyntax.C_FunctionDecl x15 x16 x17) st = Curry.Module.SrcRef.c_mkMap'46addDecl'46634_case_521(x1)(x2)(x16)(st)+c_mkMap'46addDecl'46634_case_524 x1 x2 x3@(Curry.Module.CurrySyntax.C_ImportDecl x20 x21 x22 x23 x24) st = x2+c_mkMap'46addDecl'46634_case_524 x1 x2 x3@(Curry.Module.CurrySyntax.C_InfixDecl x25 x26 x27 x28) st = x2+c_mkMap'46addDecl'46634_case_524 x1 x2 x3@(Curry.Module.CurrySyntax.C_NewtypeDecl x29 x30 x31 x32) st = x2+c_mkMap'46addDecl'46634_case_524 x1 x2 x3@(Curry.Module.CurrySyntax.C_TypeSig x33 x34 x35) st = x2+c_mkMap'46addDecl'46634_case_524 x1 x2 x3@(Curry.Module.CurrySyntax.C_EvalAnnot x36 x37 x38) st = x2+c_mkMap'46addDecl'46634_case_524 x1 x2 x3@(Curry.Module.CurrySyntax.C_ExternalDecl x39 x40 x41 x42 x43) st = x2+c_mkMap'46addDecl'46634_case_524 x1 x2 x3@(Curry.Module.CurrySyntax.C_FlatExternalDecl x44 x45) st = x2+c_mkMap'46addDecl'46634_case_524 x1 x2 x3@(Curry.Module.CurrySyntax.C_PatternDecl x46 x47 x48) st = x2+c_mkMap'46addDecl'46634_case_524 x1 x2 x3@(Curry.Module.CurrySyntax.C_ExtraVariables x49 x50) st = x2+c_mkMap'46addDecl'46634_case_524 x1 x2 (Curry.Module.CurrySyntax.C_DeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_mkMap'46addDecl'46634_case_524(x1)(x2)(x)(st))(i)(xs)(st)+c_mkMap'46addDecl'46634_case_524 x1 x2 x st = Curry.RunTimeSystem.patternFail("SrcRef.mkMap.addDecl.634_case_524")(x)++++c_mkMap'46addDecl'46634_case_521 x1 x2 x16@(Curry.Module.CurrySyntax.C_Ident x18 x19) st = Curry.Module.FiniteMap.c_addToFM(x2)(Curry.Module.Prelude.C_Left(x18))(x1)(st)+c_mkMap'46addDecl'46634_case_521 x1 x2 (Curry.Module.CurrySyntax.C_IdentOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_mkMap'46addDecl'46634_case_521(x1)(x2)(x)(st))(i)(xs)(st)+c_mkMap'46addDecl'46634_case_521 x1 x2 x st = Curry.RunTimeSystem.patternFail("SrcRef.mkMap.addDecl.634_case_521")(x)++++c_mkMap'46addDecl'46634_case_522 x1 x2 x10@(Curry.Module.CurrySyntax.C_Ident x13 x14) st = Curry.Module.FiniteMap.c_addToFM(x2)(Curry.Module.Prelude.C_Left(x13))(x1)(st)+c_mkMap'46addDecl'46634_case_522 x1 x2 (Curry.Module.CurrySyntax.C_IdentOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_mkMap'46addDecl'46634_case_522(x1)(x2)(x)(st))(i)(xs)(st)+c_mkMap'46addDecl'46634_case_522 x1 x2 x st = Curry.RunTimeSystem.patternFail("SrcRef.mkMap.addDecl.634_case_522")(x)++++c_mkMap'46addDecl'46634_case_523 x1 x2 x4@(Curry.Module.CurrySyntax.C_Ident x7 x8) st = Curry.Module.FiniteMap.c_addToFM(x2)(Curry.Module.Prelude.C_Left(x7))(x1)(st)+c_mkMap'46addDecl'46634_case_523 x1 x2 (Curry.Module.CurrySyntax.C_IdentOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_mkMap'46addDecl'46634_case_523(x1)(x2)(x)(st))(i)(xs)(st)+c_mkMap'46addDecl'46634_case_523 x1 x2 x st = Curry.RunTimeSystem.patternFail("SrcRef.mkMap.addDecl.634_case_523")(x)++++c_ltQN_case_526 x6 x2@(Curry.Module.Prelude.C_Left x7) st = Curry.Module.Prelude.C_False+c_ltQN_case_526 x6 x2@(Curry.Module.Prelude.C_Right x8) st = Curry.Module.SrcRef.c_ltQN_case_525(x6)(x8)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Sort.c_cmpString(st))(Curry.Module.Prelude.c_snd(x6)(st))(st))(Curry.Module.Prelude.c_snd(x8)(st))(st))(st)+c_ltQN_case_526 x6 (Curry.Module.Prelude.C_EitherOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_ltQN_case_526(x6)(x)(st))(i)(xs)(st)+c_ltQN_case_526 x6 x st = Curry.RunTimeSystem.patternFail("SrcRef.ltQN_case_526")(x)++++c_ltQN_case_525 x6 x8 x9@Curry.Module.Prelude.C_LT st = Curry.Module.Prelude.C_True+c_ltQN_case_525 x6 x8 x9@Curry.Module.Prelude.C_EQ st = Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Sort.c_cmpString(st))(Curry.Module.Prelude.c_fst(x6)(st))(st))(Curry.Module.Prelude.c_fst(x8)(st))(st))(Curry.Module.Prelude.C_LT)(st)+c_ltQN_case_525 x6 x8 x9@Curry.Module.Prelude.C_GT st = Curry.Module.Prelude.C_False+c_ltQN_case_525 x6 x8 (Curry.Module.Prelude.C_OrderingOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_ltQN_case_525(x6)(x8)(x)(st))(i)(xs)(st)+c_ltQN_case_525 x6 x8 x st = Curry.RunTimeSystem.patternFail("SrcRef.ltQN_case_525")(x)++++c_ltQN_case_527 x3 x2@(Curry.Module.Prelude.C_Left x4) st = Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Sort.c_cmpString(st))(x3)(st))(x4)(st))(Curry.Module.Prelude.C_LT)(st)+c_ltQN_case_527 x3 x2@(Curry.Module.Prelude.C_Right x5) st = Curry.Module.Prelude.C_True+c_ltQN_case_527 x3 (Curry.Module.Prelude.C_EitherOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_ltQN_case_527(x3)(x)(st))(i)(xs)(st)+c_ltQN_case_527 x3 x st = Curry.RunTimeSystem.patternFail("SrcRef.ltQN_case_527")(x)++++c_'46'62'62'61_case_528 x1 x2 x3 (Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x2)(x5)(st))(x4)(st)+c_'46'62'62'61_case_528 x1 x2 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_'46'62'62'61_case_528(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c_'46'62'62'61_case_528 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("SrcRef..>>=_case_528")(x)++++c_condAt_case_529 x1 x3 x4 x2@(Curry.Module.CurrySyntax.C_CondExpr x5 x6 x7) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcCond(x3)(x4)(x6)(x7))))(Curry.Module.SrcRef.c_expAt(x1)(x6)(st))))(Curry.Module.SrcRef.c_expAt(x1)(x7)(st)))+c_condAt_case_529 x1 x3 x4 (Curry.Module.CurrySyntax.C_CondExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_condAt_case_529(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c_condAt_case_529 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.condAt_case_529")(x)++++c_rhsAt_case_530 x1 x3 x4 x2@(Curry.Module.CurrySyntax.C_SimpleRhs x5 x6 x7) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcRhs(x3)(x4)(x2))))(Curry.Module.SrcRef.c_expAt(x1)(x6)(st))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_locsAt(st))(x7)(st)))+c_rhsAt_case_530 x1 x3 x4 x2@(Curry.Module.CurrySyntax.C_GuardedRhs x8 x9) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcRhs(x3)(x4)(x2))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_condsAt(x1)(st))(x8)(st))))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_locsAt(st))(x9)(st)))+c_rhsAt_case_530 x1 x3 x4 (Curry.Module.CurrySyntax.C_RhsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_rhsAt_case_530(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c_rhsAt_case_530 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.rhsAt_case_530")(x)++++c_conTermAt_case_545 x1 x3 x4 x2@(Curry.Module.CurrySyntax.C_ParenPattern x5) st = Curry.Module.SrcRef.c_conTermAt(x1)(x5)(st)+c_conTermAt_case_545 x1 x3 x4 x2@(Curry.Module.CurrySyntax.C_LiteralPattern x6) st = Curry.Module.SrcRef.c_conTermAt_case_544(x1)(x2)(x3)(x4)(x6)(st)+c_conTermAt_case_545 x1 x3 x4 x2@(Curry.Module.CurrySyntax.C_ListPattern x78) st = Curry.Module.SrcRef.c_listExpAt(Curry.Module.Prelude.pf(Curry.Module.SrcRef.c_conTermAt(x1)))(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.SrcRef.c_here))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_SrcConTerm(x3)(x4)))(Curry.Module.Prelude.pc(Curry.Module.CurrySyntax.C_ListPattern))(st))(st))(x78)(st)+c_conTermAt_case_545 x1 x3 x4 x2@(Curry.Module.CurrySyntax.C_NegativePattern x79 x80) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcConTerm(x3)(x4)(x2))))(Curry.Module.SrcRef.c_conTermAt_case_540(x1)(x2)(st)))+c_conTermAt_case_545 x1 x3 x4 x2@(Curry.Module.CurrySyntax.C_VariablePattern x103) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcConTerm(x3)(x4)(x2))))(Curry.Module.SrcRef.c_conTermAt_case_539(x1)(x2)(st)))+c_conTermAt_case_545 x1 x3 x4 x2@(Curry.Module.CurrySyntax.C_ConstructorPattern x126 x127) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcConTerm(x3)(x4)(x2))))(Curry.Module.SrcRef.c_conTermAt_case_538(x1)(x2)(st)))+c_conTermAt_case_545 x1 x3 x4 x2@(Curry.Module.CurrySyntax.C_InfixPattern x150 x151 x152) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcConTerm(x3)(x4)(x2))))(Curry.Module.SrcRef.c_conTermAt_case_537(x1)(x2)(st)))+c_conTermAt_case_545 x1 x3 x4 x2@(Curry.Module.CurrySyntax.C_TuplePattern x175) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcConTerm(x3)(x4)(x2))))(Curry.Module.SrcRef.c_conTermAt_case_536(x1)(x2)(st)))+c_conTermAt_case_545 x1 x3 x4 x2@(Curry.Module.CurrySyntax.C_AsPattern x198 x199) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcConTerm(x3)(x4)(x2))))(Curry.Module.SrcRef.c_conTermAt_case_535(x1)(x2)(st)))+c_conTermAt_case_545 x1 x3 x4 x2@(Curry.Module.CurrySyntax.C_LazyPattern x222) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcConTerm(x3)(x4)(x2))))(Curry.Module.SrcRef.c_conTermAt_case_534(x1)(x2)(st)))+c_conTermAt_case_545 x1 x3 x4 x2@(Curry.Module.CurrySyntax.C_FunctionPattern x245 x246) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcConTerm(x3)(x4)(x2))))(Curry.Module.SrcRef.c_conTermAt_case_533(x1)(x2)(st)))+c_conTermAt_case_545 x1 x3 x4 x2@(Curry.Module.CurrySyntax.C_InfixFuncPattern x269 x270 x271) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcConTerm(x3)(x4)(x2))))(Curry.Module.SrcRef.c_conTermAt_case_532(x1)(x2)(st)))+c_conTermAt_case_545 x1 x3 x4 x2@(Curry.Module.CurrySyntax.C_RecordPattern x294 x295) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcConTerm(x3)(x4)(x2))))(Curry.Module.SrcRef.c_conTermAt_case_531(x1)(x2)(st)))+c_conTermAt_case_545 x1 x3 x4 (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_conTermAt_case_545(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c_conTermAt_case_545 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.conTermAt_case_545")(x)++++c_conTermAt_case_531 x1 x2@(Curry.Module.CurrySyntax.C_ConstructorPattern x296 x297) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x297)(st)+c_conTermAt_case_531 x1 x2@(Curry.Module.CurrySyntax.C_InfixPattern x298 x299 x300) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x298)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x300)(st)))+c_conTermAt_case_531 x1 x2@(Curry.Module.CurrySyntax.C_TuplePattern x301) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x301)(st)+c_conTermAt_case_531 x1 x2@(Curry.Module.CurrySyntax.C_AsPattern x302 x303) st = Curry.Module.SrcRef.c_conTermAt(x1)(x303)(st)+c_conTermAt_case_531 x1 x2@(Curry.Module.CurrySyntax.C_LazyPattern x304) st = Curry.Module.SrcRef.c_conTermAt(x1)(x304)(st)+c_conTermAt_case_531 x1 x2@(Curry.Module.CurrySyntax.C_FunctionPattern x305 x306) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x306)(st)+c_conTermAt_case_531 x1 x2@(Curry.Module.CurrySyntax.C_InfixFuncPattern x307 x308 x309) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x307)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x309)(st)))+c_conTermAt_case_531 x1 x2@(Curry.Module.CurrySyntax.C_LiteralPattern x310) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_531 x1 x2@(Curry.Module.CurrySyntax.C_NegativePattern x311 x312) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_531 x1 x2@(Curry.Module.CurrySyntax.C_VariablePattern x313) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_531 x1 x2@(Curry.Module.CurrySyntax.C_ParenPattern x314) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_531 x1 x2@(Curry.Module.CurrySyntax.C_ListPattern x315) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_531 x1 x2@(Curry.Module.CurrySyntax.C_RecordPattern x316 x317) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_531 x1 (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_conTermAt_case_531(x1)(x)(st))(i)(xs)(st)+c_conTermAt_case_531 x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.conTermAt_case_531")(x)++++c_conTermAt_case_532 x1 x2@(Curry.Module.CurrySyntax.C_ConstructorPattern x272 x273) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x273)(st)+c_conTermAt_case_532 x1 x2@(Curry.Module.CurrySyntax.C_InfixPattern x274 x275 x276) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x274)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x276)(st)))+c_conTermAt_case_532 x1 x2@(Curry.Module.CurrySyntax.C_TuplePattern x277) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x277)(st)+c_conTermAt_case_532 x1 x2@(Curry.Module.CurrySyntax.C_AsPattern x278 x279) st = Curry.Module.SrcRef.c_conTermAt(x1)(x279)(st)+c_conTermAt_case_532 x1 x2@(Curry.Module.CurrySyntax.C_LazyPattern x280) st = Curry.Module.SrcRef.c_conTermAt(x1)(x280)(st)+c_conTermAt_case_532 x1 x2@(Curry.Module.CurrySyntax.C_FunctionPattern x281 x282) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x282)(st)+c_conTermAt_case_532 x1 x2@(Curry.Module.CurrySyntax.C_InfixFuncPattern x283 x284 x285) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x283)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x285)(st)))+c_conTermAt_case_532 x1 x2@(Curry.Module.CurrySyntax.C_LiteralPattern x286) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_532 x1 x2@(Curry.Module.CurrySyntax.C_NegativePattern x287 x288) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_532 x1 x2@(Curry.Module.CurrySyntax.C_VariablePattern x289) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_532 x1 x2@(Curry.Module.CurrySyntax.C_ParenPattern x290) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_532 x1 x2@(Curry.Module.CurrySyntax.C_ListPattern x291) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_532 x1 x2@(Curry.Module.CurrySyntax.C_RecordPattern x292 x293) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_532 x1 (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_conTermAt_case_532(x1)(x)(st))(i)(xs)(st)+c_conTermAt_case_532 x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.conTermAt_case_532")(x)++++c_conTermAt_case_533 x1 x2@(Curry.Module.CurrySyntax.C_ConstructorPattern x247 x248) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x248)(st)+c_conTermAt_case_533 x1 x2@(Curry.Module.CurrySyntax.C_InfixPattern x249 x250 x251) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x249)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x251)(st)))+c_conTermAt_case_533 x1 x2@(Curry.Module.CurrySyntax.C_TuplePattern x252) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x252)(st)+c_conTermAt_case_533 x1 x2@(Curry.Module.CurrySyntax.C_AsPattern x253 x254) st = Curry.Module.SrcRef.c_conTermAt(x1)(x254)(st)+c_conTermAt_case_533 x1 x2@(Curry.Module.CurrySyntax.C_LazyPattern x255) st = Curry.Module.SrcRef.c_conTermAt(x1)(x255)(st)+c_conTermAt_case_533 x1 x2@(Curry.Module.CurrySyntax.C_FunctionPattern x256 x257) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x257)(st)+c_conTermAt_case_533 x1 x2@(Curry.Module.CurrySyntax.C_InfixFuncPattern x258 x259 x260) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x258)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x260)(st)))+c_conTermAt_case_533 x1 x2@(Curry.Module.CurrySyntax.C_LiteralPattern x261) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_533 x1 x2@(Curry.Module.CurrySyntax.C_NegativePattern x262 x263) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_533 x1 x2@(Curry.Module.CurrySyntax.C_VariablePattern x264) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_533 x1 x2@(Curry.Module.CurrySyntax.C_ParenPattern x265) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_533 x1 x2@(Curry.Module.CurrySyntax.C_ListPattern x266) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_533 x1 x2@(Curry.Module.CurrySyntax.C_RecordPattern x267 x268) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_533 x1 (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_conTermAt_case_533(x1)(x)(st))(i)(xs)(st)+c_conTermAt_case_533 x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.conTermAt_case_533")(x)++++c_conTermAt_case_534 x1 x2@(Curry.Module.CurrySyntax.C_ConstructorPattern x223 x224) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x224)(st)+c_conTermAt_case_534 x1 x2@(Curry.Module.CurrySyntax.C_InfixPattern x225 x226 x227) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x225)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x227)(st)))+c_conTermAt_case_534 x1 x2@(Curry.Module.CurrySyntax.C_TuplePattern x228) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x228)(st)+c_conTermAt_case_534 x1 x2@(Curry.Module.CurrySyntax.C_AsPattern x229 x230) st = Curry.Module.SrcRef.c_conTermAt(x1)(x230)(st)+c_conTermAt_case_534 x1 x2@(Curry.Module.CurrySyntax.C_LazyPattern x231) st = Curry.Module.SrcRef.c_conTermAt(x1)(x231)(st)+c_conTermAt_case_534 x1 x2@(Curry.Module.CurrySyntax.C_FunctionPattern x232 x233) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x233)(st)+c_conTermAt_case_534 x1 x2@(Curry.Module.CurrySyntax.C_InfixFuncPattern x234 x235 x236) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x234)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x236)(st)))+c_conTermAt_case_534 x1 x2@(Curry.Module.CurrySyntax.C_LiteralPattern x237) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_534 x1 x2@(Curry.Module.CurrySyntax.C_NegativePattern x238 x239) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_534 x1 x2@(Curry.Module.CurrySyntax.C_VariablePattern x240) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_534 x1 x2@(Curry.Module.CurrySyntax.C_ParenPattern x241) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_534 x1 x2@(Curry.Module.CurrySyntax.C_ListPattern x242) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_534 x1 x2@(Curry.Module.CurrySyntax.C_RecordPattern x243 x244) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_534 x1 (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_conTermAt_case_534(x1)(x)(st))(i)(xs)(st)+c_conTermAt_case_534 x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.conTermAt_case_534")(x)++++c_conTermAt_case_535 x1 x2@(Curry.Module.CurrySyntax.C_ConstructorPattern x200 x201) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x201)(st)+c_conTermAt_case_535 x1 x2@(Curry.Module.CurrySyntax.C_InfixPattern x202 x203 x204) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x202)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x204)(st)))+c_conTermAt_case_535 x1 x2@(Curry.Module.CurrySyntax.C_TuplePattern x205) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x205)(st)+c_conTermAt_case_535 x1 x2@(Curry.Module.CurrySyntax.C_AsPattern x206 x207) st = Curry.Module.SrcRef.c_conTermAt(x1)(x207)(st)+c_conTermAt_case_535 x1 x2@(Curry.Module.CurrySyntax.C_LazyPattern x208) st = Curry.Module.SrcRef.c_conTermAt(x1)(x208)(st)+c_conTermAt_case_535 x1 x2@(Curry.Module.CurrySyntax.C_FunctionPattern x209 x210) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x210)(st)+c_conTermAt_case_535 x1 x2@(Curry.Module.CurrySyntax.C_InfixFuncPattern x211 x212 x213) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x211)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x213)(st)))+c_conTermAt_case_535 x1 x2@(Curry.Module.CurrySyntax.C_LiteralPattern x214) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_535 x1 x2@(Curry.Module.CurrySyntax.C_NegativePattern x215 x216) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_535 x1 x2@(Curry.Module.CurrySyntax.C_VariablePattern x217) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_535 x1 x2@(Curry.Module.CurrySyntax.C_ParenPattern x218) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_535 x1 x2@(Curry.Module.CurrySyntax.C_ListPattern x219) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_535 x1 x2@(Curry.Module.CurrySyntax.C_RecordPattern x220 x221) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_535 x1 (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_conTermAt_case_535(x1)(x)(st))(i)(xs)(st)+c_conTermAt_case_535 x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.conTermAt_case_535")(x)++++c_conTermAt_case_536 x1 x2@(Curry.Module.CurrySyntax.C_ConstructorPattern x176 x177) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x177)(st)+c_conTermAt_case_536 x1 x2@(Curry.Module.CurrySyntax.C_InfixPattern x178 x179 x180) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x178)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x180)(st)))+c_conTermAt_case_536 x1 x2@(Curry.Module.CurrySyntax.C_TuplePattern x181) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x181)(st)+c_conTermAt_case_536 x1 x2@(Curry.Module.CurrySyntax.C_AsPattern x182 x183) st = Curry.Module.SrcRef.c_conTermAt(x1)(x183)(st)+c_conTermAt_case_536 x1 x2@(Curry.Module.CurrySyntax.C_LazyPattern x184) st = Curry.Module.SrcRef.c_conTermAt(x1)(x184)(st)+c_conTermAt_case_536 x1 x2@(Curry.Module.CurrySyntax.C_FunctionPattern x185 x186) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x186)(st)+c_conTermAt_case_536 x1 x2@(Curry.Module.CurrySyntax.C_InfixFuncPattern x187 x188 x189) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x187)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x189)(st)))+c_conTermAt_case_536 x1 x2@(Curry.Module.CurrySyntax.C_LiteralPattern x190) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_536 x1 x2@(Curry.Module.CurrySyntax.C_NegativePattern x191 x192) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_536 x1 x2@(Curry.Module.CurrySyntax.C_VariablePattern x193) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_536 x1 x2@(Curry.Module.CurrySyntax.C_ParenPattern x194) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_536 x1 x2@(Curry.Module.CurrySyntax.C_ListPattern x195) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_536 x1 x2@(Curry.Module.CurrySyntax.C_RecordPattern x196 x197) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_536 x1 (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_conTermAt_case_536(x1)(x)(st))(i)(xs)(st)+c_conTermAt_case_536 x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.conTermAt_case_536")(x)++++c_conTermAt_case_537 x1 x2@(Curry.Module.CurrySyntax.C_ConstructorPattern x153 x154) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x154)(st)+c_conTermAt_case_537 x1 x2@(Curry.Module.CurrySyntax.C_InfixPattern x155 x156 x157) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x155)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x157)(st)))+c_conTermAt_case_537 x1 x2@(Curry.Module.CurrySyntax.C_TuplePattern x158) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x158)(st)+c_conTermAt_case_537 x1 x2@(Curry.Module.CurrySyntax.C_AsPattern x159 x160) st = Curry.Module.SrcRef.c_conTermAt(x1)(x160)(st)+c_conTermAt_case_537 x1 x2@(Curry.Module.CurrySyntax.C_LazyPattern x161) st = Curry.Module.SrcRef.c_conTermAt(x1)(x161)(st)+c_conTermAt_case_537 x1 x2@(Curry.Module.CurrySyntax.C_FunctionPattern x162 x163) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x163)(st)+c_conTermAt_case_537 x1 x2@(Curry.Module.CurrySyntax.C_InfixFuncPattern x164 x165 x166) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x164)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x166)(st)))+c_conTermAt_case_537 x1 x2@(Curry.Module.CurrySyntax.C_LiteralPattern x167) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_537 x1 x2@(Curry.Module.CurrySyntax.C_NegativePattern x168 x169) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_537 x1 x2@(Curry.Module.CurrySyntax.C_VariablePattern x170) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_537 x1 x2@(Curry.Module.CurrySyntax.C_ParenPattern x171) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_537 x1 x2@(Curry.Module.CurrySyntax.C_ListPattern x172) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_537 x1 x2@(Curry.Module.CurrySyntax.C_RecordPattern x173 x174) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_537 x1 (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_conTermAt_case_537(x1)(x)(st))(i)(xs)(st)+c_conTermAt_case_537 x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.conTermAt_case_537")(x)++++c_conTermAt_case_538 x1 x2@(Curry.Module.CurrySyntax.C_ConstructorPattern x128 x129) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x129)(st)+c_conTermAt_case_538 x1 x2@(Curry.Module.CurrySyntax.C_InfixPattern x130 x131 x132) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x130)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x132)(st)))+c_conTermAt_case_538 x1 x2@(Curry.Module.CurrySyntax.C_TuplePattern x133) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x133)(st)+c_conTermAt_case_538 x1 x2@(Curry.Module.CurrySyntax.C_AsPattern x134 x135) st = Curry.Module.SrcRef.c_conTermAt(x1)(x135)(st)+c_conTermAt_case_538 x1 x2@(Curry.Module.CurrySyntax.C_LazyPattern x136) st = Curry.Module.SrcRef.c_conTermAt(x1)(x136)(st)+c_conTermAt_case_538 x1 x2@(Curry.Module.CurrySyntax.C_FunctionPattern x137 x138) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x138)(st)+c_conTermAt_case_538 x1 x2@(Curry.Module.CurrySyntax.C_InfixFuncPattern x139 x140 x141) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x139)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x141)(st)))+c_conTermAt_case_538 x1 x2@(Curry.Module.CurrySyntax.C_LiteralPattern x142) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_538 x1 x2@(Curry.Module.CurrySyntax.C_NegativePattern x143 x144) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_538 x1 x2@(Curry.Module.CurrySyntax.C_VariablePattern x145) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_538 x1 x2@(Curry.Module.CurrySyntax.C_ParenPattern x146) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_538 x1 x2@(Curry.Module.CurrySyntax.C_ListPattern x147) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_538 x1 x2@(Curry.Module.CurrySyntax.C_RecordPattern x148 x149) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_538 x1 (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_conTermAt_case_538(x1)(x)(st))(i)(xs)(st)+c_conTermAt_case_538 x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.conTermAt_case_538")(x)++++c_conTermAt_case_539 x1 x2@(Curry.Module.CurrySyntax.C_ConstructorPattern x104 x105) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x105)(st)+c_conTermAt_case_539 x1 x2@(Curry.Module.CurrySyntax.C_InfixPattern x106 x107 x108) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x106)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x108)(st)))+c_conTermAt_case_539 x1 x2@(Curry.Module.CurrySyntax.C_TuplePattern x109) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x109)(st)+c_conTermAt_case_539 x1 x2@(Curry.Module.CurrySyntax.C_AsPattern x110 x111) st = Curry.Module.SrcRef.c_conTermAt(x1)(x111)(st)+c_conTermAt_case_539 x1 x2@(Curry.Module.CurrySyntax.C_LazyPattern x112) st = Curry.Module.SrcRef.c_conTermAt(x1)(x112)(st)+c_conTermAt_case_539 x1 x2@(Curry.Module.CurrySyntax.C_FunctionPattern x113 x114) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x114)(st)+c_conTermAt_case_539 x1 x2@(Curry.Module.CurrySyntax.C_InfixFuncPattern x115 x116 x117) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x115)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x117)(st)))+c_conTermAt_case_539 x1 x2@(Curry.Module.CurrySyntax.C_LiteralPattern x118) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_539 x1 x2@(Curry.Module.CurrySyntax.C_NegativePattern x119 x120) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_539 x1 x2@(Curry.Module.CurrySyntax.C_VariablePattern x121) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_539 x1 x2@(Curry.Module.CurrySyntax.C_ParenPattern x122) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_539 x1 x2@(Curry.Module.CurrySyntax.C_ListPattern x123) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_539 x1 x2@(Curry.Module.CurrySyntax.C_RecordPattern x124 x125) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_539 x1 (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_conTermAt_case_539(x1)(x)(st))(i)(xs)(st)+c_conTermAt_case_539 x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.conTermAt_case_539")(x)++++c_conTermAt_case_540 x1 x2@(Curry.Module.CurrySyntax.C_ConstructorPattern x81 x82) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x82)(st)+c_conTermAt_case_540 x1 x2@(Curry.Module.CurrySyntax.C_InfixPattern x83 x84 x85) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x83)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x85)(st)))+c_conTermAt_case_540 x1 x2@(Curry.Module.CurrySyntax.C_TuplePattern x86) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x86)(st)+c_conTermAt_case_540 x1 x2@(Curry.Module.CurrySyntax.C_AsPattern x87 x88) st = Curry.Module.SrcRef.c_conTermAt(x1)(x88)(st)+c_conTermAt_case_540 x1 x2@(Curry.Module.CurrySyntax.C_LazyPattern x89) st = Curry.Module.SrcRef.c_conTermAt(x1)(x89)(st)+c_conTermAt_case_540 x1 x2@(Curry.Module.CurrySyntax.C_FunctionPattern x90 x91) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x91)(st)+c_conTermAt_case_540 x1 x2@(Curry.Module.CurrySyntax.C_InfixFuncPattern x92 x93 x94) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x92)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x94)(st)))+c_conTermAt_case_540 x1 x2@(Curry.Module.CurrySyntax.C_LiteralPattern x95) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_540 x1 x2@(Curry.Module.CurrySyntax.C_NegativePattern x96 x97) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_540 x1 x2@(Curry.Module.CurrySyntax.C_VariablePattern x98) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_540 x1 x2@(Curry.Module.CurrySyntax.C_ParenPattern x99) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_540 x1 x2@(Curry.Module.CurrySyntax.C_ListPattern x100) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_540 x1 x2@(Curry.Module.CurrySyntax.C_RecordPattern x101 x102) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_540 x1 (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_conTermAt_case_540(x1)(x)(st))(i)(xs)(st)+c_conTermAt_case_540 x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.conTermAt_case_540")(x)++++c_conTermAt_case_544 x1 x2 x3 x4 x6@(Curry.Module.CurrySyntax.C_String x7) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_stringAt(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.SrcRef.C_SrcConTerm(x3)(x4)))(Curry.Module.Prelude.pc(Curry.Module.CurrySyntax.C_LiteralPattern))(st))(st))(x7)(st)+c_conTermAt_case_544 x1 x2 x3 x4 x6@(Curry.Module.CurrySyntax.C_Char x8) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcConTerm(x3)(x4)(x2))))(Curry.Module.SrcRef.c_conTermAt_case_543(x1)(x2)(st)))+c_conTermAt_case_544 x1 x2 x3 x4 x6@(Curry.Module.CurrySyntax.C_Int x31 x32) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcConTerm(x3)(x4)(x2))))(Curry.Module.SrcRef.c_conTermAt_case_542(x1)(x2)(st)))+c_conTermAt_case_544 x1 x2 x3 x4 x6@(Curry.Module.CurrySyntax.C_Float x55) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_here(Curry.Module.SrcRef.C_SrcConTerm(x3)(x4)(x2))))(Curry.Module.SrcRef.c_conTermAt_case_541(x1)(x2)(st)))+c_conTermAt_case_544 x1 x2 x3 x4 (Curry.Module.CurrySyntax.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_conTermAt_case_544(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_conTermAt_case_544 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("SrcRef.conTermAt_case_544")(x)++++c_conTermAt_case_541 x1 x2@(Curry.Module.CurrySyntax.C_ConstructorPattern x56 x57) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x57)(st)+c_conTermAt_case_541 x1 x2@(Curry.Module.CurrySyntax.C_InfixPattern x58 x59 x60) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x58)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x60)(st)))+c_conTermAt_case_541 x1 x2@(Curry.Module.CurrySyntax.C_TuplePattern x61) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x61)(st)+c_conTermAt_case_541 x1 x2@(Curry.Module.CurrySyntax.C_AsPattern x62 x63) st = Curry.Module.SrcRef.c_conTermAt(x1)(x63)(st)+c_conTermAt_case_541 x1 x2@(Curry.Module.CurrySyntax.C_LazyPattern x64) st = Curry.Module.SrcRef.c_conTermAt(x1)(x64)(st)+c_conTermAt_case_541 x1 x2@(Curry.Module.CurrySyntax.C_FunctionPattern x65 x66) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x66)(st)+c_conTermAt_case_541 x1 x2@(Curry.Module.CurrySyntax.C_InfixFuncPattern x67 x68 x69) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x67)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x69)(st)))+c_conTermAt_case_541 x1 x2@(Curry.Module.CurrySyntax.C_LiteralPattern x70) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_541 x1 x2@(Curry.Module.CurrySyntax.C_NegativePattern x71 x72) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_541 x1 x2@(Curry.Module.CurrySyntax.C_VariablePattern x73) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_541 x1 x2@(Curry.Module.CurrySyntax.C_ParenPattern x74) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_541 x1 x2@(Curry.Module.CurrySyntax.C_ListPattern x75) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_541 x1 x2@(Curry.Module.CurrySyntax.C_RecordPattern x76 x77) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_541 x1 (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_conTermAt_case_541(x1)(x)(st))(i)(xs)(st)+c_conTermAt_case_541 x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.conTermAt_case_541")(x)++++c_conTermAt_case_542 x1 x2@(Curry.Module.CurrySyntax.C_ConstructorPattern x33 x34) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x34)(st)+c_conTermAt_case_542 x1 x2@(Curry.Module.CurrySyntax.C_InfixPattern x35 x36 x37) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x35)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x37)(st)))+c_conTermAt_case_542 x1 x2@(Curry.Module.CurrySyntax.C_TuplePattern x38) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x38)(st)+c_conTermAt_case_542 x1 x2@(Curry.Module.CurrySyntax.C_AsPattern x39 x40) st = Curry.Module.SrcRef.c_conTermAt(x1)(x40)(st)+c_conTermAt_case_542 x1 x2@(Curry.Module.CurrySyntax.C_LazyPattern x41) st = Curry.Module.SrcRef.c_conTermAt(x1)(x41)(st)+c_conTermAt_case_542 x1 x2@(Curry.Module.CurrySyntax.C_FunctionPattern x42 x43) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x43)(st)+c_conTermAt_case_542 x1 x2@(Curry.Module.CurrySyntax.C_InfixFuncPattern x44 x45 x46) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x44)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x46)(st)))+c_conTermAt_case_542 x1 x2@(Curry.Module.CurrySyntax.C_LiteralPattern x47) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_542 x1 x2@(Curry.Module.CurrySyntax.C_NegativePattern x48 x49) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_542 x1 x2@(Curry.Module.CurrySyntax.C_VariablePattern x50) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_542 x1 x2@(Curry.Module.CurrySyntax.C_ParenPattern x51) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_542 x1 x2@(Curry.Module.CurrySyntax.C_ListPattern x52) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_542 x1 x2@(Curry.Module.CurrySyntax.C_RecordPattern x53 x54) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_542 x1 (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_conTermAt_case_542(x1)(x)(st))(i)(xs)(st)+c_conTermAt_case_542 x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.conTermAt_case_542")(x)++++c_conTermAt_case_543 x1 x2@(Curry.Module.CurrySyntax.C_ConstructorPattern x9 x10) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x10)(st)+c_conTermAt_case_543 x1 x2@(Curry.Module.CurrySyntax.C_InfixPattern x11 x12 x13) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x11)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x13)(st)))+c_conTermAt_case_543 x1 x2@(Curry.Module.CurrySyntax.C_TuplePattern x14) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x14)(st)+c_conTermAt_case_543 x1 x2@(Curry.Module.CurrySyntax.C_AsPattern x15 x16) st = Curry.Module.SrcRef.c_conTermAt(x1)(x16)(st)+c_conTermAt_case_543 x1 x2@(Curry.Module.CurrySyntax.C_LazyPattern x17) st = Curry.Module.SrcRef.c_conTermAt(x1)(x17)(st)+c_conTermAt_case_543 x1 x2@(Curry.Module.CurrySyntax.C_FunctionPattern x18 x19) st = Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_conTermsAt(x1)(st))(x19)(st)+c_conTermAt_case_543 x1 x2@(Curry.Module.CurrySyntax.C_InfixFuncPattern x20 x21 x22) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.op_46_42(Curry.Module.SrcRef.c_conTermAt(x1)(x20)(st))(Curry.Module.SrcRef.c_conTermAt(x1)(x22)(st)))+c_conTermAt_case_543 x1 x2@(Curry.Module.CurrySyntax.C_LiteralPattern x23) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_543 x1 x2@(Curry.Module.CurrySyntax.C_NegativePattern x24 x25) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_543 x1 x2@(Curry.Module.CurrySyntax.C_VariablePattern x26) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_543 x1 x2@(Curry.Module.CurrySyntax.C_ParenPattern x27) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_543 x1 x2@(Curry.Module.CurrySyntax.C_ListPattern x28) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_543 x1 x2@(Curry.Module.CurrySyntax.C_RecordPattern x29 x30) st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.SrcRef.c_notHere)+c_conTermAt_case_543 x1 (Curry.Module.CurrySyntax.C_ConstrTermOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_conTermAt_case_543(x1)(x)(st))(i)(xs)(st)+c_conTermAt_case_543 x1 x st = Curry.RunTimeSystem.patternFail("SrcRef.conTermAt_case_543")(x)++++c_srcAt'46_'35lambda2_case_546 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.C_Left(x1)+c_srcAt'46_'35lambda2_case_546 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.C_Right(Curry.Module.Prelude.op_45(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))+c_srcAt'46_'35lambda2_case_546 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_srcAt'46_'35lambda2_case_546(x1)(x2)(x)(st))(i)(xs)(st)+c_srcAt'46_'35lambda2_case_546 x1 x2 x st = Curry.RunTimeSystem.patternFail("SrcRef.srcAt._#lambda2_case_546")(x)++++c_nextStaticInfo_case_547 x3 x2@(Curry.Module.SrcRef.C_Tree x4 x5) st = Curry.Module.Prelude.T2(x4)(Curry.Module.Prelude.op_43_43(x5)(x3)(st))+c_nextStaticInfo_case_547 x3 (Curry.Module.SrcRef.C_AdrTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.SrcRef.c_nextStaticInfo_case_547(x3)(x)(st))(i)(xs)(st)+c_nextStaticInfo_case_547 x3 x st = Curry.RunTimeSystem.patternFail("SrcRef.nextStaticInfo_case_547")(x)++
+ dist/build/mkstrict/mkstrict-tmp/Curry/Module/Transformation.hs view
@@ -0,0 +1,594 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.Transformation (module Curry.Module.Transformation) where++import Curry.RunTimeSystem+import Curry.Module.AbstractCurry+import Curry.Module.AbstractHaskell+import Curry.Module.Directory+import Curry.Module.ExternalStubs+import Curry.Module.FlatCurry+import Curry.Module.FlatCurryGoodies+import Curry.Module.FlatToAbstractCurry+import Curry.Module.LiftCases+import Curry.Module.List+import Curry.Module.Make+import Curry.Module.Prelude+import Curry.Module.SrcRef+import Curry.Module.TransformationDebugInfo+import Curry.Module.TransformationExpr+import Curry.Module.TransformationInstances+import Curry.Module.TransformationMonad+import Curry.Module.TransformationPartCalls+import Curry.Module.TransformationPrint+import Curry.Module.TransformationSignatures+import Curry.Module.System+import Curry.Module.IO+import Curry.Module.IOExts+import Curry.Module.Assertion++++-- begin included++++-- end included++c_transformFlatCurry :: Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.C_Maybe (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.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_transformFlatCurry x1 x2 x3 x4 x5 st = let {x7 = Curry.Module.Transformation.c_transformProg(x4)(x5)(Curry.Module.SrcRef.c_treeN(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))(st))(Curry.Module.TransformationDebugInfo.c_higherOrderTypes(st))(st)} in Curry.Module.Prelude.op_62_62_61(Curry.Module.Transformation.c_handleExternals(x1)(x3)(x2)(x4)(st))(Curry.Module.Prelude.pf(Curry.Module.Transformation.c_transformFlatCurry'46_'35lambda2(Curry.Module.Transformation.c_transformFlatCurry'46_'35selFP5'35a(x7)(st))(Curry.Module.Transformation.c_transformFlatCurry'46_'35selFP6'35b(x7)(st))(Curry.Module.Transformation.c_transformFlatCurry'46_'35selFP7'35c(x7)(st))(Curry.Module.Transformation.c_transformFlatCurry'46_'35selFP8'35d(x7)(st))(x3)(Curry.Module.Transformation.c_transformFlatCurry'46_'35selFP9'35e(x7)(st))(Curry.Module.Transformation.c_transformFlatCurry'46_'35selFP4'35f(x7)(st))(Curry.Module.Transformation.c_transformFlatCurry'46_'35selFP3'35name(x7)(st))(x2)(x4)))(st)++++c_transformFlatCurry'46_'35selFP3'35name :: Curry.Module.AbstractHaskell.C_HaskellProg -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_transformFlatCurry'46_'35selFP3'35name x1@(Curry.Module.AbstractHaskell.C_HaskellProg x2 x3 x4 x5 x6 x7 x8 x9) st = x2+c_transformFlatCurry'46_'35selFP3'35name (Curry.Module.AbstractHaskell.C_HaskellProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformFlatCurry'46_'35selFP3'35name(x)(st))(i)(xs)(st)+c_transformFlatCurry'46_'35selFP3'35name x st = Curry.RunTimeSystem.patternFail("Transformation.transformFlatCurry._#selFP3#name")(x)++++c_transformFlatCurry'46_'35selFP4'35f :: Curry.Module.AbstractHaskell.C_HaskellProg -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_transformFlatCurry'46_'35selFP4'35f x1@(Curry.Module.AbstractHaskell.C_HaskellProg x2 x3 x4 x5 x6 x7 x8 x9) st = x3+c_transformFlatCurry'46_'35selFP4'35f (Curry.Module.AbstractHaskell.C_HaskellProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformFlatCurry'46_'35selFP4'35f(x)(st))(i)(xs)(st)+c_transformFlatCurry'46_'35selFP4'35f x st = Curry.RunTimeSystem.patternFail("Transformation.transformFlatCurry._#selFP4#f")(x)++++c_transformFlatCurry'46_'35selFP5'35a :: Curry.Module.AbstractHaskell.C_HaskellProg -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_transformFlatCurry'46_'35selFP5'35a x1@(Curry.Module.AbstractHaskell.C_HaskellProg x2 x3 x4 x5 x6 x7 x8 x9) st = x4+c_transformFlatCurry'46_'35selFP5'35a (Curry.Module.AbstractHaskell.C_HaskellProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformFlatCurry'46_'35selFP5'35a(x)(st))(i)(xs)(st)+c_transformFlatCurry'46_'35selFP5'35a x st = Curry.RunTimeSystem.patternFail("Transformation.transformFlatCurry._#selFP5#a")(x)++++c_transformFlatCurry'46_'35selFP6'35b :: Curry.Module.AbstractHaskell.C_HaskellProg -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HTypeDecl+c_transformFlatCurry'46_'35selFP6'35b x1@(Curry.Module.AbstractHaskell.C_HaskellProg x2 x3 x4 x5 x6 x7 x8 x9) st = x6+c_transformFlatCurry'46_'35selFP6'35b (Curry.Module.AbstractHaskell.C_HaskellProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformFlatCurry'46_'35selFP6'35b(x)(st))(i)(xs)(st)+c_transformFlatCurry'46_'35selFP6'35b x st = Curry.RunTimeSystem.patternFail("Transformation.transformFlatCurry._#selFP6#b")(x)++++c_transformFlatCurry'46_'35selFP7'35c :: Curry.Module.AbstractHaskell.C_HaskellProg -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_InstanceDecl+c_transformFlatCurry'46_'35selFP7'35c x1@(Curry.Module.AbstractHaskell.C_HaskellProg x2 x3 x4 x5 x6 x7 x8 x9) st = x7+c_transformFlatCurry'46_'35selFP7'35c (Curry.Module.AbstractHaskell.C_HaskellProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformFlatCurry'46_'35selFP7'35c(x)(st))(i)(xs)(st)+c_transformFlatCurry'46_'35selFP7'35c x st = Curry.RunTimeSystem.patternFail("Transformation.transformFlatCurry._#selFP7#c")(x)++++c_transformFlatCurry'46_'35selFP8'35d :: Curry.Module.AbstractHaskell.C_HaskellProg -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl+c_transformFlatCurry'46_'35selFP8'35d x1@(Curry.Module.AbstractHaskell.C_HaskellProg x2 x3 x4 x5 x6 x7 x8 x9) st = x8+c_transformFlatCurry'46_'35selFP8'35d (Curry.Module.AbstractHaskell.C_HaskellProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformFlatCurry'46_'35selFP8'35d(x)(st))(i)(xs)(st)+c_transformFlatCurry'46_'35selFP8'35d x st = Curry.RunTimeSystem.patternFail("Transformation.transformFlatCurry._#selFP8#d")(x)++++c_transformFlatCurry'46_'35selFP9'35e :: Curry.Module.AbstractHaskell.C_HaskellProg -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_COpDecl+c_transformFlatCurry'46_'35selFP9'35e x1@(Curry.Module.AbstractHaskell.C_HaskellProg x2 x3 x4 x5 x6 x7 x8 x9) st = x9+c_transformFlatCurry'46_'35selFP9'35e (Curry.Module.AbstractHaskell.C_HaskellProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformFlatCurry'46_'35selFP9'35e(x)(st))(i)(xs)(st)+c_transformFlatCurry'46_'35selFP9'35e x st = Curry.RunTimeSystem.patternFail("Transformation.transformFlatCurry._#selFP9#e")(x)++++c_transformFlatCurry'46_'35lambda2 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HTypeDecl) -> (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_InstanceDecl) -> (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_COpDecl) -> (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.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_transformFlatCurry'46_'35lambda2 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 st = let {x12 = Curry.Module.TransformationDebugInfo.c_outputFile(x5)(x9)(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_progName(st))(x10)(st))(st)} in Curry.Module.Prelude.op_62_62(Curry.Module.TransformationPrint.c_prettyacy(x12)(Curry.Module.AbstractHaskell.C_HaskellProg(x8)(x7)(x1)(x11)(x2)(x3)(x4)(x6))(st))(Curry.Module.Prelude.c_putStrLn(Curry.Module.Prelude.op_43_43(x12)((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('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('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('.'))(Curry.Module.Prelude.List))))))))))(st))(st))(st)++++c_transformProg :: Curry.Module.FlatCurry.C_Prog -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> (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.AbstractHaskell.C_HaskellProg+c_transformProg x1@(Curry.Module.FlatCurry.C_Prog x5 x6 x7 x8 x9) x2 x3 x4 st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.op_46(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.Transformation.c_transformProg'46transProg'4618(x4)(x3)(x2)(x5)))))(Curry.Module.FlatCurryGoodies.c_updQNamesInProg(Curry.Module.Prelude.pf(Curry.Module.TransformationDebugInfo.c_renameModule))(st))(st))(Curry.Module.LiftCases.c_liftCases(Curry.Module.Prelude.C_False)(x1)(st))(st)+c_transformProg (Curry.Module.FlatCurry.C_ProgOr i xs) x2 x3 x4 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformProg(x)(x2)(x3)(x4)(st))(i)(xs)(st)+c_transformProg x x2 x3 x4 st = Curry.RunTimeSystem.patternFail("Transformation.transformProg")(x)++++c_transformProg'46transProg'4618 :: (Curry t0,Curry t1) => (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.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> t0 -> (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) -> t1 -> Curry.RunTimeSystem.State -> Curry.Module.AbstractHaskell.C_HaskellProg+c_transformProg'46transProg'4618 x1 x2 x3 x4 x5 x6 x7 x8 x9 st = let {x10 = Curry.Module.Prelude.c_splitAt(Curry.Module.Prelude.c_length(x7)(st))(Curry.Module.Prelude.c_apply(Curry.Module.SrcRef.c_infoChildren(st))(x2)(st))(st)} in let {x11 = Curry.Module.Transformation.c_transformProg'46transProg'4618'46_'35selFP17'35typeRefs(x10)(st)} in let {x13 = Curry.Module.Transformation.c_transformTypeDecls(x7)(x11)(x1)(st)} in let {x17 = Curry.Module.TransformationInstances.c_instancesGenerics(x7)(x1)(st)} in let {x20 = Curry.Module.Prelude.op_43_43(Curry.Module.TransformationDebugInfo.c_modulePrefix(st))(x4)(st)} in Curry.Module.AbstractHaskell.C_HaskellProg(x20)((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('L'))((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('G'))((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('G'))((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('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('i'))((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('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('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('a'))((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('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('S'))((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('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('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('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('i'))((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('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('#'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('}'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.List.c_delete(x20)))(Curry.Module.Prelude.c_apply(Curry.Module.Transformation.c_transformImports(st))(x6)(st))(st))(Curry.Module.Prelude.List)(Curry.Module.Transformation.c_transformProg'46transProg'4618'46_'35selFP15'35types'39(x13)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.Transformation.c_transformProg'46transProg'4618'46_'35selFP13'35instsGenerics(x17)(st))(Curry.Module.TransformationInstances.c_instancesGenTerm(x7)(x11)(x1)(st))(st))(Curry.Module.Prelude.op_43_43(Curry.Module.Transformation.c_transformProg'46transProg'4618'46_'35selFP14'35funcsGenerics(x17)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.Transformation.c_transformFuncs(x8)(Curry.Module.Transformation.c_transformProg'46transProg'4618'46_'35selFP18'35funcRefs(x10)(st))(x3)(x1)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.Transformation.c_transformProg'46transProg'4618'46_'35selFP16'35pcConsTerms(x13)(st))(Curry.Module.Prelude.c_apply(Curry.Module.Transformation.c_createPCHelpers(x20)(st))(x8)(st))(st))(st))(st))(Curry.Module.Prelude.List)++++c_transformProg'46transProg'4618'46_'35selFP17'35typeRefs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)))) (Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)))+c_transformProg'46transProg'4618'46_'35selFP17'35typeRefs x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_transformProg'46transProg'4618'46_'35selFP17'35typeRefs (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformProg'46transProg'4618'46_'35selFP17'35typeRefs(x)(st))(i)(xs)(st)+c_transformProg'46transProg'4618'46_'35selFP17'35typeRefs x st = Curry.RunTimeSystem.patternFail("Transformation.transformProg.transProg.18._#selFP17#typeRefs")(x)++++c_transformProg'46transProg'4618'46_'35selFP18'35funcRefs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)))) (Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)))+c_transformProg'46transProg'4618'46_'35selFP18'35funcRefs x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_transformProg'46transProg'4618'46_'35selFP18'35funcRefs (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformProg'46transProg'4618'46_'35selFP18'35funcRefs(x)(st))(i)(xs)(st)+c_transformProg'46transProg'4618'46_'35selFP18'35funcRefs x st = Curry.RunTimeSystem.patternFail("Transformation.transformProg.transProg.18._#selFP18#funcRefs")(x)++++c_transformProg'46transProg'4618'46_'35selFP15'35types'39 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HTypeDecl) (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HTypeDecl+c_transformProg'46transProg'4618'46_'35selFP15'35types'39 x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_transformProg'46transProg'4618'46_'35selFP15'35types'39 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformProg'46transProg'4618'46_'35selFP15'35types'39(x)(st))(i)(xs)(st)+c_transformProg'46transProg'4618'46_'35selFP15'35types'39 x st = Curry.RunTimeSystem.patternFail("Transformation.transformProg.transProg.18._#selFP15#types'")(x)++++c_transformProg'46transProg'4618'46_'35selFP16'35pcConsTerms :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HTypeDecl) (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl+c_transformProg'46transProg'4618'46_'35selFP16'35pcConsTerms x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_transformProg'46transProg'4618'46_'35selFP16'35pcConsTerms (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformProg'46transProg'4618'46_'35selFP16'35pcConsTerms(x)(st))(i)(xs)(st)+c_transformProg'46transProg'4618'46_'35selFP16'35pcConsTerms x st = Curry.RunTimeSystem.patternFail("Transformation.transformProg.transProg.18._#selFP16#pcConsTerms")(x)++++c_transformProg'46transProg'4618'46_'35selFP13'35instsGenerics :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_InstanceDecl) (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_InstanceDecl+c_transformProg'46transProg'4618'46_'35selFP13'35instsGenerics x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_transformProg'46transProg'4618'46_'35selFP13'35instsGenerics (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformProg'46transProg'4618'46_'35selFP13'35instsGenerics(x)(st))(i)(xs)(st)+c_transformProg'46transProg'4618'46_'35selFP13'35instsGenerics x st = Curry.RunTimeSystem.patternFail("Transformation.transformProg.transProg.18._#selFP13#instsGenerics")(x)++++c_transformProg'46transProg'4618'46_'35selFP14'35funcsGenerics :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_InstanceDecl) (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl+c_transformProg'46transProg'4618'46_'35selFP14'35funcsGenerics x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_transformProg'46transProg'4618'46_'35selFP14'35funcsGenerics (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformProg'46transProg'4618'46_'35selFP14'35funcsGenerics(x)(st))(i)(xs)(st)+c_transformProg'46transProg'4618'46_'35selFP14'35funcsGenerics x st = Curry.RunTimeSystem.patternFail("Transformation.transformProg.transProg.18._#selFP14#funcsGenerics")(x)++++c_transformImports :: 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.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_transformImports st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_prelude(st))))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(Curry.Module.TransformationDebugInfo.c_debugMonadImport(st))))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(Curry.Module.TransformationDebugInfo.c_debugInfoImport(st))))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(Curry.Module.TransformationPartCalls.c_partCallsImport(st))))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(Curry.Module.TransformationDebugInfo.c_dataGenericsImport(st))))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.Transformation.c_transformImports'46_'35lambda3))))(st))(st))(st))(st))(st)++++c_transformImports'46_'35lambda3 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_transformImports'46_'35lambda3 x1 st = Curry.Module.Prelude.op_43_43(Curry.Module.TransformationDebugInfo.c_modulePrefix(st))(x1)(st)++++c_transformTypeDecls :: (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)))) -> (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.T2 (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HTypeDecl) (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl)+c_transformTypeDecls x1@Curry.Module.Prelude.List x2 x3 st = Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.List)+c_transformTypeDecls x1@((Curry.Module.Prelude.:<) x4 x5) x2 x3 st = Curry.Module.Transformation.c_transformTypeDecls_case_24(x2)(x3)(x5)(x4)(st)+c_transformTypeDecls (Curry.Module.Prelude.ListOr i xs) x2 x3 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformTypeDecls(x)(x2)(x3)(st))(i)(xs)(st)+c_transformTypeDecls x x2 x3 st = Curry.RunTimeSystem.patternFail("Transformation.transformTypeDecls")(x)++++c_transformTypeDecls'46_'35selFP20'35ttds :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HTypeDecl) (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HTypeDecl+c_transformTypeDecls'46_'35selFP20'35ttds x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_transformTypeDecls'46_'35selFP20'35ttds (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformTypeDecls'46_'35selFP20'35ttds(x)(st))(i)(xs)(st)+c_transformTypeDecls'46_'35selFP20'35ttds x st = Curry.RunTimeSystem.patternFail("Transformation.transformTypeDecls._#selFP20#ttds")(x)++++c_transformTypeDecls'46_'35selFP21'35pcs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HTypeDecl) (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl+c_transformTypeDecls'46_'35selFP21'35pcs x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_transformTypeDecls'46_'35selFP21'35pcs (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformTypeDecls'46_'35selFP21'35pcs(x)(st))(i)(xs)(st)+c_transformTypeDecls'46_'35selFP21'35pcs x st = Curry.RunTimeSystem.patternFail("Transformation.transformTypeDecls._#selFP21#pcs")(x)++++c_createPCConsTerms :: (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl+c_createPCConsTerms x1@Curry.Module.Prelude.List x2 st = Curry.Module.Prelude.List+c_createPCConsTerms x1@((Curry.Module.Prelude.:<) x3 x4) x2 st = Curry.Module.Transformation.c_createPCConsTerms_case_19(x3)(x4)(x2)(st)+c_createPCConsTerms (Curry.Module.Prelude.ListOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_createPCConsTerms(x)(x2)(st))(i)(xs)(st)+c_createPCConsTerms x x2 st = Curry.RunTimeSystem.patternFail("Transformation.createPCConsTerms")(x)++++c_transformTypeDecl :: Curry.Module.FlatCurry.C_TypeDecl -> (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.AbstractHaskell.C_HTypeDecl+c_transformTypeDecl x1@(Curry.Module.FlatCurry.C_Type x3 x4 x5 x6) x2 st = let {x7 = Curry.Module.Prelude.T2(Curry.Module.Prelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(Curry.Module.TransformationDebugInfo.c_debugTVarName(st))} in let {x8 = Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_convertTypeVariable))(x5)(st)} in let {x9 = Curry.Module.Transformation.c_transformTypeDecl_case_15(x2)(x3)(x7)(x8)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_elem(x3)(st))(x2)(st))(st)} in let {x10 = Curry.Module.TransformationDebugInfo.c_renameType(x3)(st)} in let {x11 = Curry.Module.Transformation.c_transformTypeDecl'46_'35selFP23'35qn'39(x10)(st)} in let {x12 = Curry.Module.Transformation.c_transformTypeDecl'46_'35selFP24'35mod(x10)(st)} in let {x13 = Curry.Module.Transformation.c_transformTypeDecl'46_'35selFP25'35name(x10)(st)} in Curry.Module.AbstractHaskell.C_HTypeDecl(Curry.Module.Transformation.c_transformTypeDecl_case_17(x2)(x3)(x7)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_elem(x3)(st))(x2)(st))(st))(Curry.Module.AbstractCurry.C_CType(x11)(Curry.Module.FlatToAbstractCurry.c_convertVisibility(x4)(st))(x9)((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CCons(Curry.Module.Prelude.T2(x12)(Curry.Module.Prelude.op_43_43(x13)(Curry.Module.TransformationDebugInfo.c_failSuffix(st))(st)))(Curry.Module.Prelude.C_Zero)(Curry.Module.AbstractCurry.C_Public)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CCons(Curry.Module.Prelude.T2(x12)(Curry.Module.Prelude.op_43_43(x13)(Curry.Module.TransformationDebugInfo.c_orSuffix(st))(st)))(Curry.Module.Prelude.C_Zero)(Curry.Module.AbstractCurry.C_Public)((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CTCons(Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_debugMonadAs(st))((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('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CTCons(Curry.Module.Prelude.T2(Curry.Module.FlatToAbstractCurry.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.AbstractCurry.C_CTCons(x11)(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CTVar))(x9)(st)))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CCons(Curry.Module.Prelude.T2(x12)(Curry.Module.Prelude.op_43_43(x13)(Curry.Module.TransformationDebugInfo.c_underscoreSuffix(st))(st)))(Curry.Module.Prelude.C_Zero)(Curry.Module.AbstractCurry.C_Public)(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.Transformation.c_transformTypeDecl'46_'35lambda4(x2)))(x6)(st))))))(Curry.Module.Transformation.c_transformTypeDecl_case_16(x6)(Curry.Module.Prelude.op_60(Curry.Module.Prelude.c_apply(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.Prelude.c_max))(Curry.Module.Prelude.C_Zero)))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.Transformation.c_transformTypeDecl'46numArgs'4671))))(st))(x6)(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_IHi)))))(st))(st))+c_transformTypeDecl (Curry.Module.FlatCurry.C_TypeDeclOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformTypeDecl(x)(x2)(st))(i)(xs)(st)+c_transformTypeDecl x x2 st = Curry.RunTimeSystem.patternFail("Transformation.transformTypeDecl")(x)++++c_transformTypeDecl'46_'35selFP23'35qn'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.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_transformTypeDecl'46_'35selFP23'35qn'39 x1@(Curry.Module.Prelude.T2 x2 x3) st = x1+c_transformTypeDecl'46_'35selFP23'35qn'39 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformTypeDecl'46_'35selFP23'35qn'39(x)(st))(i)(xs)(st)+c_transformTypeDecl'46_'35selFP23'35qn'39 x st = Curry.RunTimeSystem.patternFail("Transformation.transformTypeDecl._#selFP23#qn'")(x)++++c_transformTypeDecl'46_'35selFP24'35mod :: (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_transformTypeDecl'46_'35selFP24'35mod x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_transformTypeDecl'46_'35selFP24'35mod (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformTypeDecl'46_'35selFP24'35mod(x)(st))(i)(xs)(st)+c_transformTypeDecl'46_'35selFP24'35mod x st = Curry.RunTimeSystem.patternFail("Transformation.transformTypeDecl._#selFP24#mod")(x)++++c_transformTypeDecl'46_'35selFP25'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_transformTypeDecl'46_'35selFP25'35name x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_transformTypeDecl'46_'35selFP25'35name (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformTypeDecl'46_'35selFP25'35name(x)(st))(i)(xs)(st)+c_transformTypeDecl'46_'35selFP25'35name x st = Curry.RunTimeSystem.patternFail("Transformation.transformTypeDecl._#selFP25#name")(x)++++c_transformTypeDecl'46numArgs'4671 :: Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_transformTypeDecl'46numArgs'4671 x1@(Curry.Module.FlatCurry.C_Cons x2 x3 x4 x5) st = x3+c_transformTypeDecl'46numArgs'4671 (Curry.Module.FlatCurry.C_ConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformTypeDecl'46numArgs'4671(x)(st))(i)(xs)(st)+c_transformTypeDecl'46numArgs'4671 x st = Curry.RunTimeSystem.patternFail("Transformation.transformTypeDecl.numArgs.71")(x)++++c_transformTypeDecl'46_'35lambda4 :: (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_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CConsDecl+c_transformTypeDecl'46_'35lambda4 x1 x2 st = Curry.Module.Transformation.c_transformCons(x2)(x1)(st)++++c_transformCons :: Curry.Module.FlatCurry.C_ConsDecl -> (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.AbstractCurry.C_CConsDecl+c_transformCons x1@(Curry.Module.FlatCurry.C_Cons x3 x4 x5 x6) x2 st = Curry.Module.AbstractCurry.C_CCons(Curry.Module.TransformationDebugInfo.c_renameCons(x3)(st))(x4)(Curry.Module.FlatToAbstractCurry.c_convertVisibility(x5)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.Transformation.c_transformCons'46transformType'39'4695(x2)))(x6)(st))+c_transformCons (Curry.Module.FlatCurry.C_ConsDeclOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformCons(x)(x2)(st))(i)(xs)(st)+c_transformCons x x2 st = Curry.RunTimeSystem.patternFail("Transformation.transformCons")(x)++++c_transformCons'46transformType'39'4695 :: (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_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CTypeExpr+c_transformCons'46transformType'39'4695 x1 x2@(Curry.Module.FlatCurry.C_TVar x3) st = Curry.Module.FlatToAbstractCurry.c_convertType(x2)(st)+c_transformCons'46transformType'39'4695 x1 x2@(Curry.Module.FlatCurry.C_FuncType x4 x5) st = Curry.Module.TransformationSignatures.c_transformType(Curry.Module.Prelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(x2)(x1)(st)+c_transformCons'46transformType'39'4695 x1 x2@(Curry.Module.FlatCurry.C_TCons x6 x7) st = Curry.Module.TransformationSignatures.c_transformType(Curry.Module.Prelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(x2)(x1)(st)+c_transformCons'46transformType'39'4695 x1 (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformCons'46transformType'39'4695(x1)(x)(st))(i)(xs)(st)+c_transformCons'46transformType'39'4695 x1 x st = Curry.RunTimeSystem.patternFail("Transformation.transformCons.transformType'.95")(x)++++c_transformFuncs :: (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)))) -> (Curry.Module.Prelude.C_Maybe (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.List Curry.Module.AbstractHaskell.C_HFuncDecl+c_transformFuncs x1@Curry.Module.Prelude.List x2 x3 x4 st = Curry.Module.Prelude.List+c_transformFuncs x1@((Curry.Module.Prelude.:<) x5 x6) x2 x3 x4 st = Curry.Module.Transformation.c_transformFuncs_case_14(x2)(x3)(x4)(x6)(x5)(st)+c_transformFuncs (Curry.Module.Prelude.ListOr i xs) x2 x3 x4 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformFuncs(x)(x2)(x3)(x4)(st))(i)(xs)(st)+c_transformFuncs x x2 x3 x4 st = Curry.RunTimeSystem.patternFail("Transformation.transformFuncs")(x)++++c_createPCHelpers :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl)+c_createPCHelpers x1 st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.TransformationPartCalls.c_mkPartCallHelper(x1)))))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(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_62))(Curry.Module.TransformationPartCalls.c_arityThreshold(st))))))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.List.c_nub))(Curry.Module.Transformation.c_calcMissings(st))(st))(st))(st)++++c_calcMissings :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)+c_calcMissings st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_concat))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.Transformation.c_calcMissings'46calcMissings'39'46140(Curry.Module.Prelude.pf(Curry.Module.FlatCurryGoodies.c_trExpr(Curry.Module.Prelude.pf(Curry.Module.Transformation.c_calcMissings'46var'46140))(Curry.Module.Prelude.pf(Curry.Module.Transformation.c_calcMissings'46lit'46140))(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.Transformation.c_calcMissings'46comb'46140))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Transformation.c_calcMissings'46leT'46140))(Curry.Module.Prelude.pf(Curry.Module.Transformation.c_calcMissings'46freE'46140))(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.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.Transformation.c_calcMissings'46casE'46140))(Curry.Module.Prelude.pf(Curry.Module.Transformation.c_calcMissings'46bran'46140))))))))(st)++++c_calcMissings'46var'46140 :: (Curry t0,Curry t1) => t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1+c_calcMissings'46var'46140 x1 st = Curry.Module.Prelude.List++++c_calcMissings'46lit'46140 :: (Curry t0,Curry t1) => t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1+c_calcMissings'46lit'46140 x1 st = Curry.Module.Prelude.List++++c_calcMissings'46comb'46140 :: (Curry t0) => Curry.Module.FlatCurry.C_CombType -> t0 -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_calcMissings'46comb'46140 x1 x2 x3 st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_missingArgs(st))(x1)(st))(Curry.Module.Prelude.c_concat(x3)(st))++++c_calcMissings'46leT'46140 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 (Curry.Module.Prelude.List t1))) -> (Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1+c_calcMissings'46leT'46140 x1 x2 st = Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_concat))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_snd))))(st))(x1)(st))(x2)(st)++++c_calcMissings'46freE'46140 :: (Curry t0,Curry t1) => t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t1)+c_calcMissings'46freE'46140 x1 st = Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id)++++c_calcMissings'46casE'46140 :: (Curry t0,Curry t1) => t0 -> (Curry.Module.Prelude.List t1) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List t1)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1+c_calcMissings'46casE'46140 x1 x2 x3 st = Curry.Module.Prelude.op_43_43(x2)(Curry.Module.Prelude.c_concat(x3)(st))(st)++++c_calcMissings'46bran'46140 :: (Curry t0,Curry t1) => t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t1)+c_calcMissings'46bran'46140 x1 st = Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id)++++c_calcMissings'46calcMissings'39'46140 :: (Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)) -> Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_calcMissings'46calcMissings'39'46140 x1 x2@(Curry.Module.FlatCurry.C_Func x3 x4 x5 x6 x7) st = Curry.Module.Transformation.c_calcMissings'46calcMissings'39'46140_case_7(x1)(x7)(st)+c_calcMissings'46calcMissings'39'46140 x1 (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_calcMissings'46calcMissings'39'46140(x1)(x)(st))(i)(xs)(st)+c_calcMissings'46calcMissings'39'46140 x1 x st = Curry.RunTimeSystem.patternFail("Transformation.calcMissings.calcMissings'.140")(x)++++c_createHookHelper :: Curry.Module.FlatCurry.C_FuncDecl -> (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractHaskell.C_HFuncDecl+c_createHookHelper x1@(Curry.Module.FlatCurry.C_Func x3 x4 x5 x6 x7) x2 st = Curry.Module.Transformation.c_createHookHelper_case_6(x2)(x4)(x3)(st)+c_createHookHelper (Curry.Module.FlatCurry.C_FuncDeclOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_createHookHelper(x)(x2)(st))(i)(xs)(st)+c_createHookHelper x x2 st = Curry.RunTimeSystem.patternFail("Transformation.createHookHelper")(x)++++c_createHookHelper'46insertHook'46181 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_createHookHelper'46insertHook'46181 x1 x2 x3 st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_debugMonadAs(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('D'))((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('l'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))(Curry.Module.Prelude.List))))))))))))))(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_acyStr(x1)(st))((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))))(st)++++c_createPCTermGen :: Curry.Module.FlatCurry.C_FuncDecl -> (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractHaskell.C_HFuncDecl+c_createPCTermGen x1@(Curry.Module.FlatCurry.C_Func x3 x4 x5 x6 x7) x2 st = Curry.Module.Transformation.c_createPCTermGen_case_5(x2)(x3)(st)+c_createPCTermGen (Curry.Module.FlatCurry.C_FuncDeclOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_createPCTermGen(x)(x2)(st))(i)(xs)(st)+c_createPCTermGen x x2 st = Curry.RunTimeSystem.patternFail("Transformation.createPCTermGen")(x)++++c_createPCConsTerm :: Curry.Module.FlatCurry.C_ConsDecl -> (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractHaskell.C_HFuncDecl+c_createPCConsTerm x1@(Curry.Module.FlatCurry.C_Cons x3 x4 x5 x6) x2 st = Curry.Module.Transformation.c_createPCConsTerm_case_4(x2)(x3)(st)+c_createPCConsTerm (Curry.Module.FlatCurry.C_ConsDeclOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_createPCConsTerm(x)(x2)(st))(i)(xs)(st)+c_createPCConsTerm x x2 st = Curry.RunTimeSystem.patternFail("Transformation.createPCConsTerm")(x)++++c_transformFunc :: Curry.Module.FlatCurry.C_FuncDecl -> Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> (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.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractHaskell.C_HFuncDecl)+c_transformFunc x1@(Curry.Module.FlatCurry.C_Func x5 x6 x7 x8 x9) x2 x3 x4 st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.c_ret(Curry.Module.AbstractHaskell.C_HFunc(Curry.Module.TransformationDebugInfo.c_renameFunc(x5)(st))(x6)(Curry.Module.FlatToAbstractCurry.c_convertVisibility(x7)(st))((Curry.Module.Prelude.:<)(Curry.Module.TransformationDebugInfo.c_debugMonadConstraint(st))(Curry.Module.Transformation.c_createConstraints(x8)(st)))(Curry.Module.Transformation.c_transformFunc_case_3(x4)(x6)(x8)(x2)(st))(Curry.Module.Transformation.c_transformRule(x9)(x5)(x2)(x3)(st))))+c_transformFunc (Curry.Module.FlatCurry.C_FuncDeclOr i xs) x2 x3 x4 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformFunc(x)(x2)(x3)(x4)(st))(i)(xs)(st)+c_transformFunc x x2 x3 x4 st = Curry.RunTimeSystem.patternFail("Transformation.transformFunc")(x)++++c_createConstraints :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_TypeClass+c_createConstraints x1 st = Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.Transformation.c_createConstraints'46createConstraint'46216))(Curry.Module.FlatToAbstractCurry.c_extractTVars(x1)(st))(st)++++c_createConstraints'46createConstraint'46216 :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.AbstractHaskell.C_TypeClass+c_createConstraints'46createConstraint'46216 x1 st = Curry.Module.AbstractHaskell.C_TypeClass(Curry.Module.TransformationDebugInfo.c_staticInfoClass(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_tx(st))(x1)(st))(Curry.Module.Prelude.List))++++c_transformRule :: Curry.Module.FlatCurry.C_Rule -> (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_Bool -> (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CRules+c_transformRule x1@(Curry.Module.FlatCurry.C_Rule x5 x6) x2 x3 x4 st = Curry.Module.Transformation.c_transformRule_case_2(x3)(x4)(x5)(x6)(x2)(st)+c_transformRule (Curry.Module.FlatCurry.C_RuleOr i xs) x2 x3 x4 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformRule(x)(x2)(x3)(x4)(st))(i)(xs)(st)+c_transformRule x x2 x3 x4 st = Curry.RunTimeSystem.patternFail("Transformation.transformRule")(x)++++c_transformRule'46_'35selFP27'35srcRefs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_transformRule'46_'35selFP27'35srcRefs x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_transformRule'46_'35selFP27'35srcRefs (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformRule'46_'35selFP27'35srcRefs(x)(st))(i)(xs)(st)+c_transformRule'46_'35selFP27'35srcRefs x st = Curry.RunTimeSystem.patternFail("Transformation.transformRule._#selFP27#srcRefs")(x)++++c_transformRule'46_'35selFP28'35exprInfoTree :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))+c_transformRule'46_'35selFP28'35exprInfoTree x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_transformRule'46_'35selFP28'35exprInfoTree (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformRule'46_'35selFP28'35exprInfoTree(x)(st))(i)(xs)(st)+c_transformRule'46_'35selFP28'35exprInfoTree x st = Curry.RunTimeSystem.patternFail("Transformation.transformRule._#selFP28#exprInfoTree")(x)++++c_transformRule'46insertHook'46220 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_transformRule'46insertHook'46220 x1 x2 x3 st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_debugMonadAs(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('D'))((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('l'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))(Curry.Module.Prelude.List))))))))))))))(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_acyStr(x1)(st))((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))))(st)++++c_x :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr)+c_x st = Curry.Module.Prelude.pf(Curry.Module.Transformation.c_x'46_'35lambda7)++++c_x'46_'35lambda7 :: Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_x'46_'35lambda7 x1 st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(x1)(st))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CSymbol))(Curry.Module.TransformationDebugInfo.c_renameModule(Curry.Module.Prelude.T2(Curry.Module.FlatToAbstractCurry.c_prelude(st))((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('t'))(Curry.Module.Prelude.List))))))(st))(st))(st)++++c_handleExternals :: Curry.Module.Prelude.C_Bool -> (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.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_handleExternals x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Prog x5 x6 x7 x8 x9) st = let {x10 = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Make.c_unless(x1)))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_putStrLn))(st)} in Curry.Module.Transformation.c_handleExternals_case_0(x2)(x3)(x4)(x5)(x10)(Curry.Module.Prelude.c_not(Curry.Module.ExternalStubs.c_containsExt(x4)(st))(st))(st)+c_handleExternals x1 x2 x3 (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_handleExternals(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c_handleExternals x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("Transformation.handleExternals")(x)++++c_handleExternals'46manualName'46236 :: (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_handleExternals'46manualName'46236 x1 x2 st = Curry.Module.Prelude.op_43_43(x2)(Curry.Module.Prelude.op_43_43(x1)((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('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('c'))((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_handleExternals'46stubs'46236 :: Curry.Module.FlatCurry.C_Prog -> (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_handleExternals'46stubs'46236 x1 x2 x3 st = Curry.Module.Prelude.op_62_62(Curry.Module.Prelude.op_62_62(Curry.Module.ExternalStubs.c_writeStubs(x3)(x1)(st))(Curry.Module.Prelude.c_putStrLn(x2)(st))(st))(Curry.Module.Prelude.c_return(x3)(st))(st)++++c_handleExternals'46found'46236 :: (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)) -> (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_handleExternals'46found'46236 x1 x2 st = Curry.Module.Prelude.op_62_62(Curry.Module.Prelude.c_apply(x1)(Curry.Module.Prelude.op_43_43((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('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.:<)(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('i'))((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('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))))))))))))))))))))))))))))))))(x2)(st))(st))(Curry.Module.Prelude.c_return(x2)(st))(st)++++c_handleExternals'46test'39'46236 :: Curry.Module.FlatCurry.C_Prog -> (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)) -> (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.C_Char)+c_handleExternals'46test'39'46236 x1 x2 x3 x4 x5@Curry.Module.Prelude.List st = Curry.Module.Transformation.c_handleExternals'46stubs'46236(x1)(x3)(x4)(st)+c_handleExternals'46test'39'46236 x1 x2 x3 x4 x5@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.Prelude.op_62_62(Curry.Module.Prelude.op_36(x2)(Curry.Module.Prelude.op_43_43((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('s'))((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('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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))))))))))(x6)(st))(st))(Curry.Module.Prelude.op_62_62_61(Curry.Module.Directory.c_doesFileExist(x6)(st))(Curry.Module.Prelude.pf(Curry.Module.Transformation.c_handleExternals'46test'39'46236'46_'35lambda8(x6)(x7)(x1)(x2)(x3)))(st))(st)+c_handleExternals'46test'39'46236 x1 x2 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_handleExternals'46test'39'46236(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_handleExternals'46test'39'46236 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("Transformation.handleExternals.test'.236")(x)++++c_handleExternals'46test'39'46236'46_'35lambda8 :: (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.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0)) -> (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.C_Char)+c_handleExternals'46test'39'46236'46_'35lambda8 x1 x2 x3 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.Transformation.c_handleExternals'46found'46236(x4)(x1)(st)+c_handleExternals'46test'39'46236'46_'35lambda8 x1 x2 x3 x4 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.Transformation.c_handleExternals'46test'39'46236(x3)(x4)(x5)(x1)(x2)(st)+c_handleExternals'46test'39'46236'46_'35lambda8 x1 x2 x3 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_handleExternals'46test'39'46236'46_'35lambda8(x1)(x2)(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c_handleExternals'46test'39'46236'46_'35lambda8 x1 x2 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("Transformation.handleExternals.test'.236._#lambda8")(x)++++c_handleExternals'46test'46236 :: Curry.Module.FlatCurry.C_Prog -> (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)) -> (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_handleExternals'46test'46236 x1 x2 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.Transformation.c_handleExternals'46test'39'46236(x1)(x2)(x3)(x5)(x4)(st)+c_handleExternals'46test'46236 x1 x2 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_handleExternals'46test'46236(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c_handleExternals'46test'46236 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("Transformation.handleExternals.test.236")(x)++++c_handleExternals_case_0 x2 x3 x4 x5 x10 x11@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_62_62(Curry.Module.Prelude.c_apply(x10)((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('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.:<)(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.c_return(Curry.Module.Prelude.List)(st))(st)+c_handleExternals_case_0 x2 x3 x4 x5 x10 x11@Curry.Module.Prelude.C_False st = Curry.Module.Transformation.c_handleExternals'46test'46236(x4)(x10)((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('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('u'))((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('g'))((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('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('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('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.:<)(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.c_map(Curry.Module.Prelude.pf(Curry.Module.Transformation.c_handleExternals'46manualName'46236(x5)))((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(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.List))))(st))(Curry.Module.Prelude.c_maybe(Curry.Module.Prelude.List)(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)))(x3)(st))))(st))(st)+c_handleExternals_case_0 x2 x3 x4 x5 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_handleExternals_case_0(x2)(x3)(x4)(x5)(x10)(x)(st))(i)(xs)(st)+c_handleExternals_case_0 x2 x3 x4 x5 x10 x st = Curry.RunTimeSystem.patternFail("Transformation.handleExternals_case_0")(x)++++c_transformRule_case_2 x3 x4 x5 x6 x2@(Curry.Module.Prelude.T2 x7 x8) st = let {x10 = Curry.Module.SrcRef.c_nextStaticInfo(x4)(st)} in Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_rules(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_simpleRule(Curry.Module.Prelude.c_map(Curry.Module.FlatToAbstractCurry.c_px(st))(x5)(st))(Curry.Module.Prelude.op_36(Curry.Module.TransformationDebugInfo.c_wrapEval(st))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Transformation.c_transformRule'46insertHook'46220(x8)(Curry.Module.TransformationDebugInfo.c_debugInfo(Curry.Module.TransformationDebugInfo.c_createStaticInfo(x7)(Curry.Module.Transformation.c_transformRule'46_'35selFP27'35srcRefs(x10)(st))(st))(Curry.Module.TransformationDebugInfo.c_simpleDynInfo(Curry.Module.FlatToAbstractCurry.c_list(Curry.Module.Prelude.c_map(Curry.Module.TransformationDebugInfo.c_genTermCallVar(st))(x5)(st))(st))(st))(st))))(Curry.Module.Prelude.op_36(Curry.Module.Transformation.c_transformRule_case_1(x3)(st))(Curry.Module.TransformationMonad.c_runVar(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_freshVariable(st))(x6)(st))(Curry.Module.TransformationExpr.c_transformExpr(x6)(Curry.Module.Prelude.T2(x7)(x8))(x5)(Curry.Module.Transformation.c_transformRule'46_'35selFP28'35exprInfoTree(x10)(st))(st))(st))(st))(st))(st))(st))(Curry.Module.Prelude.List))(st)+c_transformRule_case_2 x3 x4 x5 x6 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformRule_case_2(x3)(x4)(x5)(x6)(x)(st))(i)(xs)(st)+c_transformRule_case_2 x3 x4 x5 x6 x st = Curry.RunTimeSystem.patternFail("Transformation.transformRule_case_2")(x)++++c_transformRule_case_1 x3@Curry.Module.Prelude.C_True st = Curry.Module.Transformation.c_x(st)+c_transformRule_case_1 x3@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id)+c_transformRule_case_1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformRule_case_1(x)(st))(i)(xs)(st)+c_transformRule_case_1 x st = Curry.RunTimeSystem.patternFail("Transformation.transformRule_case_1")(x)++++c_transformFunc_case_3 x4 x6 x8 x2@Curry.Module.Prelude.C_True st = Curry.Module.FlatToAbstractCurry.c_untyped(st)+c_transformFunc_case_3 x4 x6 x8 x2@Curry.Module.Prelude.C_False st = Curry.Module.TransformationSignatures.c_transformType(x6)(x8)(x4)(st)+c_transformFunc_case_3 x4 x6 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformFunc_case_3(x4)(x6)(x8)(x)(st))(i)(xs)(st)+c_transformFunc_case_3 x4 x6 x8 x st = Curry.RunTimeSystem.patternFail("Transformation.transformFunc_case_3")(x)++++c_createPCConsTerm_case_4 x2 x3@(Curry.Module.Prelude.T2 x7 x8) st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_untypedFunc(Curry.Module.TransformationDebugInfo.c_pcConsName(x3)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_simpleRule((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_px(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.TransformationDebugInfo.c_staticInfoCons(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_acyStr(x8)(st))((Curry.Module.Prelude.:<)(Curry.Module.TransformationDebugInfo.c_createStaticInfo(x7)(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_fst))(Curry.Module.SrcRef.c_nextStaticInfo(x2)(st))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_xx(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(Curry.Module.Prelude.List))))(st))(st))(Curry.Module.Prelude.List))(st)+c_createPCConsTerm_case_4 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_createPCConsTerm_case_4(x2)(x)(st))(i)(xs)(st)+c_createPCConsTerm_case_4 x2 x st = Curry.RunTimeSystem.patternFail("Transformation.createPCConsTerm_case_4")(x)++++c_createPCTermGen_case_5 x2 x3@(Curry.Module.Prelude.T2 x8 x9) st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_untypedFunc(Curry.Module.TransformationDebugInfo.c_pcTermName(x3)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_simpleRule((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_px(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.TransformationDebugInfo.c_staticInfoCons(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_acyStr(x9)(st))((Curry.Module.Prelude.:<)(Curry.Module.TransformationDebugInfo.c_createStaticInfo(x8)(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_fst))(Curry.Module.SrcRef.c_nextStaticInfo(x2)(st))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_xx(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(Curry.Module.Prelude.List))))(st))(st))(Curry.Module.Prelude.List))(st)+c_createPCTermGen_case_5 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_createPCTermGen_case_5(x2)(x)(st))(i)(xs)(st)+c_createPCTermGen_case_5 x2 x st = Curry.RunTimeSystem.patternFail("Transformation.createPCTermGen_case_5")(x)++++c_createHookHelper_case_6 x2 x4 x3@(Curry.Module.Prelude.T2 x8 x9) st = let {x11 = Curry.Module.Prelude.c_enumFromTo(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x4)(st)} in let {x12 = Curry.Module.Prelude.T2(Curry.Module.Prelude.op_43(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))((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('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))} in Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_untypedFunc(Curry.Module.TransformationDebugInfo.c_hookHelperName(x3)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_simpleRule(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_map(Curry.Module.FlatToAbstractCurry.c_px(st))(x11)(st))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CPVar(x12))(Curry.Module.Prelude.List))(st))(Curry.Module.Prelude.op_36(Curry.Module.TransformationDebugInfo.c_wrapEval(st))(Curry.Module.Transformation.c_createHookHelper'46insertHook'46181(x9)(Curry.Module.TransformationDebugInfo.c_debugInfo(Curry.Module.TransformationDebugInfo.c_createStaticInfo(x8)(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_fst))(Curry.Module.SrcRef.c_nextStaticInfo(x2)(st))(st))(st))(Curry.Module.TransformationDebugInfo.c_simpleDynInfo(Curry.Module.FlatToAbstractCurry.c_list(Curry.Module.Prelude.c_map(Curry.Module.TransformationDebugInfo.c_genTermCallVar(st))(x11)(st))(st))(st))(st))(Curry.Module.AbstractCurry.C_CVar(x12))(st))(st))(st))(Curry.Module.Prelude.List))(st)+c_createHookHelper_case_6 x2 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_createHookHelper_case_6(x2)(x4)(x)(st))(i)(xs)(st)+c_createHookHelper_case_6 x2 x4 x st = Curry.RunTimeSystem.patternFail("Transformation.createHookHelper_case_6")(x)++++c_calcMissings'46calcMissings'39'46140_case_7 x1 x7@(Curry.Module.FlatCurry.C_Rule x8 x9) st = Curry.Module.Prelude.c_apply(x1)(x9)(st)+c_calcMissings'46calcMissings'39'46140_case_7 x1 x7@(Curry.Module.FlatCurry.C_External x10) st = Curry.Module.Prelude.List+c_calcMissings'46calcMissings'39'46140_case_7 x1 (Curry.Module.FlatCurry.C_RuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_calcMissings'46calcMissings'39'46140_case_7(x1)(x)(st))(i)(xs)(st)+c_calcMissings'46calcMissings'39'46140_case_7 x1 x st = Curry.RunTimeSystem.patternFail("Transformation.calcMissings.calcMissings'.140_case_7")(x)++++c_transformFuncs_case_14 x2 x3 x4 x6 x5@(Curry.Module.FlatCurry.C_Func x7 x8 x9 x10 x11) st = Curry.Module.Transformation.c_transformFuncs_case_13(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x11)(st)+c_transformFuncs_case_14 x2 x3 x4 x6 (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformFuncs_case_14(x2)(x3)(x4)(x6)(x)(st))(i)(xs)(st)+c_transformFuncs_case_14 x2 x3 x4 x6 x st = Curry.RunTimeSystem.patternFail("Transformation.transformFuncs_case_14")(x)++++c_transformFuncs_case_13 x2 x3 x4 x5 x6 x7 x8 x11@(Curry.Module.FlatCurry.C_External x12) st = Curry.Module.Transformation.c_transformFuncs_case_12(x3)(x4)(x5)(x6)(x2)(st)+c_transformFuncs_case_13 x2 x3 x4 x5 x6 x7 x8 x11@(Curry.Module.FlatCurry.C_Rule x17 x18) st = Curry.Module.Transformation.c_transformFuncs_case_11(x2)(x3)(x4)(x5)(x6)(x8)(x7)(st)+c_transformFuncs_case_13 x2 x3 x4 x5 x6 x7 x8 (Curry.Module.FlatCurry.C_RuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformFuncs_case_13(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c_transformFuncs_case_13 x2 x3 x4 x5 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("Transformation.transformFuncs_case_13")(x)++++c_transformFuncs_case_11 x2 x3 x4 x5 x6 x8 x7@(Curry.Module.Prelude.T2 x19 x20) st = Curry.Module.Transformation.c_transformFuncs_case_10(x3)(x4)(x5)(x6)(x8)(x20)(x2)(st)+c_transformFuncs_case_11 x2 x3 x4 x5 x6 x8 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformFuncs_case_11(x2)(x3)(x4)(x5)(x6)(x8)(x)(st))(i)(xs)(st)+c_transformFuncs_case_11 x2 x3 x4 x5 x6 x8 x st = Curry.RunTimeSystem.patternFail("Transformation.transformFuncs_case_11")(x)++++c_transformFuncs_case_10 x3 x4 x5 x6 x8 x20 x2@((Curry.Module.Prelude.:<) x21 x22) st = let {x25 = Curry.Module.Prelude.c_apply(Curry.Module.TransformationMonad.c_run(st))(Curry.Module.Transformation.c_transformFunc(x5)(Curry.Module.Transformation.c_transformFuncs_case_8(x20)(x3)(st))(x21)(x4)(st))(st)} in let {x26 = Curry.Module.Transformation.c_transformFuncs(x6)(x22)(x3)(x4)(st)} in Curry.Module.Transformation.c_transformFuncs_case_9(x5)(x8)(x21)(x25)(x26)(Curry.Module.Prelude.op_62(x8)(Curry.Module.Prelude.C_Zero)(st))(st)+c_transformFuncs_case_10 x3 x4 x5 x6 x8 x20 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformFuncs_case_10(x3)(x4)(x5)(x6)(x8)(x20)(x)(st))(i)(xs)(st)+c_transformFuncs_case_10 x3 x4 x5 x6 x8 x20 x st = Curry.RunTimeSystem.patternFail("Transformation.transformFuncs_case_10")(x)++++c_transformFuncs_case_8 x20 x3@Curry.Module.Prelude.C_Nothing st = Curry.Module.Prelude.C_False+c_transformFuncs_case_8 x20 x3@(Curry.Module.Prelude.C_Just x24) st = Curry.Module.Prelude.op_61_61(x20)(x24)(st)+c_transformFuncs_case_8 x20 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformFuncs_case_8(x20)(x)(st))(i)(xs)(st)+c_transformFuncs_case_8 x20 x st = Curry.RunTimeSystem.patternFail("Transformation.transformFuncs_case_8")(x)++++c_transformFuncs_case_9 x5 x8 x21 x25 x26 x27@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(Curry.Module.Transformation.c_createPCTermGen(x5)(x21)(st))(x26))+c_transformFuncs_case_9 x5 x8 x21 x25 x26 x27@Curry.Module.Prelude.C_False st = (Curry.Module.Prelude.:<)(x25)(x26)+c_transformFuncs_case_9 x5 x8 x21 x25 x26 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformFuncs_case_9(x5)(x8)(x21)(x25)(x26)(x)(st))(i)(xs)(st)+c_transformFuncs_case_9 x5 x8 x21 x25 x26 x st = Curry.RunTimeSystem.patternFail("Transformation.transformFuncs_case_9")(x)++++c_transformFuncs_case_12 x3 x4 x5 x6 x2@((Curry.Module.Prelude.:<) x13 x14) st = (Curry.Module.Prelude.:<)(Curry.Module.Transformation.c_createHookHelper(x5)(x13)(st))((Curry.Module.Prelude.:<)(Curry.Module.Transformation.c_createPCTermGen(x5)(x13)(st))(Curry.Module.Transformation.c_transformFuncs(x6)(x14)(x3)(x4)(st)))+c_transformFuncs_case_12 x3 x4 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformFuncs_case_12(x3)(x4)(x5)(x6)(x)(st))(i)(xs)(st)+c_transformFuncs_case_12 x3 x4 x5 x6 x st = Curry.RunTimeSystem.patternFail("Transformation.transformFuncs_case_12")(x)++++c_transformTypeDecl_case_15 x2 x3 x7 x8 x9@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(x7)(x8)+c_transformTypeDecl_case_15 x2 x3 x7 x8 x9@Curry.Module.Prelude.C_False st = x8+c_transformTypeDecl_case_15 x2 x3 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformTypeDecl_case_15(x2)(x3)(x7)(x8)(x)(st))(i)(xs)(st)+c_transformTypeDecl_case_15 x2 x3 x7 x8 x st = Curry.RunTimeSystem.patternFail("Transformation.transformTypeDecl_case_15")(x)++++c_transformTypeDecl_case_16 x6 x7@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.TransformationDebugInfo.c_typeableClass(st))((Curry.Module.Prelude.:<)(Curry.Module.TransformationDebugInfo.c_dataClass(st))(Curry.Module.Prelude.List))+c_transformTypeDecl_case_16 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.List+c_transformTypeDecl_case_16 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformTypeDecl_case_16(x6)(x)(st))(i)(xs)(st)+c_transformTypeDecl_case_16 x6 x st = Curry.RunTimeSystem.patternFail("Transformation.transformTypeDecl_case_16")(x)++++c_transformTypeDecl_case_17 x2 x3 x7 x8@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_constraint(Curry.Module.TransformationDebugInfo.c_debugMonadClass(st))(x7)(st))(Curry.Module.Prelude.List)+c_transformTypeDecl_case_17 x2 x3 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.List+c_transformTypeDecl_case_17 x2 x3 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformTypeDecl_case_17(x2)(x3)(x7)(x)(st))(i)(xs)(st)+c_transformTypeDecl_case_17 x2 x3 x7 x st = Curry.RunTimeSystem.patternFail("Transformation.transformTypeDecl_case_17")(x)++++c_createPCConsTerms_case_19 x3 x4 x2@((Curry.Module.Prelude.:<) x5 x6) st = let {x7 = Curry.Module.Transformation.c_createPCConsTerms(x4)(x6)(st)} in Curry.Module.Transformation.c_createPCConsTerms_case_18(x3)(x5)(x7)(Curry.Module.Prelude.op_62(Curry.Module.Prelude.c_apply(Curry.Module.FlatCurryGoodies.c_consArity(st))(x3)(st))(Curry.Module.Prelude.C_Zero)(st))(st)+c_createPCConsTerms_case_19 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_createPCConsTerms_case_19(x3)(x4)(x)(st))(i)(xs)(st)+c_createPCConsTerms_case_19 x3 x4 x st = Curry.RunTimeSystem.patternFail("Transformation.createPCConsTerms_case_19")(x)++++c_createPCConsTerms_case_18 x3 x5 x7 x8@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Transformation.c_createPCConsTerm(x3)(x5)(st))(x7)+c_createPCConsTerms_case_18 x3 x5 x7 x8@Curry.Module.Prelude.C_False st = x7+c_createPCConsTerms_case_18 x3 x5 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_createPCConsTerms_case_18(x3)(x5)(x7)(x)(st))(i)(xs)(st)+c_createPCConsTerms_case_18 x3 x5 x7 x st = Curry.RunTimeSystem.patternFail("Transformation.createPCConsTerms_case_18")(x)++++c_transformTypeDecls_case_24 x2 x3 x5 x4@(Curry.Module.FlatCurry.C_TypeSyn x6 x7 x8 x9) st = Curry.Module.Transformation.c_transformTypeDecls_case_23(x3)(x5)(x2)(st)+c_transformTypeDecls_case_24 x2 x3 x5 x4@(Curry.Module.FlatCurry.C_Type x12 x13 x14 x15) st = Curry.Module.Transformation.c_transformTypeDecls_case_22(x2)(x3)(x4)(x5)(x15)(st)+c_transformTypeDecls_case_24 x2 x3 x5 (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformTypeDecls_case_24(x2)(x3)(x5)(x)(st))(i)(xs)(st)+c_transformTypeDecls_case_24 x2 x3 x5 x st = Curry.RunTimeSystem.patternFail("Transformation.transformTypeDecls_case_24")(x)++++c_transformTypeDecls_case_22 x2 x3 x4 x5 x15@Curry.Module.Prelude.List st = Curry.Module.Transformation.c_transformTypeDecls_case_21(x3)(x5)(x2)(st)+c_transformTypeDecls_case_22 x2 x3 x4 x5 x15@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.Transformation.c_transformTypeDecls_case_20(x3)(x4)(x5)(x15)(x2)(st)+c_transformTypeDecls_case_22 x2 x3 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformTypeDecls_case_22(x2)(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c_transformTypeDecls_case_22 x2 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("Transformation.transformTypeDecls_case_22")(x)++++c_transformTypeDecls_case_20 x3 x4 x5 x15 x2@((Curry.Module.Prelude.:<) x20 x21) st = let {x22 = Curry.Module.Transformation.c_transformTypeDecls(x5)(x21)(x3)(st)} in Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Transformation.c_transformTypeDecl(x4)(x3)(st))(Curry.Module.Transformation.c_transformTypeDecls'46_'35selFP20'35ttds(x22)(st)))(Curry.Module.Prelude.op_43_43(Curry.Module.Transformation.c_createPCConsTerms(x15)(Curry.Module.Prelude.op_36(Curry.Module.SrcRef.c_infoChildren(st))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_snd))(Curry.Module.SrcRef.c_nextStaticInfo(x20)(st))(st))(st))(st))(Curry.Module.Transformation.c_transformTypeDecls'46_'35selFP21'35pcs(x22)(st))(st))+c_transformTypeDecls_case_20 x3 x4 x5 x15 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformTypeDecls_case_20(x3)(x4)(x5)(x15)(x)(st))(i)(xs)(st)+c_transformTypeDecls_case_20 x3 x4 x5 x15 x st = Curry.RunTimeSystem.patternFail("Transformation.transformTypeDecls_case_20")(x)++++c_transformTypeDecls_case_21 x3 x5 x2@((Curry.Module.Prelude.:<) x16 x17) st = Curry.Module.Transformation.c_transformTypeDecls(x5)(x17)(x3)(st)+c_transformTypeDecls_case_21 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformTypeDecls_case_21(x3)(x5)(x)(st))(i)(xs)(st)+c_transformTypeDecls_case_21 x3 x5 x st = Curry.RunTimeSystem.patternFail("Transformation.transformTypeDecls_case_21")(x)++++c_transformTypeDecls_case_23 x3 x5 x2@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.Transformation.c_transformTypeDecls(x5)(x11)(x3)(st)+c_transformTypeDecls_case_23 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.Transformation.c_transformTypeDecls_case_23(x3)(x5)(x)(st))(i)(xs)(st)+c_transformTypeDecls_case_23 x3 x5 x st = Curry.RunTimeSystem.patternFail("Transformation.transformTypeDecls_case_23")(x)++
+ dist/build/mkstrict/mkstrict-tmp/Curry/Module/TransformationComb.hs view
@@ -0,0 +1,103 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.TransformationComb (module Curry.Module.TransformationComb) where++import Curry.RunTimeSystem+import Curry.Module.AbstractCurry+import Curry.Module.FlatCurry+import Curry.Module.FlatToAbstractCurry+import Curry.Module.Prelude+import Curry.Module.SrcRef+import Curry.Module.TransformationDebugInfo+import Curry.Module.TransformationMonad+import Curry.Module.TransformationPartCalls+import Curry.Module.AbstractHaskell++++-- begin included++++-- end included++c_transformComb :: 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.AbstractCurry.C_CExpr) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformComb x1 x2 x3 x4 x5 st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.op_62_62_61_46(Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.c_freshVars(Curry.Module.Prelude.c_length(x3)(st))))(Curry.Module.Prelude.pf(Curry.Module.TransformationComb.c_transformComb'46_'35lambda2(x3)(x1)(x4)(x2)(x5))))++++c_transformComb'46_'35lambda2 :: (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CExpr) -> Curry.Module.FlatCurry.C_CombType -> (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.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformComb'46_'35lambda2 x1 x2 x3 x4 x5 x6 st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.TransformationMonad.c_ret))(Curry.Module.TransformationComb.c_transformComb'39(x2)(x4)(x1)(x6)(Curry.Module.TransformationDebugInfo.c_debugInfo(Curry.Module.TransformationDebugInfo.c_createStaticInfo(x3)(x5)(st))(Curry.Module.TransformationDebugInfo.c_dynamicInfo(Curry.Module.FlatToAbstractCurry.c_presym((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(st))(Curry.Module.FlatToAbstractCurry.c_list(Curry.Module.Prelude.c_map(Curry.Module.TransformationDebugInfo.c_genTermCallVar(st))(x6)(st))(st))(st))(st))(st))(st)++++c_transformComb'39 :: 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.AbstractCurry.C_CExpr) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_transformComb'39 x1@Curry.Module.FlatCurry.C_FuncCall x2 x3 x4 x5 st = Curry.Module.TransformationComb.c_transformComb'39_case_5(x3)(x4)(x5)(x2)(st)+c_transformComb'39 x1@(Curry.Module.FlatCurry.C_FuncPartCall x8) x2 x3 x4 x5 st = Curry.Module.TransformationComb.c_transformComb'39_case_4(x3)(x4)(x8)(x2)(st)+c_transformComb'39 x1@Curry.Module.FlatCurry.C_ConsCall x2 x3 x4 x5 st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.TransformationComb.c_call(Curry.Module.TransformationDebugInfo.c_renameCons(x2)(st))(x3)(x4)))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.TransformationDebugInfo.c_insHook((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('t'))((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('c'))((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.List))))))))))))(x5)))(Curry.Module.TransformationDebugInfo.c_wrapReturn(st))(st))(st)+c_transformComb'39 x1@(Curry.Module.FlatCurry.C_ConsPartCall x15) x2 x3 x4 x5 st = Curry.Module.TransformationComb.c_transformComb'39_case_2(x3)(x4)(x15)(x2)(st)+c_transformComb'39 (Curry.Module.FlatCurry.C_CombTypeOr i xs) x2 x3 x4 x5 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationComb.c_transformComb'39(x)(x2)(x3)(x4)(x5)(st))(i)(xs)(st)+c_transformComb'39 x x2 x3 x4 x5 st = Curry.RunTimeSystem.patternFail("TransformationComb.transformComb'")(x)++++c_transformComb'39'46insertHook'469 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_transformComb'39'46insertHook'469 x1 x2 x3 st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_debugMonadAs(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.:<)(Curry.Module.Prelude.C_Char('H'))((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('k'))(Curry.Module.Prelude.List))))))))))))))(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_acyStr(x1)(st))((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))))(st)++++c_call :: (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_CExpr) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr)) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_call x1 x2 x3 x4 st = Curry.Module.TransformationComb.c_callExpr(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(x1)(st))(Curry.Module.Prelude.c_map(Curry.Module.FlatToAbstractCurry.c_xx(st))(x3)(st))(st))(x2)(x3)(x4)(st)++++c_callExpr :: Curry.Module.AbstractCurry.C_CExpr -> (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CExpr) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr)) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_callExpr x1 x2 x3 x4 st = Curry.Module.TransformationComb.c_callExpr_case_0(x1)(x2)(x3)(x4)(Curry.Module.Prelude.c_null(x2)(st))(st)++++c_funcRep :: Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_funcRep x1 x2 st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.TransformationDebugInfo.c_funcRepCons(st))(st))((Curry.Module.Prelude.:<)(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List)))(st)++++c_callExpr_case_0 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_36(x4)(x1)(st)+c_callExpr_case_0 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.AbstractCurry.C_CDoExpr(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_zipWith(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.AbstractCurry.C_CSPat))(Curry.Module.FlatToAbstractCurry.c_px(st))(st))(x3)(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CSExpr))(Curry.Module.Prelude.c_apply(x4)(x1)(st))(st))(Curry.Module.Prelude.List))(st))+c_callExpr_case_0 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationComb.c_callExpr_case_0(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_callExpr_case_0 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("TransformationComb.callExpr_case_0")(x)++++c_transformComb'39_case_2 x3 x4 x15 x2@(Curry.Module.Prelude.T2 x16 x17) st = let {x18 = 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.op_43))(Curry.Module.Prelude.c_length(x4)(st))))(Curry.Module.Prelude.c_enumFromTo(Curry.Module.Prelude.C_Zero)(Curry.Module.Prelude.op_45(x15)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(st)} in Curry.Module.TransformationComb.c_callExpr(Curry.Module.AbstractCurry.C_CLambda(Curry.Module.Prelude.c_map(Curry.Module.FlatToAbstractCurry.c_px(st))(x18)(st))(Curry.Module.Prelude.op_36(Curry.Module.TransformationDebugInfo.c_wrapReturn(st))(Curry.Module.Prelude.op_36(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.TransformationDebugInfo.c_renameCons(x2)(st))(st))(Curry.Module.Prelude.c_map(Curry.Module.FlatToAbstractCurry.c_xx(st))(Curry.Module.Prelude.op_43_43(x4)(x18)(st))(st))(st))(st)))(x3)(x4)(Curry.Module.Prelude.op_46(Curry.Module.TransformationDebugInfo.c_wrapReturn(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.TransformationComb.c_transformComb'39_case_1(x15)(x16)(Curry.Module.Prelude.op_60_61(x15)(Curry.Module.TransformationPartCalls.c_arityThreshold(st))(st))(st))(x15)(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.TransformationDebugInfo.c_pcConsName(x2)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_list(Curry.Module.Prelude.c_map(Curry.Module.TransformationDebugInfo.c_genTermCallVar(st))(x4)(st))(st))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_transformComb'39_case_2 x3 x4 x15 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationComb.c_transformComb'39_case_2(x3)(x4)(x15)(x)(st))(i)(xs)(st)+c_transformComb'39_case_2 x3 x4 x15 x st = Curry.RunTimeSystem.patternFail("TransformationComb.transformComb'_case_2")(x)++++c_transformComb'39_case_1 x15 x16 x17@Curry.Module.Prelude.C_True 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.pf))))(Curry.Module.TransformationPartCalls.c_combDefaultPC)+c_transformComb'39_case_1 x15 x16 x17@Curry.Module.Prelude.C_False 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.pf))))(Curry.Module.TransformationPartCalls.c_combPC(x16))+c_transformComb'39_case_1 x15 x16 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationComb.c_transformComb'39_case_1(x15)(x16)(x)(st))(i)(xs)(st)+c_transformComb'39_case_1 x15 x16 x st = Curry.RunTimeSystem.patternFail("TransformationComb.transformComb'_case_1")(x)++++c_transformComb'39_case_4 x3 x4 x8 x2@(Curry.Module.Prelude.T2 x9 x10) st = Curry.Module.TransformationComb.c_call(Curry.Module.TransformationDebugInfo.c_renameFunc(x2)(st))(x3)(x4)(Curry.Module.Prelude.op_46(Curry.Module.TransformationDebugInfo.c_wrapReturn(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.TransformationComb.c_transformComb'39_case_3(x8)(x9)(Curry.Module.Prelude.op_60_61(x8)(Curry.Module.TransformationPartCalls.c_arityThreshold(st))(st))(st))(x8)(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.TransformationDebugInfo.c_pcTermName(x2)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_list(Curry.Module.Prelude.c_map(Curry.Module.TransformationDebugInfo.c_genTermCallVar(st))(x4)(st))(st))(Curry.Module.Prelude.List))(st))(st))(st))(st)+c_transformComb'39_case_4 x3 x4 x8 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationComb.c_transformComb'39_case_4(x3)(x4)(x8)(x)(st))(i)(xs)(st)+c_transformComb'39_case_4 x3 x4 x8 x st = Curry.RunTimeSystem.patternFail("TransformationComb.transformComb'_case_4")(x)++++c_transformComb'39_case_3 x8 x9 x10@Curry.Module.Prelude.C_True 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.pf))))(Curry.Module.TransformationPartCalls.c_combDefaultPC)+c_transformComb'39_case_3 x8 x9 x10@Curry.Module.Prelude.C_False 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.pf))))(Curry.Module.TransformationPartCalls.c_combPC(x9))+c_transformComb'39_case_3 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationComb.c_transformComb'39_case_3(x8)(x9)(x)(st))(i)(xs)(st)+c_transformComb'39_case_3 x8 x9 x st = Curry.RunTimeSystem.patternFail("TransformationComb.transformComb'_case_3")(x)++++c_transformComb'39_case_5 x3 x4 x5 x2@(Curry.Module.Prelude.T2 x6 x7) st = Curry.Module.TransformationComb.c_call(Curry.Module.TransformationDebugInfo.c_renameFunc(x2)(st))(x3)(x4)(Curry.Module.Prelude.pf(Curry.Module.TransformationComb.c_transformComb'39'46insertHook'469(x7)(x5)))(st)+c_transformComb'39_case_5 x3 x4 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationComb.c_transformComb'39_case_5(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c_transformComb'39_case_5 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("TransformationComb.transformComb'_case_5")(x)++
+ dist/build/mkstrict/mkstrict-tmp/Curry/Module/TransformationDebugInfo.hs view
@@ -0,0 +1,666 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.TransformationDebugInfo (module Curry.Module.TransformationDebugInfo) where++import Curry.RunTimeSystem+import Curry.Module.AbstractCurry+import Curry.Module.AbstractHaskell+import Curry.Module.FlatCurry+import Curry.Module.FlatToAbstractCurry+import Curry.Module.Prelude+import Curry.Module.SrcRef+import Curry.Module.Char++++-- begin included++++-- end included++c_debugPackage :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_debugPackage st = (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('D'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((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('g'))((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('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))(Curry.Module.Prelude.List)))))))))))))))++++c_debugMonadModule :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_debugMonadModule st = Curry.Module.Prelude.op_43_43(Curry.Module.TransformationDebugInfo.c_debugPackage(st))((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('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((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('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))(Curry.Module.Prelude.List)))))))))))(st)++++c_debugMonadAs :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_debugMonadAs st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('D'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('M'))(Curry.Module.Prelude.List))++++c_debugMonadImport :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_debugMonadImport st = Curry.Module.Prelude.op_43_43(Curry.Module.TransformationDebugInfo.c_debugMonadModule(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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.TransformationDebugInfo.c_debugMonadAs(st))(st))(st)++++c_debugInfoModule :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_debugInfoModule st = Curry.Module.Prelude.op_43_43(Curry.Module.TransformationDebugInfo.c_debugPackage(st))((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('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((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('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))(Curry.Module.Prelude.List))))))))))(st)++++c_debugInfoAs :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_debugInfoAs st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('D'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))(Curry.Module.Prelude.List))++++c_debugInfoImport :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_debugInfoImport st = Curry.Module.Prelude.op_43_43(Curry.Module.TransformationDebugInfo.c_debugInfoModule(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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.TransformationDebugInfo.c_debugInfoAs(st))(st))(st)++++c_dataGenericsImport :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_dataGenericsImport 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.:<)(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('n'))((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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))))))))))++++c_dataTypeableImport :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_dataTypeableImport 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.:<)(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('a'))((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('e'))(Curry.Module.Prelude.List)))))))))))))++++c_typeableClass :: 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_typeableClass st = Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_dataGenericsImport(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.:<)(Curry.Module.Prelude.C_Char('a'))((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('e'))(Curry.Module.Prelude.List)))))))))++++c_dataClass :: 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_dataClass st = Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_dataGenericsImport(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)))))++++c_higherOrderTypes :: 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_higherOrderTypes st = Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.TransformationDebugInfo.c_renameModule))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.FlatToAbstractCurry.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))(st)++++c_debugMonadClass :: 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_debugMonadClass st = Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_debugMonadAs(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('D'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('M'))(Curry.Module.Prelude.List)))++++c_debugMonadEval :: 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_debugMonadEval st = Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_debugMonadAs(st))((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.List)))))++++c_debugInfoCons :: 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_debugInfoCons st = Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_debugInfoAs(st))((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('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((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('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))(Curry.Module.Prelude.List))))))))))++++c_staticInfoClass :: 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_staticInfoClass st = Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_debugInfoAs(st))((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('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('m'))(Curry.Module.Prelude.List))))))))++++c_staticInfoFunc :: 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_staticInfoFunc st = Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_debugInfoAs(st))((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('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('m'))(Curry.Module.Prelude.List))))))))++++c_genericInfoFunc :: 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_genericInfoFunc st = Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_debugMonadAs(st))((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('n'))((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('i'))((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('m'))(Curry.Module.Prelude.List))))))))))))++++c_genStaticInfoClass :: 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_genStaticInfoClass st = Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_debugInfoAs(st))((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('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('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('c'))((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.List))))))))))))))++++c_genStaticInfoFunc :: 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_genStaticInfoFunc st = Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_debugInfoAs(st))((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('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('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('c'))((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.List))))))))))))))++++c_underscoreMethod :: 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_underscoreMethod st = Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_debugInfoAs(st))((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('r'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))++++c_staticInfoCons :: 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_staticInfoCons st = Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_debugInfoAs(st))((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.List)))))++++c_underscoreCons :: 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_underscoreCons st = Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_debugInfoAs(st))((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('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('r'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))++++c_staticInfoSrcCons :: 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_staticInfoSrcCons st = Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_debugInfoAs(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((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('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('D'))(Curry.Module.Prelude.List))))))++++c_dynamicInfoCons :: 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_dynamicInfoCons st = Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_debugInfoAs(st))((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('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.List))))))))))))++++c_funcRepType :: 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_funcRepType st = Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_debugMonadAs(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.List)))))++++c_funcRepCons :: 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_funcRepCons st = Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_debugMonadAs(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('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))(Curry.Module.Prelude.List))))))))++++c_modulePrefix :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_modulePrefix st = (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('D'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((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('g'))((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))))))))))))))))))++++c_manualPrefix :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_manualPrefix st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('M'))(Curry.Module.Prelude.List)++++c_funcPrefix :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_funcPrefix 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('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))(Curry.Module.Prelude.List)))))))++++c_opPrefix :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_opPrefix st = (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_pcTermPrefix :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_pcTermPrefix st = (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('_'))(Curry.Module.Prelude.List)))))++++c_hookHelperPrefix :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_hookHelperPrefix st = (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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))(Curry.Module.Prelude.List)))))++++c_underscoreSuffix :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_underscoreSuffix st = (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('r'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))))++++c_failSuffix :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_failSuffix 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.List))))++++c_orSuffix :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_orSuffix st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))++++c_debugTVarName :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_debugTVarName st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))(Curry.Module.Prelude.List))++++c_debugTVar :: 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_debugTVar st = Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.TransformationDebugInfo.c_debugTVarName(st))++++c_debugMonadConstraint :: Curry.RunTimeSystem.State -> Curry.Module.AbstractHaskell.C_TypeClass+c_debugMonadConstraint st = Curry.Module.AbstractHaskell.C_TypeClass(Curry.Module.TransformationDebugInfo.c_debugMonadClass(st))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CTVar(Curry.Module.Prelude.T2(Curry.Module.Prelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(Curry.Module.TransformationDebugInfo.c_debugTVarName(st))))(Curry.Module.Prelude.List))++++c_wrapDebugTVar :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CTypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CTypeExpr)+c_wrapDebugTVar st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CTCons(Curry.Module.TransformationDebugInfo.c_debugTVar(st))))(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)++++c_wrapReturn :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr)+c_wrapReturn st = Curry.Module.Prelude.op_46(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.FlatToAbstractCurry.c_prename((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('t'))((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('n'))(Curry.Module.Prelude.List)))))))(st))(st))(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)++++c_wrapEval :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr)+c_wrapEval st = Curry.Module.Prelude.op_46(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.TransformationDebugInfo.c_debugMonadEval(st))(st))(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)++++c_funcRepWrap :: Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_funcRepWrap x1 st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.FlatToAbstractCurry.c_point(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.TransformationDebugInfo.c_funcRepCons(st))(st))((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List))(st))(st)++++c_insHook :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_insHook x1 x2 x3 st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_debugMonadAs(st))(Curry.Module.Prelude.op_43_43(x1)((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))(Curry.Module.Prelude.List)))))(st)))(st))((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(st)++++c_exceptionHook :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_exceptionHook x1 x2 st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_debugMonadAs(st))(Curry.Module.Prelude.op_43_43(x1)((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))(Curry.Module.Prelude.List)))))(st)))(st))((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(st)++++c_skipExternalTypes :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_skipExternalTypes st = Curry.Module.Prelude.C_False++++c_externalTypes :: 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_externalTypes st = Curry.Module.Prelude.c_map(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.TransformationDebugInfo.c_renameModule))(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_prename))(st))((Curry.Module.Prelude.:<)((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.:<)(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.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.List))))(st)++++c_skippedFunc :: Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_skippedFunc x1@(Curry.Module.FlatCurry.C_Func x2 x3 x4 x5 x6) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.C_False)(Curry.Module.TransformationDebugInfo.c_skippedSignature(x5)(st))(st)+c_skippedFunc (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_skippedFunc(x)(st))(i)(xs)(st)+c_skippedFunc x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.skippedFunc")(x)++++c_skippedSignature :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_skippedSignature x1@(Curry.Module.FlatCurry.C_TVar x2) st = Curry.Module.Prelude.C_False+c_skippedSignature x1@(Curry.Module.FlatCurry.C_FuncType x3 x4) st = Curry.Module.Prelude.op_124_124(Curry.Module.TransformationDebugInfo.c_skippedSignature(x3)(st))(Curry.Module.TransformationDebugInfo.c_skippedSignature(x4)(st))(st)+c_skippedSignature x1@(Curry.Module.FlatCurry.C_TCons x5 x6) st = Curry.Module.Prelude.op_124_124(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_elem(x5)(st))(Curry.Module.TransformationDebugInfo.c_externalTypes(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_any(Curry.Module.Prelude.pf(Curry.Module.TransformationDebugInfo.c_skippedSignature))(st))(x6)(st))(st)+c_skippedSignature (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_skippedSignature(x)(st))(i)(xs)(st)+c_skippedSignature x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.skippedSignature")(x)++++c_skippedType :: Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_skippedType x1@(Curry.Module.FlatCurry.C_Type x2 x3 x4 x5) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.op_124_124(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_elem(x2)(st))(Curry.Module.TransformationDebugInfo.c_externalTypes(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_any(Curry.Module.Prelude.pf(Curry.Module.TransformationDebugInfo.c_skippedType'46skippedCons'46113))(st))(x5)(st))(st))(st)+c_skippedType (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_skippedType(x)(st))(i)(xs)(st)+c_skippedType x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.skippedType")(x)++++c_skippedType'46skippedCons'46113 :: Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_skippedType'46skippedCons'46113 x1@(Curry.Module.FlatCurry.C_Cons x2 x3 x4 x5) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_any(Curry.Module.Prelude.pf(Curry.Module.TransformationDebugInfo.c_skippedSignature))(st))(x5)(st)+c_skippedType'46skippedCons'46113 (Curry.Module.FlatCurry.C_ConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_skippedType'46skippedCons'46113(x)(st))(i)(xs)(st)+c_skippedType'46skippedCons'46113 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.skippedType.skippedCons.113")(x)++++c_debugInfo :: Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_debugInfo x1 x2 st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.TransformationDebugInfo.c_debugInfoCons(st))(st))((Curry.Module.Prelude.:<)(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List)))(st)++++c_dynamicInfo :: Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_dynamicInfo x1 x2 st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.TransformationDebugInfo.c_dynamicInfoCons(st))(st))((Curry.Module.Prelude.:<)(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List)))(st)++++c_simpleDynInfo :: Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_simpleDynInfo x1 st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.TransformationDebugInfo.c_dynamicInfoCons(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_presym((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(st))((Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.List)))(st)++++c_createStaticInfo :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_createStaticInfo x1 x2@Curry.Module.Prelude.List st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.TransformationDebugInfo.c_staticInfoSrcCons(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_acyStr(Curry.Module.Prelude.c_drop(Curry.Module.Prelude.c_length(Curry.Module.TransformationDebugInfo.c_modulePrefix(st))(st))(x1)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CLit(Curry.Module.AbstractCurry.C_CIntc(Curry.Module.Prelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))))(Curry.Module.Prelude.List)))(st)+c_createStaticInfo x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.TransformationDebugInfo.c_staticInfoSrcCons(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_acyStr(Curry.Module.Prelude.c_drop(Curry.Module.Prelude.c_length(Curry.Module.TransformationDebugInfo.c_modulePrefix(st))(st))(x1)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CLit(Curry.Module.AbstractCurry.C_CIntc(x3)))(Curry.Module.Prelude.List)))(st)+c_createStaticInfo x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_createStaticInfo(x1)(x)(st))(i)(xs)(st)+c_createStaticInfo x1 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.createStaticInfo")(x)++++c_dummyDebugInfo :: Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_dummyDebugInfo st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.TransformationDebugInfo.c_debugInfoCons(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.TransformationDebugInfo.c_dummyStatInfo(st))((Curry.Module.Prelude.:<)(Curry.Module.TransformationDebugInfo.c_simpleDynInfo(Curry.Module.FlatToAbstractCurry.c_presym((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.List)))(st)++++c_dummyStatInfo :: Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_dummyStatInfo st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.TransformationDebugInfo.c_staticInfoSrcCons(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_acyStr((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('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((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))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CLit(Curry.Module.AbstractCurry.C_CIntc(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_IHi)))))))))(Curry.Module.Prelude.List)))(st)++++c_genTermCall :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr)+c_genTermCall st = Curry.Module.Prelude.op_46(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.TransformationDebugInfo.c_staticInfoFunc(st))(st))(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)++++c_genTermCallVar :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr)+c_genTermCallVar st = Curry.Module.Prelude.op_46(Curry.Module.TransformationDebugInfo.c_genTermCall(st))(Curry.Module.FlatToAbstractCurry.c_xx(st))(st)++++c_hookHelperName :: (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_hookHelperName x1 st = let {x2 = Curry.Module.TransformationDebugInfo.c_renameFunc(x1)(st)} in Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_hookHelperName'46_'35selFP3'35mod(x2)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.TransformationDebugInfo.c_hookHelperPrefix(st))(Curry.Module.TransformationDebugInfo.c_hookHelperName'46_'35selFP4'35fn(x2)(st))(st))++++c_hookHelperName'46_'35selFP3'35mod :: (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_hookHelperName'46_'35selFP3'35mod x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_hookHelperName'46_'35selFP3'35mod (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_hookHelperName'46_'35selFP3'35mod(x)(st))(i)(xs)(st)+c_hookHelperName'46_'35selFP3'35mod x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.hookHelperName._#selFP3#mod")(x)++++c_hookHelperName'46_'35selFP4'35fn :: (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_hookHelperName'46_'35selFP4'35fn x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_hookHelperName'46_'35selFP4'35fn (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_hookHelperName'46_'35selFP4'35fn(x)(st))(i)(xs)(st)+c_hookHelperName'46_'35selFP4'35fn x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.hookHelperName._#selFP4#fn")(x)++++c_pcTermName :: (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_pcTermName x1 st = let {x2 = Curry.Module.TransformationDebugInfo.c_renameFunc(x1)(st)} in Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_pcTermName'46_'35selFP6'35mod(x2)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.TransformationDebugInfo.c_pcTermPrefix(st))(Curry.Module.TransformationDebugInfo.c_pcTermName'46_'35selFP7'35fn(x2)(st))(st))++++c_pcTermName'46_'35selFP6'35mod :: (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_pcTermName'46_'35selFP6'35mod x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_pcTermName'46_'35selFP6'35mod (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_pcTermName'46_'35selFP6'35mod(x)(st))(i)(xs)(st)+c_pcTermName'46_'35selFP6'35mod x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.pcTermName._#selFP6#mod")(x)++++c_pcTermName'46_'35selFP7'35fn :: (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_pcTermName'46_'35selFP7'35fn x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_pcTermName'46_'35selFP7'35fn (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_pcTermName'46_'35selFP7'35fn(x)(st))(i)(xs)(st)+c_pcTermName'46_'35selFP7'35fn x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.pcTermName._#selFP7#fn")(x)++++c_pcConsName :: (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_pcConsName x1 st = let {x2 = Curry.Module.TransformationDebugInfo.c_renameCons(x1)(st)} in Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_pcConsName'46_'35selFP9'35mod(x2)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.TransformationDebugInfo.c_pcTermPrefix(st))(Curry.Module.TransformationDebugInfo.c_pcConsName'46_'35selFP10'35cn(x2)(st))(st))++++c_pcConsName'46_'35selFP9'35mod :: (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_pcConsName'46_'35selFP9'35mod x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_pcConsName'46_'35selFP9'35mod (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_pcConsName'46_'35selFP9'35mod(x)(st))(i)(xs)(st)+c_pcConsName'46_'35selFP9'35mod x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.pcConsName._#selFP9#mod")(x)++++c_pcConsName'46_'35selFP10'35cn :: (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_pcConsName'46_'35selFP10'35cn x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_pcConsName'46_'35selFP10'35cn (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_pcConsName'46_'35selFP10'35cn(x)(st))(i)(xs)(st)+c_pcConsName'46_'35selFP10'35cn x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.pcConsName._#selFP10#cn")(x)++++c_renameModule :: (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_renameModule x1@(Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.Prelude.T2(Curry.Module.Prelude.op_43_43(Curry.Module.TransformationDebugInfo.c_modulePrefix(st))(x2)(st))(x3)+c_renameModule (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameModule(x)(st))(i)(xs)(st)+c_renameModule x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameModule")(x)++++c_renameType :: (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_renameType x1@(Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.TransformationDebugInfo.c_renameType_case_30(x1)(x2)(x3)(st)+c_renameType (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameType(x)(st))(i)(xs)(st)+c_renameType x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameType")(x)++++c_renameCons :: (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_renameCons x1@(Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.TransformationDebugInfo.c_renameCons_case_25(x2)(x3)(st)+c_renameCons (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameCons(x)(st))(i)(xs)(st)+c_renameCons x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameCons")(x)++++c_renameTuple :: (Curry t0) => (Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_renameTuple x1 st = let {x2 = Curry.Module.Prelude.c_length(x1)(st)} in Curry.Module.TransformationDebugInfo.c_renameTuple_case_5(x2)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(st))(st)++++c_renameFunc :: (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_renameFunc x1@(Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.Prelude.T2(x2)(Curry.Module.TransformationDebugInfo.c_renameFunc'39(x3)(st))+c_renameFunc (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameFunc(x)(st))(i)(xs)(st)+c_renameFunc x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameFunc")(x)++++c_renameFunc'39 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_renameFunc'39 x1 st = Curry.Module.TransformationDebugInfo.c_renameFunc'39_case_4(x1)(Curry.Module.Prelude.c_apply(Curry.Module.TransformationDebugInfo.c_isInfix(st))(x1)(st))(st)++++c_isInfix :: 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_isInfix st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(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.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_fst))(Curry.Module.TransformationDebugInfo.c_infixNames(st))(st))))(st)++++c_renameInfix :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_renameInfix x1 st = Curry.Module.Prelude.c_concat(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.TransformationDebugInfo.c_renameInfix'46convert'46195(x1)(Curry.Module.TransformationDebugInfo.c_infixNames(st))))(x1)(st))(st)++++c_renameInfix'46convert'46195 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 t1)) -> t0 -> Curry.RunTimeSystem.State -> t1+c_renameInfix'46convert'46195 x1 x2@Curry.Module.Prelude.List x3 st = 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('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('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(' '))((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('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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(' '))(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.:<)(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)))))(x1)(st))(st))(st))(st)+c_renameInfix'46convert'46195 x1 x2@((Curry.Module.Prelude.:<) x4 x5) x3 st = Curry.Module.TransformationDebugInfo.c_renameInfix'46convert'46195_case_2(x1)(x3)(x5)(x4)(st)+c_renameInfix'46convert'46195 x1 (Curry.Module.Prelude.ListOr i xs) x3 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameInfix'46convert'46195(x1)(x)(x3)(st))(i)(xs)(st)+c_renameInfix'46convert'46195 x1 x x3 st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameInfix.convert.195")(x)++++c_infixNames :: 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_infixNames st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(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('l'))((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.T2(Curry.Module.Prelude.C_Char('!'))((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('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Char('@'))((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.Prelude.C_Char('#'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(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('l'))((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('r'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Char('%'))((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('c'))((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.List)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(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('c'))((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.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(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.List)))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Char('*'))((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('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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))(Curry.Module.Prelude.List))))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Char('+'))((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('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Char('-'))((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('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('q'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(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.List))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(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.List))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Char('?'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('Q'))((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('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Char('.'))((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('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.Prelude.C_Char('/'))((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('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(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.List))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Char('\\'))((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('l'))((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('h'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.List))))))))))))))))))))++++c_outputFile :: (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.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_outputFile x1 x2 x3 st = Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_maybe(x1)(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(x2)(st))(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('D'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((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('g'))((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(x3)((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('s'))(Curry.Module.Prelude.List))))(st))(st))(st)++++c_renameInfix'46convert'46195_case_2 x1 x3 x5 x4@(Curry.Module.Prelude.T2 x6 x7) st = Curry.Module.TransformationDebugInfo.c_renameInfix'46convert'46195_case_1(x1)(x3)(x5)(x6)(x7)(Curry.Module.Prelude.op_61_61(x3)(x6)(st))(st)+c_renameInfix'46convert'46195_case_2 x1 x3 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameInfix'46convert'46195_case_2(x1)(x3)(x5)(x)(st))(i)(xs)(st)+c_renameInfix'46convert'46195_case_2 x1 x3 x5 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameInfix.convert.195_case_2")(x)++++c_renameInfix'46convert'46195_case_1 x1 x3 x5 x6 x7 x8@Curry.Module.Prelude.C_True st = x7+c_renameInfix'46convert'46195_case_1 x1 x3 x5 x6 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.TransformationDebugInfo.c_renameInfix'46convert'46195_case_0(x1)(x3)(x5)(Curry.Module.Prelude.c_otherwise(st))(st)+c_renameInfix'46convert'46195_case_1 x1 x3 x5 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameInfix'46convert'46195_case_1(x1)(x3)(x5)(x6)(x7)(x)(st))(i)(xs)(st)+c_renameInfix'46convert'46195_case_1 x1 x3 x5 x6 x7 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameInfix.convert.195_case_1")(x)++++c_renameInfix'46convert'46195_case_0 x1 x3 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.TransformationDebugInfo.c_renameInfix'46convert'46195(x1)(x5)(x3)(st)+c_renameInfix'46convert'46195_case_0 x1 x3 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameInfix'46convert'46195_case_0(x1)(x3)(x5)(x)(st))(i)(xs)(st)+c_renameInfix'46convert'46195_case_0 x1 x3 x5 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameInfix.convert.195_case_0")(x)++++c_renameFunc'39_case_4 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43(Curry.Module.TransformationDebugInfo.c_opPrefix(st))(Curry.Module.TransformationDebugInfo.c_renameInfix(x1)(st))(st)+c_renameFunc'39_case_4 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.TransformationDebugInfo.c_renameFunc'39_case_3(x1)(Curry.Module.Prelude.c_otherwise(st))(st)+c_renameFunc'39_case_4 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameFunc'39_case_4(x1)(x)(st))(i)(xs)(st)+c_renameFunc'39_case_4 x1 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameFunc'_case_4")(x)++++c_renameFunc'39_case_3 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_43_43(Curry.Module.TransformationDebugInfo.c_funcPrefix(st))(x1)(st)+c_renameFunc'39_case_3 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameFunc'39_case_3(x1)(x)(st))(i)(xs)(st)+c_renameFunc'39_case_3 x1 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameFunc'_case_3")(x)++++c_renameTuple_case_5 x2 x3@Curry.Module.Prelude.C_True st = (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('t'))(Curry.Module.Prelude.List))))+c_renameTuple_case_5 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.c_show(Curry.Module.Prelude.op_45(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(st)+c_renameTuple_case_5 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameTuple_case_5(x2)(x)(st))(i)(xs)(st)+c_renameTuple_case_5 x2 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameTuple_case_5")(x)++++c_renameCons_case_25 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.TransformationDebugInfo.c_renameCons_case_24(x2)(x4)(x3)(st)+c_renameCons_case_25 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameCons_case_25(x2)(x)(st))(i)(xs)(st)+c_renameCons_case_25 x2 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameCons_case_25")(x)++++c_renameCons_case_24 x2 x4 x3@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.TransformationDebugInfo.c_renameCons_case_23(x2)(x3)(x4)(x6)(x7)(Curry.Module.Prelude.op_61_61(x6)(Curry.Module.Prelude.C_Char(':'))(st))(st)+c_renameCons_case_24 x2 x4 x3@Curry.Module.Prelude.List st = Curry.Module.TransformationDebugInfo.c_renameCons_case_7(x2)(x3)(x4)(Curry.Module.Prelude.op_61_61(x4)(Curry.Module.Prelude.C_Char('('))(st))(st)+c_renameCons_case_24 x2 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameCons_case_24(x2)(x4)(x)(st))(i)(xs)(st)+c_renameCons_case_24 x2 x4 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameCons_case_24")(x)++++c_renameCons_case_7 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.T2(x2)(Curry.Module.TransformationDebugInfo.c_renameTuple(x3)(st))+c_renameCons_case_7 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.T2(x2)(Curry.Module.TransformationDebugInfo.c_renameCons_case_6(x3)(Curry.Module.Prelude.c_apply(Curry.Module.TransformationDebugInfo.c_isInfix(st))(x3)(st))(st))+c_renameCons_case_7 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameCons_case_7(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_renameCons_case_7 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameCons_case_7")(x)++++c_renameCons_case_6 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.TransformationDebugInfo.c_renameTuple(x3)(st)+c_renameCons_case_6 x3 x4@Curry.Module.Prelude.C_False st = x3+c_renameCons_case_6 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameCons_case_6(x3)(x)(st))(i)(xs)(st)+c_renameCons_case_6 x3 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameCons_case_6")(x)++++c_renameCons_case_23 x2 x3 x4 x6 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.TransformationDebugInfo.c_renameCons_case_22(x2)(x3)(x4)(x7)(st)+c_renameCons_case_23 x2 x3 x4 x6 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.TransformationDebugInfo.c_renameCons_case_19(x2)(x3)(x4)(x6)(x7)(Curry.Module.Prelude.op_61_61(x6)(Curry.Module.Prelude.C_Char('['))(st))(st)+c_renameCons_case_23 x2 x3 x4 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameCons_case_23(x2)(x3)(x4)(x6)(x7)(x)(st))(i)(xs)(st)+c_renameCons_case_23 x2 x3 x4 x6 x7 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameCons_case_23")(x)++++c_renameCons_case_19 x2 x3 x4 x6 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.TransformationDebugInfo.c_renameCons_case_18(x2)(x3)(x4)(x7)(st)+c_renameCons_case_19 x2 x3 x4 x6 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.TransformationDebugInfo.c_renameCons_case_9(x2)(x3)(x4)(Curry.Module.Prelude.op_61_61(x4)(Curry.Module.Prelude.C_Char('('))(st))(st)+c_renameCons_case_19 x2 x3 x4 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameCons_case_19(x2)(x3)(x4)(x6)(x7)(x)(st))(i)(xs)(st)+c_renameCons_case_19 x2 x3 x4 x6 x7 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameCons_case_19")(x)++++c_renameCons_case_9 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.T2(x2)(Curry.Module.TransformationDebugInfo.c_renameTuple(x3)(st))+c_renameCons_case_9 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.T2(x2)(Curry.Module.TransformationDebugInfo.c_renameCons_case_8(x3)(Curry.Module.Prelude.c_apply(Curry.Module.TransformationDebugInfo.c_isInfix(st))(x3)(st))(st))+c_renameCons_case_9 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameCons_case_9(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_renameCons_case_9 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameCons_case_9")(x)++++c_renameCons_case_8 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.TransformationDebugInfo.c_renameTuple(x3)(st)+c_renameCons_case_8 x3 x4@Curry.Module.Prelude.C_False st = x3+c_renameCons_case_8 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameCons_case_8(x3)(x)(st))(i)(xs)(st)+c_renameCons_case_8 x3 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameCons_case_8")(x)++++c_renameCons_case_18 x2 x3 x4 x7@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.TransformationDebugInfo.c_renameCons_case_17(x2)(x3)(x4)(x10)(x11)(Curry.Module.Prelude.op_61_61(x10)(Curry.Module.Prelude.C_Char(']'))(st))(st)+c_renameCons_case_18 x2 x3 x4 x7@Curry.Module.Prelude.List st = Curry.Module.TransformationDebugInfo.c_renameCons_case_11(x2)(x3)(x4)(Curry.Module.Prelude.op_61_61(x4)(Curry.Module.Prelude.C_Char('('))(st))(st)+c_renameCons_case_18 x2 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameCons_case_18(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_renameCons_case_18 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameCons_case_18")(x)++++c_renameCons_case_11 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.T2(x2)(Curry.Module.TransformationDebugInfo.c_renameTuple(x3)(st))+c_renameCons_case_11 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.T2(x2)(Curry.Module.TransformationDebugInfo.c_renameCons_case_10(x3)(Curry.Module.Prelude.c_apply(Curry.Module.TransformationDebugInfo.c_isInfix(st))(x3)(st))(st))+c_renameCons_case_11 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameCons_case_11(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_renameCons_case_11 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameCons_case_11")(x)++++c_renameCons_case_10 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.TransformationDebugInfo.c_renameTuple(x3)(st)+c_renameCons_case_10 x3 x4@Curry.Module.Prelude.C_False st = x3+c_renameCons_case_10 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameCons_case_10(x3)(x)(st))(i)(xs)(st)+c_renameCons_case_10 x3 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameCons_case_10")(x)++++c_renameCons_case_17 x2 x3 x4 x10 x11 x12@Curry.Module.Prelude.C_True st = Curry.Module.TransformationDebugInfo.c_renameCons_case_16(x2)(x3)(x4)(x11)(st)+c_renameCons_case_17 x2 x3 x4 x10 x11 x12@Curry.Module.Prelude.C_False st = Curry.Module.TransformationDebugInfo.c_renameCons_case_13(x2)(x3)(x4)(Curry.Module.Prelude.op_61_61(x4)(Curry.Module.Prelude.C_Char('('))(st))(st)+c_renameCons_case_17 x2 x3 x4 x10 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameCons_case_17(x2)(x3)(x4)(x10)(x11)(x)(st))(i)(xs)(st)+c_renameCons_case_17 x2 x3 x4 x10 x11 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameCons_case_17")(x)++++c_renameCons_case_13 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.T2(x2)(Curry.Module.TransformationDebugInfo.c_renameTuple(x3)(st))+c_renameCons_case_13 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.T2(x2)(Curry.Module.TransformationDebugInfo.c_renameCons_case_12(x3)(Curry.Module.Prelude.c_apply(Curry.Module.TransformationDebugInfo.c_isInfix(st))(x3)(st))(st))+c_renameCons_case_13 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameCons_case_13(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_renameCons_case_13 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameCons_case_13")(x)++++c_renameCons_case_12 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.TransformationDebugInfo.c_renameTuple(x3)(st)+c_renameCons_case_12 x3 x4@Curry.Module.Prelude.C_False st = x3+c_renameCons_case_12 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameCons_case_12(x3)(x)(st))(i)(xs)(st)+c_renameCons_case_12 x3 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameCons_case_12")(x)++++c_renameCons_case_16 x2 x3 x4 x11@Curry.Module.Prelude.List st = Curry.Module.Prelude.T2(x2)((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('l'))(Curry.Module.Prelude.List))))+c_renameCons_case_16 x2 x3 x4 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.TransformationDebugInfo.c_renameCons_case_15(x2)(x3)(x4)(Curry.Module.Prelude.op_61_61(x4)(Curry.Module.Prelude.C_Char('('))(st))(st)+c_renameCons_case_16 x2 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameCons_case_16(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_renameCons_case_16 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameCons_case_16")(x)++++c_renameCons_case_15 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.T2(x2)(Curry.Module.TransformationDebugInfo.c_renameTuple(x3)(st))+c_renameCons_case_15 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.T2(x2)(Curry.Module.TransformationDebugInfo.c_renameCons_case_14(x3)(Curry.Module.Prelude.c_apply(Curry.Module.TransformationDebugInfo.c_isInfix(st))(x3)(st))(st))+c_renameCons_case_15 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameCons_case_15(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_renameCons_case_15 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameCons_case_15")(x)++++c_renameCons_case_14 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.TransformationDebugInfo.c_renameTuple(x3)(st)+c_renameCons_case_14 x3 x4@Curry.Module.Prelude.C_False st = x3+c_renameCons_case_14 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameCons_case_14(x3)(x)(st))(i)(xs)(st)+c_renameCons_case_14 x3 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameCons_case_14")(x)++++c_renameCons_case_22 x2 x3 x4 x7@Curry.Module.Prelude.List st = Curry.Module.Prelude.T2(x2)((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)))))+c_renameCons_case_22 x2 x3 x4 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.TransformationDebugInfo.c_renameCons_case_21(x2)(x3)(x4)(Curry.Module.Prelude.op_61_61(x4)(Curry.Module.Prelude.C_Char('('))(st))(st)+c_renameCons_case_22 x2 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameCons_case_22(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_renameCons_case_22 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameCons_case_22")(x)++++c_renameCons_case_21 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.T2(x2)(Curry.Module.TransformationDebugInfo.c_renameTuple(x3)(st))+c_renameCons_case_21 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.T2(x2)(Curry.Module.TransformationDebugInfo.c_renameCons_case_20(x3)(Curry.Module.Prelude.c_apply(Curry.Module.TransformationDebugInfo.c_isInfix(st))(x3)(st))(st))+c_renameCons_case_21 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameCons_case_21(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_renameCons_case_21 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameCons_case_21")(x)++++c_renameCons_case_20 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.TransformationDebugInfo.c_renameTuple(x3)(st)+c_renameCons_case_20 x3 x4@Curry.Module.Prelude.C_False st = x3+c_renameCons_case_20 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameCons_case_20(x3)(x)(st))(i)(xs)(st)+c_renameCons_case_20 x3 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameCons_case_20")(x)++++c_renameType_case_30 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.TransformationDebugInfo.c_renameType_case_29(x1)(x2)(x4)(x5)(Curry.Module.Prelude.op_61_61(x4)(Curry.Module.Prelude.C_Char('['))(st))(st)+c_renameType_case_30 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.TransformationDebugInfo.c_renameCons(x1)(st)+c_renameType_case_30 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameType_case_30(x1)(x2)(x)(st))(i)(xs)(st)+c_renameType_case_30 x1 x2 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameType_case_30")(x)++++c_renameType_case_29 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.TransformationDebugInfo.c_renameType_case_28(x1)(x2)(x5)(st)+c_renameType_case_29 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.TransformationDebugInfo.c_renameCons(x1)(st)+c_renameType_case_29 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameType_case_29(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c_renameType_case_29 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameType_case_29")(x)++++c_renameType_case_28 x1 x2 x5@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.TransformationDebugInfo.c_renameType_case_27(x1)(x2)(x6)(x7)(Curry.Module.Prelude.op_61_61(x6)(Curry.Module.Prelude.C_Char(']'))(st))(st)+c_renameType_case_28 x1 x2 x5@Curry.Module.Prelude.List st = Curry.Module.TransformationDebugInfo.c_renameCons(x1)(st)+c_renameType_case_28 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameType_case_28(x1)(x2)(x)(st))(i)(xs)(st)+c_renameType_case_28 x1 x2 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameType_case_28")(x)++++c_renameType_case_27 x1 x2 x6 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.TransformationDebugInfo.c_renameType_case_26(x1)(x2)(x7)(st)+c_renameType_case_27 x1 x2 x6 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.TransformationDebugInfo.c_renameCons(x1)(st)+c_renameType_case_27 x1 x2 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameType_case_27(x1)(x2)(x6)(x7)(x)(st))(i)(xs)(st)+c_renameType_case_27 x1 x2 x6 x7 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameType_case_27")(x)++++c_renameType_case_26 x1 x2 x7@Curry.Module.Prelude.List st = Curry.Module.Prelude.T2(x2)((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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))))+c_renameType_case_26 x1 x2 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.TransformationDebugInfo.c_renameCons(x1)(st)+c_renameType_case_26 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDebugInfo.c_renameType_case_26(x1)(x2)(x)(st))(i)(xs)(st)+c_renameType_case_26 x1 x2 x st = Curry.RunTimeSystem.patternFail("TransformationDebugInfo.renameType_case_26")(x)++
+ dist/build/mkstrict/mkstrict-tmp/Curry/Module/TransformationDependencies.hs view
@@ -0,0 +1,104 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.TransformationDependencies (module Curry.Module.TransformationDependencies) 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.Make+import Curry.Module.Maybe+import Curry.Module.Prelude+import Curry.Module.Transformation+import Curry.Module.TransformationDebugInfo+import Curry.Module.System+import Curry.Module.FlatCurryGoodies++++-- begin included++++-- end included++c_aux2 :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_aux2 st = Curry.Module.TransformationDependencies.c_main(st)++++c_main :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_main st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Make.c_parseArgs(st))(Curry.Module.Prelude.pf(Curry.Module.TransformationDependencies.c_main'46_'35lambda2))(st)++++c_main'46_'35lambda2 :: Curry.Module.Make.C_Parameter -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_main'46_'35lambda2 x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Distribution.c_getStdLibDir(st))(Curry.Module.Prelude.pf(Curry.Module.TransformationDependencies.c_main'46_'35lambda2'46_'35lambda3(x1)))(st)++++c_main'46_'35lambda2'46_'35lambda3 :: Curry.Module.Make.C_Parameter -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_main'46_'35lambda2'46_'35lambda3 x1 x2 st = Curry.Module.Prelude.op_62_62(Curry.Module.Prelude.c_maybe(Curry.Module.Prelude.c_done(st))(Curry.Module.Prelude.pf(Curry.Module.TransformationDependencies.c_mayCreateDirectory))(Curry.Module.Make.c_output(x1)(st))(st))(Curry.Module.TransformationDependencies.c_transformProgs(x2)(x1)(st))(st)++++c_mayCreateDirectory :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_mayCreateDirectory x1 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Directory.c_doesDirectoryExist(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.TransformationDependencies.c_mayCreateDirectory'46_'35lambda4(x1)))(st)++++c_mayCreateDirectory'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.T0+c_mayCreateDirectory'46_'35lambda4 x1 x2 st = Curry.Module.Make.c_unless(x2)(Curry.Module.Directory.c_createDirectory(x1)(st))(st)++++c_transformProgs :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Make.C_Parameter -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_transformProgs x1 x2 st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.Make.c_make(st))(Curry.Module.Make.c_quiet(x2)(st))(st))(Curry.Module.Make.c_modulename(x2)(st))(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.TransformationDependencies.c_testTransformNecessary(x1)(Curry.Module.Make.c_quiet(x2)(st))(Curry.Module.Make.c_output(x2)(st))))(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.pf))))(Curry.Module.TransformationDependencies.c_transformProgs'46_'35lambda5(x2)))(st)++++c_transformProgs'46_'35lambda5 :: Curry.Module.Make.C_Parameter -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.T0) -> Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_transformProgs'46_'35lambda5 x1 x2 x3 x4 st = Curry.Module.Transformation.c_transformFlatCurry(Curry.Module.Make.c_quiet(x1)(st))(Curry.Module.Make.c_output(x1)(st))(x2)(x4)(Curry.Module.Prelude.C_Nothing)(st)++++c_testTransformNecessary :: (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.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_testTransformNecessary x1 x2 x3 x4 x5 st = Curry.Module.Prelude.op_62_62_61(Curry.Module.Make.c_obsolete(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.TransformationDependencies.c_testTransformNecessary'46_'35lambda6(x3)))(Curry.Module.Prelude.c_map(Curry.Module.TransformationDependencies.c_renameFile(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.pf(Curry.Module.TransformationDependencies.c_testTransformNecessary'46_'35lambda7))((Curry.Module.Prelude.:<)(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('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))(Curry.Module.Prelude.pf(Curry.Module.TransformationDependencies.c_testTransformNecessary'46_'35lambda8))(x4)(x5)(st))(Curry.Module.Prelude.pf(Curry.Module.TransformationDependencies.c_testTransformNecessary'46_'35lambda9(x1)(x5)(x3)(x4)(x2)))(st)++++c_testTransformNecessary'46_'35lambda6 :: (Curry.Module.Prelude.C_Maybe (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_testTransformNecessary'46_'35lambda6 x1 x2 x3 st = Curry.Module.TransformationDebugInfo.c_outputFile(x2)(x1)(x3)(st)++++c_testTransformNecessary'46_'35lambda7 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_testTransformNecessary'46_'35lambda7 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.List))))(Curry.Module.Prelude.op_43_43(x1)((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('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('c'))((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_testTransformNecessary'46_'35lambda8 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_testTransformNecessary'46_'35lambda8 x1 st = Curry.Module.Prelude.c_return(Curry.Module.Prelude.T0)(st)++++c_testTransformNecessary'46_'35lambda9 :: (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.C_Char) -> Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.T0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.T0)+c_testTransformNecessary'46_'35lambda9 x1 x2 x3 x4 x5 x6 st = Curry.Module.TransformationDependencies.c_testTransformNecessary'46_'35lambda9_case_0(x1)(x2)(x3)(x4)(x5)(x6)(Curry.Module.Prelude.op_124_124(Curry.Module.Maybe.c_isJust(x6)(st))(Curry.Module.Prelude.op_124_124(Curry.Module.Maybe.c_isJust(x3)(st))(Curry.Module.Prelude.c_not(Curry.Module.List.c_isPrefixOf(x1)(x4)(st))(st))(st))(st))(st)++++c_renameFile :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((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.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_renameFile st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.FileGoodies.c_replaceFileName)++++c_testTransformNecessary'46_'35lambda9_case_0 x1 x2 x3 x4 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_return(x6)(st)+c_testTransformNecessary'46_'35lambda9_case_0 x1 x2 x3 x4 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.op_62_62(Curry.Module.Make.c_unless(x5)(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_putStrLn))(Curry.Module.Prelude.op_43_43(x2)((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(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((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('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('r'))((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('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('y'))(Curry.Module.Prelude.List)))))))))))))))))))))))(st))(st))(st))(Curry.Module.Prelude.c_return(Curry.Module.Prelude.C_Just(Curry.Module.Prelude.T0))(st))(st)+c_testTransformNecessary'46_'35lambda9_case_0 x1 x2 x3 x4 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationDependencies.c_testTransformNecessary'46_'35lambda9_case_0(x1)(x2)(x3)(x4)(x5)(x6)(x)(st))(i)(xs)(st)+c_testTransformNecessary'46_'35lambda9_case_0 x1 x2 x3 x4 x5 x6 x st = Curry.RunTimeSystem.patternFail("TransformationDependencies.testTransformNecessary._#lambda9_case_0")(x)++
+ dist/build/mkstrict/mkstrict-tmp/Curry/Module/TransformationExpr.hs view
@@ -0,0 +1,330 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.TransformationExpr (module Curry.Module.TransformationExpr) where++import Curry.RunTimeSystem+import Curry.Module.AbstractCurry+import Curry.Module.FlatCurry+import Curry.Module.FlatCurryGoodies+import Curry.Module.FlatToAbstractCurry+import Curry.Module.Prelude+import Curry.Module.SrcRef+import Curry.Module.TransformationComb+import Curry.Module.TransformationDebugInfo+import Curry.Module.TransformationMonad+import Curry.Module.AbstractHaskell++++-- begin included++++-- end included++c_transformExpr :: Curry.Module.FlatCurry.C_Expr -> (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.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformExpr x1 x2@(Curry.Module.Prelude.T2 x5 x6) x3 x4 st = Curry.Module.TransformationMonad.op_62_62_46(Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.c_setInfoTree(x4)))(Curry.Module.FlatCurryGoodies.c_trExpr(Curry.Module.Prelude.pf(Curry.Module.TransformationExpr.c_transformExpr'46var'463))(Curry.Module.Prelude.pf(Curry.Module.TransformationExpr.c_transformExpr'46lit'463(x5)))(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.TransformationExpr.c_transformExpr'46comb'463(x5)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.TransformationExpr.c_transformExpr'46leT'463))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.TransformationExpr.c_transformExpr'46freE'463))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.TransformationExpr.c_transformExpr'46or'463))(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.TransformationExpr.c_transformExpr'46casE'463(x6)(x5)(x3)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.TransformationExpr.c_transformExpr'46br'463(x5)))(x1)(st))(st)+c_transformExpr x1 (Curry.Module.Prelude.T2Or i xs) x3 x4 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationExpr.c_transformExpr(x1)(x)(x3)(x4)(st))(i)(xs)(st)+c_transformExpr x1 x x3 x4 st = Curry.RunTimeSystem.patternFail("TransformationExpr.transformExpr")(x)++++c_transformExpr'46var'463 :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformExpr'46var'463 x1 st = Curry.Module.TransformationMonad.op_62_62_46(Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.c_ignoreVarRefs))(Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.c_ret(Curry.Module.Prelude.c_apply(Curry.Module.TransformationDebugInfo.c_wrapReturn(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_xx(st))(x1)(st))(st))))(st)++++c_transformExpr'46lit'463 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_Literal -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformExpr'46lit'463 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.op_62_62_61_46(Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.c_nextSrcRefs))(Curry.Module.Prelude.pf(Curry.Module.TransformationExpr.c_transformExpr'46lit'463'46_'35lambda2(x2)(x1))))++++c_transformExpr'46lit'463'46_'35lambda2 :: Curry.Module.FlatCurry.C_Literal -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformExpr'46lit'463'46_'35lambda2 x1 x2 x3 st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.TransformationMonad.c_ret))(Curry.Module.TransformationExpr.c_transformLiteral(x1)(x2)(x3)(st))(st)++++c_transformExpr'46comb'463 :: (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.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformExpr'46comb'463 x1 x2 x3 x4 st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.op_62_62_61_46(Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.c_nextSrcRefs))(Curry.Module.Prelude.pf(Curry.Module.TransformationExpr.c_transformExpr'46comb'463'46_'35lambda3(x2)(x4)(x1)(x3))))++++c_transformExpr'46comb'463'46_'35lambda3 :: Curry.Module.FlatCurry.C_CombType -> (Curry.Module.Prelude.List (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr))) -> (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.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformExpr'46comb'463'46_'35lambda3 x1 x2 x3 x4 x5 st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.op_62_62_61_46(Curry.Module.Prelude.c_apply(Curry.Module.TransformationMonad.c_sequence(st))(x2)(st))(Curry.Module.Prelude.pf(Curry.Module.TransformationExpr.c_transformExpr'46comb'463'46_'35lambda3'46_'35lambda4(x1)(x3)(x4)(x5))))++++c_transformExpr'46comb'463'46_'35lambda3'46_'35lambda4 :: Curry.Module.FlatCurry.C_CombType -> (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.Module.Prelude.List Curry.Module.AbstractCurry.C_CExpr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformExpr'46comb'463'46_'35lambda3'46_'35lambda4 x1 x2 x3 x4 x5 st = Curry.Module.TransformationComb.c_transformComb(x1)(x3)(x5)(x2)(x4)(st)++++c_transformExpr'46leT'463 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)))) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformExpr'46leT'463 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.op_62_62_61_46(Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.c_nextSrcRefs))(Curry.Module.Prelude.pf(Curry.Module.TransformationExpr.c_transformExpr'46leT'463'46_'35lambda5(x2)(x1))))++++c_transformExpr'46leT'463'46_'35lambda5 :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)))) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformExpr'46leT'463'46_'35lambda5 x1 x2 x3 st = Curry.Module.TransformationExpr.c_transformExpr'46leT'463'46_'35lambda5_case_11(x1)(x2)(Curry.Module.Prelude.c_unzip(x2)(st))(st)++++c_transformExpr'46leT'463'46_'35lambda5'46_'35lambda7 :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CExpr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformExpr'46leT'463'46_'35lambda5'46_'35lambda7 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.op_62_62_61_46(x1)(Curry.Module.Prelude.pf(Curry.Module.TransformationExpr.c_transformExpr'46leT'463'46_'35lambda5'46_'35lambda7'46_'35lambda8(x3)(x2))))++++c_transformExpr'46leT'463'46_'35lambda5'46_'35lambda7'46_'35lambda8 :: (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CExpr) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformExpr'46leT'463'46_'35lambda5'46_'35lambda7'46_'35lambda8 x1 x2 x3 st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.TransformationMonad.c_ret))(Curry.Module.TransformationDebugInfo.c_insHook((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))))(Curry.Module.TransformationDebugInfo.c_dummyDebugInfo(st))(Curry.Module.TransformationExpr.c_transformLet(Curry.Module.Prelude.c_zip(x2)(x1)(st))(x3)(st))(st))(st)++++c_transformExpr'46freE'463 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformExpr'46freE'463 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.op_62_62_61_46(Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.c_nextSrcRefs))(Curry.Module.Prelude.pf(Curry.Module.TransformationExpr.c_transformExpr'46freE'463'46_'35lambda9(x2)(x1))))++++c_transformExpr'46freE'463'46_'35lambda9 :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformExpr'46freE'463'46_'35lambda9 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.op_62_62_61_46(x1)(Curry.Module.Prelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.TransformationMonad.c_ret))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.TransformationDebugInfo.c_insHook((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.TransformationDebugInfo.c_dummyDebugInfo(st))))(Curry.Module.Prelude.pf(Curry.Module.TransformationExpr.c_transformFree(x2)))(st))(st)))++++c_transformExpr'46or'463 :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformExpr'46or'463 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.op_62_62_61_46(Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.c_nextSrcRefs))(Curry.Module.Prelude.pf(Curry.Module.TransformationExpr.c_transformExpr'46or'463'46_'35lambda10(x1)(x2))))++++c_transformExpr'46or'463'46_'35lambda10 :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformExpr'46or'463'46_'35lambda10 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.op_62_62_61_46(Curry.Module.Prelude.c_apply(Curry.Module.TransformationMonad.c_sequence(st))((Curry.Module.Prelude.:<)(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List)))(st))(Curry.Module.Prelude.pf(Curry.Module.TransformationExpr.c_transformExpr'46or'463'46_'35lambda10'46_'35lambda11)))++++c_transformExpr'46or'463'46_'35lambda10'46_'35lambda11 :: (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CExpr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformExpr'46or'463'46_'35lambda10'46_'35lambda11 x1@((Curry.Module.Prelude.:<) x2 x3) st = Curry.Module.TransformationExpr.c_transformExpr'46or'463'46_'35lambda10'46_'35lambda11_case_10(x2)(x3)(st)+c_transformExpr'46or'463'46_'35lambda10'46_'35lambda11 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationExpr.c_transformExpr'46or'463'46_'35lambda10'46_'35lambda11(x)(st))(i)(xs)(st)+c_transformExpr'46or'463'46_'35lambda10'46_'35lambda11 x st = Curry.RunTimeSystem.patternFail("TransformationExpr.transformExpr.or.3._#lambda10._#lambda11")(x)++++c_transformExpr'46or'463'46_'35lambda10'46_'35lambda11'46_'35lambda12 :: Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformExpr'46or'463'46_'35lambda10'46_'35lambda11'46_'35lambda12 x1 x2 x3 st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.TransformationMonad.c_ret))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.TransformationDebugInfo.c_insHook((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List)))(Curry.Module.TransformationDebugInfo.c_dummyDebugInfo(st))))(Curry.Module.TransformationExpr.c_transformOr(x3)(x1)(x2)(st))(st))(st)++++c_transformExpr'46casE'463 :: (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.Module.FlatCurry.C_CaseType -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CBranchExpr))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformExpr'46casE'463 x1 x2 x3 x4@Curry.Module.FlatCurry.C_Flex x5 x6 st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.op_62_62_61_46(Curry.Module.TransformationMonad.op_62_62_46(Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.c_skipNextVar))(x5)(st))(Curry.Module.Prelude.pf(Curry.Module.TransformationExpr.c_transformExpr'46casE'463'46_'35lambda13(x6)(x1)(x2)(x3))))+c_transformExpr'46casE'463 x1 x2 x3 x4@Curry.Module.FlatCurry.C_Rigid x5 x6 st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.op_62_62_61_46(Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.c_nextSrcRefs))(Curry.Module.Prelude.pf(Curry.Module.TransformationExpr.c_transformExpr'46casE'463'46_'35lambda15(x6)(x5)(x1)(x2)(x3))))+c_transformExpr'46casE'463 x1 x2 x3 (Curry.Module.FlatCurry.C_CaseTypeOr i xs) x5 x6 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationExpr.c_transformExpr'46casE'463(x1)(x2)(x3)(x)(x5)(x6)(st))(i)(xs)(st)+c_transformExpr'46casE'463 x1 x2 x3 x x5 x6 st = Curry.RunTimeSystem.patternFail("TransformationExpr.transformExpr.casE.3")(x)++++c_transformExpr'46casE'463'46_'35lambda13 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CBranchExpr))) -> (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.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformExpr'46casE'463'46_'35lambda13 x1 x2 x3 x4 x5 st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.op_62_62_61_46(Curry.Module.Prelude.c_apply(Curry.Module.TransformationMonad.c_sequence(st))(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.TransformationExpr.c_transformExpr'46casE'463'46_'35lambda13'46_'35lambda14(x5)(x2)(x3)(x4))))++++c_transformExpr'46casE'463'46_'35lambda13'46_'35lambda14 :: Curry.Module.AbstractCurry.C_CExpr -> (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.Module.Prelude.List Curry.Module.AbstractCurry.C_CBranchExpr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformExpr'46casE'463'46_'35lambda13'46_'35lambda14 x1 x2 x3 x4 x5 st = Curry.Module.TransformationExpr.c_transformCase(Curry.Module.FlatCurry.C_Flex)(x1)(x5)(Curry.Module.Prelude.T2(x3)(x2))(x4)(Curry.Module.Prelude.List)(st)++++c_transformExpr'46casE'463'46_'35lambda15 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CBranchExpr))) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)) -> (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.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformExpr'46casE'463'46_'35lambda15 x1 x2 x3 x4 x5 x6 st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.op_62_62_61_46(x2)(Curry.Module.Prelude.pf(Curry.Module.TransformationExpr.c_transformExpr'46casE'463'46_'35lambda15'46_'35lambda16(x1)(x3)(x4)(x6)(x5))))++++c_transformExpr'46casE'463'46_'35lambda15'46_'35lambda16 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CBranchExpr))) -> (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.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformExpr'46casE'463'46_'35lambda15'46_'35lambda16 x1 x2 x3 x4 x5 x6 st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.op_62_62_61_46(Curry.Module.Prelude.c_apply(Curry.Module.TransformationMonad.c_sequence(st))(x1)(st))(Curry.Module.Prelude.pf(Curry.Module.TransformationExpr.c_transformExpr'46casE'463'46_'35lambda15'46_'35lambda16'46_'35lambda17(x6)(x2)(x3)(x4)(x5))))++++c_transformExpr'46casE'463'46_'35lambda15'46_'35lambda16'46_'35lambda17 :: Curry.Module.AbstractCurry.C_CExpr -> (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.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CBranchExpr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformExpr'46casE'463'46_'35lambda15'46_'35lambda16'46_'35lambda17 x1 x2 x3 x4 x5 x6 st = Curry.Module.TransformationExpr.c_transformCase(Curry.Module.FlatCurry.C_Rigid)(x1)(x6)(Curry.Module.Prelude.T2(x3)(x2))(x5)(x4)(st)++++c_transformExpr'46brInfo'463 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_transformExpr'46brInfo'463 x1 x2 st = Curry.Module.TransformationDebugInfo.c_debugInfo(Curry.Module.TransformationDebugInfo.c_createStaticInfo(x1)(x2)(st))(Curry.Module.TransformationDebugInfo.c_simpleDynInfo(Curry.Module.FlatToAbstractCurry.c_presym((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(st))(st))(st)++++c_transformExpr'46br'463 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_Pattern -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CBranchExpr)+c_transformExpr'46br'463 x1 x2 x3 st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.op_62_62_61_46(Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.c_nextSrcRefs))(Curry.Module.Prelude.pf(Curry.Module.TransformationExpr.c_transformExpr'46br'463'46_'35lambda18(x3)(x1)(x2))))++++c_transformExpr'46br'463'46_'35lambda18 :: (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_Pattern -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CBranchExpr)+c_transformExpr'46br'463'46_'35lambda18 x1 x2 x3 x4 st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.op_62_62_61_46(x1)(Curry.Module.Prelude.pf(Curry.Module.TransformationExpr.c_transformExpr'46br'463'46_'35lambda18'46_'35lambda19(x2)(x3)(x4))))++++c_transformExpr'46br'463'46_'35lambda18'46_'35lambda19 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_Pattern -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CBranchExpr)+c_transformExpr'46br'463'46_'35lambda18'46_'35lambda19 x1 x2 x3 x4 st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.TransformationMonad.c_ret))(Curry.Module.AbstractCurry.C_CBranch(Curry.Module.TransformationExpr.c_transformPattern(x2)(st))(Curry.Module.TransformationDebugInfo.c_insHook((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.TransformationExpr.c_transformExpr'46brInfo'463(x1)(x3)(st))(Curry.Module.Prelude.c_apply(Curry.Module.TransformationDebugInfo.c_wrapEval(st))(x4)(st))(st)))(st)++++c_cpresym :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_cpresym x1 st = Curry.Module.AbstractCurry.C_CSymbol(Curry.Module.TransformationDebugInfo.c_renameModule(Curry.Module.Prelude.T2(Curry.Module.FlatToAbstractCurry.c_prelude(st))(x1))(st))++++c_transformLiteral :: Curry.Module.FlatCurry.C_Literal -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_transformLiteral x1 x2 x3 st = let {x5 = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.TransformationDebugInfo.c_insHook((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.TransformationDebugInfo.c_debugInfo(Curry.Module.TransformationDebugInfo.c_createStaticInfo(x2)(x3)(st))(Curry.Module.TransformationDebugInfo.c_simpleDynInfo(Curry.Module.FlatToAbstractCurry.c_presym((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.TransformationDebugInfo.c_wrapReturn(st))(st)} in Curry.Module.TransformationExpr.c_transformLiteral_case_8(x5)(x1)(st)++++c_createInt :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_createInt x1 st = Curry.Module.TransformationExpr.c_createInt_case_7(x1)(Curry.Module.Prelude.op_61_61(x1)(Curry.Module.Prelude.C_Zero)(st))(st)++++c_createNat :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_createNat x1 st = Curry.Module.TransformationExpr.c_createNat_case_4(x1)(Curry.Module.Prelude.op_61_61(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st)++++c_transformFree :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_transformFree x1 x2 st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.FlatToAbstractCurry.c_presym((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.List))))))(st))(st))(Curry.Module.FlatToAbstractCurry.c_acyStr((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('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('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.:<)(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.List)))))))))))))))))))))))))(st))(st)++++c_transformLet :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.AbstractCurry.C_CExpr)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_transformLet x1 x2 st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CDoExpr))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.TransformationExpr.c_transformLet'46_'35lambda21))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CSExpr))(Curry.Module.Prelude.c_apply(Curry.Module.TransformationDebugInfo.c_wrapEval(st))(x2)(st))(st))(Curry.Module.Prelude.List))(st))(st)++++c_transformLet'46_'35lambda21 :: (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.AbstractCurry.C_CExpr) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CStatement+c_transformLet'46_'35lambda21 x1@(Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.AbstractCurry.C_CSPat(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_px(st))(x2)(st))(x3)+c_transformLet'46_'35lambda21 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationExpr.c_transformLet'46_'35lambda21(x)(st))(i)(xs)(st)+c_transformLet'46_'35lambda21 x st = Curry.RunTimeSystem.patternFail("TransformationExpr.transformLet._#lambda21")(x)++++c_transformOr :: Curry.Module.Prelude.C_Int -> Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_transformOr x1 x2 x3 st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CDoExpr))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CSPat(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_px(st))(x1)(st))(x2))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CSPat(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_px(st))(Curry.Module.Prelude.op_43(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(x3))(Curry.Module.Prelude.List)))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CSExpr(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.TransformationDebugInfo.c_renameModule(Curry.Module.Prelude.T2(Curry.Module.FlatToAbstractCurry.c_prelude(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('?'))(Curry.Module.Prelude.List)))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_xx(st))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_xx(st))(Curry.Module.Prelude.op_43(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(Curry.Module.Prelude.List)))(st)))(Curry.Module.Prelude.List))(st))(st)++++c_transformCase :: Curry.Module.FlatCurry.C_CaseType -> Curry.Module.AbstractCurry.C_CExpr -> (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CBranchExpr) -> (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.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformCase x1 x2 x3 x4@(Curry.Module.Prelude.T2 x7 x8) x5 x6 st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.op_62_62_61_46(Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.c_freshVar))(Curry.Module.Prelude.pf(Curry.Module.TransformationExpr.c_transformCase'46_'35lambda22(x2)(x3)(x7)(Curry.Module.TransformationExpr.c_transformCase_case_1(x1)(Curry.Module.Prelude.op_61_61(x1)(Curry.Module.FlatCurry.C_Flex)(st))(st))(x4)(x6)(x5))))+c_transformCase x1 x2 x3 (Curry.Module.Prelude.T2Or i xs) x5 x6 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationExpr.c_transformCase(x1)(x2)(x3)(x)(x5)(x6)(st))(i)(xs)(st)+c_transformCase x1 x2 x3 x x5 x6 st = Curry.RunTimeSystem.patternFail("TransformationExpr.transformCase")(x)++++c_transformCase'46info'4692 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_transformCase'46info'4692 x1 x2 x3 st = Curry.Module.TransformationDebugInfo.c_debugInfo(Curry.Module.TransformationDebugInfo.c_createStaticInfo(x1)(x2)(st))(Curry.Module.TransformationDebugInfo.c_simpleDynInfo(Curry.Module.FlatToAbstractCurry.c_list((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.TransformationDebugInfo.c_genTermCallVar(st))(x3)(st))(Curry.Module.Prelude.List))(st))(st))(st)++++c_transformCase'46errorBranch'4692 :: (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.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CBranchExpr+c_transformCase'46errorBranch'4692 x1 x2 x3 x4 x5 x6 st = Curry.Module.AbstractCurry.C_CBranch(Curry.Module.AbstractCurry.C_CPVar(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Zero)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36_36(st))(Curry.Module.AbstractCurry.C_CSymbol(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('D'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('M'))(Curry.Module.Prelude.List)))((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('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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))))))(st))((Curry.Module.Prelude.:<)(Curry.Module.TransformationDebugInfo.c_exceptionHook(x2)(Curry.Module.TransformationExpr.c_transformCase'46info'4692(x1)(x4)(x6)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36_36(st))(Curry.Module.AbstractCurry.C_CSymbol(Curry.Module.TransformationDebugInfo.c_renameFunc(x3)(st)))(st))(Curry.Module.Prelude.c_map(Curry.Module.FlatToAbstractCurry.c_xx(st))(Curry.Module.Prelude.c_apply(Curry.Module.TransformationExpr.c_init(st))(x5)(st))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_xx(st))(x6)(st))(Curry.Module.Prelude.List))))(st))++++c_transformCase'46branches'4692 :: (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CBranchExpr) -> (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.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CBranchExpr+c_transformCase'46branches'4692 x1 x2 x3 x4 x5 x6 x7 st = Curry.Module.Prelude.op_43_43(x1)((Curry.Module.Prelude.:<)(Curry.Module.TransformationExpr.c_transformCase'46errorBranch'4692(x2)(x3)(x4)(x5)(x6)(x7)(st))(Curry.Module.Prelude.List))(st)++++c_transformCase'46_'35lambda22 :: Curry.Module.AbstractCurry.C_CExpr -> (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CBranchExpr) -> (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.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.AbstractCurry.C_CExpr)+c_transformCase'46_'35lambda22 x1 x2 x3 x4 x5 x6 x7 x8 st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.TransformationMonad.c_ret))(Curry.Module.AbstractCurry.C_CDoExpr((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CSPat(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_px(st))(x8)(st))(x1))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CSExpr(Curry.Module.TransformationDebugInfo.c_insHook((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)))))(Curry.Module.TransformationExpr.c_transformCase'46info'4692(x3)(x6)(x8)(st))(Curry.Module.AbstractCurry.C_CCase(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_xx(st))(x8)(st))(Curry.Module.TransformationExpr.c_transformCase'46branches'4692(x2)(x3)(x4)(x5)(x6)(x7)(x8)(st)))(st)))(Curry.Module.Prelude.List))))(st)++++c_init :: (Curry t0) => Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0)+c_init st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.c_reverse(st))(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_tail))(Curry.Module.Prelude.c_reverse(st))(st))(st)++++c_transformPattern :: Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CPattern+c_transformPattern x1@(Curry.Module.FlatCurry.C_Pattern x2 x3) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CPComb(Curry.Module.TransformationDebugInfo.c_renameCons(x2)(st))))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CPVar))(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_convertVariable))(st))(x3)(st))(st)+c_transformPattern x1@(Curry.Module.FlatCurry.C_LPattern x4) st = Curry.Module.TransformationExpr.c_transformPattern_case_0(x4)(st)+c_transformPattern (Curry.Module.FlatCurry.C_PatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationExpr.c_transformPattern(x)(st))(i)(xs)(st)+c_transformPattern x st = Curry.RunTimeSystem.patternFail("TransformationExpr.transformPattern")(x)++++c_transformPattern_case_0 x4@(Curry.Module.FlatCurry.C_Intc x5) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CPLit))(Curry.Module.FlatToAbstractCurry.c_convertLiteral(x4)(st))(st)+c_transformPattern_case_0 x4@(Curry.Module.FlatCurry.C_Floatc x6) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CPLit))(Curry.Module.FlatToAbstractCurry.c_convertLiteral(x4)(st))(st)+c_transformPattern_case_0 x4@(Curry.Module.FlatCurry.C_Charc x7) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CPLit))(Curry.Module.FlatToAbstractCurry.c_convertLiteral(x4)(st))(st)+c_transformPattern_case_0 (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationExpr.c_transformPattern_case_0(x)(st))(i)(xs)(st)+c_transformPattern_case_0 x st = Curry.RunTimeSystem.patternFail("TransformationExpr.transformPattern_case_0")(x)++++c_transformCase_case_1 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('e'))((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('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('s'))(Curry.Module.Prelude.List))))))))+c_transformCase_case_1 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('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((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_transformCase_case_1 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationExpr.c_transformCase_case_1(x1)(x)(st))(i)(xs)(st)+c_transformCase_case_1 x1 x st = Curry.RunTimeSystem.patternFail("TransformationExpr.transformCase_case_1")(x)++++c_createNat_case_4 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.TransformationExpr.c_cpresym((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('H'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))(Curry.Module.Prelude.List))))(st)+c_createNat_case_4 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.TransformationExpr.c_createNat_case_3(x1)(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_mod(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st)+c_createNat_case_4 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationExpr.c_createNat_case_4(x1)(x)(st))(i)(xs)(st)+c_createNat_case_4 x1 x st = Curry.RunTimeSystem.patternFail("TransformationExpr.createNat_case_4")(x)++++c_createNat_case_3 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.TransformationExpr.c_cpresym((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))(Curry.Module.Prelude.List))(st))(st))(Curry.Module.TransformationExpr.c_createNat(Curry.Module.Prelude.c_div(Curry.Module.Prelude.op_45(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(st))(st))(st)+c_createNat_case_3 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.TransformationExpr.c_createNat_case_2(x1)(Curry.Module.Prelude.op_61_61(Curry.Module.Prelude.c_mod(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(st))(Curry.Module.Prelude.C_Zero)(st))(st)+c_createNat_case_3 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationExpr.c_createNat_case_3(x1)(x)(st))(i)(xs)(st)+c_createNat_case_3 x1 x st = Curry.RunTimeSystem.patternFail("TransformationExpr.createNat_case_3")(x)++++c_createNat_case_2 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.TransformationExpr.c_cpresym((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))(Curry.Module.Prelude.List))(st))(st))(Curry.Module.TransformationExpr.c_createNat(Curry.Module.Prelude.c_div(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(st))(st))(st)+c_createNat_case_2 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationExpr.c_createNat_case_2(x1)(x)(st))(i)(xs)(st)+c_createNat_case_2 x1 x st = Curry.RunTimeSystem.patternFail("TransformationExpr.createNat_case_2")(x)++++c_createInt_case_7 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.TransformationExpr.c_cpresym((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('Z'))((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('o'))(Curry.Module.Prelude.List)))))(st)+c_createInt_case_7 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.TransformationExpr.c_createInt_case_6(x1)(Curry.Module.Prelude.op_62(x1)(Curry.Module.Prelude.C_Zero)(st))(st)+c_createInt_case_7 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationExpr.c_createInt_case_7(x1)(x)(st))(i)(xs)(st)+c_createInt_case_7 x1 x st = Curry.RunTimeSystem.patternFail("TransformationExpr.createInt_case_7")(x)++++c_createInt_case_6 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.TransformationExpr.c_cpresym((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))(Curry.Module.TransformationExpr.c_createNat(x1)(st))(st)+c_createInt_case_6 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.TransformationExpr.c_createInt_case_5(x1)(Curry.Module.Prelude.op_60(x1)(Curry.Module.Prelude.C_Zero)(st))(st)+c_createInt_case_6 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationExpr.c_createInt_case_6(x1)(x)(st))(i)(xs)(st)+c_createInt_case_6 x1 x st = Curry.RunTimeSystem.patternFail("TransformationExpr.createInt_case_6")(x)++++c_createInt_case_5 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.TransformationExpr.c_cpresym((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('g'))(Curry.Module.Prelude.List))))(st))(st))(Curry.Module.TransformationExpr.c_createNat(Curry.Module.Prelude.c_negate(x1)(st))(st))(st)+c_createInt_case_5 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationExpr.c_createInt_case_5(x1)(x)(st))(i)(xs)(st)+c_createInt_case_5 x1 x st = Curry.RunTimeSystem.patternFail("TransformationExpr.createInt_case_5")(x)++++c_transformLiteral_case_8 x5 x1@(Curry.Module.FlatCurry.C_Intc x6) st = Curry.Module.Prelude.op_36(x5)(Curry.Module.TransformationExpr.c_createInt(x6)(st))(st)+c_transformLiteral_case_8 x5 x1@(Curry.Module.FlatCurry.C_Charc x7) st = Curry.Module.Prelude.op_36(x5)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.TransformationExpr.c_cpresym((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)))))(st))(st))(Curry.Module.AbstractCurry.C_CLit(Curry.Module.FlatToAbstractCurry.c_convertLiteral(x1)(st)))(st))(st)+c_transformLiteral_case_8 x5 x1@(Curry.Module.FlatCurry.C_Floatc x8) st = Curry.Module.Prelude.op_36(x5)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.TransformationExpr.c_cpresym((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))))))(st))(st))(Curry.Module.AbstractCurry.C_CLit(Curry.Module.FlatToAbstractCurry.c_convertLiteral(x1)(st)))(st))(st)+c_transformLiteral_case_8 x5 (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationExpr.c_transformLiteral_case_8(x5)(x)(st))(i)(xs)(st)+c_transformLiteral_case_8 x5 x st = Curry.RunTimeSystem.patternFail("TransformationExpr.transformLiteral_case_8")(x)++++c_transformExpr'46or'463'46_'35lambda10'46_'35lambda11_case_10 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.TransformationExpr.c_transformExpr'46or'463'46_'35lambda10'46_'35lambda11_case_9(x2)(x4)(x5)(st)+c_transformExpr'46or'463'46_'35lambda10'46_'35lambda11_case_10 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationExpr.c_transformExpr'46or'463'46_'35lambda10'46_'35lambda11_case_10(x2)(x)(st))(i)(xs)(st)+c_transformExpr'46or'463'46_'35lambda10'46_'35lambda11_case_10 x2 x st = Curry.RunTimeSystem.patternFail("TransformationExpr.transformExpr.or.3._#lambda10._#lambda11_case_10")(x)++++c_transformExpr'46or'463'46_'35lambda10'46_'35lambda11_case_9 x2 x4 x5@Curry.Module.Prelude.List st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.op_62_62_61_46(Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.c_freshVar))(Curry.Module.Prelude.pf(Curry.Module.TransformationExpr.c_transformExpr'46or'463'46_'35lambda10'46_'35lambda11'46_'35lambda12(x2)(x4))))+c_transformExpr'46or'463'46_'35lambda10'46_'35lambda11_case_9 x2 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationExpr.c_transformExpr'46or'463'46_'35lambda10'46_'35lambda11_case_9(x2)(x4)(x)(st))(i)(xs)(st)+c_transformExpr'46or'463'46_'35lambda10'46_'35lambda11_case_9 x2 x4 x st = Curry.RunTimeSystem.patternFail("TransformationExpr.transformExpr.or.3._#lambda10._#lambda11_case_9")(x)++++c_transformExpr'46leT'463'46_'35lambda5_case_11 x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.op_62_62_61_46(Curry.Module.Prelude.c_apply(Curry.Module.TransformationMonad.c_sequence(st))(x5)(st))(Curry.Module.Prelude.pf(Curry.Module.TransformationExpr.c_transformExpr'46leT'463'46_'35lambda5'46_'35lambda7(x1)(x4))))+c_transformExpr'46leT'463'46_'35lambda5_case_11 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationExpr.c_transformExpr'46leT'463'46_'35lambda5_case_11(x1)(x2)(x)(st))(i)(xs)(st)+c_transformExpr'46leT'463'46_'35lambda5_case_11 x1 x2 x st = Curry.RunTimeSystem.patternFail("TransformationExpr.transformExpr.leT.3._#lambda5_case_11")(x)++
+ dist/build/mkstrict/mkstrict-tmp/Curry/Module/TransformationInstances.hs view
@@ -0,0 +1,420 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.TransformationInstances (module Curry.Module.TransformationInstances) where++import Curry.RunTimeSystem+import Curry.Module.AbstractCurry+import Curry.Module.AbstractHaskell+import Curry.Module.FlatCurry+import Curry.Module.FlatToAbstractCurry+import Curry.Module.Prelude+import Curry.Module.SrcRef+import Curry.Module.TransformationDebugInfo+import Curry.Module.List+import Curry.Module.Maybe++++-- begin included++++-- end included++c_genName :: (Curry t0) => t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) t0+c_genName x1 st = Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_dataGenericsImport(st))(x1)++++c_genSym :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr)+c_genSym st = Curry.Module.Prelude.op_46(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CSymbol))(Curry.Module.Prelude.pf(Curry.Module.TransformationInstances.c_genName))(st)++++c_instancesGenTerm :: (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)))) -> (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.AbstractHaskell.C_InstanceDecl+c_instancesGenTerm x1@Curry.Module.Prelude.List x2 x3 st = Curry.Module.Prelude.List+c_instancesGenTerm x1@((Curry.Module.Prelude.:<) x4 x5) x2 x3 st = Curry.Module.TransformationInstances.c_instancesGenTerm_case_14(x2)(x3)(x5)(x4)(st)+c_instancesGenTerm (Curry.Module.Prelude.ListOr i xs) x2 x3 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instancesGenTerm(x)(x2)(x3)(st))(i)(xs)(st)+c_instancesGenTerm x x2 x3 st = Curry.RunTimeSystem.patternFail("TransformationInstances.instancesGenTerm")(x)++++c_instanceGenTerm :: Curry.Module.FlatCurry.C_TypeDecl -> (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> (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.AbstractHaskell.C_InstanceDecl+c_instanceGenTerm x1@(Curry.Module.FlatCurry.C_Type x4 x5 x6 x7) x2 x3 st = Curry.Module.TransformationInstances.c_instanceGenTerm_case_9(x2)(x3)(x6)(x7)(x4)(st)+c_instanceGenTerm (Curry.Module.FlatCurry.C_TypeDeclOr i xs) x2 x3 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instanceGenTerm(x)(x2)(x3)(st))(i)(xs)(st)+c_instanceGenTerm x x2 x3 st = Curry.RunTimeSystem.patternFail("TransformationInstances.instanceGenTerm")(x)++++c_createConsRule :: Curry.Module.FlatCurry.C_ConsDecl -> (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CRule+c_createConsRule x1@(Curry.Module.FlatCurry.C_Cons x3 x4 x5 x6) x2 st = Curry.Module.TransformationInstances.c_createConsRule_case_7(x2)(x4)(x3)(st)+c_createConsRule (Curry.Module.FlatCurry.C_ConsDeclOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_createConsRule(x)(x2)(st))(i)(xs)(st)+c_createConsRule x x2 st = Curry.RunTimeSystem.patternFail("TransformationInstances.createConsRule")(x)++++c_instancesGenerics :: (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> (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.T2 (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_InstanceDecl) (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl)+c_instancesGenerics x1@Curry.Module.Prelude.List x2 st = Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.List)+c_instancesGenerics x1@((Curry.Module.Prelude.:<) x3 x4) x2 st = Curry.Module.TransformationInstances.c_instancesGenerics_case_6(x2)(x4)(x3)(st)+c_instancesGenerics (Curry.Module.Prelude.ListOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instancesGenerics(x)(x2)(st))(i)(xs)(st)+c_instancesGenerics x x2 st = Curry.RunTimeSystem.patternFail("TransformationInstances.instancesGenerics")(x)++++c_instancesGenerics'46_'35selFP10'35iT :: (Curry.Module.Prelude.T2 Curry.Module.AbstractHaskell.C_InstanceDecl (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl)) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractHaskell.C_InstanceDecl+c_instancesGenerics'46_'35selFP10'35iT x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_instancesGenerics'46_'35selFP10'35iT (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instancesGenerics'46_'35selFP10'35iT(x)(st))(i)(xs)(st)+c_instancesGenerics'46_'35selFP10'35iT x st = Curry.RunTimeSystem.patternFail("TransformationInstances.instancesGenerics._#selFP10#iT")(x)++++c_instancesGenerics'46_'35selFP11'35fsT :: (Curry.Module.Prelude.T2 Curry.Module.AbstractHaskell.C_InstanceDecl (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl+c_instancesGenerics'46_'35selFP11'35fsT x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_instancesGenerics'46_'35selFP11'35fsT (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instancesGenerics'46_'35selFP11'35fsT(x)(st))(i)(xs)(st)+c_instancesGenerics'46_'35selFP11'35fsT x st = Curry.RunTimeSystem.patternFail("TransformationInstances.instancesGenerics._#selFP11#fsT")(x)++++c_instancesGenerics'46_'35selFP8'35iD :: (Curry.Module.Prelude.T2 Curry.Module.AbstractHaskell.C_InstanceDecl (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl)) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractHaskell.C_InstanceDecl+c_instancesGenerics'46_'35selFP8'35iD x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_instancesGenerics'46_'35selFP8'35iD (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instancesGenerics'46_'35selFP8'35iD(x)(st))(i)(xs)(st)+c_instancesGenerics'46_'35selFP8'35iD x st = Curry.RunTimeSystem.patternFail("TransformationInstances.instancesGenerics._#selFP8#iD")(x)++++c_instancesGenerics'46_'35selFP9'35fsD :: (Curry.Module.Prelude.T2 Curry.Module.AbstractHaskell.C_InstanceDecl (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl+c_instancesGenerics'46_'35selFP9'35fsD x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_instancesGenerics'46_'35selFP9'35fsD (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instancesGenerics'46_'35selFP9'35fsD(x)(st))(i)(xs)(st)+c_instancesGenerics'46_'35selFP9'35fsD x st = Curry.RunTimeSystem.patternFail("TransformationInstances.instancesGenerics._#selFP9#fsD")(x)++++c_instancesGenerics'46_'35selFP5'35rec :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_InstanceDecl) (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_InstanceDecl) (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl)+c_instancesGenerics'46_'35selFP5'35rec x1@(Curry.Module.Prelude.T2 x2 x3) st = x1+c_instancesGenerics'46_'35selFP5'35rec (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instancesGenerics'46_'35selFP5'35rec(x)(st))(i)(xs)(st)+c_instancesGenerics'46_'35selFP5'35rec x st = Curry.RunTimeSystem.patternFail("TransformationInstances.instancesGenerics._#selFP5#rec")(x)++++c_instancesGenerics'46_'35selFP6'35is :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_InstanceDecl) (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_InstanceDecl+c_instancesGenerics'46_'35selFP6'35is x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_instancesGenerics'46_'35selFP6'35is (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instancesGenerics'46_'35selFP6'35is(x)(st))(i)(xs)(st)+c_instancesGenerics'46_'35selFP6'35is x st = Curry.RunTimeSystem.patternFail("TransformationInstances.instancesGenerics._#selFP6#is")(x)++++c_instancesGenerics'46_'35selFP7'35fs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_InstanceDecl) (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl+c_instancesGenerics'46_'35selFP7'35fs x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_instancesGenerics'46_'35selFP7'35fs (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instancesGenerics'46_'35selFP7'35fs(x)(st))(i)(xs)(st)+c_instancesGenerics'46_'35selFP7'35fs x st = Curry.RunTimeSystem.patternFail("TransformationInstances.instancesGenerics._#selFP7#fs")(x)++++c_instancesGenerics'46numArgs'4681 :: Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_instancesGenerics'46numArgs'4681 x1@(Curry.Module.FlatCurry.C_Cons x2 x3 x4 x5) st = x3+c_instancesGenerics'46numArgs'4681 (Curry.Module.FlatCurry.C_ConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instancesGenerics'46numArgs'4681(x)(st))(i)(xs)(st)+c_instancesGenerics'46numArgs'4681 x st = Curry.RunTimeSystem.patternFail("TransformationInstances.instancesGenerics.numArgs.81")(x)++++c_instanceTypeable :: Curry.Module.FlatCurry.C_TypeDecl -> (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.T2 Curry.Module.AbstractHaskell.C_InstanceDecl (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl)+c_instanceTypeable x1@(Curry.Module.FlatCurry.C_Type x3 x4 x5 x6) x2 st = let {x8 = Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_convertTypeVariable))(x5)(st)} in Curry.Module.Prelude.T2(Curry.Module.AbstractHaskell.C_Instance(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_constraint(Curry.Module.TransformationDebugInfo.c_typeableClass(st))))(x8)(st))(Curry.Module.AbstractHaskell.C_TypeClass(Curry.Module.TransformationDebugInfo.c_typeableClass(st))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CTCons(Curry.Module.TransformationDebugInfo.c_renameType(x3)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CTVar))(Curry.Module.TransformationInstances.c_instanceTypeable_case_3(x2)(x3)(x8)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_elem(x3)(st))(x2)(st))(st))(st)))(Curry.Module.Prelude.List)))((Curry.Module.Prelude.:<)(Curry.Module.TransformationInstances.c_mkTypeOf(x1)(st))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.List)+c_instanceTypeable (Curry.Module.FlatCurry.C_TypeDeclOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instanceTypeable(x)(x2)(st))(i)(xs)(st)+c_instanceTypeable x x2 st = Curry.RunTimeSystem.patternFail("TransformationInstances.instanceTypeable")(x)++++c_mkTypeOf :: Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.AbstractHaskell.C_HFuncDecl+c_mkTypeOf x1@(Curry.Module.FlatCurry.C_Type x2 x3 x4 x5) st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_untypedFunc(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)((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('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))(Curry.Module.Prelude.List))))))))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_noGuardRule((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CPVar(Curry.Module.Prelude.T2(Curry.Module.Prelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36_36(st))(Curry.Module.Prelude.c_apply(Curry.Module.TransformationInstances.c_genSym(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((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('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('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))(Curry.Module.Prelude.List)))))))))))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.TransformationInstances.c_mkTyConExpr(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_list(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.TransformationInstances.c_mkTVarTypeOf))(x4)(st))(st))(Curry.Module.Prelude.List)))(st))(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.TransformationInstances.c_mkTVarUndef))(x4)(st))(st))(Curry.Module.Prelude.List))(st)+c_mkTypeOf (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_mkTypeOf(x)(st))(i)(xs)(st)+c_mkTypeOf x st = Curry.RunTimeSystem.patternFail("TransformationInstances.mkTypeOf")(x)++++c_mkTVarType :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_mkTVarType x1 st = Curry.Module.AbstractCurry.C_CVar(Curry.Module.Prelude.T2(x1)(Curry.Module.TransformationInstances.c_mkTVarTypeName(x1)(st)))++++c_mkTVarTypeName :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_mkTVarTypeName x1 st = Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))(Curry.Module.TransformationInstances.c_mkTVarName(x1)(st))(st)++++c_mkTVarName :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_mkTVarName x1 st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_snd))(Curry.Module.FlatToAbstractCurry.c_convertTypeVariable(x1)(st))(st)++++c_mkTVarUndef :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CLocalDecl+c_mkTVarUndef x1 st = Curry.Module.AbstractCurry.C_CLocalFunc(Curry.Module.AbstractCurry.C_CFunc(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.TransformationInstances.c_mkTVarTypeName(x1)(st)))(Curry.Module.Prelude.C_Zero)(Curry.Module.AbstractCurry.C_Public)(Curry.Module.AbstractCurry.C_CTVar(Curry.Module.Prelude.T2(x1)(Curry.Module.TransformationInstances.c_mkTVarName(x1)(st))))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_rules(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.op_36(Curry.Module.FlatToAbstractCurry.c_constantRule(st))(Curry.Module.AbstractCurry.C_CSymbol(Curry.Module.Prelude.T2(Curry.Module.FlatToAbstractCurry.c_prelude(st))((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.List))))))))))))(st))(Curry.Module.Prelude.List))(st)))++++c_mkTVarTypeOf :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_mkTVarTypeOf x1 st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.AbstractCurry.C_CSymbol(Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_dataGenericsImport(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.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))(Curry.Module.Prelude.List)))))))))(st))(Curry.Module.TransformationInstances.c_mkTVarType(x1)(st))(st)++++c_mkTyConExpr :: (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.AbstractCurry.C_CExpr+c_mkTyConExpr x1 st = let {x2 = Curry.Module.TransformationDebugInfo.c_renameType(x1)(st)} in Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.Prelude.c_apply(Curry.Module.TransformationInstances.c_genSym(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((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('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))(Curry.Module.Prelude.List))))))))(st))(st))(Curry.Module.FlatToAbstractCurry.c_acyStr(Curry.Module.Prelude.op_43_43(Curry.Module.TransformationInstances.c_mkTyConExpr'46_'35selFP13'35mod(x2)(st))(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))(Curry.Module.Prelude.List))(Curry.Module.TransformationInstances.c_mkTyConExpr'46_'35selFP14'35name(x2)(st))(st))(st))(st))(st)++++c_mkTyConExpr'46_'35selFP13'35mod :: (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_mkTyConExpr'46_'35selFP13'35mod x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_mkTyConExpr'46_'35selFP13'35mod (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_mkTyConExpr'46_'35selFP13'35mod(x)(st))(i)(xs)(st)+c_mkTyConExpr'46_'35selFP13'35mod x st = Curry.RunTimeSystem.patternFail("TransformationInstances.mkTyConExpr._#selFP13#mod")(x)++++c_mkTyConExpr'46_'35selFP14'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_mkTyConExpr'46_'35selFP14'35name x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_mkTyConExpr'46_'35selFP14'35name (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_mkTyConExpr'46_'35selFP14'35name(x)(st))(i)(xs)(st)+c_mkTyConExpr'46_'35selFP14'35name x st = Curry.RunTimeSystem.patternFail("TransformationInstances.mkTyConExpr._#selFP14#name")(x)++++c_instanceData :: Curry.Module.FlatCurry.C_TypeDecl -> (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.T2 Curry.Module.AbstractHaskell.C_InstanceDecl (Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_HFuncDecl)+c_instanceData x1@(Curry.Module.FlatCurry.C_Type x3 x4 x5 x6) x2 st = let {x8 = Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_convertTypeVariable))(x5)(st)} in let {x9 = Curry.Module.TransformationInstances.c_instanceData_case_2(x2)(x3)(x8)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_elem(x3)(st))(x2)(st))(st)} in let {x10 = Curry.Module.TransformationDebugInfo.c_renameType(x3)(st)} in let {x11 = Curry.Module.TransformationInstances.c_instanceData'46_'35selFP16'35qn'39(x10)(st)} in let {x14 = Curry.Module.Prelude.T2(Curry.Module.TransformationInstances.c_instanceData'46_'35selFP17'35mod(x10)(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('_'))(Curry.Module.Prelude.List))))(Curry.Module.TransformationInstances.c_instanceData'46_'35selFP18'35name(x10)(st))(st))} in let {x17 = Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.TransformationInstances.c_mkDataConsFunc(x14)))(x6)(st)} in Curry.Module.Prelude.T2(Curry.Module.AbstractHaskell.C_Instance(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_constraint(Curry.Module.TransformationDebugInfo.c_dataClass(st))))(x9)(st))(Curry.Module.AbstractHaskell.C_TypeClass(Curry.Module.TransformationDebugInfo.c_dataClass(st))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CTCons(x11)(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CTVar))(x9)(st)))(Curry.Module.Prelude.List)))((Curry.Module.Prelude.:<)(Curry.Module.TransformationInstances.c_mkGfoldl(x6)(st))((Curry.Module.Prelude.:<)(Curry.Module.TransformationInstances.c_mkGunfold(x6)(st))((Curry.Module.Prelude.:<)(Curry.Module.TransformationInstances.c_mkToConstr(x6)(st))((Curry.Module.Prelude.:<)(Curry.Module.TransformationInstances.c_mkDataTypeOf(x14)(st))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)(Curry.Module.TransformationInstances.c_mkDataTypeFunc(x11)(x14)(x17)(st))(x17))+c_instanceData (Curry.Module.FlatCurry.C_TypeDeclOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instanceData(x)(x2)(st))(i)(xs)(st)+c_instanceData x x2 st = Curry.RunTimeSystem.patternFail("TransformationInstances.instanceData")(x)++++c_instanceData'46_'35selFP16'35qn'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.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_instanceData'46_'35selFP16'35qn'39 x1@(Curry.Module.Prelude.T2 x2 x3) st = x1+c_instanceData'46_'35selFP16'35qn'39 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instanceData'46_'35selFP16'35qn'39(x)(st))(i)(xs)(st)+c_instanceData'46_'35selFP16'35qn'39 x st = Curry.RunTimeSystem.patternFail("TransformationInstances.instanceData._#selFP16#qn'")(x)++++c_instanceData'46_'35selFP17'35mod :: (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_instanceData'46_'35selFP17'35mod x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_instanceData'46_'35selFP17'35mod (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instanceData'46_'35selFP17'35mod(x)(st))(i)(xs)(st)+c_instanceData'46_'35selFP17'35mod x st = Curry.RunTimeSystem.patternFail("TransformationInstances.instanceData._#selFP17#mod")(x)++++c_instanceData'46_'35selFP18'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_instanceData'46_'35selFP18'35name x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_instanceData'46_'35selFP18'35name (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instanceData'46_'35selFP18'35name(x)(st))(i)(xs)(st)+c_instanceData'46_'35selFP18'35name x st = Curry.RunTimeSystem.patternFail("TransformationInstances.instanceData._#selFP18#name")(x)++++c_mkGfoldl :: (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractHaskell.C_HFuncDecl+c_mkGfoldl x1 st = Curry.Module.AbstractHaskell.C_HFunc(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List))))))))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(Curry.Module.AbstractCurry.C_Public)(Curry.Module.Prelude.List)(Curry.Module.FlatToAbstractCurry.c_untyped(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_rules(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.TransformationInstances.c_mkGfoldlRule))(x1)(st))(st))++++c_mkGfoldlRule :: Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CRule+c_mkGfoldlRule x1@(Curry.Module.FlatCurry.C_Cons x2 x3 x4 x5) st = let {x9 = Curry.Module.TransformationInstances.c_mkGfoldlRule'46_'35selFP20'35qn'39(Curry.Module.TransformationDebugInfo.c_renameCons(x2)(st))(st)} in Curry.Module.FlatToAbstractCurry.c_simpleRule((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CPVar(Curry.Module.Prelude.T2(Curry.Module.Prelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CPVar(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Zero)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('z'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CPComb(x9)(Curry.Module.Prelude.c_map(Curry.Module.FlatToAbstractCurry.c_px(st))(Curry.Module.Prelude.c_enumFromTo(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x3)(st))(st)))(Curry.Module.Prelude.List))))(Curry.Module.TransformationInstances.c_mkGfoldlExpr(x9)(x3)(st))(st)+c_mkGfoldlRule (Curry.Module.FlatCurry.C_ConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_mkGfoldlRule(x)(st))(i)(xs)(st)+c_mkGfoldlRule x st = Curry.RunTimeSystem.patternFail("TransformationInstances.mkGfoldlRule")(x)++++c_mkGfoldlRule'46_'35selFP20'35qn'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.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_mkGfoldlRule'46_'35selFP20'35qn'39 x1@(Curry.Module.Prelude.T2 x2 x3) st = x1+c_mkGfoldlRule'46_'35selFP20'35qn'39 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_mkGfoldlRule'46_'35selFP20'35qn'39(x)(st))(i)(xs)(st)+c_mkGfoldlRule'46_'35selFP20'35qn'39 x st = Curry.RunTimeSystem.patternFail("TransformationInstances.mkGfoldlRule._#selFP20#qn'")(x)++++c_mkGfoldlExpr :: (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.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_mkGfoldlExpr x1 x2 st = Curry.Module.TransformationInstances.c_mkGfoldlExpr_case_1(x1)(x2)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Zero)(st))(st)++++c_mkGunfold :: (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractHaskell.C_HFuncDecl+c_mkGunfold x1 st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_untypedFunc(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((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('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))(Curry.Module.Prelude.List)))))))))(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_simpleRule((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CPVar(Curry.Module.Prelude.T2(Curry.Module.Prelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CPVar(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Zero)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('z'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CPVar(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.List))))(Curry.Module.AbstractCurry.C_CCase(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_dataGenericsImport(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('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('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))(Curry.Module.Prelude.List)))))))))))))(st))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CVar(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.List))(st))(Curry.Module.Prelude.c_zipWith(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.TransformationInstances.c_mkGunfoldBranch))(Curry.Module.Prelude.c_enumFromTo(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(Curry.Module.Prelude.c_length(x1)(st))(st))(x1)(st)))(st))(Curry.Module.Prelude.List))(st)++++c_mkGunfoldBranch :: Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CBranchExpr+c_mkGunfoldBranch x1 x2@(Curry.Module.FlatCurry.C_Cons x3 x4 x5 x6) st = Curry.Module.AbstractCurry.C_CBranch(Curry.Module.AbstractCurry.C_CPLit(Curry.Module.AbstractCurry.C_CIntc(x1)))(Curry.Module.TransformationInstances.c_mkGunfoldExpr(Curry.Module.TransformationDebugInfo.c_renameCons(x3)(st))(x4)(st))+c_mkGunfoldBranch x1 (Curry.Module.FlatCurry.C_ConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_mkGunfoldBranch(x1)(x)(st))(i)(xs)(st)+c_mkGunfoldBranch x1 x st = Curry.RunTimeSystem.patternFail("TransformationInstances.mkGunfoldBranch")(x)++++c_mkGunfoldExpr :: (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.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_mkGunfoldExpr x1 x2 st = Curry.Module.TransformationInstances.c_mkGunfoldExpr_case_0(x1)(x2)(Curry.Module.Prelude.op_61_61(x2)(Curry.Module.Prelude.C_Zero)(st))(st)++++c_mkToConstr :: (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractHaskell.C_HFuncDecl+c_mkToConstr x1 st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_untypedFunc(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)((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('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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))))))))))(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.TransformationInstances.c_mkToConstrRule))(x1)(st))(st)++++c_mkToConstrRule :: Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CRule+c_mkToConstrRule x1@(Curry.Module.FlatCurry.C_Cons x2 x3 x4 x5) st = let {x6 = Curry.Module.TransformationDebugInfo.c_renameCons(x2)(st)} in Curry.Module.FlatToAbstractCurry.c_simpleRule((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CPComb(Curry.Module.TransformationInstances.c_mkToConstrRule'46_'35selFP22'35qn'39(x6)(st))(Curry.Module.Prelude.c_take(x3)(Curry.Module.Prelude.c_repeat(Curry.Module.AbstractCurry.C_CPVar(Curry.Module.Prelude.T2(Curry.Module.Prelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))(Curry.Module.Prelude.List))))(st))(st)))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurry.C_CSymbol(Curry.Module.Prelude.T2(Curry.Module.TransformationInstances.c_mkToConstrRule'46_'35selFP23'35mod(x6)(st))(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('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))(Curry.Module.Prelude.List)))))(Curry.Module.TransformationInstances.c_mkToConstrRule'46_'35selFP24'35name(x6)(st))(st))))(st)+c_mkToConstrRule (Curry.Module.FlatCurry.C_ConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_mkToConstrRule(x)(st))(i)(xs)(st)+c_mkToConstrRule x st = Curry.RunTimeSystem.patternFail("TransformationInstances.mkToConstrRule")(x)++++c_mkToConstrRule'46_'35selFP22'35qn'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.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_mkToConstrRule'46_'35selFP22'35qn'39 x1@(Curry.Module.Prelude.T2 x2 x3) st = x1+c_mkToConstrRule'46_'35selFP22'35qn'39 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_mkToConstrRule'46_'35selFP22'35qn'39(x)(st))(i)(xs)(st)+c_mkToConstrRule'46_'35selFP22'35qn'39 x st = Curry.RunTimeSystem.patternFail("TransformationInstances.mkToConstrRule._#selFP22#qn'")(x)++++c_mkToConstrRule'46_'35selFP23'35mod :: (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_mkToConstrRule'46_'35selFP23'35mod x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_mkToConstrRule'46_'35selFP23'35mod (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_mkToConstrRule'46_'35selFP23'35mod(x)(st))(i)(xs)(st)+c_mkToConstrRule'46_'35selFP23'35mod x st = Curry.RunTimeSystem.patternFail("TransformationInstances.mkToConstrRule._#selFP23#mod")(x)++++c_mkToConstrRule'46_'35selFP24'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_mkToConstrRule'46_'35selFP24'35name x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_mkToConstrRule'46_'35selFP24'35name (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_mkToConstrRule'46_'35selFP24'35name(x)(st))(i)(xs)(st)+c_mkToConstrRule'46_'35selFP24'35name x st = Curry.RunTimeSystem.patternFail("TransformationInstances.mkToConstrRule._#selFP24#name")(x)++++c_mkDataTypeOf :: (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.AbstractHaskell.C_HFuncDecl+c_mkDataTypeOf x1 st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_untypedFunc(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)((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('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('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))(Curry.Module.Prelude.List))))))))))))(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_simpleRule((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CPVar(Curry.Module.Prelude.T2(Curry.Module.Prelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.List))(Curry.Module.AbstractCurry.C_CSymbol(x1))(st))(Curry.Module.Prelude.List))(st)++++c_mkDataTypeFunc :: (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.AbstractHaskell.C_HFuncDecl) -> Curry.RunTimeSystem.State -> Curry.Module.AbstractHaskell.C_HFuncDecl+c_mkDataTypeFunc x1@(Curry.Module.Prelude.T2 x4 x5) x2 x3 st = Curry.Module.FlatToAbstractCurry.c_constantFunc(x2)(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_dataGenericsImport(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((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('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))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_acyStr(Curry.Module.Prelude.op_43_43(x4)(Curry.Module.Prelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))(Curry.Module.Prelude.List))(x5)(st))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_list(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.TransformationInstances.c_mkDataTypeFunc'46call'46211))(x3)(st))(st))(Curry.Module.Prelude.List)))(st))(st)+c_mkDataTypeFunc (Curry.Module.Prelude.T2Or i xs) x2 x3 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_mkDataTypeFunc(x)(x2)(x3)(st))(i)(xs)(st)+c_mkDataTypeFunc x x2 x3 st = Curry.RunTimeSystem.patternFail("TransformationInstances.mkDataTypeFunc")(x)++++c_mkDataTypeFunc'46call'46211 :: Curry.Module.AbstractHaskell.C_HFuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_mkDataTypeFunc'46call'46211 x1@(Curry.Module.AbstractHaskell.C_HFunc x2 x3 x4 x5 x6 x7) st = Curry.Module.AbstractCurry.C_CSymbol(x2)+c_mkDataTypeFunc'46call'46211 (Curry.Module.AbstractHaskell.C_HFuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_mkDataTypeFunc'46call'46211(x)(st))(i)(xs)(st)+c_mkDataTypeFunc'46call'46211 x st = Curry.RunTimeSystem.patternFail("TransformationInstances.mkDataTypeFunc.call.211")(x)++++c_mkDataConsFunc :: (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.AbstractHaskell.C_HFuncDecl+c_mkDataConsFunc x1 x2@(Curry.Module.FlatCurry.C_Cons x3 x4 x5 x6) st = let {x7 = Curry.Module.TransformationDebugInfo.c_renameCons(x3)(st)} in let {x9 = Curry.Module.TransformationInstances.c_mkDataConsFunc'46_'35selFP27'35name(x7)(st)} in Curry.Module.FlatToAbstractCurry.c_constantFunc(Curry.Module.Prelude.T2(Curry.Module.TransformationInstances.c_mkDataConsFunc'46_'35selFP26'35mod(x7)(st))(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('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))(Curry.Module.Prelude.List)))))(x9)(st)))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_dataGenericsImport(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((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('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.List))))))))))(st))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CSymbol(x1))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_acyStr(x9)(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_list(Curry.Module.Prelude.List)(st))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CSymbol(Curry.Module.Prelude.T2(Curry.Module.TransformationDebugInfo.c_dataGenericsImport(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('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.List)))))(st))(st)+c_mkDataConsFunc x1 (Curry.Module.FlatCurry.C_ConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_mkDataConsFunc(x1)(x)(st))(i)(xs)(st)+c_mkDataConsFunc x1 x st = Curry.RunTimeSystem.patternFail("TransformationInstances.mkDataConsFunc")(x)++++c_mkDataConsFunc'46_'35selFP26'35mod :: (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_mkDataConsFunc'46_'35selFP26'35mod x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_mkDataConsFunc'46_'35selFP26'35mod (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_mkDataConsFunc'46_'35selFP26'35mod(x)(st))(i)(xs)(st)+c_mkDataConsFunc'46_'35selFP26'35mod x st = Curry.RunTimeSystem.patternFail("TransformationInstances.mkDataConsFunc._#selFP26#mod")(x)++++c_mkDataConsFunc'46_'35selFP27'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_mkDataConsFunc'46_'35selFP27'35name x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_mkDataConsFunc'46_'35selFP27'35name (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_mkDataConsFunc'46_'35selFP27'35name(x)(st))(i)(xs)(st)+c_mkDataConsFunc'46_'35selFP27'35name x st = Curry.RunTimeSystem.patternFail("TransformationInstances.mkDataConsFunc._#selFP27#name")(x)++++c_mkGunfoldExpr_case_0 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.AbstractCurry.C_CSymbol(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('z'))(Curry.Module.Prelude.List))))(st))(Curry.Module.AbstractCurry.C_CSymbol(x1))(st)+c_mkGunfoldExpr_case_0 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.AbstractCurry.C_CSymbol(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))(Curry.Module.Prelude.List))))(st))(Curry.Module.TransformationInstances.c_mkGunfoldExpr(x1)(Curry.Module.Prelude.op_45(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(st)+c_mkGunfoldExpr_case_0 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_mkGunfoldExpr_case_0(x1)(x2)(x)(st))(i)(xs)(st)+c_mkGunfoldExpr_case_0 x1 x2 x st = Curry.RunTimeSystem.patternFail("TransformationInstances.mkGunfoldExpr_case_0")(x)++++c_mkGfoldlExpr_case_1 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.AbstractCurry.C_CSymbol(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('z'))(Curry.Module.Prelude.List))))(st))(Curry.Module.AbstractCurry.C_CSymbol(x1))(st)+c_mkGfoldlExpr_case_1 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.AbstractCurry.C_CSymbol(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))(Curry.Module.Prelude.List))))(st))(Curry.Module.TransformationInstances.c_mkGfoldlExpr(x1)(Curry.Module.Prelude.op_45(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_xx(st))(x2)(st))(st)+c_mkGfoldlExpr_case_1 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_mkGfoldlExpr_case_1(x1)(x2)(x)(st))(i)(xs)(st)+c_mkGfoldlExpr_case_1 x1 x2 x st = Curry.RunTimeSystem.patternFail("TransformationInstances.mkGfoldlExpr_case_1")(x)++++c_instanceData_case_2 x2 x3 x8 x9@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.Prelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(Curry.Module.TransformationDebugInfo.c_debugTVarName(st)))(x8)+c_instanceData_case_2 x2 x3 x8 x9@Curry.Module.Prelude.C_False st = x8+c_instanceData_case_2 x2 x3 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instanceData_case_2(x2)(x3)(x8)(x)(st))(i)(xs)(st)+c_instanceData_case_2 x2 x3 x8 x st = Curry.RunTimeSystem.patternFail("TransformationInstances.instanceData_case_2")(x)++++c_instanceTypeable_case_3 x2 x3 x8 x9@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.Prelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(Curry.Module.TransformationDebugInfo.c_debugTVarName(st)))(x8)+c_instanceTypeable_case_3 x2 x3 x8 x9@Curry.Module.Prelude.C_False st = x8+c_instanceTypeable_case_3 x2 x3 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instanceTypeable_case_3(x2)(x3)(x8)(x)(st))(i)(xs)(st)+c_instanceTypeable_case_3 x2 x3 x8 x st = Curry.RunTimeSystem.patternFail("TransformationInstances.instanceTypeable_case_3")(x)++++c_instancesGenerics_case_6 x2 x4 x3@(Curry.Module.FlatCurry.C_TypeSyn x5 x6 x7 x8) st = Curry.Module.TransformationInstances.c_instancesGenerics(x4)(x2)(st)+c_instancesGenerics_case_6 x2 x4 x3@(Curry.Module.FlatCurry.C_Type x9 x10 x11 x12) st = Curry.Module.TransformationInstances.c_instancesGenerics_case_5(x2)(x3)(x4)(x12)(st)+c_instancesGenerics_case_6 x2 x4 (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instancesGenerics_case_6(x2)(x4)(x)(st))(i)(xs)(st)+c_instancesGenerics_case_6 x2 x4 x st = Curry.RunTimeSystem.patternFail("TransformationInstances.instancesGenerics_case_6")(x)++++c_instancesGenerics_case_5 x2 x3 x4 x12@Curry.Module.Prelude.List st = Curry.Module.TransformationInstances.c_instancesGenerics(x4)(x2)(st)+c_instancesGenerics_case_5 x2 x3 x4 x12@((Curry.Module.Prelude.:<) x13 x14) st = let {x15 = Curry.Module.TransformationInstances.c_instanceTypeable(x3)(x2)(st)} in let {x18 = Curry.Module.TransformationInstances.c_instanceData(x3)(x2)(st)} in let {x21 = Curry.Module.TransformationInstances.c_instancesGenerics(x4)(x2)(st)} in Curry.Module.TransformationInstances.c_instancesGenerics_case_4(x12)(x15)(x18)(x21)(Curry.Module.Prelude.op_60(Curry.Module.Prelude.c_apply(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.Prelude.c_max))(Curry.Module.Prelude.C_Zero)))(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.TransformationInstances.c_instancesGenerics'46numArgs'4681))))(st))(x12)(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_IHi)))))(st))(st)+c_instancesGenerics_case_5 x2 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instancesGenerics_case_5(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c_instancesGenerics_case_5 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("TransformationInstances.instancesGenerics_case_5")(x)++++c_instancesGenerics_case_4 x12 x15 x18 x21 x22@Curry.Module.Prelude.C_True st = Curry.Module.TransformationInstances.c_instancesGenerics'46_'35selFP5'35rec(x21)(st)+c_instancesGenerics_case_4 x12 x15 x18 x21 x22@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.TransformationInstances.c_instancesGenerics'46_'35selFP10'35iT(x15)(st))((Curry.Module.Prelude.:<)(Curry.Module.TransformationInstances.c_instancesGenerics'46_'35selFP8'35iD(x18)(st))(Curry.Module.TransformationInstances.c_instancesGenerics'46_'35selFP6'35is(x21)(st))))(Curry.Module.Prelude.op_43_43(Curry.Module.TransformationInstances.c_instancesGenerics'46_'35selFP11'35fsT(x15)(st))(Curry.Module.Prelude.op_43_43(Curry.Module.TransformationInstances.c_instancesGenerics'46_'35selFP9'35fsD(x18)(st))(Curry.Module.TransformationInstances.c_instancesGenerics'46_'35selFP7'35fs(x21)(st))(st))(st))+c_instancesGenerics_case_4 x12 x15 x18 x21 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instancesGenerics_case_4(x12)(x15)(x18)(x21)(x)(st))(i)(xs)(st)+c_instancesGenerics_case_4 x12 x15 x18 x21 x st = Curry.RunTimeSystem.patternFail("TransformationInstances.instancesGenerics_case_4")(x)++++c_createConsRule_case_7 x2 x4 x3@(Curry.Module.Prelude.T2 x7 x8) st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_simpleRule((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CPComb(Curry.Module.TransformationDebugInfo.c_renameCons(x3)(st))(Curry.Module.Prelude.c_map(Curry.Module.FlatToAbstractCurry.c_px(st))(Curry.Module.Prelude.c_enumFromTo(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x4)(st))(st)))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.TransformationDebugInfo.c_staticInfoCons(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_acyStr(x8)(st))((Curry.Module.Prelude.:<)(Curry.Module.TransformationDebugInfo.c_createStaticInfo(x7)(Curry.Module.Prelude.c_fst(Curry.Module.SrcRef.c_nextStaticInfo(x2)(st))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_list))(Curry.Module.Prelude.c_map(Curry.Module.TransformationDebugInfo.c_genTermCallVar(st))(Curry.Module.Prelude.c_enumFromTo(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x4)(st))(st))(st))(Curry.Module.Prelude.List))))(st))(st)+c_createConsRule_case_7 x2 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_createConsRule_case_7(x2)(x4)(x)(st))(i)(xs)(st)+c_createConsRule_case_7 x2 x4 x st = Curry.RunTimeSystem.patternFail("TransformationInstances.createConsRule_case_7")(x)++++c_instanceGenTerm_case_9 x2 x3 x6 x7 x4@(Curry.Module.Prelude.T2 x8 x9) st = let {x11 = Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_convertTypeVariable))(x6)(st)} in let {x14 = Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_constraint(Curry.Module.TransformationDebugInfo.c_staticInfoClass(st))))(x11)(st)} in Curry.Module.AbstractHaskell.C_Instance(Curry.Module.TransformationInstances.c_instanceGenTerm_case_8(x3)(x4)(x14)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_elem(x4)(st))(x3)(st))(st))(Curry.Module.AbstractHaskell.C_TypeClass(Curry.Module.TransformationDebugInfo.c_staticInfoClass(st))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CTCons(Curry.Module.TransformationDebugInfo.c_renameType(x4)(st))(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CTVar))(x11)(st)))(Curry.Module.Prelude.List)))((Curry.Module.Prelude.:<)(Curry.Module.AbstractHaskell.C_HFunc(Curry.Module.TransformationDebugInfo.c_staticInfoFunc(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(Curry.Module.AbstractCurry.C_Public)(Curry.Module.Prelude.List)(Curry.Module.FlatToAbstractCurry.c_untyped(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_rules(st))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_zipWith(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.TransformationInstances.c_createConsRule))(x7)(Curry.Module.Prelude.op_36(Curry.Module.SrcRef.c_infoChildren(st))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_snd))(Curry.Module.SrcRef.c_nextStaticInfo(x2)(st))(st))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.FlatToAbstractCurry.c_simpleRule((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_px(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(Curry.Module.Prelude.List))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.TransformationDebugInfo.c_genericInfoFunc(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.TransformationDebugInfo.c_createStaticInfo(x8)(Curry.Module.Prelude.c_fst(Curry.Module.SrcRef.c_nextStaticInfo(x2)(st))(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_xx(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(Curry.Module.Prelude.List)))(st))(st))(Curry.Module.Prelude.List))(st))(st)))(Curry.Module.Prelude.List))+c_instanceGenTerm_case_9 x2 x3 x6 x7 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instanceGenTerm_case_9(x2)(x3)(x6)(x7)(x)(st))(i)(xs)(st)+c_instanceGenTerm_case_9 x2 x3 x6 x7 x st = Curry.RunTimeSystem.patternFail("TransformationInstances.instanceGenTerm_case_9")(x)++++c_instanceGenTerm_case_8 x3 x4 x14 x15@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_constraint(Curry.Module.TransformationDebugInfo.c_debugMonadClass(st))))(Curry.Module.Prelude.T2(Curry.Module.Prelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(Curry.Module.TransformationDebugInfo.c_debugTVarName(st)))(st))(x14)+c_instanceGenTerm_case_8 x3 x4 x14 x15@Curry.Module.Prelude.C_False st = x14+c_instanceGenTerm_case_8 x3 x4 x14 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instanceGenTerm_case_8(x3)(x4)(x14)(x)(st))(i)(xs)(st)+c_instanceGenTerm_case_8 x3 x4 x14 x st = Curry.RunTimeSystem.patternFail("TransformationInstances.instanceGenTerm_case_8")(x)++++c_instancesGenTerm_case_14 x2 x3 x5 x4@(Curry.Module.FlatCurry.C_TypeSyn x6 x7 x8 x9) st = Curry.Module.TransformationInstances.c_instancesGenTerm_case_13(x3)(x5)(x2)(st)+c_instancesGenTerm_case_14 x2 x3 x5 x4@(Curry.Module.FlatCurry.C_Type x12 x13 x14 x15) st = Curry.Module.TransformationInstances.c_instancesGenTerm_case_12(x2)(x3)(x4)(x5)(x15)(st)+c_instancesGenTerm_case_14 x2 x3 x5 (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instancesGenTerm_case_14(x2)(x3)(x5)(x)(st))(i)(xs)(st)+c_instancesGenTerm_case_14 x2 x3 x5 x st = Curry.RunTimeSystem.patternFail("TransformationInstances.instancesGenTerm_case_14")(x)++++c_instancesGenTerm_case_12 x2 x3 x4 x5 x15@Curry.Module.Prelude.List st = Curry.Module.TransformationInstances.c_instancesGenTerm_case_11(x3)(x5)(x2)(st)+c_instancesGenTerm_case_12 x2 x3 x4 x5 x15@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.TransformationInstances.c_instancesGenTerm_case_10(x3)(x4)(x5)(x2)(st)+c_instancesGenTerm_case_12 x2 x3 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instancesGenTerm_case_12(x2)(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c_instancesGenTerm_case_12 x2 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("TransformationInstances.instancesGenTerm_case_12")(x)++++c_instancesGenTerm_case_10 x3 x4 x5 x2@((Curry.Module.Prelude.:<) x20 x21) st = (Curry.Module.Prelude.:<)(Curry.Module.TransformationInstances.c_instanceGenTerm(x4)(x20)(x3)(st))(Curry.Module.TransformationInstances.c_instancesGenTerm(x5)(x21)(x3)(st))+c_instancesGenTerm_case_10 x3 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instancesGenTerm_case_10(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c_instancesGenTerm_case_10 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("TransformationInstances.instancesGenTerm_case_10")(x)++++c_instancesGenTerm_case_11 x3 x5 x2@((Curry.Module.Prelude.:<) x16 x17) st = Curry.Module.TransformationInstances.c_instancesGenTerm(x5)(x17)(x3)(st)+c_instancesGenTerm_case_11 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instancesGenTerm_case_11(x3)(x5)(x)(st))(i)(xs)(st)+c_instancesGenTerm_case_11 x3 x5 x st = Curry.RunTimeSystem.patternFail("TransformationInstances.instancesGenTerm_case_11")(x)++++c_instancesGenTerm_case_13 x3 x5 x2@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.TransformationInstances.c_instancesGenTerm(x5)(x11)(x3)(st)+c_instancesGenTerm_case_13 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationInstances.c_instancesGenTerm_case_13(x3)(x5)(x)(st))(i)(xs)(st)+c_instancesGenTerm_case_13 x3 x5 x st = Curry.RunTimeSystem.patternFail("TransformationInstances.instancesGenTerm_case_13")(x)++
+ dist/build/mkstrict/mkstrict-tmp/Curry/Module/TransformationMonad.hs view
@@ -0,0 +1,206 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.TransformationMonad (module Curry.Module.TransformationMonad) where++import Curry.RunTimeSystem+import Curry.Module.Prelude+import Curry.Module.SrcRef+import Curry.Module.Maybe++++-- begin included++++-- end included++type C_TMState = Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))++type C_TM t0 = (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) t0++c_ret :: (Curry t0) => t0 -> (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) t0+c_ret x1 x2 st = Curry.Module.Prelude.T2(x2)(x1)++++op_62_62_61_46 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) t0)) -> (Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) t1))) -> (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) t1+op_62_62_61_46 x1 x2 x3 st = Curry.Module.TransformationMonad.c_'62'62'61'46_case_9(x1)(x2)(x3)(Curry.Module.Prelude.c_apply(x1)(x3)(st))(st)++++op_62_62_46 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) t0)) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) t1)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) t1)+op_62_62_46 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.op_62_62_61_46(x1)(Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.c_'62'62'46'46_'35lambda3(x2))))++++c_'62'62'46'46_'35lambda3 :: (Curry t24,Curry t25) => (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) t24)) -> t25 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) t24)+c_'62'62'46'46_'35lambda3 x1 x2 st = x1++++c_runVar :: (Curry t0) => Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) t0)) -> Curry.RunTimeSystem.State -> t0+c_runVar x1 x2 st = Curry.Module.Prelude.c_snd(Curry.Module.Prelude.c_apply(x2)(Curry.Module.Prelude.T2(x1)(Curry.Module.Prelude.C_Nothing))(st))(st)++++c_run :: (Curry t0) => Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) t0)) -> Curry.RunTimeSystem.State -> t0)+c_run st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.c_runVar(Curry.Module.Prelude.C_Zero))++++c_state :: (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool)))+c_state x1 st = Curry.Module.Prelude.T2(x1)(x1)++++c_freshVar :: (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.Prelude.C_Int+c_freshVar x1@(Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.Prelude.T2(Curry.Module.Prelude.T2(Curry.Module.Prelude.op_43(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(x3))(x2)+c_freshVar (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationMonad.c_freshVar(x)(st))(i)(xs)(st)+c_freshVar x st = Curry.RunTimeSystem.patternFail("TransformationMonad.freshVar")(x)++++c_freshVars :: Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)+c_freshVars x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.Prelude.T2(Curry.Module.Prelude.T2(Curry.Module.Prelude.op_43(x3)(x1)(st))(x4))(Curry.Module.Prelude.c_take(x1)(Curry.Module.TransformationMonad.c_freshVars'46from'4623(x3)(st))(st))+c_freshVars x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationMonad.c_freshVars(x1)(x)(st))(i)(xs)(st)+c_freshVars x1 x st = Curry.RunTimeSystem.patternFail("TransformationMonad.freshVars")(x)++++c_freshVars'46from'4623 :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_freshVars'46from'4623 x1 st = (Curry.Module.Prelude.:<)(x1)(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.c_freshVars'46from'4623))(Curry.Module.Prelude.op_43(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))++++c_setInfoTree :: (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.Prelude.T0+c_setInfoTree x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.Prelude.T2(Curry.Module.Prelude.T2(x3)(Curry.Module.Prelude.C_Just(Curry.Module.Prelude.T2(x1)(Curry.Module.Prelude.C_True))))(Curry.Module.Prelude.T0)+c_setInfoTree x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationMonad.c_setInfoTree(x1)(x)(st))(i)(xs)(st)+c_setInfoTree x1 x st = Curry.RunTimeSystem.patternFail("TransformationMonad.setInfoTree")(x)++++c_currentInfoTree :: (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)))+c_currentInfoTree x1@(Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.TransformationMonad.c_currentInfoTree_case_8(x1)(x3)(st)+c_currentInfoTree (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationMonad.c_currentInfoTree(x)(st))(i)(xs)(st)+c_currentInfoTree x st = Curry.RunTimeSystem.patternFail("TransformationMonad.currentInfoTree")(x)++++c_nextSrcRefs :: (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)+c_nextSrcRefs x1@(Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.TransformationMonad.c_nextSrcRefs_case_6(x2)(x3)(st)+c_nextSrcRefs (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationMonad.c_nextSrcRefs(x)(st))(i)(xs)(st)+c_nextSrcRefs x st = Curry.RunTimeSystem.patternFail("TransformationMonad.nextSrcRefs")(x)++++c_nextSrcRefs'46_'35selFP3'35srcRefs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_nextSrcRefs'46_'35selFP3'35srcRefs x1@(Curry.Module.Prelude.T2 x2 x3) st = x2+c_nextSrcRefs'46_'35selFP3'35srcRefs (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationMonad.c_nextSrcRefs'46_'35selFP3'35srcRefs(x)(st))(i)(xs)(st)+c_nextSrcRefs'46_'35selFP3'35srcRefs x st = Curry.RunTimeSystem.patternFail("TransformationMonad.nextSrcRefs._#selFP3#srcRefs")(x)++++c_nextSrcRefs'46_'35selFP4'35nextInfoTree :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int)))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))+c_nextSrcRefs'46_'35selFP4'35nextInfoTree x1@(Curry.Module.Prelude.T2 x2 x3) st = x3+c_nextSrcRefs'46_'35selFP4'35nextInfoTree (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationMonad.c_nextSrcRefs'46_'35selFP4'35nextInfoTree(x)(st))(i)(xs)(st)+c_nextSrcRefs'46_'35selFP4'35nextInfoTree x st = Curry.RunTimeSystem.patternFail("TransformationMonad.nextSrcRefs._#selFP4#nextInfoTree")(x)++++c_ignoreVarRefs :: (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.Prelude.T0+c_ignoreVarRefs x1@(Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.TransformationMonad.c_ignoreVarRefs_case_4(x2)(x3)(st)+c_ignoreVarRefs (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationMonad.c_ignoreVarRefs(x)(st))(i)(xs)(st)+c_ignoreVarRefs x st = Curry.RunTimeSystem.patternFail("TransformationMonad.ignoreVarRefs")(x)++++c_skipNextVar :: (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) Curry.Module.Prelude.T0+c_skipNextVar x1@(Curry.Module.Prelude.T2 x2 x3) st = Curry.Module.TransformationMonad.c_skipNextVar_case_1(x2)(x3)(st)+c_skipNextVar (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationMonad.c_skipNextVar(x)(st))(i)(xs)(st)+c_skipNextVar x st = Curry.RunTimeSystem.patternFail("TransformationMonad.skipNextVar")(x)++++c_sequence :: (Curry t0) => Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) t0))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) (Curry.Module.Prelude.List t0)))+c_sequence 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.TransformationMonad.c_sequence'46mcons'4647))(Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.c_ret(Curry.Module.Prelude.List))))++++c_sequence'46mcons'4647 :: (Curry t0) => (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) t0)) -> (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) (Curry.Module.Prelude.List t0))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) (Curry.Module.Prelude.List t0))+c_sequence'46mcons'4647 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.op_62_62_61_46(x1)(Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.c_sequence'46mcons'4647'46_'35lambda4(x2))))++++c_sequence'46mcons'4647'46_'35lambda4 :: (Curry t88) => (Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) (Curry.Module.Prelude.List t88))) -> t88 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) (Curry.Module.Prelude.List t88))+c_sequence'46mcons'4647'46_'35lambda4 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.op_62_62_61_46(x1)(Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.c_sequence'46mcons'4647'46_'35lambda4'46_'35lambda5(x2))))++++c_sequence'46mcons'4647'46_'35lambda4'46_'35lambda5 :: (Curry t88) => t88 -> (Curry.Module.Prelude.List t88) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.SrcRef.C_AdrTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) Curry.Module.Prelude.C_Bool))) (Curry.Module.Prelude.List t88))+c_sequence'46mcons'4647'46_'35lambda4'46_'35lambda5 x1 x2 st = Curry.Module.Prelude.pf(Curry.Module.TransformationMonad.c_ret((Curry.Module.Prelude.:<)(x1)(x2)))++++c_skipNextVar_case_1 x2 x3@(Curry.Module.Prelude.C_Just x4) st = Curry.Module.TransformationMonad.c_skipNextVar_case_0(x2)(x4)(st)+c_skipNextVar_case_1 x2 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationMonad.c_skipNextVar_case_1(x2)(x)(st))(i)(xs)(st)+c_skipNextVar_case_1 x2 x st = Curry.RunTimeSystem.patternFail("TransformationMonad.skipNextVar_case_1")(x)++++c_skipNextVar_case_0 x2 x4@(Curry.Module.Prelude.T2 x5 x6) st = Curry.Module.Prelude.T2(Curry.Module.Prelude.T2(x2)(Curry.Module.Prelude.C_Just(Curry.Module.Prelude.T2(x5)(Curry.Module.Prelude.C_False))))(Curry.Module.Prelude.T0)+c_skipNextVar_case_0 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationMonad.c_skipNextVar_case_0(x2)(x)(st))(i)(xs)(st)+c_skipNextVar_case_0 x2 x st = Curry.RunTimeSystem.patternFail("TransformationMonad.skipNextVar_case_0")(x)++++c_ignoreVarRefs_case_4 x2 x3@(Curry.Module.Prelude.C_Just x4) st = Curry.Module.TransformationMonad.c_ignoreVarRefs_case_3(x2)(x4)(st)+c_ignoreVarRefs_case_4 x2 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationMonad.c_ignoreVarRefs_case_4(x2)(x)(st))(i)(xs)(st)+c_ignoreVarRefs_case_4 x2 x st = Curry.RunTimeSystem.patternFail("TransformationMonad.ignoreVarRefs_case_4")(x)++++c_ignoreVarRefs_case_3 x2 x4@(Curry.Module.Prelude.T2 x5 x6) st = Curry.Module.Prelude.T2(Curry.Module.Prelude.T2(x2)(Curry.Module.Prelude.C_Just(Curry.Module.Prelude.T2(Curry.Module.TransformationMonad.c_ignoreVarRefs_case_2(x5)(x6)(st))(Curry.Module.Prelude.C_True))))(Curry.Module.Prelude.T0)+c_ignoreVarRefs_case_3 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationMonad.c_ignoreVarRefs_case_3(x2)(x)(st))(i)(xs)(st)+c_ignoreVarRefs_case_3 x2 x st = Curry.RunTimeSystem.patternFail("TransformationMonad.ignoreVarRefs_case_3")(x)++++c_ignoreVarRefs_case_2 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_snd))(Curry.Module.SrcRef.c_nextStaticInfo(x5)(st))(st)+c_ignoreVarRefs_case_2 x5 x6@Curry.Module.Prelude.C_False st = x5+c_ignoreVarRefs_case_2 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationMonad.c_ignoreVarRefs_case_2(x5)(x)(st))(i)(xs)(st)+c_ignoreVarRefs_case_2 x5 x st = Curry.RunTimeSystem.patternFail("TransformationMonad.ignoreVarRefs_case_2")(x)++++c_nextSrcRefs_case_6 x2 x3@(Curry.Module.Prelude.C_Just x4) st = Curry.Module.TransformationMonad.c_nextSrcRefs_case_5(x2)(x4)(st)+c_nextSrcRefs_case_6 x2 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationMonad.c_nextSrcRefs_case_6(x2)(x)(st))(i)(xs)(st)+c_nextSrcRefs_case_6 x2 x st = Curry.RunTimeSystem.patternFail("TransformationMonad.nextSrcRefs_case_6")(x)++++c_nextSrcRefs_case_5 x2 x4@(Curry.Module.Prelude.T2 x5 x6) st = let {x7 = Curry.Module.SrcRef.c_nextStaticInfo(x5)(st)} in Curry.Module.Prelude.T2(Curry.Module.Prelude.T2(x2)(Curry.Module.Prelude.C_Just(Curry.Module.Prelude.T2(Curry.Module.TransformationMonad.c_nextSrcRefs'46_'35selFP4'35nextInfoTree(x7)(st))(Curry.Module.Prelude.C_True))))(Curry.Module.TransformationMonad.c_nextSrcRefs'46_'35selFP3'35srcRefs(x7)(st))+c_nextSrcRefs_case_5 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationMonad.c_nextSrcRefs_case_5(x2)(x)(st))(i)(xs)(st)+c_nextSrcRefs_case_5 x2 x st = Curry.RunTimeSystem.patternFail("TransformationMonad.nextSrcRefs_case_5")(x)++++c_currentInfoTree_case_8 x1 x3@(Curry.Module.Prelude.C_Just x4) st = Curry.Module.TransformationMonad.c_currentInfoTree_case_7(x1)(x4)(st)+c_currentInfoTree_case_8 x1 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationMonad.c_currentInfoTree_case_8(x1)(x)(st))(i)(xs)(st)+c_currentInfoTree_case_8 x1 x st = Curry.RunTimeSystem.patternFail("TransformationMonad.currentInfoTree_case_8")(x)++++c_currentInfoTree_case_7 x1 x4@(Curry.Module.Prelude.T2 x5 x6) st = Curry.Module.Prelude.T2(x1)(x5)+c_currentInfoTree_case_7 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationMonad.c_currentInfoTree_case_7(x1)(x)(st))(i)(xs)(st)+c_currentInfoTree_case_7 x1 x st = Curry.RunTimeSystem.patternFail("TransformationMonad.currentInfoTree_case_7")(x)++++c_'62'62'61'46_case_9 x1 x2 x3 (Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(x2)(x5)(st))(x4)(st)+c_'62'62'61'46_case_9 x1 x2 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationMonad.c_'62'62'61'46_case_9(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c_'62'62'61'46_case_9 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("TransformationMonad.>>=._case_9")(x)++
+ dist/build/mkstrict/mkstrict-tmp/Curry/Module/TransformationPartCalls.hs view
@@ -0,0 +1,173 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.TransformationPartCalls (module Curry.Module.TransformationPartCalls) where++import Curry.RunTimeSystem+import Curry.Module.AbstractCurry+import Curry.Module.AbstractHaskell+import Curry.Module.FlatToAbstractCurry+import Curry.Module.Prelude+import Curry.Module.System+import Curry.Module.TransformationDebugInfo+import Curry.Module.TransformationPrint++++-- begin included++++-- end included++c_arityThreshold :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_arityThreshold 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))))++++c_partCallPrefix :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_partCallPrefix 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('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))))))))++++c_partCallsFile :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_partCallsFile 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('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('s'))(Curry.Module.Prelude.List)))))))))++++c_partCallsModule :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_partCallsModule st = Curry.Module.Prelude.op_43_43(Curry.Module.TransformationDebugInfo.c_debugPackage(st))(Curry.Module.TransformationPartCalls.c_partCallsFile(st))(st)++++c_partCallsAs :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_partCallsAs st = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))(Curry.Module.Prelude.List))++++c_partCallsImport :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_partCallsImport st = Curry.Module.Prelude.op_43_43(Curry.Module.TransformationPartCalls.c_partCallsModule(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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.TransformationPartCalls.c_partCallsAs(st))(st))(st)++++c_main :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_main st = Curry.Module.Prelude.op_62_62_61(Curry.Module.System.c_getArgs(st))(Curry.Module.Prelude.pf(Curry.Module.TransformationPartCalls.c_main'46_'35lambda2))(st)++++c_main'46_'35lambda2 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_main'46_'35lambda2 x1 st = let {x2 = Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_head(x1)(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.TransformationPartCalls.c_partCallsFile(st))((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('s'))(Curry.Module.Prelude.List))))(st))(st))(st)} in 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('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('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('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('a'))((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('t'))((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('t'))((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(' '))((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('l'))((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('s'))((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('t'))((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(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('`'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))(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.TransformationPartCalls.c_partCallPrefix(st))(Curry.Module.Prelude.op_43_43(Curry.Module.Prelude.c_show(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.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.:<)(Curry.Module.Prelude.C_Char('n'))((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.List))(st))(st))(st))(st))(st))(Curry.Module.TransformationPrint.c_prettyacy(x2)(Curry.Module.TransformationPartCalls.c_mkPartCallsModule(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))(st))(st))(st)++++c_mkPartCallsModule :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.AbstractHaskell.C_HaskellProg+c_mkPartCallsModule x1 st = Curry.Module.AbstractHaskell.C_HaskellProg(Curry.Module.TransformationPartCalls.c_partCallsModule(st))(Curry.Module.Prelude.List)((Curry.Module.Prelude.:<)(Curry.Module.TransformationDebugInfo.c_debugMonadImport(st))((Curry.Module.Prelude.:<)(Curry.Module.TransformationDebugInfo.c_debugInfoImport(st))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.List)(Curry.Module.Prelude.List)(Curry.Module.Prelude.List)(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.TransformationPartCalls.c_mkPartCallHelper(Curry.Module.TransformationPartCalls.c_partCallsAs(st))))(Curry.Module.Prelude.c_enumFromTo(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(st))(Curry.Module.Prelude.List)++++c_mkPartCallHelper :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.AbstractHaskell.C_HFuncDecl+c_mkPartCallHelper x1 x2 st = Curry.Module.AbstractHaskell.C_HFunc(Curry.Module.Prelude.T2(x1)(Curry.Module.Prelude.op_43_43(Curry.Module.TransformationPartCalls.c_partCallPrefix(st))(Curry.Module.Prelude.c_show(x2)(st))(st)))(x2)(Curry.Module.AbstractCurry.C_Public)((Curry.Module.Prelude.:<)(Curry.Module.TransformationDebugInfo.c_debugMonadConstraint(st))(Curry.Module.TransformationPartCalls.c_termConstraints(x2)(st)))(Curry.Module.TransformationPartCalls.c_mkType(x2)(st))(Curry.Module.AbstractCurry.C_CRules(Curry.Module.AbstractCurry.C_CFlex)((Curry.Module.Prelude.:<)(Curry.Module.TransformationPartCalls.c_createRule(x2)(st))(Curry.Module.Prelude.List)))++++c_combDefaultPC :: Curry.Module.Prelude.C_Int -> Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_combDefaultPC x1 x2 x3 st = Curry.Module.TransformationPartCalls.c_combDefaultPC_case_3(x1)(x2)(x3)(Curry.Module.Prelude.op_62(x1)(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))(st)++++c_combPC :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Int -> Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_combPC x1 x2 x3 x4 st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_comb(Curry.Module.Prelude.T2(x1)(Curry.Module.Prelude.op_43_43(Curry.Module.TransformationPartCalls.c_partCallPrefix(st))(Curry.Module.Prelude.c_show(x2)(st))(st)))(st))((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(st)++++c_termConstraints :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractHaskell.C_TypeClass+c_termConstraints x1 st = Curry.Module.Prelude.c_map(Curry.Module.Prelude.op_46(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_constraint(Curry.Module.TransformationDebugInfo.c_staticInfoClass(st))))(Curry.Module.Prelude.pf(Curry.Module.FlatToAbstractCurry.c_convertTypeVariable))(st))(Curry.Module.Prelude.c_enumFromTo(Curry.Module.Prelude.C_Zero)(x1)(st))(st)++++c_createRule :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CRule+c_createRule x1 st = Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_noGuardRule((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CPComb(Curry.Module.TransformationDebugInfo.c_staticInfoCons(st))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CPVar(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Zero)((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)))))))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CPVar(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))((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.List)))))))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CPVar(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))((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('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.List)))))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CPVar(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.List)))(Curry.Module.TransformationPartCalls.c_mkBody(x1)(st))(st))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CLocalFunc(Curry.Module.AbstractCurry.C_CFunc(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)((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.List))))))(Curry.Module.Prelude.C_Zero)(Curry.Module.AbstractCurry.C_Public)(Curry.Module.FlatToAbstractCurry.c_untyped(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_rules(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_constantRule(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.FlatToAbstractCurry.c_point(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.AbstractCurry.C_CSymbol(Curry.Module.TransformationDebugInfo.c_staticInfoCons(st)))(st))(Curry.Module.AbstractCurry.C_CVar(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Zero)((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)))))))(st))(st))(Curry.Module.AbstractCurry.C_CVar(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))((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.List)))))))(st))(st))(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.FlatToAbstractCurry.c_presym((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('+'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('+'))(Curry.Module.Prelude.List)))(st))(st))(Curry.Module.AbstractCurry.C_CVar(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))((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('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))))(st))(st))(st))(Curry.Module.Prelude.List))(st))))(Curry.Module.Prelude.List))(st)++++c_mkBody :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_mkBody x1 st = Curry.Module.TransformationPartCalls.c_mkLambdas(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st)++++c_mkLambdas :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_mkLambdas x1 x2 st = let {x5 = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.AbstractCurry.C_CSymbol(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)((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.List)))))))(st))(Curry.Module.FlatToAbstractCurry.c_list(Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.TransformationPartCalls.c_mkLambdas'46_'35lambda3(x1)))(Curry.Module.Prelude.c_enumFromTo(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(Curry.Module.Prelude.op_45(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(st))(st))(st)} in let {x6 = Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CLambda((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_px(st))(x2)(st))(Curry.Module.Prelude.List)))} in Curry.Module.TransformationPartCalls.c_mkLambdas_case_1(x1)(x2)(x5)(x6)(Curry.Module.Prelude.op_61_61(x1)(x2)(st))(st)++++c_mkLambdas'46_'35lambda3 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_mkLambdas'46_'35lambda3 x1 x2 st = Curry.Module.AbstractCurry.C_CVar(Curry.Module.Prelude.T2(Curry.Module.Prelude.op_43(x1)(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.c_show(x2)(st))))++++c_mkLambdas'46funcRep'4661 :: Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_mkLambdas'46funcRep'4661 x1 x2 st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.AbstractCurry.C_CSymbol(Curry.Module.TransformationDebugInfo.c_funcRepCons(st)))(st))(x1)(st))(st))(x2)(st)++++c_mkDo :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_mkDo x1 x2 st = Curry.Module.AbstractCurry.C_CDoExpr((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CSLet((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CLocalPat(Curry.Module.AbstractCurry.C_CPVar(Curry.Module.Prelude.T2(Curry.Module.Prelude.op_43(x1)(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.c_show(x2)(st)))))(Curry.Module.Prelude.c_apply(Curry.Module.TransformationDebugInfo.c_genTermCallVar(st))(x2)(st))(Curry.Module.Prelude.List))(Curry.Module.Prelude.List)))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.op_36(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CSExpr))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36(st))(Curry.Module.FlatToAbstractCurry.c_presym((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('t'))((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('n'))(Curry.Module.Prelude.List)))))))(st))(st))(Curry.Module.TransformationPartCalls.c_mkLambdas(x1)(Curry.Module.Prelude.op_43(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(st))(st))(st))(Curry.Module.Prelude.List)))++++c_mkCall :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_mkCall x1 st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.op_36_36_36(st))(Curry.Module.AbstractCurry.C_CSymbol(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))(Curry.Module.Prelude.List))))(st))(Curry.Module.Prelude.c_map(Curry.Module.FlatToAbstractCurry.c_xx(st))(Curry.Module.Prelude.c_enumFromTo(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(st))(st))(st)++++op_126_126_62 :: Curry.Module.AbstractCurry.C_CTypeExpr -> Curry.Module.AbstractCurry.C_CTypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CTypeExpr+op_126_126_62 x1 x2 st = Curry.Module.AbstractCurry.C_CTCons(Curry.Module.TransformationDebugInfo.c_funcRepType(st))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CTVar(Curry.Module.Prelude.T2(Curry.Module.Prelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(Curry.Module.TransformationDebugInfo.c_debugTVarName(st))))((Curry.Module.Prelude.:<)(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))))++++op_126_62 :: Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CTypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CTypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CTypeExpr))+op_126_62 st = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.AbstractCurry.C_CFuncType)++++c_mkType :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CTypeExpr+c_mkType x1 st = Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.TransformationPartCalls.op_126_62(st))(Curry.Module.AbstractCurry.C_CTCons(Curry.Module.TransformationDebugInfo.c_staticInfoCons(st))(Curry.Module.Prelude.List))(st))(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_apply(Curry.Module.TransformationPartCalls.op_126_62(st))(Curry.Module.Prelude.c_foldr(Curry.Module.Prelude.pf(Curry.Module.TransformationPartCalls.c_mkType'46_'35lambda4))(Curry.Module.AbstractCurry.C_CTCons(Curry.Module.TransformationDebugInfo.c_debugTVar(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_tx(st))(x1)(st))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.c_enumFromTo(Curry.Module.Prelude.C_Zero)(Curry.Module.Prelude.op_45(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(st))(st))(Curry.Module.Prelude.c_foldr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.TransformationPartCalls.c_mkType'46_'35lambda5))(Curry.Module.Prelude.op_36(Curry.Module.FlatToAbstractCurry.c_tx(st))(x1)(st))(Curry.Module.Prelude.c_enumFromTo(Curry.Module.Prelude.C_Zero)(Curry.Module.Prelude.op_45(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(st))(st))(st))(st)++++c_mkType'46_'35lambda4 :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CTypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CTypeExpr)+c_mkType'46_'35lambda4 x1 st = Curry.Module.Prelude.c_apply(Curry.Module.TransformationPartCalls.op_126_62(st))(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_tx(st))(x1)(st))(st)++++c_mkType'46_'35lambda5 :: Curry.Module.Prelude.C_Int -> Curry.Module.AbstractCurry.C_CTypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CTypeExpr+c_mkType'46_'35lambda5 x1 x2 st = Curry.Module.TransformationPartCalls.op_126_126_62(Curry.Module.Prelude.c_apply(Curry.Module.FlatToAbstractCurry.c_tx(st))(x1)(st))(x2)(st)++++c_mkLambdas_case_1 x1 x2 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.TransformationPartCalls.c_mkLambdas'46funcRep'4661(x5)))(Curry.Module.Prelude.op_36(x6)(Curry.Module.TransformationPartCalls.c_mkCall(x1)(st))(st))(st)+c_mkLambdas_case_1 x1 x2 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.TransformationPartCalls.c_mkLambdas_case_0(x1)(x2)(x5)(x6)(Curry.Module.Prelude.c_otherwise(st))(st)+c_mkLambdas_case_1 x1 x2 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationPartCalls.c_mkLambdas_case_1(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c_mkLambdas_case_1 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("TransformationPartCalls.mkLambdas_case_1")(x)++++c_mkLambdas_case_0 x1 x2 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_36(Curry.Module.Prelude.pf(Curry.Module.TransformationPartCalls.c_mkLambdas'46funcRep'4661(x5)))(Curry.Module.Prelude.op_36(x6)(Curry.Module.TransformationPartCalls.c_mkDo(x1)(x2)(st))(st))(st)+c_mkLambdas_case_0 x1 x2 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationPartCalls.c_mkLambdas_case_0(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c_mkLambdas_case_0 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("TransformationPartCalls.mkLambdas_case_0")(x)++++c_combDefaultPC_case_3 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.c_error((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(' '))((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.:<)(Curry.Module.Prelude.C_Char('h'))((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('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(' '))((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('a'))((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('i'))((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('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(st)+c_combDefaultPC_case_3 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.TransformationPartCalls.c_combDefaultPC_case_2(x1)(x2)(x3)(Curry.Module.Prelude.c_otherwise(st))(st)+c_combDefaultPC_case_3 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationPartCalls.c_combDefaultPC_case_3(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c_combDefaultPC_case_3 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("TransformationPartCalls.combDefaultPC_case_3")(x)++++c_combDefaultPC_case_2 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.TransformationPartCalls.c_combPC(Curry.Module.TransformationPartCalls.c_partCallsAs(st))(x1)(x2)(x3)(st)+c_combDefaultPC_case_2 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationPartCalls.c_combDefaultPC_case_2(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c_combDefaultPC_case_2 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("TransformationPartCalls.combDefaultPC_case_2")(x)++
+ dist/build/mkstrict/mkstrict-tmp/Curry/Module/TransformationPrint.hs view
@@ -0,0 +1,459 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.TransformationPrint (module Curry.Module.TransformationPrint) where++import Curry.RunTimeSystem+import Curry.Module.AbstractHaskell+import Curry.Module.Prelude+import Curry.Module.System++++-- begin included++++import Language.Haskell.Syntax+import Language.Haskell.Pretty+import Language.Haskell.Parser++import System.IO+import System.Directory (createDirectoryIfMissing)+import System.FilePath (takeDirectory)++import Data.Char +import Data.List (nub)++import Prelude as P++import Curry.AbstractCurry++prettyahs :: C_String -> C_String -> Result (C_IO T0)+prettyahs = ioFunc2 writeahs++writeahs :: String -> String -> IO ()+writeahs filename shownProg = do+  (prog,header) <- toHaskell (read shownProg)+  createDirectoryIfMissing True (takeDirectory filename)+  writeFile filename (header ++ "\n" ++ prettyPrint prog)++newtype QualInfo = QualInfo (QName -> Bool)++mkQualInfo :: HaskellProg -> QualInfo+mkQualInfo (HaskellProg name _ _ _ _ _ _ _) = QualInfo (\ (m,_) -> m P.==name)++toHaskell :: HaskellProg -> IO (HsModule,String)+toHaskell p@(HaskellProg name header imps externalFileName ts insts fs os) = +  if null externalFileName +    then do+      p' <- hsmod [] []+      P.return (p',header)+    else do+      putStrLn $ "reading " ++ externalFileName+      progStr <- readFile externalFileName+      case parseModule progStr of+        err@(ParseFailed _ _) -> error (show err)+        ParseOk (HsModule _ _ _ extImps extDecls) ->  do+          p' <- hsmod  extImps extDecls+          P.return (p',header)++  where hsmod extImps extDecls = P.return $ +         HsModule src (Module name) +                 Nothing+                   -- (exports qi (map (\ (HTypeDecl _ td) -> td) ts) fs) +                 (nub $ extImps ++ map imports imps)+                 (extDecls +++                  map (instDecl qi) insts +++                  map (htypes qi) ts ++ +                  concatMap (hfuncs qi) fs ++ +                  map ops os)++        qi = mkQualInfo p+++src :: SrcLoc+src = SrcLoc {srcFilename = "", srcLine = 0, srcColumn = 0}++qual :: QualInfo -> QName -> HsQName+qual (QualInfo qi) mn@(m,n)+  | n P.=="[]"       = Special HsListCon+  | n P.=="()"       = Special HsUnitCon+  | n P.==":"        = Special HsCons+  | isTupleName n = Special (HsTupleCon (length n - 1))+  | otherwise     = (if qi mn || null (fst mn) +                       then UnQual  +                       else Qual (Module m)) (ident n)++ident :: String -> HsName+ident n | isInfixName n   = HsSymbol n +        | take 3 n  P.== "x'x" && isRegularName n = HsIdent ('x':n)+        | isRegularName n = HsIdent n+        | null n          = error "empty identifier"+        | otherwise       = HsIdent ("x'x"++normalize n)+  where+    normalize "" = ""+    normalize (c:cs) | isIdentChar c = c:normalize cs+                     | otherwise     = show (ord c)++normalize cs++isInfixName :: String -> Bool+isInfixName = all (`elem` "~!@#$%^&*+-=<>?./|\\:")++isRegularName :: String -> Bool+isRegularName "" = False+isRegularName (c:cs) = isAlpha c && all isIdentChar cs++isIdentChar :: Char -> Bool +isIdentChar c = isAlphaNum c || elem c "'_"++exports :: QualInfo -> [CTypeDecl] -> [HFuncDecl] -> Maybe [HsExportSpec]+exports qi ts fs = if null specs || allExported then Nothing else Just specs+                +  where+    (allExported,specs) = conc (map exportType ts ++ map exportFunc fs)++    conc = foldr (\ (b,xs) (c,ys) -> (b&&c,xs++ys)) (True,[])+  +    exportType (CType _  Private _ _) = (False,[])+    exportType (CType mn Public  _ cs) +      | all private cs = (null cs,[HsEAbs $ qual qi mn])+      | any private cs = (False,[HsEThingWith (qual qi mn) +                                              (concatMap conName cs)])+      | otherwise      = (True,[HsEThingAll $ qual qi mn])+        ++    exportType (CTypeSyn _  Private _ _) = (False,[])+    exportType (CTypeSyn mn Public  _ _) = (True,[HsEAbs $ qual qi mn])++    private (CCons _ _ Private _) = True+    private (CCons _ _ Public  _) = False++    conName (CCons _     _ Private _) = []+    conName (CCons (_,n) _ Public  _) = [HsConName (ident n)]+    +    exportFunc (HFunc mn _ vis _ _ _)     = expF mn vis++    expF _  Private = (False,[])+    expF mn Public  = (True,[HsEVar (qual qi mn)])+++   +imports :: String -> HsImportDecl+imports s = HsImportDecl src (Module s) True Nothing Nothing++htypes :: QualInfo -> HTypeDecl -> HsDecl+htypes qi (HTypeDecl tcs td ds) = types qi tcs ds td++types :: QualInfo -> [TypeClass] -> [QName] -> CTypeDecl -> HsDecl+types qi _ _ (CTypeSyn (_,n) _ vs te) = +  HsTypeDecl src (ident n) (map (varOrUnderscore True) vs) (typeExp qi te)+types qi tcs ds (CType (_,n) _ vs cs) = +  HsDataDecl src (map (typeConstr qi) tcs)+             (ident n) (map (varOrUnderscore True) vs) +                              (map (consDecl qi) cs) +                       (map (qual qi) ds)++typeExp :: QualInfo -> CTypeExpr -> HsType+typeExp _ (CTVar v)         = HsTyVar (varOrUnderscore True v)+typeExp m (CFuncType t1 t2) = HsTyFun (typeExp m t1) (typeExp m t2)+typeExp m (CTCons mn tes)+ | isTupleName (snd mn) = HsTyTuple (map (typeExp m) tes)+ | otherwise = foldl HsTyApp (HsTyCon (qual m mn)) (map (typeExp m) tes)++typeConstr :: QualInfo -> TypeClass -> HsAsst+typeConstr qi (TypeClass mn ts) = +  (qual qi mn,map (typeExp qi) ts)++var :: (Int,String) -> HsName+var = varOrUnderscore False++varOrUnderscore :: Bool -> (Int,String) -> HsName+varOrUnderscore True (i,"_") = HsIdent "_"+varOrUnderscore _    (i,"")  = ident ('x':show i)+varOrUnderscore _    (i,v)   = ident v++isTupleName :: String -> Bool+isTupleName ('(':xs) = dropWhile ( P.==',') xs  P.== ")"+isTupleName _ = False++consDecl :: QualInfo -> CConsDecl -> HsConDecl+consDecl m (CCons (_,n) _ _ ts) = +  HsConDecl src (ident n) (map (HsUnBangedTy . typeExp m) ts)++instDecl :: QualInfo -> InstanceDecl -> HsDecl+instDecl qi (Instance tcs tc@(TypeClass _ ts) fs) = +  HsInstDecl src (map (typeConstr qi) tcs) +                 (fst $ typeConstr qi tc)  +                 (map (typeExp qi) ts)+                 (filter (not . isTypeSig) $ concatMap (hfuncs qi) fs)+  where+    isTypeSig (HsTypeSig _ _ _) = True+    isTypeSig _ = False+++hfuncs :: QualInfo -> HFuncDecl -> [HsDecl]+hfuncs qi (HFunc mn i _ tc t r)     = func qi mn i tc t r++funcs :: QualInfo -> CFuncDecl -> [HsDecl]+funcs qi (CFunc mn i _ t r)     = func qi mn i [] t r++func :: QualInfo -> QName -> Int -> [TypeClass] -> CTypeExpr -> CRules +     -> [HsDecl]+func qi (_,n) _ _ (CTCons ("Prelude","untyped") []) r = funcRules qi n r+func qi (_,n) _ _ t r | isCaseAuxFuncType t = funcRules qi n r+func qi (_,n) _ tc typ r = +  HsTypeSig src [ident n] +    (HsQualType (map (typeConstr qi) tc) (typeExp qi typ)):funcRules qi n r++funcRules :: QualInfo -> String -> CRules -> [HsDecl]+funcRules _  _ (CExternal _) = []+funcRules qi n (CRules _ rs) = map (rule qi (ident n)) rs++-- all rules for a functions could be put together in one HsFunBind+rule :: QualInfo -> HsName -> CRule -> HsDecl+rule qi fun (CRule [] ges locs) = +  HsPatBind src (HsPVar fun) (rhs qi ges) (concatMap (loc qi) locs)+rule qi fun (CRule ps ges locs) = +  HsFunBind [HsMatch src fun (map (mp fun . pattern False qi) ps) +                             (rhs qi ges) +                             (concatMap (loc qi) locs)]+  where+    mp (HsSymbol _) = addPParToInfix+    mp (HsIdent  _) = id+  +rhs :: QualInfo -> [(CExpr,CExpr)] -> HsRhs+rhs qi [(CSymbol ("Prelude","success"),e)] = HsUnGuardedRhs (expr False qi e)+rhs qi ges = HsGuardedRhss (map guardedExpr ges)+  where+    guardedExpr (g,e) = HsGuardedRhs src (expr False qi g) (expr False qi e)++expr :: Bool -> QualInfo -> CExpr -> HsExp+expr _ _  (CVar v) = HsVar (UnQual (var v))+expr b _  (CLit (CIntc i)) | i <0 = maybePar b (HsNegApp (HsLit (HsInt (-i))))+expr _ _  (CLit l) = HsLit (lit l)+expr _ qi (CSymbol mn@(_,n))  +  | isConsName n  = HsCon (qual qi mn)+  | otherwise     = HsVar (qual qi mn)+expr b qi e@(CApply _ _) = application b qi (args e)+expr _ qi (CLambda [CPVar v] (CApply (CApply (CSymbol (m,s)) (CVar v')) e)) +  | v P.==v' && isInfixName s = HsRightSection (qop qi m s) (expr True qi e)  +expr _ qi (CLambda [CPVar v] (CApply (CApply (CSymbol (m,s)) e) (CVar v')))+  | v P.==v' && isInfixName s = HsLeftSection (expr True qi e) (qop qi m s)  +expr b qi (CLambda ps e)    = +  maybePar b (HsLambda src (map (pattern True qi) ps) (expr False qi e))+expr b qi (CLetDecl locs e) = +  maybePar b (HsLet (concatMap (loc qi) locs) (expr False qi e))+expr b qi (CDoExpr xs)      = maybePar b (HsDo (map (statement qi) xs))+expr _ qi (CListComp e xs)  = +  HsListComp (expr False qi e) (map (statement qi) xs)+expr b qi (CCase e bs)      = +  maybePar b (HsCase (expr False qi e) (map (branch qi) bs))++application :: Bool -> QualInfo -> [CExpr] -> HsExp+application _ _  [] = error "nothing to apply"+application _ _  (CApply _ _:_) = error "application assertion violated" +application _ qi [CSymbol ("Prelude","flip"),CSymbol (m,s),e]+  | isInfixName s = HsRightSection (qop qi m s) (expr True qi e)+application _ qi [CSymbol ("Prelude","enumFrom"),e] = +  HsEnumFrom (expr False qi e)+application _ qi [CSymbol ("Prelude","enumFromTo"),e1,e2] = +  HsEnumFromTo (expr False qi e1) (expr False qi e2)+application _ qi [CSymbol ("Prelude","enumFromThen"),e1,e2] = +  HsEnumFromThen (expr False qi e1) (expr False qi e2)+application _ qi [CSymbol ("Prelude","enumFromThenTo"),e1,e2,e3] = +  HsEnumFromThenTo (expr False qi e1) (expr False qi e2) (expr False qi e3)+application b qi xs@(sym@(CSymbol ("Prelude",s)):es)+  | s P.=="negate"       = maybePar b (negApp qi e es)+  | s P.=="if_then_else" = maybePar b (ite qi e es)+  | isTupleName s     = tuple qi (length s - 1) e es+  | isClosedList xs   = let ys=listElems xs+                         in if   not (null ys) && all isChar ys +                            then HsLit (HsString (map char ys))+                            else HsList (map (expr False qi) ys)+  where+    e = expr b qi sym+application b qi (sym@(CSymbol (m,s)):es)+  | isInfixName s       = maybePar b $ +                          infi qi m s (expr True qi sym) (map (expr True qi) es)+application b qi (x:xs) = maybePar b $+                          foldl HsApp (expr True qi x) (map (expr True qi) xs)++negApp :: QualInfo -> HsExp -> [CExpr] -> HsExp+negApp _  s []     = s+negApp qi _ (e:es) = +  foldl HsApp (HsNegApp (expr True qi e)) (map (expr True qi) es)++ite :: QualInfo -> HsExp -> [CExpr] -> HsExp+ite qi _ (e:true:false:es) = +  foldl HsApp (maybePar (not (null es)) $ HsIf (ex e) (ex true) (ex false))+              (map (expr True qi) es)+  where+    ex = expr False qi+ite qi s es = foldl HsApp s (map (expr True qi) es)++tuple :: QualInfo -> Int -> HsExp -> [CExpr] -> HsExp+tuple qi i s es +  | length es  P.== i = HsTuple (map (expr False qi) es)+  | otherwise      = foldl HsApp s (map (expr True qi) es)++isClosedList :: [CExpr] -> Bool+isClosedList [CSymbol (_,"[]")]     = True+isClosedList [CSymbol (_,":"),_,xs] = isClosedList (args xs)+isClosedList _                      = False++listElems :: [CExpr] -> [CExpr]+listElems [_]      = []+listElems [_,x,xs] = x:listElems (args xs)+listElems _        = error "unexpected call to listElems"++isChar :: CExpr -> Bool+isChar (CLit (CCharc _)) = True+isChar _                 = False++char :: CExpr -> Char+char (CLit (CCharc c)) = c+char _ = error "unexpected call to char"++infi :: QualInfo -> String -> String -> HsExp -> [HsExp] -> HsExp+infi _   _ _ e []        = e+infi qi m s _ [e']       = HsLeftSection e' (qop qi m s) +infi qi m s _ (e1:e2:es) = +  foldl HsApp (maybePar (not (null es)) (HsInfixApp e1 (qop qi m s) e2)) es++qop :: QualInfo -> String -> String -> HsQOp+qop qi m s +  | isConsName s = HsQConOp (qual qi (m,s))+  | otherwise    = HsQVarOp (qual qi (m,s))+                            ++args :: CExpr -> [CExpr]+args (CApply e1 e2) = args e1 ++ [e2]+args e              = [e]++maybePar :: Bool -> HsExp -> HsExp+maybePar True  = HsParen+maybePar False = id++statement :: QualInfo -> CStatement -> HsStmt+statement qi (CSExpr e)   = HsQualifier (expr False qi e)+statement qi (CSPat p e)  = HsGenerator src (pattern False qi p) +                                            (expr False qi e)+statement qi (CSLet locs) = HsLetStmt (concatMap (loc qi) locs)++branch :: QualInfo -> CBranchExpr -> HsAlt+branch qi (CBranch p e) = +  HsAlt src (pattern False qi p) (HsUnGuardedAlt (expr False qi e)) []++isConsName :: String -> Bool+isConsName "[]"    = True+isConsName (':':_) = True+isConsName n       = isTupleName n || isUpper (head n) ++loc :: QualInfo -> CLocalDecl -> [HsDecl]+loc qi (CLocalFunc f) = funcs qi f+loc qi (CLocalPat p e locs) = +  [HsPatBind src (pattern False qi p) +                 (HsUnGuardedRhs (expr False qi e)) +                 (concatMap (loc qi) locs)]+loc qi (CLocalVar v) = loc qi (CLocalPat (CPVar v) unknown [])++unknown :: CExpr+unknown = CSymbol ("Prelude","unknown")++pattern :: Bool -> QualInfo -> CPattern -> HsPat+pattern _ _   (CPVar (_,"_")) = HsPWildCard+pattern _ _   (CPVar v) = HsPVar (var v)+pattern _ _   (CPLit l) = HsPLit (lit l)+pattern par qi p@(CPComb mn@(_,n) ps) +  | isTupleName n   = HsPTuple (map (pattern False qi) ps)+  | isListPattern p = HsPList  (map (pattern False qi) (plistElems p))+  | isInfixName n &&+    length ps  P.== 2  = let [p1,p2] = ps+                       in maybePPar par $+                          HsPInfixApp (addPParToInfix (pattern False qi p1))+                                      (qual qi mn) +                                      (addPParToInfix (pattern False qi p2))+  | null ps   = HsPApp (qual qi mn) []+  | otherwise = maybePPar par (HsPApp (qual qi mn) (map (pattern True qi) ps))+pattern par qi (CPAs v p) = +  HsPAsPat (var v) $ +           (pattern True qi p)+pattern par qi (CPFuncComb mn ps) = pattern par qi (CPComb mn ps)+++maybePPar :: Bool -> HsPat -> HsPat+maybePPar True p@(HsPApp _ _) = HsPParen p+maybePPar True p@(HsPInfixApp _ _ _) = HsPParen p+maybePPar _    p = p++addPParToInfix :: HsPat -> HsPat+addPParToInfix p@(HsPInfixApp _ _ _) = HsPParen p+addPParToInfix p                     = p+++lit :: CLiteral -> HsLiteral+lit (CIntc i)   = HsInt i+lit (CFloatc f) = HsDoublePrim (toRational f)+lit (CCharc c)  = HsChar c++isListPattern :: CPattern -> Bool+isListPattern (CPComb (_,"[]") [])    = True+isListPattern (CPComb (_,":") [_,xs]) = isListPattern xs+isListPattern _                       = False++plistElems :: CPattern -> [CPattern]+plistElems (CPComb _ [])     = []+plistElems (CPComb _ [x,xs]) = x : plistElems xs+plistElems _ = error "unexpected call to plistElems"++isComplexPat :: CPattern -> Bool+isComplexPat (CPVar _)       = False+isComplexPat (CPLit _)       = False+isComplexPat (CPComb _ args) = not (null args)++ops :: COpDecl -> HsDecl+ops (COp (_,n) fix prec) = HsInfixDecl src (fixity fix) prec [op (ident n)]+  where+    fixity CInfixOp  = HsAssocNone+    fixity CInfixlOp = HsAssocLeft+    fixity CInfixrOp = HsAssocRight++    op = if isConsName n then HsConOp else HsVarOp++isCaseAuxFuncType :: CTypeExpr -> Bool+isCaseAuxFuncType (CTVar (-42,"y42")) = True+isCaseAuxFuncType _ = False++-- --------------------------------------------------------------------+-- Definition of data types for representing abstract Haskell programs:+-- ====================================================================++data TypeClass = TypeClass QName [CTypeExpr]+  deriving (Read,Show)++data InstanceDecl = Instance [TypeClass] TypeClass [HFuncDecl]+  deriving (Read,Show)++data HFuncDecl = HFunc QName Int CVisibility [TypeClass] CTypeExpr CRules+  deriving (Read,Show)++data HaskellProg = +  HaskellProg String String [String] String [HTypeDecl] [InstanceDecl] [HFuncDecl] [COpDecl]+  deriving (Read,Show)++data HTypeDecl = HTypeDecl [TypeClass] CTypeDecl [QName] deriving (Read,Show)++++-- end included++c_prettyacy :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.AbstractHaskell.C_HaskellProg -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0+c_prettyacy x1 x2 st = Curry.Module.Prelude.op_36_35_35(Curry.Module.Prelude.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.TransformationPrint.c_prettyahs))(x1)(st))(Curry.Module.Prelude.c_show(x2)(st))(st)++++c_prettyahs :: (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_prettyahs x1 x2 st = Curry.Module.TransformationPrint.prettyahs(x1)(x2)(st)++
+ dist/build/mkstrict/mkstrict-tmp/Curry/Module/TransformationSignatures.hs view
@@ -0,0 +1,81 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.TransformationSignatures (module Curry.Module.TransformationSignatures) where++import Curry.RunTimeSystem+import Curry.Module.AbstractCurry+import Curry.Module.FlatCurry+import Curry.Module.FlatToAbstractCurry+import Curry.Module.Prelude+import Curry.Module.TransformationDebugInfo+import Curry.Module.System++++-- begin included++++-- end included++c_transformType :: Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_TypeExpr -> (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.AbstractCurry.C_CTypeExpr+c_transformType x1 x2@(Curry.Module.FlatCurry.C_TVar x4) x3 st = Curry.Module.Prelude.op_36(Curry.Module.TransformationSignatures.c_debugTVarWrapper(x1)(st))(Curry.Module.FlatToAbstractCurry.c_convertType(x2)(st))(st)+c_transformType x1 x2@(Curry.Module.FlatCurry.C_TCons x5 x6) x3 st = let {x7 = Curry.Module.Prelude.c_map(Curry.Module.Prelude.pf(Curry.Module.TransformationSignatures.c_transformType'46_'35lambda2(x3)))(x6)(st)} in Curry.Module.Prelude.op_36(Curry.Module.TransformationSignatures.c_debugTVarWrapper(x1)(st))(Curry.Module.AbstractCurry.C_CTCons(Curry.Module.TransformationDebugInfo.c_renameType(x5)(st))(Curry.Module.TransformationSignatures.c_transformType_case_3(x3)(x5)(x7)(Curry.Module.Prelude.c_apply(Curry.Module.Prelude.c_elem(x5)(st))(x3)(st))(st)))(st)+c_transformType x1 x2@(Curry.Module.FlatCurry.C_FuncType x9 x10) x3 st = Curry.Module.TransformationSignatures.c_transformType_case_2(x1)(x3)(x9)(x10)(Curry.Module.Prelude.op_62(x1)(Curry.Module.Prelude.C_Zero)(st))(st)+c_transformType x1 (Curry.Module.FlatCurry.C_TypeExprOr i xs) x3 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationSignatures.c_transformType(x1)(x)(x3)(st))(i)(xs)(st)+c_transformType x1 x x3 st = Curry.RunTimeSystem.patternFail("TransformationSignatures.transformType")(x)++++c_transformType'46_'35lambda2 :: (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_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CTypeExpr+c_transformType'46_'35lambda2 x1 x2 st = Curry.Module.TransformationSignatures.c_transformType(Curry.Module.Prelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(x2)(x1)(st)++++c_transformType'46funcRepr'4614 :: Curry.Module.AbstractCurry.C_CTypeExpr -> Curry.Module.AbstractCurry.C_CTypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CTypeExpr+c_transformType'46funcRepr'4614 x1 x2 st = Curry.Module.AbstractCurry.C_CTCons(Curry.Module.TransformationDebugInfo.c_funcRepType(st))((Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CTCons(Curry.Module.TransformationDebugInfo.c_debugTVar(st))(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))))++++c_transformType'46transformParamType'4614 :: Curry.Module.FlatCurry.C_TypeExpr -> (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.AbstractCurry.C_CTypeExpr+c_transformType'46transformParamType'4614 x1@(Curry.Module.FlatCurry.C_TVar x3) x2 st = Curry.Module.FlatToAbstractCurry.c_convertType(x1)(st)+c_transformType'46transformParamType'4614 x1@(Curry.Module.FlatCurry.C_FuncType x4 x5) x2 st = Curry.Module.TransformationSignatures.c_transformType(Curry.Module.Prelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(x1)(x2)(st)+c_transformType'46transformParamType'4614 x1@(Curry.Module.FlatCurry.C_TCons x6 x7) x2 st = Curry.Module.TransformationSignatures.c_transformType(Curry.Module.Prelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(x1)(x2)(st)+c_transformType'46transformParamType'4614 (Curry.Module.FlatCurry.C_TypeExprOr i xs) x2 st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationSignatures.c_transformType'46transformParamType'4614(x)(x2)(st))(i)(xs)(st)+c_transformType'46transformParamType'4614 x x2 st = Curry.RunTimeSystem.patternFail("TransformationSignatures.transformType.transformParamType.14")(x)++++c_debugTVarWrapper :: Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CTypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CTypeExpr)+c_debugTVarWrapper x1 st = Curry.Module.TransformationSignatures.c_debugTVarWrapper_case_0(x1)(Curry.Module.Prelude.op_61_61(x1)(Curry.Module.Prelude.C_Zero)(st))(st)++++c_debugTVarWrapper_case_0 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.TransformationDebugInfo.c_wrapDebugTVar(st)+c_debugTVarWrapper_case_0 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.Prelude.pf(Curry.Module.Prelude.c_id)+c_debugTVarWrapper_case_0 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationSignatures.c_debugTVarWrapper_case_0(x1)(x)(st))(i)(xs)(st)+c_debugTVarWrapper_case_0 x1 x st = Curry.RunTimeSystem.patternFail("TransformationSignatures.debugTVarWrapper_case_0")(x)++++c_transformType_case_2 x1 x3 x9 x10 x11@Curry.Module.Prelude.C_True st = Curry.Module.AbstractCurry.C_CFuncType(Curry.Module.TransformationSignatures.c_transformType'46transformParamType'4614(x9)(x3)(st))(Curry.Module.TransformationSignatures.c_transformType(Curry.Module.Prelude.op_45(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(x10)(x3)(st))+c_transformType_case_2 x1 x3 x9 x10 x11@Curry.Module.Prelude.C_False st = Curry.Module.TransformationSignatures.c_transformType_case_1(x1)(x3)(x9)(x10)(Curry.Module.Prelude.op_60_61(x1)(Curry.Module.Prelude.C_Zero)(st))(st)+c_transformType_case_2 x1 x3 x9 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationSignatures.c_transformType_case_2(x1)(x3)(x9)(x10)(x)(st))(i)(xs)(st)+c_transformType_case_2 x1 x3 x9 x10 x st = Curry.RunTimeSystem.patternFail("TransformationSignatures.transformType_case_2")(x)++++c_transformType_case_1 x1 x3 x9 x10 x11@Curry.Module.Prelude.C_True st = Curry.Module.Prelude.op_36(Curry.Module.TransformationSignatures.c_debugTVarWrapper(x1)(st))(Curry.Module.TransformationSignatures.c_transformType'46funcRepr'4614(Curry.Module.TransformationSignatures.c_transformType'46transformParamType'4614(x9)(x3)(st))(Curry.Module.TransformationSignatures.c_transformType(Curry.Module.Prelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(x10)(x3)(st))(st))(st)+c_transformType_case_1 x1 x3 x9 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationSignatures.c_transformType_case_1(x1)(x3)(x9)(x10)(x)(st))(i)(xs)(st)+c_transformType_case_1 x1 x3 x9 x10 x st = Curry.RunTimeSystem.patternFail("TransformationSignatures.transformType_case_1")(x)++++c_transformType_case_3 x3 x5 x7 x8@Curry.Module.Prelude.C_True st = (Curry.Module.Prelude.:<)(Curry.Module.AbstractCurry.C_CTVar(Curry.Module.Prelude.T2(Curry.Module.Prelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st))(Curry.Module.TransformationDebugInfo.c_debugTVarName(st))))(x7)+c_transformType_case_3 x3 x5 x7 x8@Curry.Module.Prelude.C_False st = x7+c_transformType_case_3 x3 x5 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.TransformationSignatures.c_transformType_case_3(x3)(x5)(x7)(x)(st))(i)(xs)(st)+c_transformType_case_3 x3 x5 x7 x st = Curry.RunTimeSystem.patternFail("TransformationSignatures.transformType_case_3")(x)++
+ prophecy/Curry/Module/DebuggerPath.curry view
@@ -0,0 +1,26 @@+module DebuggerPath (+  getDebugLoadPath,+  getDebugFrontendParams,+  getDebugLibPath) where++import Distribution+import FileGoodies++debuggerLibPath :: IO String+debuggerLibPath external++getDebugLibPath :: IO String+getDebugLibPath = do +  path <- debuggerLibPath+  return (path ++ [separatorChar])++getDebugLoadPath :: IO [String]+getDebugLoadPath = do+  loadPath <- getLoadPath+  libPath  <- getDebugLibPath+  return (loadPath ++ [libPath])++getDebugFrontendParams :: IO FrontendParams +getDebugFrontendParams = do+  loadPath <- getDebugLoadPath+  return (setFullPath loadPath defaultParams)